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More and more hardware and communications services are allowing speeds up to 1200 baud. Soon, some may be going 
faster than that. Today's terminal software simply can't keep up. But now there is an alternative. Micro-Systems Software in- 
troduces MicroTerm, the high speed terminal. 

Model III MicroTerm will communicate, without insertion of null characters, at 4800 baud. Guaranteed. No cop-outs, 
no question. MicroTerm is so fast that you can exit from the terminal to the main menu, adjust video width, open the buffer, 
turn on the printer, or any one of dozens of other functions, and return to the terminal model without missing a thing! 

MicroTerm continues to input from the RS232, even while at the main menu. This is the only terminal capable of such 
an astounding feat. MicroTerm offers you most of the features that "Brand X" smart terminals have, plus it gives you: • Ultra high 
baud rate operation (up to 9600 in certain cases). • Input while at menu. • Easy to use translation tables • Easy to use phone 
number listings. • Maximum auto dial support — most major brands. • Direct file transfer companion program included at no 
exta cost (compatible with DFT). • DOS commands from menu without exiting program. • Over 34K of capture buffer (in a 48K 
TRS-80) • Can be set to automatically dial telephone and transmit buffer at preset time without any operator intervention. 

And many, many more great features. MicroTerm is so fast you must see it to believe it. The various menus are displayed 
so fast, they seem to jump out at you. Status of various functions can be displayed and altered in split seconds. 

For the computerist who wants the ultimate, state-of-the-art terminal software, there is no other choice. 

MicroTerm retails for $79.95, but registered DOSPLUS owners can purchase it for only $59.95. $20.00 oft the retail price! 
MicroTerm comes complete with the terminal program, the direct file transfer program, some standard translation tab 
documentation. 

Don't delay, order yours today! Specify when ordering: Model I or III and 
Requires a 16K TRS-80 with one disk drive We recommend 48K for serious communications work. MicroTerm will be available 
beginning June 30. 1982. 
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3're Expanding Your 
TRS-80* Model III 
ith Reliable Hard-Line Thinking 

Let's cut through all the "compu-babble" about hard-disk systems with some hard-line 
thinking. 

You want a hard-disk system for your TRS-80* Model III for some fairly basic reasons: 
• More storage capacity than your present 
system 

K* Faster retrieval and storage of information v ' 

•Accurate processing with reliable hardware and 
software 

PERCOM DATA was pioneering critical, reliable data separation functions for micro 
systems long before many of today's companies even began. PERCOM DATA'S solid 
industry reputation is your promise of hard-disk performance, from a drive with speci- 
fications equal to or superior to your own system. 

PERCOM DATA 5Va inch PHD's'" are your easy, hard-line answer. These units are 
available in 5, 10, 15 and 30 megabyte models. The First Drive unit has a micro- 
processor-based drive controller, permitting you to add up to 3 more hard-disk PHD's. 
And PHD series prices begin at under $2500. 

So, if you're ready to expand your TRS-80 Model III, do it with PERCOM DATA'S PHD. 

Our hard-line thinking of more than half a decade means you get a reliable, high-quality 

PERCOM DATA peripheral, backed by the PERCOM DATA Performance Promise. 

Take a hard-line of your own today! Call one of our Sales Consultants for more 

information and specifications or for the name of your close-by PERCOM DATA Dealer. 

PERCOM DATA'S Hard-Line Hotline is 1-800-527-1222 
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Expanding Your 



Vision 



DRIVES 
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SOFTWARE 



11220 Pagemill Road Dallas, Texas 75243 (214) 340-7081 
1-800-527-1222 



TRS-80 is a registered trademark of Tandy Radio Shack Corporation 
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8. Proof Notes 

The editors look at three years of 80 
Micro. 

12. A Look Back 

Remembrance of things past and 
ruminations on things to come. 
David Lien 



Know Your 
System 



16. Assembly-Language Primer 

Bored by Basic, but unsure about 
taking the plunge to Assembly 
language? Bill Barden may give you 
just the encouragement you need. 
Bill Barden. Jr. 

28. Word Processing Guide 

Word processors ease the task of 
producing letters and manuscripts, 
but you must find one that fits your 
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system and your needs. 
Dan Robinson 

32. The Data Base Lxplained 

Introduction to data bases— every- 
thing you need to know explained in 
plain English. 
Wynne Keller 

40. Insure Your Computer 

Remember to purchase insurance 
for your computer. You'll need it 
when lightning strikes! 
Thomas McDowell 

44. Disk Mysteries Revealed 

Debating on whether to upgrade to a 
disk system or keep your faithful 
cassette player? If you have any 
doubts, read this article. 
Michael F. Morra 

50. Binary Breakout 

Now you can understand the lan- 
guage of your Model I. III. or Color 
Computer. Ifs simple. 
Richard E. Esposito 

56. Nine Programming Tricks 

Try these shortcuts for faster Basic 
programming — easier backups, 
macro commands, renumbering, 
cross-referencing, and block moves. 
David D. Busch 

60. The Sum of Its Parts 

Acquiring proficiency at writing a 
Basic program requires first think- 
ing through the program and then 
outlining the needed steps. 
Spencer Weersrng 

70. Linear Programming 

This method is usualiy used by 
mainframes to solve complex prob- 
lems. Dr. Clapp gives a simple dem- 
onstration, so you can use it, too. 
David Clapp 

78. Model 111 Relative Files 

The drawbacks of direct access files 
can be overcome by using relative 
files accessed by the scatter technique. 
Andrew Rucks 

82. Towards Better Programming 

Improve your programming tech- 
nique by applying these straight- 
forward methods— Program Devel- 
opment Language and the Scientific 
Method. 
John T. Blair 



Model I/III 



96. NODOS80 

Who says cassette users can't have 
some of the features of disk operat- 
ing sytems? It certainly isn't Tom 
Quindry or 80 Micro. 
Thomas Quindry 

128. Storm Tracker 

Forecast the landfall coordinates of 
an oncoming tropical storm or hur- 
ricane to see how much danger the 
storm poses to you. 
Charles C. Williams 

130. 6502 to Z80, Bit by Bit 

[~^H If you've ever wanted to convert 
those 6502 Assembly-language pro- 
grams to run on a Z80 computer, 
here's a piece on how it's done. 
David S. Peckett 

144. Super Spooler 

Here is a solution to the problem of 
being unable to use your computer 
while it is printing. 
Ron Balewski 

148. Election 

Election teaches students about 
campaigning by introducing them to 
several facets of elections such as 
budgets and stands on issues. 
Robert Jacobs 

156. TO Boldly Go... 

r^H A unique application for your 
microcomputer, this menu-driven, 
Basic package will help amateur 
astronomers and other stargazers. 
Joey Robichaux 

164. Oatascope 

fr 7 "! Like an oscilloscope for software, 

\BBSo 

Datascope reads data bit by bit, let- 
ting you recover data from glitched 
tapes or see data on tape. 
Dennis Ridgway 

176. Pick a Card... 

This program won't pull a rabbit out 
of a hat, but it will amaze and puzzle 
your friends. 
Norman Efroymson 

178. AND... OR... NOT 

Boolean logic is a powerful pro- 
gramming tool. Here's how it works 
and what it's used for. 
Jeffrey Myers 
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186. Permanent Sound 


240. 


Making Labels 


306. Fly Like an Kagle 


Avoid cluttering your work space 




Producing custom labels has never 


This simulation of a sailplane race 


with wires and cables and install 




been easier. Written in Basic, the 


can show you the excitement of be- 


this internal sound mod. 




program can easily be modified to 


ing at the controls. 


Richard C. McGarvey 




work with just about any printer. 
William Nelson 


Ian Conn 


190. Android Picture Gallery 






316. Catalog Your Files 


EslZI Here's a new game for you! It seems 


244. 


Two-Person Space Bomber 


U=y You need not hassle with filespecs 


that there are no humanoids left on 


y=z: 


In Space Bomber, one player de- 


any longer. Instead, install this 


the planet Rehabul. Who will take 




fends his planet from bombs being 


cataloging routine in programs that 


over dusting the art gallery? 




dropped by his opponent. 


maintain sequential filespecs. 


Mike Cook 




Dale Chermak 


Jane Goodale 


196. Using DKFFN 


253. 


Dual-Voice Music Synthesizer 


320. Directory Information, Please 


The DEFFN statement lets you 


[i'OAO to 


Those of you who are bored with 


No disk directory can suit every- 


create your own functions. Using it 




your computer playing only one note 


one's needs. But this one. written for 


simplifies programming and saves 




at a time can learn how to get multi- 


LDOS, has enough flexibility to be 


memory. 




ple notes through software. 


adapted with relative ease. 


Ralph Rideout 




Lee Morgenstern 


Charles Knight 


200. Categories 


264. 


Flexcal, Your Basic DBM 


326. Tiger Graphics 


Categories is playable without a 


[roAoio 


Wouldn't it be nice to use one data- 


The IDS Paper Tiger is an excellent 


computer, but this program adds 




base manager for all your filing and 


graphics printer. Here are some 


new dimensions to the game. 




retrieval needs? Flexcat fits the bill. 


graphics techniques in Assembly 


Glenn Collura 




Lawrence A. Terre 


language, Basic, and Pascal. 
Dan Robinson 


208. Number Your Program Listings 


274. 


Math Hangman 




It's much easier to handle those 




Math Hangman is a game that enter- 


366. Cobol on Your 80 


long, long program listings when 




tains you as it helps you develop 


Learning a new computer language 


they are numbered. 




your mathematical skills. 


can be a long tedious process, but 


Joe Edwards 




Tim Knight 


this article leads you painlessly into 
the confusing world of Cobol. 


213. Brainstorm 


278. 


Smartcat 


Sam Perry 


This game challenges you with 




The Lynx modem and Emterm soft- 




number sequences, just like the IQ 




ware make an impressive communi- 


392. Disk Tiny Pascal 


tests you took in school. 




cations package. Smartcat makes 


Did you have to abandon all your 


Richard Ramella 




this combination even more powerful. 


cassette-based Tiny Pascal pro- 






Irwin Rappaport 


grams when you upgraded to a disk 


216. More Memory- lor Peanuts 






system? David's got the answer. 


Adding memory to your Model III is 


284. 


Long, Long Division 


David M. Silver 


not as hard as it seems, so don't be 




Teach your kids (or yourself) long 




intimidated. But remember, you may 




division. Your Model 1 makes a good, 


398. Reload 80 


void your warranty. 




patient tutor. 


A primer on how to use this shortcut 


James Schaefer 




David Cecil 


to getting the most out of this issue 
of 80 Micro. 


220. Fast Tape Operating System 


288. 


Almazar I 


Art Huston 


FTOS lets you use disk commands 




Visit the 72 rooms of Almazar Part 1, 




to increase the speed of storage 




collect the treasure, and reach the 




time in your cassette system. 
Michael Pollard 




next dimension. 
Winston Llamas 






Color 


228. The Glamour of Grammar 


298. 


Rapid Random Access 


^~*\ A 


l-gy So your students don't appreciate 




Find specific records quickly, even if 


C sOiriDiiter 


the finer points of grammar? This 




your files contain 5,000 or even 


V>\/IIII# KM. »-V/H 


program will let them learn the rules 




10,000 records. 




and have fun at the same time. 




Karl Townsend 




George Stone 










300. 


Auto Dial/Auio Answer 


408. Teach Your CC New Words 


238. Avoid the Danger of Dirty Disks 




This addition to your modem will 


Add commands, statements, and 


l-^y Keeping a disk system clean has 




make your computer answer and 


functions to Color Basic and gain 


never been easy. 




dial your phone automatically. 


more computing power. 


Dave Grimes 




Alan Moyer 


Allen Curtis 
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416. Games in Color 

These games for the Color Com- 
puter will test you. amuse you. and 
frustrate your friends! 
Robert Toscani 

427. 3-D for Real 

Until now, 3-D has been a misnomer 
for CC graphics. Our CC expert has 
done the groundwork for real 3-D. 
It'll come out and grab you! 
Dennis Bathory Kitsz 



436. Somcthing-or-Other 3-1) 

With great perseverence, Jake Com- 
mander has come up with this 
stereoscopic 3-D program that 
features a rotating cube in two 
colors. 
Jake Commander 

440. Solitary Maneuvers 

In this follow-up to Colorful Maneu- 
vers, the computer is the opponent. 
James Wood 




442. Colorful Language Instruction 

The Color Computer can be a useful 
tool in language instruction. Here's 
a graphic depiction of how the 
mouth makes certain sounds. 
Alan F. Lacy and David Gorden 

469. High-Res Alphanumeric^ for the 
Color Computer 

Make up your own character sets in 
high resolution on a TRS-80 Color 
Computer with 16K. 
Scott Norman 



472. Teach Your Computer to Talk 

What will your Color Computer's 
first words be? Here's a step-by-step 
method in Assembly language to get 
you and your CC speaking. 
Richard Seymour 

478. Five Games for 4K 

Don't despair if your Color Com- 
puter has only 4K of memory; you 
can still play graphics games. 
James Wood 

482. Reconcile with Color 

Organize your checkbook and recon- 
cile bank statements with this Color 
Computer program. 
David Dacus 

486. Expanded Color Capabilities 

The Color Computer can now 
display green, blue. red. and black 
on the screen at one time. 
James Wood 



Index 



488. 80 Index, 1980-1982 

80 Micro has published hundreds of 
articles and reviews in the past three 
years. Here's a list of them. 



400. Load 80 Index 

Here's a handy list of all programs 
on Load 80. 



526. User Groups 

Want to find the clubs in your area? 
Check this out. 
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530. The Art of Kncoding and Decoding 

If you would like to keep private cor- 
respondence private, this program is 
for you. 
Karl Andreassen 

536. BRKSEL 

What could be worse than acciden- 
tally pressing the break key when 
running a Basic program on your 
Model II? Worry no more by disa- 
bling break using Debug. 
Jim Barbarello 




538. Model II Business Bar (iraphs 

Your Model II can produce bar 
graphs like those the Models I and III 
generate. 
Richard Harkness 

546. Mod II Disk Index 

Indexing your Model II disks will 
eliminate confusion the next time 
you look for a program. 
Charles R. Perelman 

554. Compress, Mod II Style 

Are your Model II programs too 
long? This program takes out 
spaces and remarks. 
Charles R. Wood 

558. Take a Letter 

Draw large block letters using 
regular size letters, any printer, and 
a Model II. 
James Barbarello 

564. Investment Advisor 

Determine the profit margin of an in- 
vestment by computing its internal 
rate of return. 
Charles R. Perelman 



Peripherals 



572. How to Buy a Printer 

Epson, IDS, Okidata, NEC— which 
do you choose? Jim Hansen is an in- 
dustry insider who can give you 
good advice when printer shopping. 
Jim Hansen 




578. Suppress Those Demon Transients 

Transients, surges, power outages, 
and the like can destroy data and 
damage your hardware. 
G. Michael Vose 

582. Into the 232 

Ever wonder about the RS-232 port 
on the back of your micro? Just how 
does it receive and send data? Stay 
tuned. Howard's got the scoop. 
Howard Miller 

586. Ribbon Rewind 

Save money by rewinding multi- 
strike carbon ribbons for your daisy- 
wheel printer. 
Dan Keen and Dave Dischert 

588. Homebrew Green Screen 

So you want to add a filter to your 
video screen, but you think they are 
too expensive? Follow these direc- 
tions and build your own. 
James Conroy 

590. Coping with Cassettes 

You will peacefully co-exist with 
your cassette recorder if you follow 
these tips and perform these 
maintenance procedures. 
Richard Whitney 

592. Ultimate Joystick Interface 

This joystick interface is not only 
cheap, it is easy to build and pro- 
gram for. 
Donald E. Michel and Art May 
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The left bracket, [, replaces the up arrow 
used by Radio Shack to indicate exponen- 
tiation on our printouts. When entering 
programs published in 80 Micro, you 
should make this change. 

80 formats its program listings to run 
64-characters wide, the way they look on 
your video screen. This accounts for the 
occasional wrap-around you will notice in 
our program listings. Don't let it throw 
you. particularly when entering assembly 
listings. 

Article submissions from our readers 
are welcomed and encouraged. Inquiries 
should be addressed to: Submissions 
Editor, 80 Pine Street. Peterborough, NH 
03458. Include an SASE for a copy of our 
writers' guidelines. Payment for accepted 
articles is made at a rate of approximately 
$50 per printed page: all rights are pur- 
chased. Authors of reviews should con- 
tact the Review Editor. 80 Pine Street. 
Peterborough, NH 03458. 
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Here we are, three years later and 
400 pages bigger. It looks like 80 
Micro is a success. This Third-Anni- 
versary Issue celebrates that success. 

Regular readers can expect the same 
great utilities, programming tips, tuto- 
rials, games, and construction projects 
they get in every issue. First-time read- 
ers are in for a treat. 

If you just bought your TRS-80, 
you'll find valuable articles on topics 
such as shopping for a printer, choos- 
ing a word processor, how a disk stores 
information, care and feeding of cas- 
sette systems, and why a voltage sup- 
pressor is a good idea. 

We also asked David Lien, who was 
one of the people responsible for devel- 
oping the TRS-80, to write a short 
piece for us. He talks about the early 
days and how the industry is beginning 
to realize the need for user-understand- 
able documentation. We hope you find 
it interesting. 

Oh yes — our surprise. When we 
were sitting around last spring trying to 
think of ideas for this Anniversary Is- 
sue, someone suggested writing a ste- 
reoscopic 3-D program for the Color 
Computer and binding in the 3-D 
glasses. Of course, we all laughed . . . 
and then looked at each other and said, 
"Why not?" We think you'll find the 
technique interesting enough to try it 
yourself. 

In This Issue 

Though most of the articles were 
from our files, we solicited several es- 
pecially for this Anniversary Issue. 
These include "NODOS 80" by 
Thomas L. Quindry, the piece on 
shopping for a printer by Jim Hansen, 
Mike Vose's article on voltage suppres- 
sors, and, of course, the two 3-D pieces 
by Dennis Kitsz and Jake Commander. 

NODOS 80 seemed like a good idea: 
Put a few of the better disk-based utili- 
ties published in past issues of 80 Micro 
into one program for cassette users. 
Some of the utilities Tom included are 
not found in many commercial DOSes. 
Owners of cassette-based systems 
should find this article a real prize. 



There's 
no end 
in sight 



8 • 80 Micro, Anniversary 1983 



Jim Hansen is an engineer who de- 
signs printers for microcomputers, so 
when he tells you what to look for in a 
printer, you know he knows what he's 
talking about. After reading his ad- 
vice, you'll feel confident when dealing 
with printer salesmen and reassured 
that you'll make a good choice. 

The need for voltage suppressors is 
often overlooked by micro users. It 
takes only one good electrical surge to 
zap a disk, or only one lightning strike 
to burn out your computer. This inex- 
pensive peripheral could be one of the 
best investments you'll make. 

When we asked Dennis Kitsz to write 
a stereoscopic 3-D program for the 
Color Computer, his eyes lit up. Den- 
nis has long touted the Color Comput- 
er as a technical marvel, and he jumped 
at the chance to do something new with 
it. Even if you don't own a Color Com- 
puter, you will find his explanation of 
how 3-D works interesting. In fact, 
we've published two sets of photos that 
you can see in 3-D even without using 
the special glasses. 

Jake Commander, our own techni- 
cal wiz, was also eager to try his hand 
at 3-D. But Jake, having a reputation 
to uphold, had to break new ground. 
Even without the 3-D, Jake's program 
is interesting for its rotating-cube 
graphics techniques. It turned out to be 
more work than he expected, but you 
should find his efforts worthwhile. 

The Future 

Someday, 80 Micro's growth will 
level off— it's inevitable. But at the 
moment, there's no end in sight. 

Not only will we be publishing more 
articles each month, but the quality of 
those articles will be better. We've been 
impressed with the submissions of late, 
and to give you an idea of what to ex- 
pect in the near future, here is a sample 

Circle 31 on Reader Service card.— 



THE 
SWITCH 

SWITCH T0 5 V DOUBLE DENSITY 

IXDaublerS/s 




FEATURES 

• 5- and 8-inch* disk drives 

• Single- & double-density 

• Any size and density in any mix 

• Read Model I, II* and III disks 

• 5- or 8-inch* system disk 

• Single & double sided disk drives 

• DOS+ 3.3.9 included, with Disk 
BASIC. 

• 6 month warranty 

• Up to 3.75 megabytes online 

• Easy installation - plug-in & run 

• Analog phase lock loop data 
separation 

• Precision write precompensation 

• Regulated power supply 

• Guaranteed operation at 4MHz 

• All contacts gold plated 

• Solder masked & silk screened 

• Runs under DOS+ 3.3.9, TRSDOS 
2.3, NEWDOS 2.1, NEWDOS/80 
1.0, LDOS, NEWDOS/80 2.0, 
and ULTRADOS 

• Reads 40- and 35-track disks on 
80-track drives 

• FD1791 controller + your FD1771 

• Fits Model I expansion interfaces 

• Fits LNW expansion interfaces 

• Track configurations to 80-tracks 

• 5 inch disk storage increased to: 

161,280 bytes - 35-track SS/DD 
322,560 bytes - 35-track DS/DD 
184,320 bytes - 40-track SS/DD 
368,640 bytes - 40-track DS/DD 
368,640 bytes - 80-track SS/DD 
737,280 bytes - 80-track DS/DD 

• 8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1,182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDoubler 5/8, 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
(formatted storage) - that's an 80% 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double-density 



board you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 
$ 



219.95 



DEALERS - You too can 
make The Switch. 




USfffyRESEARCH CORPORA TION 



2620 WALNUT Tustin, CA. 92680 (714)544-5744 (714)641-8850 

•8" drive operation requires special cable. 8" double-density requires 3.55MHz CPU speed-up modification or LNW-80 4MHz computer. TRS-80 is a trademark of Tandy Corporation. 



PROOF NOTES 




The 80 Micro staff gets ready for 3-D. 



of articles we've recently bought: 

• A build-your-own hi-res color moni- 
tor for the Model III for $150. 

• AS5 CP/M mod. 



• A great tutorial on the FLEX oper- 
ating system for the Color Computer 
from the man who adapted it from the 
IBM system. 



• A new column by Hardin Brothers 
on using Assembly-language subrou- 
tines in Basic programs. 

• A series on using a micro in crypt- 
analysis by Karl Andreassen, the first of 
which appears in this Anniversary 
Issue. 

• How to copyright and market your 
software. 

• Many well-written tutorials on Ba- 
sic programming that will appeal to 
the beginning to intermediate pro- 
grammer. 

We'll also be publishing timely re- 
views written by users and a new-prod- 
uct listing. And your favorite columns 
will continue: Feedback Loop, a ques- 
tion-and-answer forum; MONEY DOS 
a financial-investment advisor; Medi- 
cal Opinion, advice for MDs; and 80 
Applications, a hardware hacker's ha- 
ven by Dennis Kitsz. 

We think we've put together a pretty 
good collection of articles in this Anni- 
versary Issue; there should be enough 
of everything to satisfy everyone. And 
if there isn't, let us know and we'll try 
to include it in the next one.B 



Transform your Home into a Computerized Arcade 
with HORIZONS Software 



;yiiii^- r .ii-^i^viivv^i'i.iiiii*iiii-yi^ , y 



^4 aA 




Tape S14.95 / Disk $19.95 



VENTURE 

Journey into the derelict strong- 
hold of an ancient wizard in an 
effort to destroy monsters and 
collect treasure in this realtime 
machine language arcade game. 
With sound effects, this is the 
first in a series of outstanding 
quality arcade-style games for 
your TRS-80 computer. 

Please specify Model I or Model 
3 when ordering. 



TRS-STICK Joystick for all Horizons games: Model I or 3: $39.95 



A Division of Case Technology 



Oeaie' 'naui'tcs ">vitod 

TRS 80 is a I'aaemaiK ol Tandy Co'i> 

Please add S' 00 'o< handling MO 'es add 6"* 



Horizons 



P.O. Box 4792 
Springfield, MO 65802 



Software 



£Q 1417) 831-56 73 

• 373 
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META TECHNOLOGIES 

* 13 261 1 1 Brush Avenue, Euclid Ohio 441 32 

CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



joint/ 

marketing 
services 



PARAGON 



*-g^ 



magnetics'' 



DISKETTES 



MTC's 

Bremium Single-Sided, Soft-Sectored 
OUBLEDENSITY, S'/i-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PARAGON MAGNETICS GOLD $24.95 



Scotch 

Soft-Sectored Diskettes 

5-1/4" 1S/SDen (744-0) S28.95 

5-1/4" 1S/DDen(744D-0) S31.95 

5-1/4" 2S/DDen (745-0) S39.95 

8" 1S/SDen (740-0) S29.95 

8" 1S/DDen (741-0) S37.95 

8" 2S/DDen (743-0) S49.95 

Hard-Sectored Diskettes 

5-1/4" 1 S/D Den 10-sector (744-10) S28.95 

5-1/4" 1S/DDen10-sector(744D-10) S32.95 

5-1/4" 2S/DDen10-sector(745-10) S39.95 

5-1/4" 1S/SDen16-sector(744-16) S28.95 

5-1/4"1S/DDen16-sector(744D-16) S32.95 

5-1/4" 2S/DDen16-sector(745-16) S39.95 

8" 1S/SDen32-sector (740-32) $33.95 

8" 1S/DDen32-sector(741-32) $39.95 

8" 2S/DDen 32-sector (743-32) $49.95 

Supplies 

5-1/4" Head cleaning kit $29.95 

8" Head cleaning kit S29.95 

Authorized Distributor OflUi 

Information Processing Products WlVl 



VERBATIM 

Soft-Sectored Diskettes 

5-1/4" 1S/DDen(MD52&01) $26.95 

5-1/4" 2S/DDen(MD55fX)1) $39.95 

5-1/4" 2S/4Den(MD557-01) $51.50 

8" 1S/DDen(FD34-8000) $43.95 

Hard-Sectored Diskettes 

5-1/4" 1S/DDen 10-sector (MD525-10) $26.95 

S1/4"2S/DDen10-sector(MD550-10) $39.95 

5-1/4"2S/4Den10-sector(MD557-10) $51.50 

'RINGS' & THINGS 

HUB RING KIT for 5'/«" disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

5'/4-inch diskette case $3.50 

8-inch diskette case $3.95 

5'/4-inch File Box for 

50 diskettes $24.95 

8-inch File Box for 

50 diskettes $29.95 



FILE BOX 

DISKETTE STORAGE SYSTEM 

Storing 50 to 60 diskettes, this 
durable, smoke-colored acrylic unit 
provides easy access through the 
use of index dividers and adjustable 
tabs. Unique lid design provides 
dust-free protection and doubles as a 
carrying handle. 

Reg. $24.95 NOW $17.95 

* With the purchase of ONE 

PARAGON GOLD 

SCOREPAC 

Isn't it time that you scored . . . 
A Great Gift Giving Idea!! 



APPLE® OWNERS 

Your first mystery is here! 

THE CUSTOM APPLE® 

& OTHER MYSTERIES $24.95 

by Hofacker & Floegel 

Make your Apple® Computer perform 
tasks you never thought possible. In- 
terface to stepping motors, fans, drive 
motors, etc. Remotely control and 
automatically monitor virtually any 
machine previously controlled by 
mechanical means. If you want to 
lower your heating costs or are just 
wondering how to hook that "new" 
printer to your Apple® you need this 
book! Volume 1 of IJG's Apple Infor- 
mation Series contains more than 180 
pages of practical information and 
tested software. 




SCOREPAC™ 

w/20 Paragon Gold Diskettes $46.95 



MODEL l/lll SOFTWARE ACCESSORIES 

APPARAT'SNEWDOS/80-V2 + MTC QUE CARD™ $ 129.95 

PRACTICAL PERIPHERALS MICROBUFFER™ $ 149.$ 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 

SPECIFY MODEL I OR 

Disk Version $79.95 

Tape Version $69.95 



by Harvard C. Pennington 
TRS-80™ DISK S19.95 

"OTHER MYSTERIES" 
VOLUME II 

by James Farvour 

MICROSOFT™ BASIC DECODED S26.9 5 

"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

THE CUSTOM TRS-80™ S28.95 

"OTHER MYSTERIES" 
VOLUME IV 

BASIC FASTER 
AND BETTER 

BASIC FASTER & BETTER S26.95 

BFBLIB subroutines diskette ... Si 9.9b 
BFBDEM demonstration diskette $19.95 



APPLE Is a rogislored trademark 

o' Applo Computer Inc. 

TRS 80 is a tradomark of the 

Radio Shack Olvlslon ol Tandy 

Corporation. DATALIFE Is a 

trademark ol VERBATIM. PLAIN 

JANE. PARAGON MAGNETICS 

are trademarks o( MTC. 

1082 by Mat* Technologies 

Corporation 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

24 Hr. Bulletin Board 
(216)289-8689 



PRICES IN EFFECT 
THRU 

December 31, 1982 

Prices, Specifications, 

and Offerings subject to 

change without notice 

8212 



WE ACCEPT 
•VISA 

• MASTER CHARGE 
•CHECKS 

• MONEY ORDERS 

• C.O.D. 



Add $3.00 for shipping 
8t handling. 

• S2.00 EXTRA for U.S. 
Mail delivery. 

• S3.00 EXTRA for C.O.D. 

• Ohio residents add 6.5% 
sales tax. 



FORWARD 



A Look Back 



T 



hrough Level II Basic, tutorial-style docu- 
mentation, and persistence, the TRS-80 
Model I was born a user-friendly computer. 



Ed. note: Dr. David Lien is one of (he 
people who made the TRS-80 possible. 
He continues to support the Radio 
Shack computers by publishing books 
on Basic programming on the TRS-80 — 
several of which are considered stan- 
dards. Following are Dr. Lien's reflec- 
tions on his role in the development of 
the Model I and the need for quality 
documentation. 

It was 1976 — only 6 years ago. Fort 
Worth was hot and humid. 

I sat in the shabby old Radio Shack 
headquarters building discussing the 
possibility of a "personal computer." 
President Lou Kornfeld was justifiably 
skeptical. 

"If I gave one of these to my wife for 
Christmas, she'd think I was some sort 
of nut," he said, clutching a prototype 
of the original Model I. Worded that 
way, the project didn't seem to make 
much sense. 

"What can 1 really use it for?" others 
asked. 

My answer: "Its use is limited only by 
your imagination." 

That answer sounds as inadequate to- 
day as it did then. 

At that time there was only Tiny 
Basic. No Level 11 Basic. No VisiCalc. 
No Scripsit. No Profile. No nothin! 
Just a game of Blackjack on an audio 
cassette. 

I was retained to create a critical new 
interface between the engineers and the 
customers — a tutorial-style user's man- 
ual. It was to be a complete correspon- 
dence course on how to run a comput- 
er — without the correspondence! No 
one had ever heard of a "user's manual" 
for a computer written for beginners, 
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and no one (including me) was com- 
pletely sure it could be done. 

I promised Radio Shack only one 
thing — I would "take away the fear.'" 
They got the Model I user's manual for 
Level I Basic. The rest is history. 

At the Creation 

Don French, Steve Leininger, and I 
sat around a large old oak table, located 
in an entry where everyone bumped into 
it. The project was now well under way 
and it had a problem. 

Don was the marketing genius who 
conceived the TRS-80, and who sensed 
the need for the engineer -consumer in- 
terface. He had asked me to solve that 
problem. There was just one additional 
little problem. No one at Radio Shack 
seemed to know much about the Basic 
language. I did, and agreed to help. 

We sat all day at that big round table. 
I went through an exhaustive list of 
Basic words and explained their capa- 
bilities. Only 4K of ROM was available, 
and we had to decide which words to in- 
clude in a Basic interpreter. It seemed 
like an impossible job, but at the end of 
the day Level I Basic was a reality. 

The Breakthrough 

The complete story of the TRS-80 has 
never been told. It is fascinating, but 
perhaps of interest mostly to historians. 

From my perspective, the important 
breakthrough was recognition of the 
need for premium-quality "documenta- 
tion" to accompany a highly technical 
product destined for a consumer mar- 
ket. Most important, that need was rec- 
ognized and acted upon before the 
product was even designed. Radio 
Shack and Epson both had such vision. 



Count their profits! 

It's amazing how few hardware and 
software manufacturers appreciate the 
importance of communicating with we 
end users in "end-user talk." Fewer still 
actually do it without insulting our in- 
telligence. How many failures of good 
products can be attributed to not under- 
standing the marketing value of correct- 
ly interfacing the product with the end 
user? 

Let Engineering Do It? 

"Documentation," "manuals," 
"books," or "instructions," by any 
name are usually an afterthought, re- 
membered only when the product final- 
ly works and engineering turns it over to 
marketing. Marketing realizes that 
something has to be stuffed in the ship- 
ping box along with the widget, so they 
tell engineering, "You guys know more 
about this thing than anyone else, so 
you write the instructions." Engineer- 
ing gathers up notes scribbled on the 
back of used computer printouts and 
does what it hates most — and does 
worst. The results are usually awful! 

Since the products are usually well 
engineered, what can we do to get our 
money's worth? Not many are sold in 
sufficient volume to attract good sup- 
plemental documentation written by 
noncompany authors. 

Friends, user groups, and local com- 
puter stores can sometimes help, but the 
best information source usually comes 
each month in the mail. Magazines like 
80 Micro with their specific product em- 
phasis promote the free exchange of in- 
formation and ideas, encouraging ex- 
perimentation and learning. If you 
can't understand the manual, try a good 
magazine. 

Specific articles like those that follow 
in this special Anniversary Edition help 
bridge the gap between the "official 
documentation" and your imagination. 

Dr. David A. Lien 
San Diego— 1982 



META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



services 



A Few Words About 

The NEW AIDS-MI™ 

by SofT rends, Inc. 

1. TRUSTWORTHY. A bad diskette or an undependable machine can ruin your 
whole day. The NEW AIDS-III checks itself. If something's wrong, it tells you, in- 
stead of turning on you like a mad dog. 

2. GENEROUS. The NEW AIDS-III doesn't use BASIC. But it does use the 
memory BASIC uses. And to make the most out of that extra memory, it selec- 
tively compresses bytes into tiny bits. It all adds up to more usable data records. 
Up to 3 times as many.* 

3. THOUGHTFUL. The NEW AIDS-III never treats you harshly. If one keystroke 
will do, it won't ask for two. The NEW AIDS-III remembers things like report for- 
mats, search strategies and file names. So you don't have to. It even reminds you, 
gently, to save your important data. 

4. INTELLIGENT. The NEW AIDS-III is smart. It doesn't waste your time with 
questions about record sizes, field counts and othertechnical mumble-jumble. A 
new system can be created, or an old one modified, in a couple of minutes. Even 
if your name isn't Albert Einstein. 

5. KIND. The NEW AIDS-III is always ready to help. It says so, on every screen 
display. HINTS™ (Help INdexed To Screen) tells you on which page in the NEW 
AIDS-III manual to look for more information. The manual is easy to understand 
and easy on the eyes. 

6. QUIET. If you hit the wrong key, you won't hear any annoying buzzes, clicks 
or chirps. Instead, FLAWS™ (FLash-Annunciated Warning System) will create a 
striking visual effect. But only for an instant. And without affecting any of the 
text on the screen. Guaranteed to catch the eye of the fastest touch-typist. 

7. ALERT. |f the NEW AIDS-III is left alone, it lets you know it missed you. It wor- 
ries about your important data. After several minutes of no activity, the NEW 
AIDS-III creates a striking visual display to get your attention. Touch any key to 
let it know you're still there, and it stops. For a little while, anyway. 

8. LEAN. There's no fat in the NEW AIDS-III. That's because it uses SofTrends' 
proprietary PMX™ system architecture. Small, lightening-fast, reliable. Lean? 
Yes. Mean? Definitely not. 

9. FAST. Searches and sorts hundreds of records in seconds. Screens are 
displayed in the blink of an eye. Disk access rates approach one-thousand char- 
acters per second. No waiting for "garbage collection". The NEW AIDS-III lives 
fast. Up to 10 times as fast.* 

10. REASONABLE. At only $79.95, the NEW AIDS-III is very reasonable. Down- 
right inexpensive, if you value your time. Join the thousands of AIDS owners 
around the world. Order yours today and put the NEW AIDS-III data management 
system to work for you. 

• As compared to MTC AIDS-III, Version 1.0 

Specify Model I or Model III $79.95 

** CALL REGARDING UPGRADE POLICY ** 

CALCS-IV (ADVANCED CALCULATION SUBSYSTEM) has the 
following features: 

• All the capabilities of CALCS-III. 

• SAVE REPORT FORMATS on disk for EDITING, as required. 

• More than TWICE the COMPUTATIONAL POWER of CALCS-III. 

• Non-interpretive report execution for FASTER EXECUTION. 

• Reports can be run by a NOVICE. 
ONLY $20 when purchased with AIDS-lll/Version 2.0! 

Specify Model I or Model III $39.95 



NEW AIDS SUBSYSTEMS 

by SofTrends, Inc. 

VISAPLEX™ 

Interfaces AIDS-III and VisiCalc'. Use AIDS-III 
for data entry, sorting and selection. Then load 
the data into VisiCalc". perform computa- 
tions, summations, etc. Like what you see? 
Change the data back into AIDS-III format for 
future processing. Remarkably easy to use. 
Comprehensive documentation complete with 
examples. 
Specify Model I or Model III S39.95 



ADEPT 



TM 



This module is ideal for entering large batches 
of data into AIDS-III. Features include pre- 
defined field values, definition and expansion 
of abbreviations, transposition of entries, 
range checking, entry of data from previous 
record, expanded validation and more! Type as 
fast as you can ... no problem! Use with 
VISAPLEX ,M (above) to provide a comprehen- 
sive data entry facility for VisiCalc'. Complete 
documentation with examples. 
Specify Model I or Model III S29.95 






If you own Apparat's 

NEWDOS/80-Version2.0 

you need 

BREVI-T™ 

by SofTrends, Inc. 

If you have trouble remembering command for- 
mats, want to simplify use of DOS, do a lot of 
program development or just want to be more 
effective with your TRS-80 ,W . then BREVI-T is 
for you. Abbreviations can be defined for both 
DOS and BASIC. These are automatically ex- 
panded as part of the command line pro- 
cessor. Optionally, parameters may be defined 
as part of an abbreviation. For example, "F 1" 
might be used to FORMAT drive 1. Change the 
1 to a 2 and FORMAT drive 2. It's that simple. 
Complete with easy-to-follow instructions, ex 
amples and a sample abbreviation file. 

Specify Model I or Model III S19.95 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & I 
MEMORY DIAGNOSTIC! 

by David Stambaugh 

A complete checkup fot your MODEL I orl 
MODEL III. THE FLOPPY DOCTOR Version 3l 
completely checks every sector of single orl 
double density 35-. 40-. 77-. or 80-track disk 
drives. Tests motor speed, head positioning. ij 
controller functions, status bits and provides 
complete error logging. THE MEMORY! 
DIAGNOSTIC checks for proper write/read. j 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and | 
complete instruction manual. 

SYSTEM DIAGNOSTICS S24.95J 
ForMODELIII $29.95) 



TRS-80 is a trademark of the 
Radio Shack Division of Tandy 

Corporation. VisiCalc is a 

trademark of Visi Corp. PLAIN 

JANE. AIDSI. AIDS-III. CALCS III. 

CALCS-IV. MERGEIII aro 

trademarks of MTC. 

1982 by Meta Technologies 
Corporation 
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MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

24 Hr. Bulletin Board 
(216)289-8689 



PRICES IN EFFECT 

THRU 

December 31, 1982 

Prices, Specifications, 

and Offerings subject to 

change without notice 

8212 



WE ACCEPT 

•VISA 

• MASTER CHARGE 

•CHECKS 

•MONEY ORDERS 

•C.O.D. 



Ik 



• Add S3.00 for shipping 
& handling. 

•S2.00 EXTRA for U.S. 

Mail delivery. 
•S3.00 EXTRA for C.O.D. 

• Ohio residents add 6.5% 
sales tax. 



Our "almost wholesale" 



prices just g 
2% lower. 




Take an additional 2% off 

our listed prices, until December 24. 



Have a merry computer and a happy software. 



PRINTERS 



COMREX CB-1 PARALLEL 839.00 

COMREX CR-1 SERIAL 859.00 

C-ITOH F- 10 40 CPS PARALLEL. . .1390.00 

C-ITOH F-10 40 CPS SERIAL 1390.00 

C-ITOH 8510 PR0WRITER PARALLEL... 480 00 

C-ITOH 8510 PROWRITER SERIAL 590.00 

EPSON MX-80 III W/GRAFTRAX + SCALL 
EPSON MX-80 III F/T W/GRAFTRAX + SCALL 
EPSON MX-100 III W/GRAFTRAX + SCALL 

IDS PRISM 80 W/C0L0R 1599 00 

NEC 8023A 485.00 

NEC SPINWRITER 3530 P R0 .... 1995 00 

NEC SPINWRITER 7710 S RO 2595.00 

NEC SPINWRITER 7730 PRO. .2595.00 



VERBATIM 

MO 525-01. 10. 16 .26 50 

DISKETTES STORAGE 

5»/i" PLASTIC LIBRARY CASE 2 50 

8" PLASTIC LIBRARY CASE 3.50 

PLASTIC STORAGE BINDER W/ INSERTS.9.95 

PROTECTOR 5'/." 21.95 

PROTECTOR 8" 24.95 

TRS-80 HARDWARE 

PERCOM DATA SEPARATOR 27.00 

PERCOM DOUBLER II W/ DOS 3 4 .159 00 



MODEL III DISK DRIVE KITS 

CONTROLLER KIT INCLUDES ALL BOARDS ASSEMBLED AND TESTED. INTERNAL CONTROLLER. 
MOUNTING BRACKETS SWITCHING POWER SUPPLY. AND INSTALLATION INSTRUCTIONS 
HANOLES 4 ORIVES 36000 

KIT »3: CONTROLLER KIT AND 2 TM100-1 
SINGLED-SIDED. 40 TRACK ORIVES 720 00 

KIT »4: CONTROLLER KIT AND 2 TM100-2 
DOUBLE-SIDED. 40 TRACK DRIVES 850 00 



KIT II: CONTROLLER KIT AND 2 TM100 3 
SINGLED-SIDED. 80 TRACK ORIVES 875 00 
KIT 12: CONTROLLER KIT AND 2 TM1O0-4 
DOUBLE-SIDED. 80 TRACK DRIVES 1060.00 



OKIDATA MICROLINE 80 389 00 

OKIDATA MICROLINE 82A .460.00 

OKIDATA MICROLINE 83A 700 00 

OKIDATA MICROLINE 84 1170.00 

OKIGRAPH 82 . 49 95 

OKIGRAPH 83 49.95 

EPSON ACCESSORIES 

MICROBUFFER} MBS-8K 159.00 

MICROBUFFER} MBP-16K 159.00 

MICROBUFFER IN-LINE 32K 299.00 

MICROBUFFER INLINE 64K 349.00 

GRAFTRAX PLUS 60 00 

MX-80 RIBBONS .895 

MX-80 PRINTHEAD. 40.00 

MX-100 RIBBONS 24.00 

MX-100 PRINTHEAD . 49 00 

EPSON SERVICE MANUAL... .2000 

16KRAMSPECIAL13.95 

Sel of 8 NEC 41 16 200ns.Guaranleed one year 

MODEL I, III 
SOFTWARE 

PROSOFT NEWSCRIPT/LABELS MOD I. Ill 119.00 
OMNITERM SMART TERMINAL MOD 1. 111.89.95 

MAXI-MANAGER MOO I. III.. 89 95 

DOS PLUS 3.4 MOD I. III. . 89.00 

LOOS 5.1 MOD I. Ill 119 00 

MICROSOFT EDITOR ASSEMBLER 

+ MOO I (OISK) 44 95 

MICROSOFT FORTRAN MOD I. . 80 00 

DISKETTES 

ALPHA DISKS 21.95 

Single sided, certified Double Density 40 Tracks, 
with Hub-Ring Box ol 10 Guaranteed one year 



TANDON 80 TRK OISK DRIVE W/ P S 345 00 
TANDON 40 TRK OISK DRIVE W/ PS. 289 00 
LNW DOUBLER W/ OOSPLUS 3.3. ,.. 138 00 
LNW DOUBLER 5/8 W/ DOSPLUS 3.4 171 00 

ISOLATORS 

ISO-I 3-S0CKET 53.95 

IS0-2 6-SOCKET 53.95 

MODEMS 

NOVATION CAT ACOUSTIC 135.00 

NOVATION D-CAT DIRECT CONNECT. .156.00 
NOVATION AUTO-CAT AUTO ANSWER. 219.00 
HAYES SMART MODEM (300 BAUD) 227 00 
HAYES SMART MODEM (1200 BAUD) 540 00 

LEXICON LEX-11 109.00 

SIGNALMAN MODEM W/ RS-232C . 85 00 

SUPPLIES 

AVERY TABULABLES 

1.000 V/tx 15/16 8.49 

3.000 3'/> x 15/16 . .14.95 

5.000 V/i x 15/16 19 95 

FAN FOLD PAPER 

(Prices F.O.B. S.P.) 

9'/? x 11 181b WHITE 3.000 ct 29.00 

14 7/8x11 181b WHITE 3.000 Ct 39 00 

SPECIALS 

SPECIAL N0.1 

TRS-80 DISK AND OTHER MYSTERIES. BOX OF 

VERBATIM DISKS. PLASTIC LIBRARY CASE ... 

44.50 



SPECIAL N0.3 

NEWDOS/80 2.0. BOX OF VER8ATIM OISKS. 

PLASTIC LIBRARY CASE 149 00 

SPECIAL N0.4 

MICROSOFT BASIC COMPILER. BOX OF VER- 
BATIM DISKS. PLASTIC LIBRARY CASE ... . 
1 79 00 

SPECIAL N0.5 
MICROSOFT BASIC DECODED AND OTHER 
MYSTERIES. BOX OF VERBATIM DISKS. PLASTIC 
LIBRARY CASE 49 95 

DOUBLE DENSITY SPECIAL 
PERCOM DOUBLER II. NEWDOS/80. BOX OF VER- 
BATIM DISKS. PLASTIC LIBRARY CASE 
279 00 

COMMUNICATION SPECIAL 

MOD I &II 

NOVATION MODEM. OMNITERM TERMINAL 

SOFTWARE 

ACOUSTIC SPECIAL (CAT) 219 00 

DIRECT CONNECT SPECIAL (D-CAT) .239.00 
SERIAL CABLE 25.00 

DISK LIBRARY SPECIAL 
RACET DISKCAT CATALOGING PROGRAM. FLIP 
SORT (50 DISK CAPACITY). 50 STICK-ON DISK 
LABELS 59.95 

BOOKS 

THE CUSTOM TRS-80 .24.95 
MICROSOFT BASIC FASTER & BETTER. .24.95 
CUSTOM I/O MACHINE LANGUAGE 24.95 



STAR FIGHTER 
Z-CHESS III 

ADVENTURE NO 1. 2 & 3 
ADVENTURE NO 4. 5. & 6 
ADVENTURE NO 7. 8. & 9 

DUEL-N-OROIDS 

STARFLEET ORION 
INVASION ORION 
OLYMPIC DECATHLON 

MONTY PLAYS MONOPOLY 

SARGON II 

BLACKJACK MASTER 

ROBOT ATTACK 

GALAXY INVASION 

SUPER NOVA 

TUESDAY MORNING QUARTERBACK 

LUNER LANDER 

THE MEAN CHECKER MACHINE 

SPACE ROCKS 

PIGSKIN 

ZOSSED IN SPACE.. 

ARCADE-80 

COMBAT 

SPACE INTRUDERS 
SILVER FLASH 
MORTON S FORK. . 
PROJECT OMEGA 
SCARFMAN 



24 95 
24 95 
.34.95 
34.95 
34 95 
17 95 
2195 
21 95 
24 95 
31 95 
31.95 
27 95 
17 95 

17 95 
1795 
26 95 

18 95 
21 95 
18 95 

17 95 

18 95 
21 95 
18 95 
17 95 
17 95 
26 95 
21 95 
17 95 



Call our Modem line for 
weekly specials. 




TRS-80 GAMES 

All games are disk versions Cassette versions ^ ^ 

may nol be available 31 VU ffl l_^'-"-±» IET ■] 

TEMPLE OF APSHAI 31.35 

HELLFIRE WARRIOR 31 35 

STAR WARRIOR 3135 — 

RESCUE AT RIGEL 23 36 rY]IU|U| ! i ft. LJ 

CRUSH. CRUMBLE AND CHOMP 23 36 VwlllrU I I— 11 

INVADERS FROM SPACE 17 95 | -^f| /^f^| ■/ "* 1 M *X 

MISSILE ATTACK 18 95 ' V\\JU\J\^ I O 

To order or for information call 

(213)7060333 

Modem order line: (213)883-8976 

We guarantee everything we sell lor 30 days — no returns after 30 days. Defective software 
will be replaced free, but all other software returns are subject to 15% restocking fee and 
must be accompanied by RMA slip. No returns on game software, unless defective. 

We accept VISA and MasterCard on all orders: COD orders, up to S300. 

Shipping charges: S3 for all prepaid orders, actual shipping charges for non- prepaids: S3 
for COD orders under 25lbs. ($6 for over) plus a S4 surcharge; add 15% for foreign. FPO 
and APO orders. Calif, add 6% sales tax. L.A. County add 6'/?%. 

Prices quoted are for stock on hand and are subject to change without notice. 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 

• 473 
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TUTORIAL 



Assembly Language Primer 



by Bill Harden, Jr. 



B 



ored by Basic, but unsure of taking the 
plunge to Assembly language? Bill Barden may 
give you just the encouragement you need. 



Want a convincing demonstration 
that Assembly language is better than 
double density on the Model I, a 68000 
in the Model II, a hard disk for the 
Model III, or lowercase for the Color 
Computer? Enter Program Listing 1 
for your Model I/III (protect mem- 





A 


F 




B 


C 


(ONLY ONE 
SET USED 
AT ONE 





E 


H 


L 




A' 


f' 




8' 


c' 




d' 


e' 




h' 


l' 








IX INDEX REGISTER 








IY INDEX REGISTER 








SP STACK POINTER 








PC PROGRAM COUNTER 












R REFRESH 












I INTERRUPT 



GENERAL 
) PURPOSE 
SET I 



GENERAL 

> PURPOSE 

SET 2 



. INDEXED 

) OPERATIONS 



Fig. 1. Z80 CPU Registers 



ory from &H7F0O on) or Program 
Listing 2 for your CoCo (CLEAR 
200,&H3EFF) and run it. 

Each program is a simple bubble 
sort of random characters on the first 
half of your video screen. You'll see 
the characters rearrange themselves in 
alphabetical order. Time how long it 
takes to sort the data. Now enter the 
version shown in Program Listing 3 or 
4 and run it. Time it. Incredible, eh? 
The first version took about 20 min- 
utes while the second version took 
about 10 seconds! 

As you might have guessed, the sec- 
ond version is in Assembly language. 
Assembly language is the difference 
between stuffing a TV chicken dinner 
into the microwave and preparing Coq 
au Vin from scratch. The results are 
similar, but one is convenient and ade- 
quate while the other is handcrafted 
and a gourmet delight. 

In this article we'll look at what As- 
sembly language is, how it differs from 
Basic and other higher-level languages, 
the advantages and disadvantages of 
Assembly language, assembler pro- 
grams, and finally, give you a bibliog- 
raphy of materials to help you learn 
Assembly language. 

Which Came First, 

Basic or Assembly Language? 

Basic has special commands related 
to useful functions, such as addition, 
multiplication, exponentiation, pro- 
cessing of alphabetic text strings, print- 
ing and display of results, and arrays 



of data. The Basic commands are 
meant to be general-purpose functions 
that when strung together in a program 
accomplish useful results. 

It is virtually impossible to build an 
electronic device that implements these 
commands directly. It's hard to con- 
ceive of being able to build a machine 
that would perform such diverse func- 
tions as finding the nth left characters 
of a string (LEFTS), printing a line of 
numeric and alphabetic characters in 
special format, and finding the SIN of 
an angle. There are just too many func- 
tions and in too many combinations to 
be able to build such a computer. 

How do we implement Basic or oth- 
er applications problems, such as 
spread sheets, word processing, or con- 
trol of the Acme No-Cal Cheesecake 
production line? It's done on a micro- 
processor, a machine that performs ru- 
dimentary arithmetic and control func- 
tions. These low-level functions, when 
properly combined in a program, can 
implement the Basic commands, word 
processing searches, and rejection of 
cheesecakes that contain too many 
calories. 

As a matter of fact, we've been look- 
ing at the whole topic in reverse. First 
came machine and Assembly language, 
and then came Basic. Computers were 
originally developed from the need to 
rapidly perform simple operations 
such as addition, subtraction, multipli- 
cation, and division. The first comput- 
ers were high-speed calculators that 
evolved into machines capable of per- 
forming other functions, such as mak- 
ing decisions and comparisons. The 
current evolutionary state of comput- 
ing machines uses Basic and applica- 
tions programs. 

Instruction Sets 

Let's get down to the actual instruc- 
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tions that microprocessors can per- 
form. There aren't very many. We'll 
look at the Z80 microprocessor used in 
the Model I, II, and III, and the 6809E 
microprocessor used in the CoCo. In 
spite of chauvinists, these microproces- 
sors are roughly the same in power and 
capability. 

Addition and Subtraction: Both the 
Z80 and 6809E have a number of in- 
structions to add and subtract num- 
bers, as you might expect. However, 
only smaller numbers can be pro- 
cessed — numbers that are 16 binary 
digits (bits) in length, maximum. These 
are binary numbers that are 
0000000000000000- 11111111111 
11111, representing decimal equiva- 
lents of 0-65,535, or (in another for- 
mat) -32,768 to +32,767. 

Any size of numbers can be pro- 
cessed by combining multiple adds and 
subtracts in a sequence of instructions, 
but the Z80 and 6809E instructions on- 
ly operate on 8 or 16-bit numbers. 

Multiplies and Divides: The Z80 has 
no multiplication or divide instruc- 
tions; the 6809E has a multiply only. 
Believe it or not, microprocessor in- 
structions are that rudimentary! Multi- 
plies and divides must be done by 
stringing together adds and subtracts, 
along with other instructions, in a 20 or 
30-instruction program to implement 
multiplies and divides. 

Decision-Making Instructions: The 
Z80 and 6809E have instructions to 
make decisions. These instructions al- 
ter the flow of the program and are 
used continually. These conditional 
jump or conditional branch instruc- 
tions jump to a new sequence of in- 
structions if a condition is met. The 
condition tested is usually the result 
of some previous add, subtract, or 
comparison, and represents condi- 
tions such as zero result, negative re- 
sult, positive result, not equal, equal, 
and others. 

An unconditional jump also alters 
the sequence of instructions to be ex- 
ecuted, and is always (unconditional- 
ly) done. 



Logical and Bit-Manipulation In- 
structions: Basic generally operates on 
entire numeric quantities. However, 
the instructions of the Z80 and 6809E 
provide a bit-manipulation capability. 
ANDs and ORs provide logical func- 
tions on a binary-digit level, and shifts 
provide the ability to realign data on a 
bit basis. These instruction types are 
important to the microprocessor as 
they allow multiplies and divides to be 
implemented in programs, permit effi- 
cient storage of data, and provide con- 
trol of input/output devices. 

Subroutine Instructions: Subrou- 
tines are sets of instructions, ranging 
from several to thousands of instruc- 
tions, that perform certain functions, 
ranging from comparing two numbers 
to sorting data into an alphabetized 
list. Rather than repeating the instruc- 
tions every time they are required, they 
are stored in one set of locations in 
memory and called by different parts 
of the program. This saves a great deal 
of memory space. Both the Z80 and 
6809E have instructions that allow sub- 
routines to be called and for returns to 
the calling point. 

Memory-Reference Instructions: 
Assembly-language programs are 
stored in memory (ROM or RAM), 
along with operands for the program. 
The operands are temporary results or 
constants for the program. The Z80 
and 6809E have a large number of 
memory-reference instructions that 
pass 8 and 16-bit operands between 
memory and CPU registers, which are 
high-speed memory locations located 
within the Z80 or 6809E CPU (central- 
processing unit) itself. We'll look at the 
CPU registers shortly. 

Input /Output Instructions: The Z80 
has a few important instructions that 
allow 8 bits of data to be passed be- 
tween the microprocessor CPU and the 
outside world — input/output devices 
such as printers, disk drives, and cas- 
sette recorders or their I/O controllers. 
(The 6809E handles I/O devices by 
memory mapping them as locations in 
memory.) 



Chip Architecture 

Before we look at the detailed in- 
struction sets of the Z80 and 6809E, 
let's first look at the architecture of the 
microprocessors. This is just a fancy 
word for defining the internal structure 
of the microprocessor. 

Each microprocessor contains tens 
of thousands of transistor equiva- 
lents. Many of these are related to the 
timing and control of the micropro- 
cessor, along with interpretation of 
the instruction set. The most impor- 
tant parts of the microprocessors 
from an Assembly-language stand- 
point, however, are the CPU regis- 
ters, shown in Figs. 1 and 2. 

The CPU registers are memory loca- 
tions, but fast-access memory loca- 
tions located within the microproces- 
sor chip itself, and not addressed as 
part of external ROM or RAM. For 
this reason, they are called registers. 



E 


F 


H 


1 


N 


Z 


V 


:: 



a 


6 



X INDEX REGISTER 



Y INDEX REGISTER 



S HARDWARE STACK 



b UStR STACK 



CONDITION 

CODES 

(FLAGS) 



GENERAL 
ACCUMULATORS 



INDEXED 
OPERATIONS 



TWO SIACK 
POINTERS 



CONTROLS 
PC PROGRAM COUNTER PROGRAM 

SEQUENCING 



DP DIRECT PAGE 



USED IN DIRECT 

ADDRESSING 

MODE 



Fig. 2. 6809E CPU Registers 



100 


' BUBBLE SORT DEMO FOR MODEL 


i/i 1 1 


110 


CLS:P=0 






120 


FOR 1=15360 


TO 15615 




130 


A=RND<127) : 


IF A<32 THEN GOTO 


130 


140 


POKE I . A 






150 


NEXT I 






160 


S=0 






170 


FOR 1=15360 


TO 15614 




180 


A=PEEK(I) :B 


=PEEK( 1+1) :IF A<=E 


THEN GOTO 200 


190 


S=S+1 : POKE I 


e : POKE I + 1 , A 




200 


NEXT I 






210 


P=P+l:PRINT 


3 530i "« SWAPS=" ; 


S; "PASS=" ;P 


220 


IF SO0 THEN GOTO 160 ELSE GOTO 220 


Program Listing 1. 


Basic Bubble Sort for Model I /HI 



100 


• BUBBLE SORT DEMO 


FOR COCO 




110 


CLS:P=0 






120 


FOR 1=1024 TO 1024+255 




130 


A=RND( 127) :IF A<64 


THEN GOTO 130 




140 


POKE I. A 






150 


NEXT I 






160 


S=0 






170 


FOR 1=1024 TO 1278 






160 


A=PEEK< I ) :B=PEEK< 1+1 ) : IF A<=B THEN GC 


TO 200 


190 


S=S+1 :POKEIiB:POKE 


I + l.A 




200 


NEXT I 






210 


P=P+1 : PRINT a 260. 


tt SWAPS=" ;s;"PASS= 


,, .p 


220 


IF SOB THEN GOTO 


60 ELSE GOTO 220 




Program Listing 2. Basic Bubble Sort for CoCo 
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Some of the registers hold intermediate 
results of arithmetic and other process- 
ing operations. Other registers are de- 
voted to program control — the proper 
sequencing of instructions. 

The A and B registers in the 6809E 
are general accumulator registers that 
hold temporary results. The Z80 A, B, 
C, D, E, H, and L registers (two sets) 
are the general-purpose accumulators 
in that chip. 

Both microprocessors have index 
registers that allow the program to eas- 
ily access sequential data. Both also 
have stack pointers that control access 



to a special part of external memory 
called the stack, which is used to hold 
the return points for subroutine calls, 
and temporary results. 

Both chips also have a set of eight 
flags, collectively called the F register 
in the Z80 and the CC (condition 
codes) in the 6809E. Condition codes is 
probably a better term, because this 
special-purpose storage holds the re- 
sults of adds, subtracts, comparisons, 
and other operations that can be tested 
for conditional branching. 

The main program sequence register 
in both microprocessors is called the 



PC, or program counter. The PC 
points to the current byte of the pro- 
gram instruction. The instructions in 
the microprocessors are generally 1-4 
bytes in length. A 400-instruction pro- 
gram, for example, would probably re- 
quire about 800 bytes of RAM memory 
storage. 

The PC register points to the next in- 
struction in sequence. Branches change 
the contents of the program counter to 
allow different sets of instructions to 
be executed. 

Data, or operands, can be inter- 
spersed with program instructions, or 





Table 1. Z80 Instruction Set 




ADC HL.ss 


HL + ss + CY toHL 


EX DE,HL 


Exchange DE and HL 


ADC A,r 


A + r + CYto A 


EXX 


Set prime B-L active 


ADC A,n 


A + n + CY to A 


HALT 


Halt 


ADC A,(HL) 


A + (HL) + CYto A 


IMO 


Set interrupt mode 


ADC A,(IX + d) 


A + (IX + d) + CYtoA 


IM 1 


Set interrupt mode 1 


ADCA,(IY + d) 


A + (IY + d) + CYto A 


IM2 


Set interrupt mode 2 


ADD A,n 


A + n to A 


IN A,(n) 


Load A with input from n 


ADD A,r 


A + r to A 


IN r,(C) 


Load r with input from (C) 


ADD A,(HL) 


A + (HL)toA 


INCr 


Increment r by one 


ADD A,(IX + d) 


A + (IX + d)to A 


INC (HL) 


Increment (HL) by one 


ADDA,(IY + d) 


A + (IY + d)toA 


INC(IX + d) 


Increment (IX + d) by one 


ADD HL.ss 


HL + ss to HL 


INC(IY + d) 


Increment (IY + d) by one 


ADD IX.pp 


IX + pp to IX 


INC IX 


Increment IX by one 


ADD IY.rr 


IY + rrto IY 


INCIY 


Increment IY by one 


ANDr 


A AND r to A 


INCss 


Increment register pair 


ANDn 


A AND n to A 


IND 


Block I/O input from (C) 


AND(HL) 


A AND (HL) to A 


INDR 


Block I/O input, repeat 


AND(IX + d) 


A AND (IX + d) to A 


INI 


Block I/O input from (C) 


AND(IY + d) 


A AND(IY + d)to A 


INIR 


Block I/O input, repeat 


BIT b,r 


Test bit b of r 


JP (HL) 


Unconditional jump to (HL) 


BIT b,(HL) 


Test bit b of (HL) 


JP (IX) 


Unconditional jump to (IX) 


BITb,(IX + d) 


Test bit b of (IX + d) 


JP (IY) 


Unconditional jump to (IY) 


BITb,(IY + d) 


Test bit b of (IY + d) 


JP cc.nn 


Jump to nn if cc 


CALL cc.nn 


CALL subroutine at nn if cc 


JPnn 


Unconditional jump to nn 


CALL nn 


Unconditionally CALL nn 


JRC.e 


Jump relative if carry 


CCF 


Complement carry flag 


JRe 


Unconditional jump relative 


CPr 


Compare A:r 


JR NC,e 


Jump relative if no carry 


CPn 


Compare A:n 


JR NZ,e 


Jump relative if non-zero 


CP (HL) 


Compare A:(HL) 


JRZ,e 


Jump relative if zero 


CP(IX + d) 


Compare A:(IX + d) 


LD A,(BC) 


Load A with (BC) 


CP(IY + d) 


Compare A:(IY + d) 


LD A,(DE) 


Load A with (DE) 


CPD 


Block Compare, no repeat 


LDA,I 


Load A with I 


CPDR 


Block Compare, repeat 


LD A,(nn) 


Load A with location nn 


CPI 


Block Compare, no repeat 


LDA.R 


Load A with R 


CPIR 


Block Compare, repeat 


LD (BC),A 


Store A to (BC) 


CPL 


Complement A (one's complement) 


LD (DE),A 


Store A to (DE) 


DAA 


Decimal Adjust A 


LD (HL),n 


Store n to (HL) 


DECr 


Decrement r by one 


LD dd.nn 


Load register pair with nn 


DEC (HL) 


Decrement (HL) by one 


LD dd,(nn) 


Load register pair with location nn 


DEC(IX + d) 


Decrement (IX + d) by one 


LD HL,(nn) 


Load HL with location nn 


DEC(IY + d) 


Decrement (IY + d) by one 


LD (HL),r 


Store r to (HL) 


DEC IX 


Decrement IX by one 


LDI.A 


Load I with A 


DECIY 


Decrement IY by one 


LD IX,(nn) 


Load IX with nn 


DECss 


Decrement register pair 


LD IX,nn 


Load IX with location nn 


DI 


Disable interrupts 


LD(IX + d),n 


Store n to (IX + d) 


DJNZe 


Decrement B and JR if B#0 


LD(IX + d),r 


Store r to (IX + d) 


EI 


Enable Interrupts 


LD IY.nn 


Load IY with nn 


EX (SP),HL 


Exchange (SP) and HL 


LD IY,(nn) 


Load IY with location nn 


EX (SP),IX 


Exchange (SP) and IX 


LD(IY + d),n 


Store n to (IY + d) 


EX (SP),IY 


Exchange (SP) and IY 






EX AF, AF' 


Set prime AF active 




Table 1 continues 
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can be kept in a separate area. The pro- 
gram itself must be set up to jump/ 
branch over the data areas and to keep 
the flow of instructions in proper 
order. 

Generally, the instruction steps are 
located in sequential order. Instruc- 
tion execution consists of two parts, 
the fetch cycle, which fetches the 1, 2, 
3, or 4 bytes of the instruction from 
memory and decodes it into the prop- 
er instruction, and the execute cycle, 
which may access memory again in 
different locations to read in or write 
out memory operands. This process is 



100 ' BUBBLE SORT DEMO WITH AL SORT 


101 


DATA 14,0.221*33,0*60*6*254,221, 126*0 


102 


DATA 221*86. 1, 186,40, 10,56,8, 14, 1,221, 114,0 


103 


DATA 221, 119, 1,221,35, 16,233,203,65,32 


104 


DATA 221,201 


105 


FOR 1=32512 TO 32547 


106 


READ A 


107 


POKE I, A 


108 


NEXT I 


109 


DEFUSR0=32512 


110 


CLS 


120 


FOR 1=15360 TO 15615 


130 


A=RND(127):IF A<32 THEN GOTO 130 


140 


POKE I , A 


150 


NEXT I 


160 


A=USR0(0) 


170 


GOTO 170 


Program Listing 3. Basic/ Assembly-language Bubble Sort for Model I VIII 



Table 1 continued 




RLA 


Rotate A left thru carry 






RLCr 


Rotate left circular r 


LD(IY + d),r 


Store r to (IY + d) 


RLC (HL) 


Rotate left circular (HL) 


LD (nn),A 


Store A to location nn 


RLC(IX + d) 


Rotate left circular (IX + d) 


LD(nn),dd 


Store register pair to location nn 


RLC (IY + d) 


Rotate left circular (IY + d) 


LD (nn),HL 


Store HL to location nn 


RLCA 


Rotate left circular A 


LD (nn),IX 


Store IX to location nn 


RLD 


Rotate bed digit left (HL) 


LD (nn),IY 


Store IY to location nn 


RRr 


Rotate right thru carry r 


LDR.A 


Load R with A 


RR (HL) 


Rotate right thru carry (HL) 


LD r,r' 


Load r with r' 


RR(IX + d) 


Rotate right thru cy (IX + d) 


LDr,n 


Load r with n 


RR(IY + d) 


Rotate left thru cy (IY + d) 


LD r,(HL) 


Load r with (HL) 


RRA 


Rotate A right thru carry 


LDr,(IX + d) 


Load r with (IX + d) 


RRCr 


Rotate r right circular 


LDr,(IY + d) 


Load rf with (I Y + d) 


RRC (HL) 


Rotate (HL) right circular 


LDSP,HL 


Load SP with HL 


RRC(IX + d) 


Rotate (IX + d) right circular 


LDSP,IX 


Load SP with IX 


RRC (IY + d) 


Rotate (IY + d) right circular 


LD SP,IY 


Load SP with IY 


RRCA 


Rotate A right circular 


LDD 


Block load, f'ward, no repeat 


RRD 


Rotate bed digit right (HL) 


LDDR 


Block load, f'ward, repeat 


RSTp 


Restart to location p 


LDI 


Block load, b'ward, no repeat 


SBC A,r 


A-r-CY to A 


LDIR 


Block load, b'ward, repeat 


SBC A,n 


A-n-CY to A 


NEG 


Negate A (two's complement) 


SBC A,(HL) 


A-(HL)-CY to A 


NOP 


No operation 


SBCA,(IX + d) 


A-(IX + d)-CYto A 


ORr 


A OR r to A 


SBCA,(IY + d) 


A-(IY + d)-CYto A 


ORn 


A OR n to A 


SBC HL,ss 


HL-ss-CY to HL 


OR (HL) 


A OR (HL) to A 


SCF 


Set carry flag 


OR(IX + d) 


AOR(IX + d)to A 


SET b,(HL) 


Set bit b of (HL) 


OR(IY + d) 


AOR(IY + d)toA 


SETb,(IX + d) 


Set bit b of (IX + d) 


OTDR 


Block output, b'ward, repeat 


SETb,(IY + d) 


Set bit b of (IY + d) 


OTIR 


Block output, f'ward, repeat 


SET b,r 


Set bit b of r 


OUT (C),r 


Output r to (C) 


SLAr 


Shift r left arithmetic 


OUT (n),A 


Output A to port n 


SLA (HL) 


Shift (HL) left arithmetic 


OUTD 


Block output, b'ward, no rpt 


SLA(IX + d) 


Shift (IX + d) left arithmetic 


OUTI 


Block output, f'ward, no rpt 


SLA (IY + d) 


Shift (IY + d) left arithmetic 


POP IX 


Pop IX from stack 


SRAr 


Shift r right arithmetic 


POPIY 


Pop IY from stack 


SRA (HL) 


Shift (HL) right arithmetic 


POPqq 


Pop qq from stack 


SRA (IX + d) 


Shift (IX + d) right arithmetic 


PUSH IX 


Push IX onto stack 


SRA (IY + d) 


Shift (I Y + d) right arithmetic 


PUSH IY 


Push IY onto stack 


SRLr 


Shift r right logical 


PUSH qq 


Push qq onto stack 


SRL (HL) 


Shift (HL) right logical 


RES b,r 


Reset bit b of r 


SRL(IX + d) 


Shift (IX + d) right logical 


RES b,(HL) 


Reset bit b of (HL) 


SRL (IY + d) 


Shift (IY + d) right logical 


RESb,(IX + d) 


Reset bit b of (IX + d) 


SUBr 


A-r to A 


RESb,(IY + d) 


Reset bit b of (IY + d) 


SUBn 


A-n to A 


RET 


Return from subroutine 


SUB (HL) 


A-(HL) to A 


RETcc 


Return from subroutine if cc 


SUB(IX + d) 


A-(IX + d)to A 


RETI 


Return from interrupt 


SUB (IY + d) 


A-(IY + d) to A 


RETN 


Return from non-maskable int 


XORr 


A EXCLUSIVE OR r to A 


RLr 


Rotate left thru carry r 


XORn 


A EXCLUSIVE OR n to A 


RL (HL) 


Rotate left thru carry (HL) 


XOR (HL) 


A EXCLUSIVE OR (HL) to A 


RL(IX + d) 


Rotate left thru carry (IY + d) 


XOR(IX + d) 


A EXCLUSIVE OR (IX + d) to A 


RL(IY + d) 


Rotate left thru carry (IY + d) 


XOR (IY + d) 


A EXCLUSIVE OR (IY + d) to A 
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shown in Fig. 3. 

Each instruction takes about 2-12 
microseconds or more to be per- 
formed — that's 2-12 millionths of a 
second. Although very fast (in com- 
parison to Basic's hundreds of state- 
ments per second), don't forget that 
we're doing very rudimentary opera- 
tions, and that it sometimes takes a 
large number of these instructions in 
sequence to accomplish the same 
thing that can be done in one Basic 
statement. 

Addressing Modes 

We're getting to the instruction set. 
Before we do, though, we should dis- 
cuss instruction addressing modes. 

Some microprocessor instructions 
are very simple. The Z80 SCF instruc- 
tion, for example, sets the Carry flag to 
a 1 ; the 6809E CLRA clears the A reg- 
ister to zeros. 

Other instructions are more com- 
plex. About the most complex Z80 in- 
struction, the LDIR, moves a block of 
memory from one location to another; 
the 6809E MUL multiplies two num- 
bers in the A and B registers and puts 
the product back into A and B. 

To save memory space, the Z80 and 
6809E have varying types of addressing 
modes for the instructions. In general, 
the instruction is made as short (as few 
bytes) as possible. However, the in- 
struction length is a function of the in- 
struction action. 

An example: If an instruction adds a 
number from memory to the contents 
of a CPU register, it probably requires 
that the address of the memory oper- 
and must be in the instruction itself, 



TRS-80 MODEL 16 and 
68 000 SYSTE MS 

DATABASE AND FILE 
SOFTWARE 

Relational Database System 
Easy To Use - Powerful 

INTRODUCTORY OFFER $595 

Menus & English Subset 

Query Language 

68000 Code Efficiency 

Separate File & Sort Packages 

Features Never Seen Before. 

Send For Catalog. 

DATA MANAGEMENT SYSTEMS 

211 N. EL CAMINO REAL, 101C 

ENCINITAS, CA 92024 

or Phone: (714) 942-0744 

TRS-80 Is a trademark of Tandy Corp. ^47fl 



and that takes 16 bits, or 2 bytes, as the 
operand may be located at any mem- 
ory location from 0-65,535. Add an- 
other byte for an operation code to de- 
note the type of instruction, and you 
have a 3-byte instruction. The STF and 
CLRA discussed above, though, can 
be made 1 byte long, as they require no 
memory address for an operand. 
The Z80 and 6809E have a large 



number of addressing modes to pro- 
vide efficient instruction storage and 
flexibility. Some of the modes are im- 
plied, where the instruction function is 
simple with no external operands; im- 
mediate, where the operand is part of 
the instruction itself (rather than hold- 
ing a constant somewhere else in mem- 
ory); direct, where the operand is ad- 
dressed with a 2-byte operand address; 



100 


' BUBBLE SORT DEMO FOR COCO WITH AL 


101 


DATA 16. 142.0.0, 142.4.0. 166. 132.230. 1 


102 


DATA 161. 1.35.8, 16. 142,0. 1.231. 132 


103 


DATA 167.1.48.1.140,4,255,38.233 


104 


DATA 16.140.0.0,38,220,57 


105 


FOR I=&H3F00 TO &H3F24 


106 


READ A: POKE I, A 


107 


NEXT I 


108 


DEFUSR0=&H3F00 


110 


CLS 


120 


FOR 1=1024 TO 1024+255 


130 


A=RND( 127) :IF A<64 THEN GOTO 130 


140 


POKE I, A 


150 


NEXT I 


160 


A=USR0(0) 


170 


GOTO 170 


Program Listing 4. Basic/ Assembly-language Bubble Sort for CoCo 



8000H 
800 IH 
8002 H 
8003H 
8004 H 
8O05H 
8006H 
8007H 
8008H 
8009 H 
800AH 
800BH 
800CH 
800DH 
800EH 
800FH 
80I0H 
801 IH 
80I2H 
80I3H 




PROGRAM 

COUNTER 

CONTENTS 

8000H 

800 IH 

8002H 

•—••"■v 8003 H 
\ 8004H 

\ 8005H 

/\ 

OPERAND \ 
LOADED 

/ OPERAND 
/ STORED 

rogram Flow 


* BYTES 

IN 

INSTRUCTION 

1 

3 

1 
3 


LD A, 8 


LD HL,!800EH) 


ADD HL, BC 


LD I80I2H), HL 


1 
PROGRAM 
FLOW 


OPERAND 1 




OPERAND Z 


Fig. 3. P 



WE ARBITRARILY STARTED AT 8000H 






LOC 


CONTENTS 








INSTRUCTION 


8000 
3 
6 
7 
8 
9 
A 


21-00-00 

01-64-00 

09 

OB 

78 

Bl 

C2-O6-80 




LD 

LD 

ADD 

DEC 

LD 

OR 

JP 




HL 

Rc'lOO THIS VALUE 

HL BC IS AN ' ' ABSOLUTE " 
' LOCATION 

B(^ 

A,B / 
C ' 


NZ, | 8006 | 


D C9v_v^ 




RET 






"OPCODE" MAY \ E ,_ 3 
IN FIRST ADDITIONAL 
BYTE BYTES FOR 






H 


= HEX# 




ADDRESS OR 












OTHER OPERANDS 












Fig. 4. 


Hand Assembly, Z80 
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and indexed, where the index registers 
point to the operand or the starting lo- 
cation of sequential data. 

Having a large number of address- 
ing modes has one drawback: It makes 
it confusing for the beginner. He not 
only has to learn the instruction set of 
the microprocessor, he has to learn the 
addressing modes and for what in- 
structions they are used, as well. 

Instruction Sets 

Well, we finally made it to the in- 



struction sets of the Z80 and 6809E. 
The instruction sets for both micropro- 
cessors are typical of other micropro- 
cessors such as the 6800, 6502 (used in 
the Apple and Commodore), and 8088 
(IBM PC). They are shown in Tables 1 
and 2 in mnemonic form. The mne- 
monics are simply shorthand ways of 
representing the instructions — it's 
much easier to say, "LDA," than to 
say, "Load the contents of the A accu- 
mulator with an 8-bit memory location 
value." 



Table 2. 6809E Instruction Set 



8-BIT ACCUMULATOR AND MEMORY INSTRUCTIONS 



Mnemonic(s) 



Operation 



1 1 



Addressing Modes 

i « 

i 1 

& 1 

■D -O 

_ ■§ ■§ 

BOB, 

5 01 41 U OJ 

.a ! S ' ' o 

Q £ £ 5 £ (2 



lit 



ADCA, ADCB 


Add memory to accumulator with carry 


— 


X 


X 


X 


X 


X 


X 


X 


X 


ADDA, ADDB 


Add memory to accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


ANDA, ANDB 


And memory with accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


ASL 


Arithmetic shift left memory location 


— 


_ 


X 


X 


X 


X 


X 


X 


X 


ASLA, ASLB 


Arithmetic shift left accumulator 


X 


















ASR 


Arithmetic shift right memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


ASRA, ASRB 


Arithmetic shift right accumulator 


X 


















BITA, BITB 


Bit test memory with accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


CLR 


Clear memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


CLRA, CLRB 


Clear accumulator 


X 


















CMPA, CMPB 


Compare memory with accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


COM 


Complement memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


COMA, COMB 


Complement accumulator 


X 


















DAA 


Decimal adjust A-accumulator 


X 


















DEC 


Decrement memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


DECA, DECB 


Decrement accumulator 


X 


















EORA, EORB 


Exclusive or memory with accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


EXGR1, R2 


Exchange Rl with R2 (Rl, R2 = A, B, CC, DP) 


X 


















INC 


Increment memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


INCA, INCB 


Increment accumulator 


X 


















LDA, LDB 


Load accumulator from memory 


— 


X 


X 


X 


X 


X 


X 


X 


X 


LSL 


Logical shift left memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


LSLA, LSLB 


Logical shift left accumulator 


X 


















LSR 


Logical shift right memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


LSRA, LSRB 


Logical shift right accumulator 


X 


















MUL 


Unsigned multiply (AXB-*D) 


X 


















NEG 


Negate memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


NEGA, NEGB 


Negate accumulator 


X 


















ORA, ORB 


Or memory with accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


ROL 


Rotate memory location left 


— 


— 


X 


X 


X 


X 


X 


X 


X 


ROLA, ROLB 


Rotate accumulator left 


X 


















ROR 


Rotate memory location right 


— 


_ 


X 


X 


X 


X 


X 


X 


X 


RORA, RORB 


Rotate accumulator right 


X 


















SBCA, SBCB 


Subtract memory from accumulator with borrow 


— 


X 


X 


X 


X 


X 


X 


X 


X 


STA, STB 


Store accumulator to memory 


— 


— 


X 


X 


X 


X 


X 


X 


X 


SUBA, SUBB 


Subtract memory from accumulator 


— 


X 


X 


X 


X 


X 


X 


X 


X 


TST 


Test memory location 


— 


— 


X 


X 


X 


X 


X 


X 


X 


TSTA, TSTB 


Test accumulator 


X 


















TFR.R1.R2 


Transfer Rl to R2 (Rl, R2 = A, B, CC, DP) 


X 



















NOTE: A and B may be pushed to (pulled from) either stack with PSHS, PSHU (PULS, PULU) instructions. 

Table 2 continues 



OMNITERM 

The ULTIMATE TRS-80 
Terminal Package 

What is OMNITERM? 

OMNITERM is a professional communications 
package for the TRS-80that allows you to easily 
communicate and transfer files or programs 
with almost any other computer. We've never 
found a computer that OMNITERM can't work 
with. It's a complete package because it in- 
cludes not only the terminal program itself, but 
also conversion utilities, a text editor, special 
configuration files, serious documentation and 
serious support. 

Why do I need it? 

You need OMNITERM if you need to communicate 
efficiently with many different computers, or if 
you want to customize your TRS-80 for use with 
one particular computer. You need OMNITERM to 
SOLVE your communications problems once and 
for all. 

What do I get? 
The OMNITERM package includes the OMNITERM 
terminal program, four conversion utilities, a 
text editor, and setting files for use with popular 
computers such as CompuServe, the Source, 
and Dow Jones —just as samples of what you 
can do for the computer you want to work with. 
The package includes six programs, seven data 
files, and real documentation: a 76-page manual 
that has been called "the best in the industry." And 
OMNITERM comes with real user support. We 
can be reached via CompuServe, Source, phone, 
or mail to promptly answer your questions 
about using OMNITERM. 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of 
memory, one disk, and the RS-232 interface, or 
Microconnection modem. OMNITERM works with 
all ROMs and DOSes, and will work with your 
special keyboard drivers. 

What will it do? 

OMNITERM allows you to translate any char- 
acter going to any device: printer, screen, disk, 
keyboard, or communications line, giving you 
complete control and allowing you to redefine 
the character sets of all devices. It will let you 
transfer data, and run your printer while con- 
nected for a record of everything that happens. 
OMNITERM can reformat your screen so that 80, 
32, or 40 column lines are easy to read and look 
neat on your TRS-80 screen. It even lets you get 
on remote computers with just one keystroke! 
The program lets you send special characters, 
echo characters, count UART errors, configure 
your UART, send True Breaks and use lower 
case. It accepts VIDEOTEX codes, giving you full 
cursor control. It will even let you review text that 
has scrolled off the screen! Best of all, OMNI- 
TERM will save a special file with all your 
changes so you can quickly use OMNITERM for 
any one of many different computers by loading 
the proper file. It's easy to use since it's menu 
driven, and gives you a full status display so 
you can examine and change everything. 
"OMNITERM has my vote as the top TRS-80 
terminal program available today" Kilobaud 
Microcomputing, June 1981, pages 16-19. 
OMNITERM is $95 (plus shipping if COD) Call for 
24 hour shipment. Manual alone $15, applied 
toward complete package. Visa, M/C, and COD 
accepted. MA residents add 5% tax. Dealer 
inquiries invited. 

Also available OMNITERM for the TRS-80 
Model II and IRM personal computer. 
Contact Lindbergh Systems for details. 

fjindbergh Systems 

41 Fairhill Road, Holden. MA 01520 
(617) 852-0233 

CompuServe: 70310267 TRS-80 is a ™ of Tandy Corp. 
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Machine Language 

We've been discussing the instruc- 
tion sets (or instruction repertoire) of 
both the Z80 and 6809E, but haven't 
described how we enter them into the 
system. The most rudimentary way to 
do this is by machine language. 

We could sit down and write a pro- 
gram to add the numbers 1-100 by us- 
ing the instruction-set mnemonics 
from Table 1 . We've done that in Figs. 
4 and 5, for both the Z80 and 6809E. 

The next step is to translate the mne- 
monics into the proper machine-lan- 
guage binary data values. This involves 
looking up the proper code from a ta- 
ble. The table values are given in hexa- 
decimal, a shorthand form of binary. 
(Four binary digits equal one hexadeci- 
mal digit: 0000-1001 become hex 0-9, 
while 1010, 1011, 1100, 1101, 1110, 
and 1111 become hex A-F.) 

The first byte in the instruction is 
usually an opcode, while remaining 
bytes are memory addresses or inter- 
mediate addressing values; some 
knowledge of the instruction length is 
required to properly hand assemble 
the code. 

The hand-assembled code shown in 
Figs. 4 and 5 works and this is one way 
to generate the machine-language 
code. Early programmers had to do 
this for the very first machines. How- 
ever, hand-assembly is very tedious, 
and it's extremely easy to make errors. 
Also, if more instructions are added, 
or if instructions are deleted, then the 
process has to be repeated for the en- 
tire program. 

Why Not Let 

The Computer Do It? 

Early in the computer game, pro- 
grammers, being a shiftless lot at best, 
decided to let the computer do all the 
work. The result was an assembler, a 
computer program that automatically 
assembles the mnemonics into the 
proper machine-language code. 

You can see how assemblers are im- 
plemented. The assembler looks at a 
mnemonic representing the opcode 
and at the operands for each instruc- 
tion. It then looks up the proper ma- 
chine-language code in a table and con- 
structs an instruction of the proper 
length and operand addresses. 

About the only subtlety in the as- 
sembly operation is the question of lo- 
cation references. In a hand assembly, 
the programmer must fill in the ad- 
dresses of operands on a second pass 
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after he assembles the skeleton of all 
the instructions and finds where in 
memory each instruction or constant is 
located. He can't put in the address of 
each operand or instruction before- 
hand, because he doesn't know how 
many bytes will be present before the 
operand or instruction appears. (If he 
wants to jump to a further point in the 
program, for example, he doesn't 
know what location that jump point 
will be at until after assembly.) 

The assembler program solves the 



problem by letting the programmer re- 
fer to locations by symbols, rather than 
absolute memory locations. You 
might, for example, jump ahead to 
NEXT instead of location 8000 hexa- 
decimal (32768 decimal in RAM). 

This symbolic form of the two pro- 
grams is shown in Listings 5 and 6, as- 
sembled this time by Z80 and 6809E as- 
sembler programs. Note that the ma- 
chine-language code on the left side of 
the listing is largely identical to the 
hand assembly. 



WE ARBITRARILY 
STARTED AT $950 



LOC t CONTENTS 



950 


CC-00-64 


3 


FD-09-69 


6 CC-00-00 


9 F3-09-69 


C 10-BE-09-69 


60 31-3F 


2 10-BF-09-69 


6 26-Fl 


8 39 


9 t " V 


"OPCODE" 


IN FIRST 


BYTE 



INSTRUCTION 




LDD 


#100 




STD 


$969| 




LDD 


#0 




WE DIDN'T 


ADDD 


$969 




r KNOW THIS 


LDY 


$969 


-+ 


- LOCATION 


LEAY 


-l.Y ^ 


- UNTIL WE 


STY 


$969] ■* r 


REACHED THE 


BNE 




END OF THE 


RTS 






FIRST PASS 



MAYBE 

1-3 ADDITIONAL 
BYTES FOR ADDRESS 
OR OTHER OPERANDS 



THIS LOCATION USED 
FOR VARIABLE STORAGE 



; = HEX# 

' = "IMMEDIATE" 



Fig. 5. Hand Assembly, 6809E 





00100 


;***ADD 


THE 


NUMBERS FROM 1 


TO 


100 - MODEL I /I I I*** 


0000 210000 


00110 


ADDNUM 


LD 


HLi0 




SZERO TO TOTAL 


0003 016400 


00 1 20 




LD 


BCi 100 




; INITIALIZE CURRENT tt 


0006 09 


00130 


ADD010 


ADD 


HL,BC 




;ADD IN CURRENT # 


0007 0B 


00140 




DEC 


BC 




;tt-l 


0008 78 


00150 




LD 


A,B 




;TEST FOR 


0009 Bl 


00160 




OR 


C 






000A C20600 


00170 




JP 


NZ,ADD010 




5G0 IF NOT 


000D C9 


00180 




RE 1 






; RETURN 


0000 


00190 




END 








00000 Total 


errors 














Program Listing 5. Symbolic Assembly for Z80 





00100 


***ADD 


THE NUMBERS FROM 


1 TO 100 - COCO*** 


0950 CC 0064 


001 10 


ADDNUM 


LDD 


#100 


ZERO TO AiB 


0953 FD 0969 


00 1 20 




STD 


LOC 


INITIALIZE CURRENT # 


0956 CC 0000 


00130 




LDD 


#0 


INITIALIZE TOTAL 


0959 F3 0969 


00140 


ADD010 


ADDD 


LOC 


ADD IN CURRENT *t 


095 C 10BE 0969 


00150 




LDY 


LOC 


GET CURRENT # 


0960 31 3F 


00160 




LEAY 


-li Y 


#-1 


0962 10BF 0969 


00170 




STY 


LOC 


STORE 


0966 26 Fl 


00180 




BNE 


ADD010 




0968 39 


00190 




RTS 




RETURN 


0969 


00200 


LOC 


RMB 


2 


VARIABLE 


0000 


002 1 




END 






00000 TOTAL ERRORS 












ADD010 0959 












ADDNUM 0950 












LOC 0969 












Program Listing 6. Symbolic Assembly for 6809E 



Assembly Language 

Assembly language, then, is just a 
symbolic representation of machine 
language to make it possible for the 
programmer to feed in instructions to 
the assembler program for automatic 



assembly. 

Program Listings 7 and 8 show 
typical Assembly-language listings for 
the bubble-sort programs discussed in 
the first part of this article. The portion 
on the right half is the actual symbolic 







00100 


5****BUBBLE 


SORT DEMO - MODEL 


I/I 1 1 AL*«* 






00110 


; SORTS 


ONE-CHARACTER ENTRIES 


IN FIRST 256 






00 1 20 


; BYTES 


OF SCREEN 




0000 


0E00 


00130 


BUBSRT 


LD 


C»0 


;C IS "CHANGE FLAG" 


0002 


DD21003C 


00140 




LD 


IX.3C00H 


5START OF SCREEN 


0006 


06FE 


00150 




LD 


B.254 


;FOR 256 ENTRIES-1 


000B 


DD7E00 


00160 


BUB0 1 


LD 


A. (IX) 


5GET I ENTRY 


000B 


DD5601 


00170 




LD 


Di ( IX + 1) 


!GET 1+1 ENTRY 


000E 


BA 


00180 




CP 


D 


! COMPARE A TO D 


000F 


280A 


00190 




JR 


Z . BUB020 


;GO IF EQUAL 


0011 


3808 


00200 




JR 


CBUB020 


5 60 IF KI + 1 


0013 


0E01 


00210 




LD 


C. 1 


;SET SWAP FLAG 


0015 


DD7200 


00220 




LD 


( IX)>D 


;SWAP ENTRIES 


0018 


DD7701 


00230 




LD 


(IX+1), A 




001 e 


DD23 


00240 


BUB020 


INC 


IX 


; SCREEN ADDRESS+1 


001D 


10E9 


00250 




DJNZ 


BUB0 1 


!D0 FOR 254 PAIRS 


001 F 


CBA1 


00260 




BIT 


0>C 


;TEST C=0 OR 1 FOR CHANGE 


0021 


20DD 


00270 




JR 


NZ, BUBSRT 


;SWAP« ANOTHER PASS 


0023 


C<? 


00280 




RE'l 




5 RETURN TO BASIC 


0000 




00290 




END 






00000 Total t? 


mors. 














Program Listing 7. Bubble-sort Demo for Models 1/ 1 II 



table 2 continued 



16-BIT ACCUMULATOR AND MEMORY INSTRUCTIONS 



Addressing Modes 

I ? 

£ 1 



S -O T3 



Mnemonic(s) 



Operation 



.£ «* s c c x x s 
US £ 2 S ,2 .g « 



ADDD 


Add memory to D accumulator 


— X X X X X X 


X 


X 


CMPD 


Compare memory with D accumulator 


— X X X X X X 


X 


X 




Exchange D with X, Y, S, U, or PC 
















LDD 


Load D accumulator from memory 


— X X X X X X 


X 


X 




Sign Extend 
















STD 


Store D accumulator to memory 


X X X X X 


X 


X 


SUBD 


Subtract memory from D accumulator 


— X X X X X X 


X 


X 


TFR D,R 


Transfer D to X, Y, S, U, or PC 
















Transfer X, Y, S, U, or PC to D 










*■ 







Addressing Modes 






INDEX REGISTER/STACK POINTER INSTRUCTIONS 



Mnemonic(s) 



Operation 



I 

I £ 

M 5 



^-J -Q oj OJ 



0> <U 01 V 



"8 -3 
OS 



CMPS, CMPU 


Compare memory with stack pointer 


— XX 


X 


X 


X 


X 


X 


X 


CMPX, CMPY 


Compare memory with index register 


— XX 


X 


X 


X 


X 


X 


X 


EXG Rl, R2 


Exchange D,X,Y,S,U, or PC with D,X,Y,S,U, or PC 


X 














LEAS, LEAU 


Load effective address into stack pointer 





— 


X 


X 


X 


X 


X 


LEAX, LEAY 


Load effective address into index register 





— 


X 


X 


X 


X 


X 


LDS, LDU 


Load stack pointer from memory 


— XX 


X 


X 


X 


X 


X 


X 


LDX, LDY 


Load index register from memory 


— XX 


X 


X 


X 


X 


X 


X 


PSHS 


Push any register(s) onto hardware stack (except S) 


X — 














PSHU 


Push any register(s) onto user stack (except U) 


X 














PULS 


Pull any register(s) from hardware stack (except S) 


x 














PULU 


Pull any register(s) from user stack (except U) 


X 














STS, STU 


Store stack pointer to memory 


X 


X 
X 


X 
X 


X 

X 


X 
X 


X 
X 


X 


STX, STY 


Store index register to memory 


X 


X 


TFRR1, R2 


Transfer D, X, U, or PC to D, X, S, U, or PC 


X 














ABX 


Add B-accumulator to X (unsigned) 


X — — 















Assembly language entered by the pro- 
grammer; the left portion is the assem- 
bler-generated machine code, locations 
at which the code will go in memory, 
and edit line numbers. We've annotat- 
ed the code heavily to give you an idea 
how the programs work. 

The assembler translates the source 
code keyed in by the programmer into 
object code. The object code is very 
close to the machine-language code 
that the microprocessor uses, but con- 
tains other information for use in load- 
ing the program — such things as the 
load location, file name, constant 
data, and checksums. The object code 
is normally loaded from cassette or 
disk, and the source code can be writ- 
ten as source files on the same media. 

Bells and Whistles on Assemblers 

The process shown above is the most 
rudimentary form of automatic assem- 
bly by an assembler program. There 
are many more niceties that can be 
added to the basic assembler process. 

Editing Capability: Almost all as- 
semblers contain a built-in editor that 
can be used to create and modify 
source-code files from cassette or disk. 
The Radio Shack Series I Editor/ As- 
sembler and the Radio Shack 
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EDTASM-f editors, for example, 
have a built-in editor that works identi- 
cally to the editor in Basic, allowing 
line-by-line or character editing. The 
Misosys EDAS Editor/ Assembler has 
quite a bit more capability, with block 
moves and copies. 

Pseudo-ops: All assemblers have 
pseudo-operations — assembler com- 
mands that are instructions to the 
assembler. The pseudo-op ORG, for 
example, sets the location of the pro- 
gram. EQU equates one symbol to 
another. DEFB, DEFW, FCB, and 
FCW generate constant data in either 
byte or word format. DEFM and 
FCC generate messages, or ASCII 
text data. DEFS and RMB reserve 



areas of memory, similar to allocat- 
ing array storage in Basic. END ends 
the source-code statements. 

The pseudo-ops described above are 
common for basic editor/assemblers 
such as the Series I for the Z80 and 
EDTASM+ fortheCoCo. 

In-Memory Assembly: We men- 
tioned that object code could be 
stored on cassette and disk for later 
loading. This is the conventional ap- 
proach carried over from olden days 
of computers 20 years ago. New as- 
semblers, however, are much more 
interactive and allow you to load the 
object code directly into RAM memo- 
ry for debugging. (Oh yes, most As- 
sembly-language code will not run the 



Table 2 continued 



BRANCH INSTRUCTIONS 



Addressing Modes 



Mnemonic(s) 



Operation 



* "2 "2 _ - « 1 

"2 =5 _ -3 -3 ^ 1^ > > 
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BCC, LBCC 


Branch if carry clear — 


— — — — — x — 


BCS, LBCS 


Branch if carry set — 


x — 


BEQ, LBEQ 


Branch if equal — 


x — 


BGE, LBGE 


Branch if greater than or equal (signed) 


X — 


BGT, LBGT 


Branch if greater (signed) — 


X — 


BH1, LBHI 


Branch if higher (unsigned) — 


x — 


BHS, LBHS 


Branch if higher or same (unsigned) 


X — 


BLE, LBLE 


Branch if less than or equal (signed) 


— — — — — — -X — 


BLO, LBLO 


Branch if lower (unsigned) — 


x — 


BLS, LBLS 


Branch if lower or same (unsigned) — 


— — — — X — 


BLT, LBLT 


Branch if less than (signed) 


— — — — X — 


BMI, LBMI 


Branch if minus — 


x — 


BNE, LBNE 


Branch if not equal — 


x — 


BPL, LBPL 


Branch if plus — 


x — 


BRA, LBRA 


Branch always — 


— — — x — 


BRN, LBRN 


Branch never (3, 5 Cycle NOP) — 


x — 


BSR, LBSR 


Branch to subroutine — 


x — 


BVC, LBVC 


Branch if overflow clear — 


x — 


BVS, LBVS 


Branch if overflow set — 


X — 



MISCELLANEOUS INSTRUCTIONS 



Addressing Modes 



3 

■a -a 

_ TJ 13 



a. E 



Mnemonic(s) 


Operation 






s 


s'aaass&S 


ANDCC 


AND condition code register 






— 


X — — — — — 


CWAI 


AND condition code register, then wait 


tor 


interrupt 


— 


X — — — 


NOP 


No operation 






X 




ORCC 


OR condition code register 






— 


X — — — — 


JMP 


.lump 






— 


— XXXXXXX 


JSR 


Jump to subroutine 








-XXXXXXX 


RTI 


Return from interrupt 






X 




RTS 


Return from subroutine 






X 




SWI.SWI2.SWI3 


Software interrupt (absolute indirect) 






X 




SYNC 


Synchronize with interrupt line 






X 





first time, or the second time, or 
the. . . .) After a debugging session, 
the editor/assembler can be re-en- 
tered for a new assembly to clean up 
errors. 

The Misosys EDAS and Microsoft 
EDTASM + provide this in-memory 
capability for the Model I/III, and the 
Radio Shack EDTASM + for the 
CoCo also gives you this option. (The 
CoCo EDTASM + is a functional sub- 
set of the Microsoft EDTASM + , 
which is probably the ultimate editor/ 
assembler/debug package.) 

Debug Capability: The Microsoft 
EDTASM + for the I/III and the 
CoCo EDTASM + also include a 
built-in debug package called ZBUG. 
ZBUG provides symbolic debugging, 
which allows you to examine and 
change memory locations by their as- 
sembly-time symbolic names. In addi- 
tion you can disassemble existing ma- 
chine-language code into equivalent in- 
struction mnemonics, a handy feature 
to allow you to see how a program 
works if the source code is not avail- 
able. Other ZBUG features are too nu- 
merous to mention, but suffice it to say 
you can do a great deal. After your de- 
bugging, a simple one-character entry 
brings you back to Edit/Assemble with 
the source code intact, without 
reloading! 

Macro Capability: Now we're get- 
ting esoteric. Certain assemblers, such 
as the Microsoft EDTASM + for the 
Model I/III, allow you to enter ma- 
cros, which are somewhat like prede- 
fined subroutines, but at a source-code 
level. By a simple call with a macro 
name you can invoke assembly of sev- 
eral lines to hundreds of lines of source 
code. This differs from a subroutine in 
that the code exists in many places, but 
does save a great deal of Assembly- 
language coding. 

Relocatable Object Code: Certain 
other sophisticated assemblers, such as 
the Radio Shack Disk Assembler for 
the Model II, use a somewhat different 
structure in generating object code. 
Each set of object code is generated as 
a relocatable object module. Loading 
the complete program involves loading 
several to dozens of these object mod- 
ules together in a link-load process. 
The advantage of relocatable object 
modules is that each programmer may 
create his own object modules with 
common entry points and external 
variable storage defined by special 
pseudo-ops; at load time all entry 
points and variables will be linked to- 
gether automatically. Another advan- 
tage is the process permits larger As- 
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ON THIS LIST. 
NEWSCRIPT SHOULD Bl 
ON YOUR COMPUTER." 



NEWSCRIPT'S exclusive print processor 
gives you total printer control. 

NEWSCRIPT's exclusive print 
processor takes over where formatting 
leaves off with over 200 print processing 
and support features. NEWSCRIPT takes 
you beyond text formatting — beyond 
just printing text on paper. With NEW- 
SCRIPT's Print processor you take full 
advantage of your printer's hardware and 
software features, creating an unsurpas- 
sed printed image. Text editing (the part 
you see), is only part of the job, printing is 
the other part — the part others will see. 

NEWSCRIPT controls over 80 popular 
printers. 

You don't even have to know how 
your printer works — only what it can do. 
NEWSCRIPT will do the rest with such 
major features as underlining, right jus- 
tified proportional printing, top and 
bottom titles, top/bottom left-right-center 
page numbering, chaining and embedded 
printing of any length file with disk span- 
ning, fully formatted merging of form 
letters with selective editing, boldface, 
sub/super scripts, character substitution/ 
translation, table of contents, indexing, 



hanging indents, paragraph numbering, 
line numbering, double width characters, 
italics, hard and soft hyphens, in-memory 
spooling, and many other features.* 



NEWSCRIPT'S text editor has 
sophistication to match its print 
processing. 



Buffered key entry rates to 450 
characters per second — you never drop 
characters. Windowing to 240 characters, 
block move and copy within and between 
files, definable auto save, "HELP" and 
"WHOOPS" commands, repeat and query 
last command, search and replace within 
column and line limits as well as globally, 
and an automatic interface to the ELEC- 
TRIC WEBSTER spelling checker (sold 
separately). 

NEWSCRIPT'S 277 page manual 
contains an introductory tutorial with ex- 
planations of the beginner's most common 
needs, a "How to Section" to help when 
you're stuck, a fully alphabetized descrip- 
tion of the commands with literally hun- 
dreds of examples, a topical index with 
over 1,300 entries, and a handy quick- 
reference card (naturally!). 



Start getting the printed results 
only NEWSCRIPT can give you for 
$124.95. Requires TRS-80 Model I or III 
with 48K and 1 disk (minimum — 2 rec- 
ommended) 




is available at computer stores, selected B. 
Dalton Book Sellers, and selected inde- 
pendent book dealers. If your dealer is out 
of stock order direct. Include $3.00 
(domestic), $6.00 (Canada) for shipping 
and handling. Foreign residents add 
$15.00 plus purchase price, in U.S. funds. 

TO ORDER, CALL NOW, TOLL-FREE: 

(800) 824-7888, Operator 422 

Calif: (800) 852-7777, Oper. 422 

Alaska/Hawaii: (800) 824-7919 

For technical information call: 

(213) 764-3131, or write us. ^91 




Dept. C, Box 560, No. Hollywood, CA 91603 



NEWSCRIPT companion programs (sold separately): MAILING LABELS $29.95, DAISY WHEEL PROPORTIONAL $49.95 
(not required for Daisy Wheel II), PENCIL & SCRIPSIT FILE CONVERSION $24.95, ELECTRIC WEBSTER (spelling checker 
and automatic correction) $149.50, GEAP (TRS-80 graphics — requires Epson MX-80) $49.95, DOTWRITER (Hi-res graphics — 
requires Epson MX-80/100 with Graftrax) $69.95, GEAP/DOTWRITER combination (requires Epson MX-80 1(H) with Graftrax) $99.95 



Dealers: NEWSCRIPT is distributed by IJG, Inc. (714) 946-5805 
Some features work only if your printer has the mechanical capability. 

NEWSCRIPT trademark TTS Corporation PROSOFT registered U.S. Pat. Office TRS-80 registered trademark TANOY Corp. 



sembly-language programs, as you can 
assemble the final program as a series 
of small modules that have no trouble 
fitting into memory with the editor/as- 
sembler/debug package. 

Advantages and Disadvantages 
Of Assembly Language 

Assembly language is extremely fast, 
typically dozens or hundreds of times 
faster than the equivalent Basic or 
other higher-level language. It is often 
more compact than a high-level lan- 
guage, using probably only half as 



much memory in typical cases. 

Seems too good to be true! Are there 
any disadvantages? Yes, and they're 
considerable. 

First, Assembly language is hard to 
use. Even with in-memory assemble 
and built-in debug packages, it takes 
four or five or more times longer to 
write the same code as in Basic. 

In addition, you've got to learn the 
Assembly language, which probably 
takes about 1 ,000 hours for your first 
Assembly language and 100 hours for 
each successive Assembly language. To 











00100 


♦♦♦♦BUBBLE SC 


RT 


DEMO - 
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00110 


♦SORTS 


ONE-CHARACTER ENTRIES IN FIRST 256 










00 1 20 


♦BYTES 


OF SCREEN 




0000 


108E 


0000 


00130 


BUBSRT 


LDY 




#0 


Y IS "CHANGE FLAG" 


0004 


8E 




0400 


00140 




LDX 




«t*400 


START OF SCREEN 


0007 


A6 




84 


00150 


BUB010 


LDA 




iX 


GET I ENTRY 


0009 


E6 




01 


00160 




LDB 




1,X 


GET 1+1 ENTRY 


000B 


Al 




01 


00170 




CMPA 




li X 


COMPARE I TO 1+1 


000D 


23 




08 


00180 




BLS 




BUB020 


GO IF EQUAL OR LESS 


000F 


108E 


0001 


00190 




LDY 




#1 


SET SWAP FLAG 


0013 


E7 




84 


00200 




STB 




iX 


SWAP ENTRIES 


0015 


A7 




01 


002 1 




STA 




liX 




0017 


30 




01 


00220 


BUB020 


LEAX 




liX 


SCREEN ADDRESS* 1 


0019 


ec 




04FF 


00230 




CMPX 




#«4FF 


DO FOR 254 PAIRS 


00 1C 


26 




E9 


00240 




BNE 




BUB0 1 


GO IF NOT DONE 


00 IE 


108C 


0000 


00250 




CMPY 




tta 


TEST Y=0 OR 1 FOR CHANGE 


0022 


26 




DC 


00260 




BNE 




BUBSRT 


SWAP, ANOTHER PASS 


0024 


39 




0000 


00270 
00280 




RTS 
END 






RETURN TO BASIC 


00000 TOTAL ERRORS 














BUB.0 1 


0007 














BUB020 


0017 














BUBSRT 


0000 




















Program Listing 8. Bubble-sort Demo for the Color Computer 



a certain extent, once you've learned 
one Assembly language you've learned 
them all, because you're also learning 
specialized techniques and algorithms 
with your first Assembly language. 
These techniques are built into Basic 
— things like conversions between 
ASCII and binary, printer drivers, and 
table searches. 

Should you do Assembly-language 
programming? If you can afford the 
time to learn that first language, if you 
like to hack away at a bit level, and if 
you like glory, by all means learn As- 
sembly language! Let me explain that 
last part: Most significant applications 
programs are written in Assembly lan- 
guage. You won't find many VisiCalcs 
or Electric Pencils in Basic! 

Even if you don't plan on writing a 
4K Assembly communications pack- 
age, though, Assembly language might 
be worth your while. As you saw from 
the first part of the article, it's not too 
difficult to write simple Assembly-lan- 
guage programs and interface them to 
Basic to provide short, efficient code. 
Give it a try.B 

William Barden, Jr. is a computer 
consultant with nearly 20 years pro- 
gramming experience. He can be reached 
at 28122 Orsola, Mission Viejo, CA 
926920. 
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TUTORIAL 



Word Processing Guide 



by Dan Robinson 



w 



ord processors ease the task of producing 
letters and manuscripts, but you must find 
one that fits your system and your needs. 



The first time I heard the term 
"word processing," an image of words 
linked together like little sausages 
leaped to mind. In those days one 
could acquire a Wang for a mere 
$15,000. Besides the high price tag and 
the standard office jokes (How's your 
Wang today?), early word-processing 
machines were about as difficult to 
control as Three Mile Island. They 
were often sold with a three-month in- 
struction course for the operator, their 
features were limited, and they could 
do nothing more than make words into 
sausages. 

Then about a half dozen years ago, 
Michael Shrayer came out with his 
pioneer Electric Pencil, which gave the 
first word-processing capability to 
microcomputers. Since then, program- 
mers have engaged in an unending con- 
test to excel one another in adding 
more exotic features to word-process- 
ing programs. 

How many times have you wished 
you could change a single word to 
make a business proposal more effec- 
tive but didn't want to take the time to 
retype the document? Or how many 
times have you found yourself typing 
the same letter over and over again? 

A word processor differs from a 
typewriter in its editing and printing. 

28 • 80 Micro, Anniversary 1983 



Most corrections are made by moving 
the cursor to the desired location and 
typing over the text. The cursor is 
usually moved by the arrow keys, 
although some word processors have 
commands that move the cursor for- 
ward or backward by word, sentence, 
paragraph, or to a specific character or 
symbol. 

Since text is seldom short enough to 
fit on the 16 lines of the TRS-80's 
monitor screen, the word processor in- 
cludes commands to scroll the text for- 
ward and backward into the viewing 
area. Some permit a quick jump to the 
beginning or end of the text, and some 
move one screen at a time. 

Entire blocks of text can be deleted, 
duplicated, or moved to another loca- 
tion. Some programs accommodate sev- 
eral blocks at one time, allowing ex- 
changes or a total reordering of the text. 

The global-search function locates a 
specified string of characters. If a stan- 
dard business letter has a string of 
NAME, the search function will find it 
each time it occurs. An expansion of 
this is the search-and-replace function 
that locates all occurrences of a string 
and replaces them with another string. 
Thus, NAME can be changed to Mr. 
Jones throughout the text. 

If a word is too long to fit on the cur- 



rent line, wraparound places it on the 
next line of the video screen. However, 
some programs support conditional, 
or soft, hyphens, so if the entire word 
doesn't fit on a printed line, the word is 
broken at the conditional hyphen loca- 
tion and a hyphen is printed. If the en- 
tire word fits on the line, the soft hy- 
phen is ignored. The width of the video 
display can be changed so the text is 
seen as it appears in print. This is use- 
ful when data is presented in columnar 
form or when hard hyphens are used. 
Tabs can be set to align columnar data. 

Unbreakable spaces, such as be- 
tween a person's initials and his name, 
can be supported. If an unbreakable 
space is specified, the entire name ap- 
pears on the next printed line if it can- 
not fit on the current line. 

A header appears at the top of each 
printed page, and a footer is at the bot- 
tom. They are useful as titles and can 
contain such information as the report 
date or the department issuing the 
document. They often include chapter 
headings and page numbers. Usually, 
an option exists to print them on odd, 
even, or all pages, much as they might 
appear in a book. Formats can be 
changed in conjunction with headers 
or footers to adjust the margins. 

Standard paragraphs can be inserted 
from other files to make repetitious 
typing unnecessary. Some programs 
can chain files so a large body of text, 
such as a technical manual, can be 
printed without interruption of page 
numbers or without continuously 
specifying headers, footers, or print 
formats. 

If supported, a specified number of 





The Evolution of Low-Cost 
Electronic Communications 
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mated two-way message system avail- \ ^ 

able for anywhere near the price. But don't 
let the price fool you. 

The Automated Computer Electronic Mail 
software offers some unprecedented clout in com- 
munications across the phone lines. From a completely 
unattended TRS-80, AceMail can look up a phone number, 
dial it, log/on to the system, upload and download ASCII files, 
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call AceMail from a remote location and exchange information. 

A world of information is at your fingertips as AceMail offers speed and acco. 
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blank lines appear between para- 
graphs, and the new text is indented. 
The program can include reverse in- 
dentation that inwardly aligns a title or 
number with the adjacent block of 
text, as required in an outline. Since 
ending a page with the first line of a 
paragraph or beginning one with the 
last line is undesirable, some pro- 
grams let you specify how many such 
"widow" lines are acceptable. 

You can include comment lines in 
the text as notes or instructions to the 
operator, but they are not normally 
printed. Some programs support 
limited editing or input from the 
keyboard at print time to provide a fill— 
in-the-blank capability. 

The program controls the ap- 
pearance of the printed text, so you can 
specify items such as the number of 
lines to be printed on each page, the 
width of text, and single or multiple 
spacing. You can set left and right 
margins, as well as the number of 
blank lines at the top and bottom of 
each page. Most programs offer right 
justification, where additional spaces 
are added within the line to provide 
even margins on both sides. Some also 
allow an even margin on the right with 



a ragged left edge, as in some poetry. 
Or, the text may remain unjustified to 
give it a personalized look. A few pro- 
grams take on the ambitious task of 
justifying proportional font printing, 
and some center a line or block of text 
horizontally as well as vertically. 

Word-processing programs always 
support a parallel (Centronics) printer. 
Some also function through the 
RS-232 port to operate serial printers 
or work with the popular Small 
Systems Software TRS-232 printer 
driver through the cassette port. Some 
programs support control codes that 
use the special abilities of certain 
printers, such as condensed printing, 
italic or double-wide fonts, bold face 
type, or graphic characters. 

Some word processors, such as those 
written in Basic, are limited to a specif- 
ic number of characters on each line, 
and you must edit one line at a time. 
Usually, these are tape-based pro- 
grams aimed at 16K computers, and 
they support few features. They are 
good for occasional or light use, such 
as preparing a club newsletter. 

Most programs are character-ori- 
ented with a constant stream of letters 
and symbols. Since a main purpose of 



word processing is conserving time in 
written communication, most pro- 
grams are written for disk systems. 
Some of these are displayed on the 
screen in a formatted presentation ex- 
actly as they will appear in print. 

Radio Shack's Scripsit was one of 
Tandy's earliest and best efforts. Pro- 
duced in both cassette and disk ver- 
sions, its shortcomings have been over- 
come by several patch programs. One 
of the best is Flextext, which sends 
codes to smart printers to change type 
fonts, produces subscripts and super- 
scripts, provides boldface headings, 
and so on. Qwerty, another Scripsit 
patch, creates an index and table of 
contents for lengthy documents. 

Electric Pencil is probably the easiest 
word-processing program to use. It is 
inexpensive, because it offers few fea- 
tures in its stripped-down model; ad- 
ditional features can be purchased 
separately. 

Copy Art offers all the standard fea- 
tures plus unique graphics capabilities 
that other programs can't equal. 

Lazy Writer and Newscript offer the 
largest range of features, as well as the 
highest price tags. Lazy Writer, for ex- 
ample, lets you delete by character, 
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word, sentence, or block, or to a speci- 
fied character, as well as from the cur- 
sor to the top or bottom of the file. 
Newscript automatically creates an in- 
dex. Both of them let you program a 
number of keys with a series of com- 
mands you select to invoke their many 
features. 

All programs mentioned are well 
documented and provide good after- 
purchase support. 

When selecting a word processor, 
consider the availability of support 
software. Some word processors are 
compatible with programs like Special 
Delivery, which personalizes a form 
letter and integrates it with a mailing 
list. Special Delivery sends out a "per- 
sonal" letter to everyone on your list. 

Other programs like Electric Web- 
ster or Hexspell check for spelling 
errors and automatically correct the 
document. 

Grammatik makes writing more ef- 
fective by identifying poor style in a 
text file. It alerts you to the repeti- 
tious use of a word, as well as capi- 
talization and punctuation errors. You 
can structure Grammatik to keep your 
computer jargon from creeping into 
communications with those who don't 



understand it. 

As far as hardware is concerned, you 
need either a daisy-wheel or dot-matrix 
printer. Although the price of daisy- 
wheel printers is coming down, they 
still cost half again as much as dot- 
matrix printers, and they operate at 
about one-fifth the speed. The strong 
point of a daisy wheel is that the fi- 
nal text doesn't look like it comes from 
a computer. 

With the newer model dot-matrix 
printers, the reader has to look closely 
to see that the text is a computer prod- 
uct, although the added quality results 
in reduced speed. Be certain that the 
printer has descenders so letters such as 
y and g won't appear to be pushed up- 
wards. If you need graphics get a dot- 
matrix printer. 

You'll need a disk drive for storage 
if the use of your word processor is 
heavy or complicated, or if labor is 
costly. Two drives are an advantage, 
since the advanced word processors 
load in modules to control the entry, 
edit, storage, and printing functions, 
and these modules must be present in a 
drive. 

To save time, add a print buffer to 
your system. Then, your computer is 



available for use while the printer is 
busy with the text. The computer sends 
the formatted text at high speed to the 
buffer where it is held until the slower- 
speed printer is able to accept it. 

With a properly equipped TRS-80 
and a word processor like Electric Pen- 
cil 2, you can compose and edit the 
text; check it for proper spelling; iden- 
tify poor writing style; print the docu- 
ment with data inserted from the 
keyboard, from files, and from a data 
base; and use the computer for other 
purposes while the document is being 
printed. 

Exotic capabilities are not for every- 
one. Added features mean added cost, 
less text memory, more complex com- 
mands, and slower operation. The 
word processor that can process a 
multi-chapter technical manual or a 
graduate school thesis is not necessar- 
ily useful for someone who has a large 
volume of one or two-page letters to 
produce. Tailor your choice to meet 
your special requirements. ■ 

Dan Robinson (1625 Higgins Way, 
Pacifica, CA 94044) is the author of SO 
Micro's September 1 982 special section 
on word processing. 
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TUTORIAL 



The Data Base Explained 



by Wynne Keller 



Introduction to data 
bases — everything you 
need to know explained 
in plain, simple English 

Most complex computer programs 
include a data-base manager. Data-base 
managers (DBMs) maintain a file or 
group of items that are related. The 
DBM performs clerical office functions 
such as add, change, delete, sort, search 
or print for any item or group of items 
in the file. It is fast and efficient, but it 
cannot do everything. Generally, a 
DBM manages a file but cannot per- 
form massive changes. For that, you 
need an auxiliary program. 

Data-base managers are all-purpose 
programs and are useful in business and 
home environments. To choose the 
right data-base manager, you need to 
understand DBM terms and evaluate 
the program's intended use. 

Types of Data-base Managers 

There are two types of DBMs: in 
memory and random access. In-memo- 
ry programs hold all the filed items in 
computer memory at one time. They 
can be cassette or disk based. Random- 
access programs are always disk-based; 
they bring each item into memory as 
needed, so random-access files can be 
larger than in-memory programs that 
are limited to smaller files. 

Some programs try to incorporate the 
best of both types. In-memory pro- 
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grams are faster, because they don't 
need to access the disk each time you 
want an item. These programs allow 
you to divide the file into small sections 
that are retained in memory and written 
to disk as groups, and can be merged 
with other groups as the need arises. 

In-memory programs are best for 
small files; even with 48K, a typical ap- 
plication holds only 200 items. How- 
ever, large-capacity personal computers 
such as the IBM increase the usefulness 
of in-memory programs. A 128K IBM 
can hold three times as many items in 
memory as a 48K computer, so you can 
accomplish large projects with an in- 
memory DBM. 

Because in-memory programs record 
the whole file as a unit, any system crash 
affects a large number of items. A ran- 
dom-access program is usually safer be- 
cause each item records back on disk 
after access. 

Selecting a Program 

The three most important DBM 
terms are file, record, and field. Files 
are items in the data base. The record is 
one item in the group. 

In a data base organized for house- 
hold inventory, one item might be a 
sofa. You can record several things 
about the sofa: its price, purchase date, 
and present value. 

Each piece of information about the 
sofa is a field. You enter the relevant 
field information for each record in the 
data base. If this data base were a card 



file, the entire box is the file, each card 
is a record, and on the card are three 
data fields about every item. 

DBMs differ greatly in capability and 
price. Elementary versions can cost as 
little as $20, while sophisticated pro- 
grams are $300 or more. The following 
descriptions of important features can 
help you choose the DBM best suited 
for your needs. 

Capacity 

Estimate the number of records in the 
file and the amount of information 
needed for each record. Every letter or 
number counts as one byte. In the 
household inventory, the name-of-item 
field (chair, sofa, and so on) will need 
perhaps 10 bytes. Round the price field 
to the nearest dollar, and if no item is 
more than $999, three bytes would be 
sufficient. The date of purchase could 
be the last two digits of the year, using 
two bytes, or five bytes to write it with 
the month and a slash, 12/82. Adding 
these together shows that each record 
needs 18 bytes. If there are 100 items in 
the house, only 1,800 bytes are re- 
quired, easily within the capacity of a 
cassette-based, in-memory DBM. 

On the other hand, a business com- 
puterizing its mailing list might find 
they will exceed the disk's capacity. A 
typical mailing list requires 115 bytes 
per record. On a two-drive system, the 
program resides on one disk and the 
data resides on another. But, even using 
the whole disk for data, more than 700 
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records can exceed the capacity of a 
Model I disk. If the program is not 
capable of spanning drives, it is worth- 
less for this application. 

Speed 

A slow DBM is a frustrating experi- 
ence and can even be unusable. Many of 
the program's aspects affect the speed: 
the method of data entry and change, 
the method of saving data, and the type 
of search and sort. 

Data entry can be tedious in some 
programs. Ideally, a fast typist should 
be unable to overtype. Frequently, 
however, the typist must slow down and 
check the screen to be certain the pro- 
gram recognized keys that were pressed. 

An important feature for increasing 



data-entry speed is a field-repeat key. 
This allows the typist to press one (or 
sometimes two) special keys to repeat 
any field's contents from the immedi- 
ately previous record. For example, if 
you're typing addresses and several in a 
row list New York as the state, New 
York can be re-entered with one key- 
stroke. The key that performs this func- 
tion varies from one program to 
another, and many data bases don't 
have the feature at all. It is worthwhile 
to look for the program that does. 

The ability to change entries rapidly 
is also important. If you make an error 
when typing the record, you should be 
able to correct the error before moving 
on to the next record. A nondestructive 
cursor is the easiest method for chang- 
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ing data. Nondestructive means the cur- 
sor blinks over, but doesn't destroy the 
letters beneath it. The cursor can be 
moved to any location on screen with 
the arrow keys and changes are made by 
typing over the error, or the text can be 
opened for insertions. 

Another method of changing entries 
is numbered fields. To make a change, 
you type the number corresponding to 
the field in which the error occurs. The 
cursor then jumps to that field and the 
change can be made. The slowest 
method places the cursor at the end of 
the first field whenever you specify 
change mode. To change any field, 
press the enter key repeatedly while the 
cursor jumps down one field at a time 
until it is on the field where the error oc- 
curs. This is a tedious process, especially 
if the field to be altered is near the bot- 
tom of the screen or many records are to 
be changed. 

The method of saving or reading data 
to or from the storage medium, called 
I/O (input/output), also affects the 
speed of operation. Cassette users plan- 
ning DBM applications must first con- 
sider whether the project is possible on 
cassette. The length of time needed to 
save data on cassette makes a DBM for 
files larger than about 100 records im- 
practical. Model III users are often un- 
aware that the speed of cassette dumps 
for data, as opposed to programs, is on- 
ly 500 baud. In addition, each 256-byte 
segment of data has a leader on the 
tape, which also slows data saves. You 
can prevent this leader with machine 
code, and some cassette DBMs adver- 
tise this feature. 

If the project is not worth the price of 
a disk drive but is too large for cassette, 
consider the Exatron Stringy Floppy. 
The ESF saves data at 7,600 baud, 
which means 150 records are saved in 
about one minute. 

Disk users also should consider the 
speed of data I/O. With in-memory 
DBMs, the data loads at the beginning 
of a session and saves at the end. This is 
convenient and is the main reason for 
the popularity of in-memory systems. 
The random-access DBM loads one rec- 
ord at a time and then saves the record 
as soon as you are finished with it. Since 
the disk turns on for each save, there are 
a few seconds of idle time for the 
operator with each I/O. When adding 
records, you should not record the data 
until you have corrected any errors. I 
know of one program that does not 
allow error correction during input; it 
sends the data to the disk as soon as you 
finish the last field, causing double disk 
I/O time. 
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Disk I/O for random-access pro- 
grams sounds more tedious than it is in 
practice. When only a few records will 
be accessed, random access is faster 
than an in-memory system because you 
can load a few records faster than the 
whole file. If you start out with an in- 
memory system, you can stretch it to 
handle larger and larger files. Perhaps 
the entire mailing list was 200 records 
initially, but expanded to 400, so the file 
was broken into halves, then halves 
again. Switch to random access before 
the file becomes too large; it's easier 
than shuffling and merging files that 
have outgrown the program. 

Searching/Sorting 

The type of search and sort is vital to 
program speed. A fast search is more 
important because sorting can be per- 
formed during your absence. The 
slowest search is sequential; the pro- 
gram examines each record to see if it 
matches, in order through the file. A 
binary search divides the file in halves 
with each pass, and finds the needed 
record faster. One of the fastest is an in- 
dex; an index is a separate short record 
number file that keeps track of the ma- 
jor file. A record in the index contains 
the location or record number of its 
matching record in the major file. 

Because record length in the index is 
short, the index can be read quickly (in 
some programs it is kept in memory). 
Normally, the operator chooses the 
field used in the index. Some programs 
allow the indexing of several fields. The 
index increases the speed of search and 
sort functions. Its only disadvantage is 
apparent if there is a machine or power 
failure. 

Some programs rebuild the index on 
command. This is a good feature, be- 
cause you can repair the index if it is 
damaged. Other programs update the 
index automatically after changes have 
been made or after 100 records have 
been added to the file. This type is 
vulnerable; if an equipment failure oc- 
curs after adding 50 records, all 50 
would be lost. Even though the records 
are safely on the disk, they have not yet 
been added to the index, and without 
the index they cannot be found. 

An index increases sort speed. The 
fields to be sorted are read from the 
disk; when the sort is complete, the in- 
dex is rebuilt to reflect the new order. 
The index is then written to disk, and 
the records accessed in sorted order, 
even though none of the major records 
have been moved from their former 
position on the disk. 

If the sort is in machine code, the sort 



speed increases, but this is not the only 
factor in sort speed. Disk access can be 
the culprit when sorts continue for 
hours. A number of programs sort by 
reading two records, comparing them, 
then switching their order and rewriting 
them to disk. The disk runs continuous- 
ly, and it is not uncommon for the sort 
to fail because the disk became worn 
before the sort was finished. 

Reports 

Designing a report with most DBMs 
is time consuming, because each user 
wants something different, and the pro- 
grams allow considerable flexibility. 
Once designed, a report format will be 
used many times. Therefore, the best 
programs save the report design in a file 
on disk, and it can be recalled and used 
without further effort. If a program 
cannot save report formats, it will be 
limited in report capability. 

Some features to look for are: 

• Choice of record numbers/no 
numbers 

• Multiple lines per record 

• Mailing-label format 

• Saves report format 

• User-specified subtotals and/or 
totals 

• User-specified titles 

• Wraparound suppression 

• User-specified paging 

It is standard on most DBMs that the 
user can specify which fields to print 
and which records to print. The way this 
is done is by no means standard. 

If you plan to use a word processor to 
write form letters from a mailing list, 
make sure the word processor and 
DBM you plan to use are compatible. 
Some DBMs interface with any word 
processor file; others require a specific 
program. 

Calculations 

Many programs offer one or more 
formula fields, which allows you to 
create a formula that uses values from 
other fields. You could set up an inven- 
tory to calculate discounts or markup 
with a formula field that takes the price 
field and multiplies it by some other 
value. Some DBMs perform these cal- 
culations when the record is typed. 
Other DBMs show nothing on the 
screen during data entry, but display the 
computed values of formula fields later 
when you recall or print the record. For- 
mula fields are vital in many business 
applications. 

Setting Up a File 

Using the above guidelines, you select 
a DBM. How do you put it to use? 



After reading the manual, you may 
understand how to use the program, but 
not how to set up the file. Most manuals 
assume some familiarity with the 
organization of DBM files. 

The first step is to write down the in- 
formation catagories being kept with 
your current manual system. If there is 
no current system, write down all the 
types of information you would like 
to keep. I will use inventory manage- 
ment as an example, as this is a fairly 
complex, but common application 
of a DBM. 

The following are possible categories: 

• Name of Item 20 bytes 

• Supplier 25 

• Supplier Address 20 

• Supplier City, State, Zip 28 

• Supplier Code 10 

• Store Code 10 

• Salesman 20 

• Supplier Phone 14 

• Price Item 6 

• Cost Item 6 

• Quantity on Hand 3 

• Quantity on Order 3 

• Reorder Point 3 

• Reorder Date 8 

Next, consider typical information 
you would place in these categories. 
Calculate the maximum number of 
characters that would be stored in each 
category. In the case of name categor- 
ies, you can do this by estimating the 
average size of an entry and adding a 
few characters. Some name entries can 
be abbreviated later if they are too long 
to fit. 

You must calculate the byte count for 
numerical and date entries with greater 
precision. The cost field, for example, 
must contain enough bytes for the 
greatest cost you will ever encounter. If 
you allow six bytes, the data entered can 
never exceed 999.99 (the decimal point 
counts as one byte). A date field is nor- 
mally MM/DD/YY, or eight bytes. 
Typical byte counts are already in- 
dicated in the sample inventory above. 

After you have a byte count for each 
field, add them up to determine the 
total number of bytes per record. The 
example inventory would use about 200 
bytes. If the total per record is over 256 
bytes, you may need to eliminate some 
characters, depending on the program 
being used; some programs don't allow 
a single record to exceed 256 characters. 

Even if the bytes per record are 
within the program's limits, the number 
of records that will fit on the disk is 
seriously reduced with large records. In 
the sample inventory, the vendor's ad- 
dress is probably superfluous. The ad- 
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dress, phone number, and salesman's 
name could be kept in separate file con- 
sisting of all the addresses your com- 
pany needs. 

It's time to fine tune the DBM layout. 
The more sophisticated programs allow 
special types of fields. Alphanumeric 
fields can contain any character. 
Numeric fields may only have numbers 
and number-related characters. They 
may even have a fixed decimal point, if 
desired. Some fields can be "must fill" 
fields, which means the operator must 
enter something when typing the 
record. You can reverse date fields, so 
that on sorting they will be ordered 
YY/MM/DD. Fields may be protected, 
which means the data in them cannot be 
changed. 

In data bases that use this searching 
method, choose a key field. The key 
field should be a field unique for every 
record. It would be useless to make the 
key field the state in an address file, 
because so many records will occur with 
the same state. Choose some type of ID- 
number field for the key field. In an in- 
ventory, this would be the part number. 

Next, design the screen. Sophisticat- 
ed programs give the user complete con- 
trol over placement of fields. Even pro- 
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grams that do not allow this can be 
helped with planning at this stage, 
because the order in which fields are 
typed will be the order in which they are 
presented on screen. Ideally, all "must 
fill" fields should be first on screen, so 
the operator does not have to step 
through empty fields to reach the ones 
for which there is data. 

In some programs, the fields aren't 
numbered and a change in a field near 
the bottom of the screen means you 
have to keep pressing enter to position 
the cursor at the proper field. This is not 
a problem if the cursor movement is 
rapid. If it is slow, positioning the cur- 
sor can be time consuming. If you use 
such a program, position any fields that 
will be changed often near the top of the 
screen. A few programs require fields 
that will be sorted consecutively to be 
adjacent to each other, with the major 
sort field first. If using either of these 
programs, make sure you type the fields 
in the correct sorting order. 

Once you initialize the DBM and 
design the input screen, it is time to 
begin using the program on a trial basis. 
Enter perhaps 25-50 records; then 
make changes, sort them, and use the 
search function. If data entry or 
changes are slow, would a change in 
screen design help? Is the key field inap- 
propriate? Design a few reports and 
print the records. Will all the fields you 
want on one line fit? 

It is typical during this stage to find 
that some vital field was overlooked, or a 
field is too short, or too long. For exam- 
ple, using the inventory described earlier, 
trial runs might show a need for a for- 
mula field to calculate price as a percent- 
age of cost. Remember, most DBMs do 
not allow any changes to a file after in- 
itialization without losing all the records. 
A few programs allow changes, such as 
adding a field, but this is difficult and 
time consuming. Be sure to initialize the 
file the way you want it, because with 
most programs everything must be typed 
in again if changes are made. 

If you find the program inadequate 
during this stage, it is better to buy 
another now than to type a complete file 
into an unsuitable program. Changing 
to a better program later requires retyp- 
ing the file or hiring a programmer to 
translate it. 

Manipulating the File 

Putting the file to use quickly reveals 
why DBMs are so popular. The sophis- 
ticated search and select capabilities are 
perhaps the most exciting to use. 

To use selection features, you'll need 
an understanding of Boolean relation- 



ships. Most programs understand the 
following relationships: equal ( = ), 
greater than ( > ), less than ( < ), not 
equal, greater than or equal, and less 
than or equal. These concepts are famil- 
iar to most people. The harder part is 
the connective for the search (and, or). 

Suppose two search criteria were 
desired: price less than a dollar, and 
supplier name XYZ. You would choose 
the price field as the first search field, 
and specify less than ( < ) as the rela- 
tionship and 1 as the amount. Then 
specify the connection to the next field. 
In this case, you want every item under 
a dollar and supplied by XYZ. If you 
said or, you would get every item under 
a dollar from every company along with 
every item from XYZ regardless of 
price. Then enter the next search field 
(supplier name), along with the rela- 
tionship, equal, and the name being 
sought, XYZ. 

Suppose you receive a shipment from 
XYZ containing five different items. 
You want to update the record for each 
item by changing the quantity-on-hand 
field to reflect the amount received plus 
the amount formerly on hand. In addi- 
tion, the amount on order needs to be 
reset to zero. To do this, you could 
search for each of the five items by 
name or product number, and change 
each record. This works well for five or 
ten items, but if hundreds of items were 
received, it is too time consuming. 

The limits of the all-purpose DBM 
have just been reached. What you need 
now is an auxiliary program. Such a 
program would, in this example, accept 
data such as part number and quantity 
received for as many items as you wish 
to enter. Then, the program automat- 
ically accesses the DBM file and updates 
every record affected by the shipment. 
It sounds simple, but you need a 
programmer to write the auxiliary 
program. 

DBMs are a compromise. You can 
use a DBM program for multiple tasks, 
thus saving the money it would cost to 
buy several different specialized pro- 
grams. But a DBM inventory cannot 
hope to have the sophistication of a 
specially written inventory, unless pro- 
gram modules are added. Adding such 
modules does not have to be expensive 
but is a factor to consider. Many ap- 
plications will not need extra program- 
ming, and if the DBM can computerize 
more than one file for you, it will almost 
certainly pay for itself. ■ 

Wynne Keller can be reached at 
Downeast Digital, RD#1 Box 4130, 
Solon, ME 04979. 



38 • 80Micro, Anniversary 1983 



A Computer That 
Writes Programs 
For You. 

What will they think of next..? 



Your computer is fantastically fast. ..once it knows what 
to do. You probably realize that a computer is really 
the combination of hardware and software, working 
together smoothly, to give you what you want. Either 
one alone is useless. Software is really the key. ..the 
"mind" of a computer system. Every project or task 
you want to do requires a new specific software ap- 
plication to make it behave exactly the way you desire. 

Of course, you may be able to "force-fit" an application 
into some existing canned program you have, but to 
really get results, you need a separate application 
program to run on your computer. 

Until now, that meant you were forced to pay money 
for application software off the shelf, or if you could 
afford it, have it custom written for you, or, if you are 
qualified, do it yourself. ..spending endless hours 
figuring it out and writing it. Now, your computer can 
write individual application programs for you. These 
programs are each separate, unique software programs 
that run in standard Basic on your computer. 

A company named FutureSoft has developed this ex- 
citing and long awaited remarkable working tool for 
you. There are two versions called Qu/fcpro+P/us and 
standard Quikpro. Both of them create unique separate 
Basic programs for you. ..to do exactly, precisely, what 
you want to do. And listen to this. ..you create a new 
program in minutes instead of hours. 

You can quickly generate a new program when you 
want it. You can generate thousands of different 
unique programs, each one standing alone as a com- 
plete program that runs in Basic. Best of all, you do not 
have to be a programmer to do it. The Quikpro soft- 
ware becomes your personal programmer, waiting to 
do your work for you any time of day or night you 
choose to use it. 

The custom programs you generate from this software 
provide for: Data Entry, Additions, Changes, Record 
Locating & Searches, great variety of Computations, 
and Report Printing (if you have a printer). It lets you 
decide what data to manipulate and how to manipulate 
it. It lets you decide the formats you want to appear on 
your screen and/or to print out in a report. It lets you 
use differing formats on the same data base. It lets" you 
make calculations from data within records without 
altering the data base. It lets you report results with or 
without including the base data from which results 
were calculated. 

All this is included in the ability/power of the program 
you create. You do it by simply answering questions 
that appear on your screen. Instantly, the Quikpro soft- 
ware instructs the computer to perform complex and 




error free instructional sequences. You get the im- 
mediate benefits of professionally written software for 
your application. 

The resulting custom program is truly a separate Basic 
program. You can list it, you can modify it, you can ac- 
tually see what makes it tick. You can even ask it to 
print out its own operating instruction manual so others 
can run it for you. Finally, you can really tap the speed 
and power of your computer the way you really want. 
You can create new programs for every use you have in 
Business, Science, Education, and Hobby areas. And 
you can start now. 

The software is available immediately from the 
creators. It comes in two versions. If you want to 
generate separate Basic programs with all the data 
handling plus Calculations and Report Printing 
features, you want Quikpro+PIus. Specify to run on 
TRS80 Model I and Model III at only $149; to run on 
TRS80 Model II at $189. 

If you do not need Calculation ability or Report Print- 
ing in the separate Basic programs you will create from 
this program generating software, then standard Quik- 
pro will do the job for you. Standard Quikpro to run on 
TRS80 Model I or Model III is $89; to run on TRS80 
Model II is $129. (Later on you can always trade up to 
the Plus Versions for only the cost difference between 
the two). 

Both programs are available to run on many other 
computers besides TRS80. Details are available by 
calling or writing. 

You can order right now by phone or mail. If you have 
Visa/Mastercard, call toll-free from: 

All States except CA-AL-HI 1-800-824-7888 OP# 441 

From California call 1-800-852-7777 Op# 441 

From Alaska/Hawaii call 1-800-824-7919 Op# 441 

Operators on duty 24 hours daily. Operators can not 
answer technical questions. If you need technical in- 
formation or want to order from Canada or other 
nations, call 1-904-269-1918 during office hours, Eastern 
Time, Mon.-Fri. 

Send mail orders with check, money order or credit 
card information to: FutureSoft, P.O. Box 1446-D, 
Orange Park , Florida 32073. FutureSoft gives you a 
satisfaction or your money refunded guarantee for 10 
days from delivery. You can run the software yourself 
on your own computer and see with your own eyes 
what it can do for you. Order now. ^ee 
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Insure Your Computer 



by Thomas McDowell 



If lightning hits your house, it can be 
a frightening and unsettling experi- 
ence. It can also damage your com- 
puter. Last year, lightning struck my 
house, ruining several appliances, in- 
cluding my TRS-80 Model I. 

When I filed the insurance claim, I 
learned some useful information about 
computers and insurance. My experi- 
ence should help you if you find your- 
self in a similar situation. 

Is It Covered? 

If your computer is damaged, read 
your insurance policy to find out if it is 
covered. Your policy may not mention 
the computer, but it will mention 
lightning damage. Usually, if you have 
a good home-owner's policy, your 
computer is covered for this type of 
loss. If you use your computer for 
business, you will need a special rider 
for it, since a business computer is not 
covered under a home-owner's policy. 

OK, so you think you're covered. 
What's next? Contact your insurance 
agent. Eventually, an adjuster will call 
you. He may want to inspect the 
damage, but since lightning damage is 
usually internal, he will probably tell 
you to have the computer repaired, if it 
is "economically repairable." 

If it cannot be repaired, have the 
repairman make a statement to that ef- 
fect. If the item can be repaired, get an 
estimate and report back to the ad- 
juster. If you want the insurance com- 
pany to pay for the repairs, the bill 
must clearly state that the item was 
damaged by lightning. 

Economically Repairable Damage 

Any item is repairable if the owner is 
willing to pay enough money. In- 
surance companies recognize this, and 
to limit their losses, they will limit the 
amount they will pay to repair an item 
to its present value. To compute depre- 
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Remember to purchase 
insurance for your 
computer; you'll need it 
when lightning strikes! 



ciated value, my insurance company 
divides the age of the item by its ac- 
cepted life, subtracts that value from 
one, and multiplies the difference by the 
current replacement cost of like items. 

Some insurance companies may use 
original cost instead of replacement 
cost. For most items in inflationary 
times, the replacement cost policy is 
best because it reflects inflation. Un- 
fortunately, my TRS-80 cost nearly 
$200 more when I bought it than it did 
when lightning struck it. 

The owner must establish the com- 
puter's age. If you do not have the pur- 
chase receipts, tell the insurance ad- 
juster where and when you bought it, 
and he can check with the retail outlet. 
If you are putting in a claim for stolen 
equipment, especially equipment 
worth thousands of dollars, and you 
don't have receipts, you could be in 
trouble. 

Be honest with your adjuster. He 
deals with people every day, and he's 
no fool. My adjuster believed me when 
I told him that I had one of the earliest 
serial numbered TRS-80s and had pur- 
chased it in January 1978. My 
credibility had been established, so he 
again believed me when I said that my 
32K Expansion Interface was new. 

Determining the expected life of my 
computer proved more of a problem. 
My adjuster asked me to get the ex- 



pected life from Radio Shack. The 
technician at the local computer 
center, however, refused to give me an 
estimate for my computer. He told me 
it should last forever. Even when I told 
him that the insurance company would 
consider that unrealistic, he refused to 
make an estimate. (He stated that he 
could be liable to Radio Shack if he 
made policy for them, and stating an 
average lifetime could be construed as 
making policy.) 

After some dickering, the adjuster 
and I agreed that my computer's life 
expectancy was at least that of a color 
television (10 years). He gave me a 
check for the depreciated value of my 
equipment, less the deductable, and I 
gave him the remains of the computer. 

The adjuster told me that had my 
unit been stolen, I would have needed 
to prove ownership. The best way to do 
this is to have a receipt. Club registra- 
tions and owner manuals can also serve 
as proof. 

Lessons Learned 

The lightning that struck my house 
cost me over $400 for equipment re- 
placement; without insurance, it would 
have been more than $2,000. To pro- 
tect yourself from lightning or theft, 
remember three things: Unplug your 
equipment when an electrical storm is 
forecast; make sure you have insurance 
for your equipment; and save your 
sales receipts. You should also think 
about protecting your equipment from 
fire or other disasters. And what about 
your software? Storing back-ups off 
site is probably the best way to protect 
it. I hope you won't experience the 
disaster that I did, but you should take 
precautions, just in case! ■ 

Thomas McDowell is a data pro- 
cessor. His address is HHC 1st Support 
Battalion, APO New York 09137. 
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Our crop-The Lemon™, The Lime™, 
and The Orange™ are designed to 
eliminate undetected submicrosecond 
overvoltage transients from electrical 
circuits. Commonly referred to as 
"spikes", or "glitches", these tran- 
sients can cause hardware and soft- 
ware damage to unprotected circuits. 

Today's electronic products are often 
microprocessor controlled - mini and 
micro computers, televisions, video 
cassette recorders - to name a few. 
Each of these products is sensitive to 
fluctuations in electrical power lines. 
Power switching devices such as 
refrigerators coming on and off or air 
conditioners starting up can be respon- 
sible for a momentary surge or spike of 
electricity in a circuit. Even your local 



utility stepping-up transformers to add Voltage AC Power Circuits, 
power at peak load times or an elec- When you compare the cost of 

trical storm passing through can trigger computer hardware, software and your 
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surges. Such surges can cause equips 
ment to falter at times, not to work at 
peak performance or fail completely. 
An entire data base can be lost. 
Now you can prevent this from 
happening to you with an AC Surge 
Protector from Electronic Protection 
Devices. Each Protector is a solid state 
clamping device with 6 outlets utilizing 
modern high speed semiconductor 
technology. Using our Protectors is as 
simple as plugging it into any standard 
three wire duplex outlet then plugging 
what needs protection into it. Each 
Protector exceeds the IEEE 587-1980 
Guide for Surge Voltages in Low 



time with the price of a Protector (from 
$59.95 to $139.95), you'll want to sour 
your surges with one of the AC Surge 
Protectors from EPD, which are 
available through your local dealer. 



Electronic Protection Devices 

5 Central Avenue 

Waltham. Massachusetts 02154. -3ie 

In Massachusetts Call: 
(617)891-6602 

Outside Massachusetts Call: 
1-800-343-1813 

Dealer Inquiries Invited 



Wk don't care 

which computer you own. 

\WU help you 

get the most out of it. 



CompuServe puts 
a world of information, 
communications, and 
entertainment at your 
fingertips. 

CompuServe is the versatile, easy to use 
interactive videotex service designed especially 
for the personal computer user. It's dynamic, 
growing and changing daily to satisfy 
its subscribers' needs. It's an industry 
leader, created and managed by 
the same communications pro- 
fessionals who provide busi- 
ness information and 
network services to jjgfe '"••** 
over one fourth of |i • 

the FORTUNE 500 KJ : L.,/^-^'-- 
companies. 

From current events to current assets, 

CompuServe offers a wealth of useful, profitable 
or just plain interesting information. 
Electronic magazines and national 
news wires plus worldwide weather, 
current movie reviews, electronic 
banking and shop at home services, 
and some of the most sophisticated 
financial information available are 
all offered to current subscribers. 

From words to music. CompuServe offers 
a communications network that gives special 






interest groups from hardware enthusiasts to 
computer composers a chance to get 
together. There's a bulletin board 
for selling, swapping, and 
personal notices and a CB 
simulator for real-time com- 
munications between sub- 
scribers. There's electronic 
mail, the fastest, surest, way to 
communicate with other users across the street 
or across the country, plus file retention and 
editing, and lots, lots more. 

Fun and games are expected whenever 
computer users interact, and CompuServe has 
the best. Games you can play alone or with 
other CompuServe subscribers 
anywhere in the country. Classic 
puzzlers, sports and adventure 
games, and fantastic space games 
featuring MegaWars, the "ultimate 
computer conflict." 

But, that's just the tip of 
the chip. CompuServe offers a 
menu of thousands of items 
that make subscribing edu- 
cational, fun and sometimes downright profitable. 
If you'd like to know more about CompuServe, 
call toll free, 800-848-8990 to receive an illus- 
trated guide to the CompuServe Information 
Service. A videotex service for you no matter 
which computer you own. 

CompuServe 

P.O Box 20212 

5000 Arlington Centre Blvd.. Columbus. Ohio 43220 

800-848-8990 

In Ohio call 614-457-8650 

An H&R Block Company ^235 
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Disk Mysteries Revealed 



by Michael F. Morra 



D 



ebating on whether to upgrade to a disk sys- 
tem or to keep your faithful cassette player? 
If you have any doubts, read this article. 



Are you frustrated with the trials 
and tribulations of the cassette, but ap- 
prehensive about taking the big step to 
floppy disk? Or perhaps you are a 
seasoned floppy-disk user who is tired 
of paging through a half dozen maga- 
zines, texts or operating manuals 
before you find a satisfactory explana- 
tion of a particular subject. 

This article attempts to correlate the 
existing information and reintroduce it 
in the form of a simple, slow-paced 
and (hopefully) comprehensive primer 
on the floppy disk. 

At the start, I will be on the level of 
the non-disk TRS-80 user who is fairly 
conversant with the cassette-based sys- 
tem. I will assume some knowledge of 
binary /hexadecimal number systems, 
cassette data storage and the basic 
memory structure in the TRS-80. After 
laying the initial groundwork, I will 
move into a more advanced and de- 
tailed treatise concerning the Model I 
floppy-disk system. 
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With a Little 

Help from My Friends 

This article owes its existence to the 
presence of various publications and 
the writers. (See the Bibliography.) 

These publications will undoubtedly 
help those readers who demand an ex- 
tremely detailed treatment of a specific 
question. There are many other sources 
that were not (or could not) be con- 
sulted during the writing of this article. 

Most of these publications or prod- 
ucts are available from the many 
advertisers in 80 Micro. The following 
addresses may also be helpful: 

Shugart Associates 
475 Oakmead Parkway 
Sunnyvale, CA 94086 
(408) 733-0100 

Western Digital Corp. 

2445 McCabe Way 

Irvine, CA 92714 

(714) 557-3550 

(For information on the FD 1771-01 chip) 



Some of the Western Digital docu- 
mentation has been republished in 
various places, including Pathways 
Through the ROM. 

What Is a Floppy Disk? 

A floppy disk is a form of non-vola- 
tile mass data storage for the TRS-80 
and other microcomputers. Non-vola- 
tile storage (which also includes 
magnetic tape and read-only memory, 
or ROM) retains data without the ap- 
plication of external power. In con- 
trast, random-access memory (RAM) 
is volatile — it requires power to con- 
tinually refresh the stored data, and 
when the power is interrupted, the data 
is irretrievably lost. 

Like cassette tape, a floppy disk is a 
scaled-down version of mass storage 
used in larger computers (minicom- 
puters and mainframes). The grand- 
daddy of cassette tape is the high-speed 
magnetic tape unit that employs open 
reels of wide recording tape. Large 
computers also utilize hard-disk stor- 
age, where data is stored on rigid metal 
disks coated with a magnetic material, 
much like the coating on recording 
tape. The computer industry modified 
disk storage to utilize flexible (floppy) 
disks, usually made from Mylar or 
similar material, with the same mag- 
netic coating as before. 



Briefly, here is a breakdown of the 
various components that make up a 
floppy-disk system: 

• The floppy disk itself is the actual 
storage medium. (The disk includes 
both the coated disk and the protective 
jacket into which the disk has been 
sealed.) 

• The disk drive physically manipu- 
lates the disk and, under system con- 
trol, reads and writes data ("plays" 
and "records," respectively). 

• The disk controller is the interfacing 
circuitry between the computer and the 
floppy-disk system. 

• The disk operating system is the soft- 
ware that coordinates and executes all 
data input /output (I/O) to the floppy 
disk. It actually extends and enhances 
the ROM routines so that the floppy- 
disk system can operate properly. The 
software is usually called the DOS, 
which rhymes with "boss" or "dose" 
depending on whom you talk to. 

Why Floppy Disk? 

Let's take a look at the differences 
between cassette tape and floppy disk 
(vital statistics courtesy of Radio 
Shack's Computer Catalog RSC-6 and 
the TRSDOS/Disk Basic Reference 
Manual). 

For both systems, the physical form 
of the stored data is the same: mag- 
netized areas in a magnetizable coat- 
ing. The data is both placed on the 
media and retrieved by a read/write 
(record/play) head in both systems. 
However, the method and the speed of 
data access is quite different. 

Cassette tape is relatively exasperat- 
ing when it comes to finding a given 
spot somewhere on the tape. The tape 
has to be manually jockeyed back and 
forth to locate the desired area. In con- 
trast, floppy-disk systems can very 
quickly position the read/write head 
anywhere on the media to pick out a 
particular portion of written data. A 
floppy disk is even more versatile be- 
cause of the data format on the disks, 
which allows us to locate and access 
very small units of data. This would be 
analogous to a stereo turntable that 
could automatically find and play a 
group of several notes anywhere on the 
LP disk within seconds. 

Furthermore, floppy-disk systems 
have a much faster I/O rate than 
cassette systems, which makes the 
former even more powerful. Cassette 
I/O rates for TRS-80s are either 500 or 
1,500 baud, which is equivalent to 
about 54 or 171 bytes per second, 
respectively. Floppy disk I/O rates are 
on the order of tens of thousands of 



bytes per second. In both cases, the fig- 
ures are calculated for a continuous 
stream of data being read or written. 
An average access time would be the 
time elapsed for either system to find a 
given spot somewhere on the media. 
On a C-20 cassette (20 minutes running 
time), we could easily average one 
minute trying to find the spot and line 
the tape up fairly accurately. For a 
floppy disk, the time ranges from 
Vi-V*. second (and again, the disk ac- 
cess is fully automatic). 

The disk usually contains more data 
than the cassette tape, too. Going back 
to our figures on cassette I/O, a 
20-minute cassette can hold a theo- 
retical total of 75,000-225,000 bytes of 
data, depending on the baud rate. 
Floppy disks can theoretically store 
89,000-1,000,000 bytes, depending on 
disk size, data density, and whether 
one or two sides of the disk are used. 
(These figures do not include necessary 
system data, the so-called system over- 
head, which takes up some room on 
both cassette and disk.) 

The floppy disk does have some 
drawbacks, however. Because of its 
precision and tight tolerances, it is more 
sensitive to the same problems that 
plague cassettes: motor speed varia- 
tions, dirty or magnetized read/write 
heads, destroyed data from stray 
magnetic fields, physical contamination 
and mishandling of the media, power- 
line variations, and so on. 

The major disadvantage to floppy 
disk is cost. To convert a system to 
floppy disk requires controller cir- 
cuitry, at least one disk drive, mis- 
cellaneous cables and hardware, and 



the DOS software. Additional RAM 
may have to be added (the DOS oc- 
cupies a good chunk of memory), and 
it may be desirable to have more than 
one drive hooked up. Also, floppy- 
disk-based software is usually more ex- 
pensive than cassette software (but 
more powerful and versatile, too). The 
total system investment depends on the 
type and brand of hardware/software 
purchased, and where it was obtained 
(Radio Shack versus mail order, com- 
puter store, and so on). 

Both systems have their place de- 
pending on the individual user. Cassette 
tape is an excellent entry-level mass 
storage device, combining ease of 
operation with low cost, and allowing 
the maximum amount of memory avail- 
able for other tasks. Once a user 
becomes more intimately acquainted 
with the computer, though, the cassette 
can become the proverbial tail wagging 
the dog by hampering more advanced 
operations. At this point, it is a good 
idea to seriously consider the move to 
floppy disk. 

The Nuts and Bolts of Floppy Disks 

The disk (Fig. 1) is either 5% or 8 
inches in diameter. The disk is free to 
rotate within a jacket, which is special- 
ly lubricated for that purpose. The ex- 
posed central ring of the disk is gripped 
by the motor assembly of the disk 
drive. The jacket also has openings (the 
read/write notches) on either side, 
where the read/write head contacts the 
disk surface. The write-protect notch is 
analogous to the break-off tabs on cas- 
settes; if a disk's write-protect notch is 
covered with an adhesive tab, data can- 



SECTOR HOLE IN DISK 



FLOPPY DISK 
(SEALED INSIDE 
JACKET) 




SELECTOR HOLE 
(ON 80TH SIDES 
OF JACKET) 



Fig. 1. A floppy disk. The actual disk is encased in a protective jacket 
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not be written to that disk. 

The sector holes in the jacket and the 
disk communicates to the system the 
positioning of the disk, and enable the 
automatic location and access of the 
data. We will go into more detail about 
this process later. 

There are various types of disks 
available. The following requirements 
are for those TRS-80 systems with all 
Radio Shack hardware and software. 
If your system includes any non-Radio 
Shack components, you may have to 
use a different type of disk. 

The most obvious criterion is disk 
size. TRS-80s use 5!4-inch disks, ex- 
cept for the Model II which requires 
8-inch disks. 

Disks are certified as single or 
double-sided. Although both sides of 
the disk have a magnetic coating, 
sometimes only one side's coating is 
reliably applied and satisfactory for 
data storage. Most disks, whether 
single or double sided, have read/write 
notches on both sides, which means 
that it's possible to read/write data on 
a "bad" side (usually leading to vari- 
ous I/O errors). All TRS-80s use only 
one side of the disk. Double-sided 
disks work fine with no system mod- 
ifications. However, you pay for a cer- 
tified second side that the TRS-80 
(unless modified) can't use. 

Another specification is single ver- 
sus double density. Certain systems 
have the capability of packing a larger 
amount of data in a given physical area 
on the disk. Because of this high data 
density, the magnetic coating must be 
more uniform and reliable to avoid 
loss of data. Except for the Model I, all 
TRS-80s require double-density media. 
(Although the Model I was set up for 
single-density disk I/O, double-density 



disks can be used with no system modi- 
fications. In fact, the double-density is 
probably worth the extra money for its 
higher reliability. Radio Shack, by the 
way, sells only double-density media 
for the Model I and other TRS-80s). 

Disks are also offered in soft and 
hard-sectored varieties. The difference 
is the number of sector holes in the disk 
{not the jacket — see Fig. 1). Soft- 
sectored disks have one hole; hard- 
sectored disks have a continuous ring 
of holes around the large hub hole (but 
hidden under the jacket). All TRS-80s 
require soft-sectored media, and unless 
modified, will not function if hard-sec- 
tored media is used. 

Be suspicious of media priced far be- 
low the average going rate. El Cheapo 
disks usually have relatively poor coat- 
ings that lead to all sorts of headaches 
with lost or inaccessible data. 

Better disks usually have reinforced 
hub holes; you can see the double- 
thickness edge of the exposed disk at 
the hub opening. The increased thick- 
ness prevents wear or elongation of the 
hub hole, which may result in unre- 
liable disk operation. Kits are also 
available to apply reinforcing rings to 
nonreinforced disks. 

Disks should be handled in a very 
careful manner, owing to the sensitiv- 
ity of the written data. The disks 
should be filed vertically (on edge) in 
their protective envelopes, away from 
heat and sunlight, and not compressed 
against each other excessively. Even 
very minute particles on the media can 
jam between the read/write head and 
the rotating disk surface, and some of 
the magnetic coating can be gouged 
out. These offenders include dust, cig- 
arette ashes, and even the particles in 
cigarette smoke (another good reason 




Fig. 2. A formatted disk. The number of tracks and sectors will vary, depending on the system. Note 
the staggered numbering of the sectors. 
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to give up smoking). Disks should be 
kept away from stray magnetic fields, 
which can be produced by power 
cords, speakers, motors, tv and stereo 
receivers, video monitors, and so on. 
When ready to shut off the com- 
puter, remove all disks from the drives. 
When writing on the disk label, use a 
felt-tipped marker; pencils, ball-point 
pens, and other hard-pointed instru- 
ments can mar the disk surface under 
the jacket. 

Data Here, Data There 

Examining how data is arranged on 
the disk will allow us to define some im- 
portant concepts and buzzwords for 
later use. For now, however, don't 
worry about how the data is accessed, 
or other specifics about the I/O process. 

Figure 2 shows a working TRS-80 
disk with the jacket removed. Data is 
laid out on the disk in ring-shaped, 
concentric tracks. As shown, the read/ 
write head on the drive can move in or 
out along the radius of the disk, posi- 
tioning itself over a desired track. As 
the disk rotates, the head "sees" all the 
data contained on the track. 

In addition, the data on a track is 
organized into a number of sectors, as 
indicated. There is no physical gap be- 
tween the sectors; certain data patterns 
that are part of the system information 
distinguish the various sectors. 

There is an important concept here: 
Each sector contains both system in- 
formation and user data. The latter 
represents the actual data that the user 
is normally concerned with. As you 
would guess, the system information is 
for the benefit of the system itself. It 
performs such housekeeping tasks as 
delineating and identifying sectors, 
verifying the data, and so on. As we 
will see later, the system bytes form a 
skeletal structure on the disk, into 
which the user introduces the data to 
be stored. In general, the system bytes 
are invisible to the user, unless a utility 
such as Trakcess is used to access them. 

The inner tracks and sectors are 
physically much shorter than the outer 
ones, but they both contain the same 
amount of data. If you feed your 
TRS-80 bargain-basement disks, those 
dense inner tracks may give you head- 
aches with lost data due to inconsis- 
tency of the magnetic coating. 

Putting Data in Its Place 

To get some idea of how the data 
and system information work to- 
gether, we'll briefly examine disk for- 
matting. Any blank disk must be for- 
matted before data is placed on it. 



DOS packages include a format utility 
to accomplish this. 

When a disk is formatted, it is first 
tested for flaws by actually writing a 
data pattern onto it, and then reading 
it back and verifying it. If any 
discrepancies are detected, the system 
assumes that a defect in the media was 
the cause (the most likely possibility, 
but hardware bugs can also cause 
similar problems). The system then 
locks out the questionable tracks by 
writing information onto the disk that 
later instructs the system not to write 
data to those tracks. 

Once this is accomplished, the sys- 
tem gets to the heart of the matter. 
First, it establishes track and sector 
boundaries by writing a pattern of sys- 
tem information to the disk. This in- 
formation also identifies each in- 
dividual sector so they can be accessed 
at will later on. 

The next step, a very important one, 
is to establish a directory (usually one 
track long) on the disk. The directory 
contains status information such as the 
location of locked-out tracks, access 
limitations (passwords or other protec- 
tive functions), and so on. Later, as 
data is written to the disk, the directory 
keeps track of where everything is, and 
allows the user (and the system) to find 
it again. 

Depending on the system, other data 
may be written during formatting. In 
the Model I, for example, a bootstrap 
routine (or boot), which is necessary for 
system operation, is put on the disk. 

Notwithstanding some different op- 
tions that may be offered, the basic ac- 
tions during formatting are the same 
for all systems: checking the media and 
then preparing it to accept data. 

The Little Gray Box 

The floppy-disk drive performs the 
same function as the cassette recorder 
in a tape system. It executes commands 
to access existing data or to write new 
data. However, all the disk drive I/O 
functions are automatically controlled 
by the system, as opposed to the man- 
ual button pushing required in cassette 
systems. This is yet another factor con- 
tributing to the power and versatility of 
the floppy-disk system. 

The drive incorporates the following 
subassemblies: 

• A drive motor, with a hub assembly, 
grips the disk at its center hole and 
rotates it at an accurately controlled 
speed. The hub locks onto the disk 
when the drive's access door is closed 

• The read /write head is positioned 
over the read/write notch in the jacket. 



When data is to be accessed, the head is 
moved in and out along the radius of 
the disk by a stepper motor. 

• The write-protect switch checks the 
write-protect notch on the disk. 

• The index/sector LED and detector 
are positioned on either side of the disk 
at the sector holes. As the disk rotates 
and the sector hole lines up with the 
jacket holes, a flash of light falls on the 
detector, which then triggers logic cir- 
cuitry to inform the system about the 
disk's position. 

• Logic circuitry (either control or 
read/write circuits) coordinates all 
drive operations. Most circuits light an 
LED on the drive cabinet when the 
driver motor is running. Do not at- 
tempt to open the access door when the 
activity LED is lit! 

Just as with disks, there are many 
variations of disk drives to choose 
from. Again, the following specifica- 
tions are for unmodified Radio Shack 
TRS-80s. 

Drives are supplied either as bare 
drives (not mounted in a cabinet, and 
usually without power supplies), or 
completely self-contained external 
units (with power supply and cabinet). 
There are also multiple-drive assem- 
blies that incorporate two or more 
drives in one cabinet. The Model I and 
Color Computer each use up to four 
external drives. The Model III has 
space in its enclosure for two bare 
drives to be installed, and can support 
two more external drives. The Model II 
has one internal drive, and can support 
up to three additional drives. (Model 
lis usually have a three-drive expan- 
sion bay for extra drives. The bay is a 
cabinet/power-supply unit with one 
drive installed, and two extra bare 
drives can be installed as needed.) 

Some systems require that one drive 
incorporate terminating resistors, which 
provide a satisfactory electrical match 
in the disk interfacing. Usually, there is 
no difference in price between standard 
and terminal drives. For all TRS-80s 
(except the Model II), one of the exter- 
nal drives is usually a terminal drive. 

On the Color Computer, the first 
drive purchased will be more expensive 
than additional drives. Similarly, on 
the Model III the first internal drive is 
more expensive than the second. In 
both cases, the disk controller circuitry 
is incorporated into the first drive. The 
Color Computer's first drive kit also 
contains a program cartridge contain- 
ing the DOS and a cable for the drives. 

The Model I is a different story; the 
controller is not found in either the com- 
puter or the first drive, but in the expan- 



sion interface, an additional piece of 
hardware needed before any drives are 
hooked up. 

Your drives need track capability to 
match the system's track setup. The 
Model I is set up for 35-track I/O, the 
Model III and Color Computer are 40 
track, and the Model II is 77 track. 

As with disks, the drive must be able 
to handle the appropriate data density. 
Specifically, the read/write head 
should be certified to handle double 
density I/O (except for the Model I, 
which is single density). Most drives 
available today, except for the lowest- 
priced models, are capable of both 
single and double-density I/O. 

You should use double-density- 
capable drives in the Model I with no 
system modification. In this case, you 
would not have to replace the drives if 
you later decide to convert the system 
to double density. 

Tell Me What You Want 

The disk drive by itself is a rather 
stupid piece of sophisticated ma- 
chinery. Its only real capabilities are 
that it can merrily spin a disk at several 
hundred rpm and step its head in and 
out (as well as several reporting func- 
tions, like checking the write-protect 
notch or the sector hole). Obviously, 
some direction from hardware or soft- 
ware is needed to perform worthwhile 
disk I/O. The disk controller circuit is 
an important example. 

The controller circuit usually con- 
sists of little more than a single IC and 
a small handful of support compo- 
nents. However, it tremendously ex- 
pands the repertoire of floppy-disk 
functions and data transfers. For ex- 
ample, the Western Digital FD 1771-01 
controller chip (used in the Model I) 
enables reading/writing of bytes, sec- 
tors or tracks, formatting and en- 
hanced seeking/locating capabilities. 

The controller is functionally invis- 
ible to the user since it acts under com- 
mand of the DOS. Unless you try to de- 
sign your own DOS or a program with 
its own disk I/O routines, you do not 
have to delve too deeply into the con- 
troller operation. For those of you who 
are interested, references include West- 
ern Digital's documentation on the con- 
troller chip and Bill Barden's text on 
disk interfacing (see bibliography). 

DOS Is the Boss 

At this point, we have covered the 
physical components that comprise a 
TRS-80 disk system. However, in this 
raw state it is capable of only rudimen- 
tary disk operations under direct opera- 
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tor command (since the ROM has no 
disk I/O routines as such). In order to 
make this conglomeration of expensive 
hardware sprout wings and fly, we need 
a piece of software known as the disk 
operating system, or DOS for short. 

To quote from the Radio Shack 
TRSDOS manual: 

"An operating system is a master program 
that allows a complex computer system, in- 
cluding various input/output . . . devices, 
storage devices and programs, to interact 
efficiently and with apparent simplicity. 
The operating system makes sure that 
everything that has to be done gets 
done — and you don't even have to know 
what it is that 'has to get done.' " 

As you can see, the DOS software is 
probably the most important part of the 
floppy-disk system. It acts as an exten- 
sion of the ROM, in that it provides rou- 
tines for all the various disk operations. 

Some of you may be wondering, 
"How can a piece of software tie in 
with ROM, which cannot be physically 
modified?" The answer is that many 
of the ROM routines have a detour 
through some portion of accessible 
RAM memory. At certain points in 
these routines, execution "jumps out" 
to a RAM address, where the system or 



operator could place any type of ex- 
ecutable program. 

In the non-disk system, these ad- 
dresses (referred to as DOS links or 
DOS exits) are coded to redirect ex- 
ecution back to the ROM, resulting in 
a brief, unproductive loop out of ROM 
and back again. But we could replace 
that return instruction with a short 
routine that would then be executed, 
and we would have the option of not 
returning to the ROM afterwards. This 
is the basic principle of the DOS ex- 
tension to the ROM. 

In similar fashion, there are sets of 
addresses connected with the exclusive 
command keywords for the disk ver- 
sion of Basic. The Basic interpreter (in 
ROM) detects all Basic command 
words, most of which have associated 
execution code burned into the ROM. 
For the Disk Basic words, however, the 
ROM loops out into RAM for these 
routines. In non-disk systems, these 
addresses cause an immediate return to 
a ROM routine that displays the cryp- 
tic message "L3 Error" (or "Level III 
Error" — the authors of the ROM ap- 
parently referred to Disk Basic as Level 
III Basic). Once again, however, when 
a DOS is present, these keywords be- 
come valid, active commands because 



the calling addresses are redirected to 
executable routines for the disk 
system. 

The exception to this procedure is the 
TRS-80 Model II. This computer has 
essentially no operating code in ROM at 
all, except for a small initialization 
routine. What this does is to immediate- 
ly fetch, from the disk drive, the whole 
operating system contained on the DOS 
disk, load it into memory and begin ex- 
ecution once you turn on the computer. 
The Model II DOS is, therefore, much 
more sophisticated, as it must include 
all of the fundamental routines that 
would otherwise have been in ROM, 
such as the Basic interpreter, keyboard 
and video display routines, and so 
forth. The big advantage is that the user 
is no longer constrained by a strict 
ROM code or a given language inter- 
preter — the door has been opened to the 
use of powerful, esoteric operating 
systems and other high-level computer 
languages (Fortran, Cobol, Pilot, 
CP/M and so on). 

A description of DOS features 
would quickly turn this article into a 
book, so I'll simply recommend that 
you go to the people who wrote the 
book— Radio Shack. Their operating 
manual for the TRSDOS operating 
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system is first rate, extremely thor- 
ough, and (for the most part) under- 
standable even by the rank amateur. 
The manual alone is available, or you 
can buy the entire package including 
the DOS disk. 

TRSDOS itself is fairly simple to 
learn, and many of the competitive 
DOS packages are based on Radio 
Shack's. The other systems generally 
boast correction of bugs (errors) in 
TRSDOS, or special routines that 
TRSDOS doesn't include. At any rate, 
cut your teeth with TRSDOS and get a 
good idea of what the DOS is and does 
before buying one of the new-fangled, 
high-performance systems. 

The market for Model I and III DOS 
packages is loaded with products, and 
if you ask 10 different users about their 
favorite DOS, you are likely to get 10 
different answers. Some of the more 
well known names are Apparat's 
NEWDOS (there are several versions), 
Logical Systems' LDOS (formerly 
VTOS), Micro Systems Software's 
DOSPLUS, Level IV Products' 
ULTRADOS, and Cosmopolitan Elec- 
tronics' MULTIDOS. Newer versions 
of these products are usually double- 
density compatible, which is an im- 
portant factor in Model I and III soft- 



ware interchangeability, and permit 
conversion of Model I systems to dou- 
ble density. 

Before purchasing one of these 
products, find area computerists who 
use these systems and see if you can get 
some hands-on experience with them. 
Try not to buy on verbal recommenda- 
tions alone. Also, steer clear of un- 
authorized copies of a DOS. You can 
never be sure what condition it is in, or 
whether it has been periodically up- 
graded or debugged. Also, you will not 
get the benefit of follow-up support by 
the author; most companies distribute 
upgrades or zaps (recommended cor- 
rections) to registered owners only. 



Furthermore, there is the very real 
problem of software piracy, and the 
deprivation of royalties due to soft- 
ware authors. Granted, the price tags 
on original software often run high, 
but you will get continuing technical 
support from the authors and make it 
financially feasible for them to con- 
tinue that support and turn out new 
material. ■ 
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TUTORIAL 



Binary Breakfast 



by Richard £. Esposito 



All digital computers are based on 
the binary number system; the TRS-80 
is no exception. The binary system is 
based on the number two; the decimal 
system is based on 10. 

Consider 1,458; in base 10, it repre- 
sents 1 x 10 3 + 4x 10 2 + 5xl0' + 8, 
while the number 1011 in base two 
represents Ix2 3 + 0x2 2 +lx- + l. 

In base 10, 10 represents 1 x 10 + 
= 10. Therefore, we need symbols that 
can occupy the right position to repre- 
sent zero through nine. The symbols 
we use are 0, 1, 2, 3,4, 5,6, 7, 8, and 9. 

In base two, 10 represents 1x2 + 
= 2, so in base two arithmetic, we need 
digits representing only zero and one. 
It is useful to count in both bases (see 
Table 1). 

One of the niceties of dealing with 
base-two numbers is there are only 
four addition facts: 

l + l = 10 

l + - l 

+ 1=1 

+ 0=0 

Addition in base two is carried out in 
much the same way as addition in base 
10. To add 10101 to 11011: 

(i) 0) (1) (1) 

110 11 
10 10 1 



11 

(d) - digits carried 



Now you can understand 
the language of your 
Model I, m, or Color 
Computer — it's simple. 



The multiplication facts are: 

1x1 = 1 
1x0 = 
0x1=0 
0x0 = 

To multiply 101 by 111: 



56 




first remainder 



x 



1 1 1 

1 1 



1 1 1 
000 

1 1 1 

10 00 11 



An integer word in the TRS-80 con- 
sists of two 8-bit integer bytes, a word 
being the unit of memory used to store 
a number. 

Let's calculate the binary equivalent 
of 56. To do this, we use what is com- 
monly known as the Chinese remain- 
der theorem. The process is simple: 
Divide 56 by two; divide the quotient 
by two; repeat the process until a quo- 
tient of zero is obtained. For example: 

28 
2/56 



Base 


10 


1 


2 


3 


4 5 6 


7 


8 


9 


10 


Base 


2 


1 


10 


11 


100 101 110 
Table 1 


111 


1000 


1001 


1010 



14 
2/28 
28 
second remainder 



_7 

2/14 

]4 





_0 

2/ 1 

_0 

1 



third remainder 



_3 
2/ 7 
_6 
1 fourth remainder 



_1 

2/ 3 

_2 

1 



fifth remainder 



sixth remainder 



Since the sixth quotient is zero, we can 
terminate our division process. 

The next step is to assemble our bi- 
nary number. This is done by writing 
our remainders in the opposite order of 
their calculation. That is, starting from 
the left using 56 as the example: re- 
mainder six, remainder five, remainder 
four and so on, yielding 1 1 10 0, 
which is the binary equivalent of 56. 

You can double check by doing this: 
1 x 2 5 + 1 x 2 4 + 1 x 2 3 + x 2 2 + 
x 2 + = 56. 

The TRS-80 uses a 16-bit word for 
integers, so we will add enough zeros 
on the left to give us a 16-bit number. 
This yields: 

00000000001 1 1000 

Now that we have the binary equiv- 
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jn\ffi>f;monutm 



By Norman J. Wazaney Jr. 




At last... a computer word game that 
entertains, challenges, educates! 
Pandemonium is thoroughly fascinat- 
ing, stimulating, and highly addictive. 
Features include a built-in 6000 word 
dictionary, scoring display and a 
player selectable clock. 
Play it alone! Play it with your kids! 
Play it at a party! 
The word is out. . . Pandemonium is in. 



Available now for only $39.95 at 
computer stores. 



To order by phone, call 800-526-9042 
and use your Visa or MasterCard. All 
shipments made the same day in 
which orders are received. To order 
by mail, add $1 for shipping charges 
and send your check to: 



DM90N <* DK3SON SYSIIMS INC' 



2O0 Route 17, Mahwah, NJ 07430. 



TRS-80 MOD l/lll 48K TRS-D0S 

TRS-80'" Radio Shack/Tandy Corp. 



OUK SOFTWVRE IS UNPROTECTED PERMITTING CONVENIENT BACKUP. 





alent of 56, how does this relate to the 
statement: 10 X% = 56? If you follow 
this statement with: 20 PRINT VAR 
PTR (X%), the computer will print 
the address of the first byte of the 
variable X%. 

If you add the statements 

30 PRINT PEEK (VARPTR (X%)) 

40 PRINT PEEK (VARPTR (X%) + 1) 

you will get the results 56 and zero 
from the two locations. How does this 
compare with our computed binary 
number? Well, a 16-bit number must 
be broken into two 8-bit bytes. Doing 
this with 56 gives us and 
1 1 1 0. The byte on the left is 
called the high-order byte and the byte 
on the right is called the low-order 
byte. 

The TRS-80 stores the high-order 
byte in the second byte of the word and 
the low-order byte in the first. If you 
convert the binary numbers from each 
of these bytes to base 10, you will come 
up with zero and 56, the same values 
that were PEEKed from memory. 

If you understand everything up to 
this point, you should be able to ex- 
plain why the following program yields 
the result of 32767: 



10 X°Io = -1 

20 POKE VARPTR (X%), 255 

30 POKE VARPTR (X%) + 1, 127 

40 PRINT X°/o 

50 STOP 

60 END 

What about negatives? 

If you read the Level II Basic Refer- 
ence Manual, you will notice an integer 
variable may only be as large as 32767. 
If it were not for negatives, a 16-bit 
number could go as high as 65535. 

The TRS-80 uses a scheme known as 
two's complement to represent nega- 
tive integer numbers. What this scheme 
does is use half the possible 65536 
values to represent positive numbers 
and the other half for negatives. 

So how do we get - 56? Recall that 
56 was equal to 00000000001 1 1000. To 
compute - 56, first calculate the one's 
complement by switching all ones to 
zeros and all zeros to ones. This gives 
us 1 1 1 1 1 1 1 1 1 1000 1 1 1. To the 
one's complement add one to come up 
with the two's complement. In the case 
of -56, this yields: 

1111111111000111 

+ 1 

1111111111001 000 



digit for our result, it would have been 
discarded. Now as before with 56, we 
split the result into two bytes, this time 
resulting in 1 1 1 1 1 1 1 1 and 1 1 00 1 
0. Converting these bytes to base 10 
results in 255 and 200. 

You are now equipped to explain 
why this program yields - 56: 

10 x% = -l 

20 POKE VARPTR (X%), 200 
30 POKE VARPTR (X%) + 1, 255 
40 PRINT X°/o 
50 STOP 
60 END 

Floating Points 

How does the TRS-80 handle float- 
ing-point numbers? To answer that 
question we must analyze the binary 
number system still further. In binary: 

0.1 = 1/2 

0.01 = 1/4 

0.001 = 1/8 

0.0001 = 1/16... 

To convert fractions to binary we 
multiply the decimal fraction by two. 
If the result is greater than zero, write 
down the number or else write down a 
zero. 



If this addition had resulted in a 17th Continue multiplying only the frac- 






AT LAST!!! A Micro-Design 
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tional part of the product until you 
have accumulated the proper number 
of bits. In the case of 56.1625, 56 gave 
us six bits but a single-precision vari- 
able in Level II Basic requires 24 bits in 
addition to the exponent, so we pro- 
ceed as follows: 

.1625 

x2 



Bit 1 


0.325 




X2 


Bit 2 


0.65 




X2 


Bit 3 


1.3 




x2 


Bit 4 


0.6 




x2 


Bit 5 


1.2 




x2 


Bit 6 


0.4 




X2 


Bit 7 


0.8 




x2 


Bit 8 


1.6 




X2 


Bit 9 


1.2 




x2 


Bit 10 


0.4 




x2 



Bit 11 


(X8 
x2 


Bit 12 


1.6 




X2 


Bit 13 


1.2 




x2 


Bit 14 


0.4 




X2 


Bit 15 


0.8 




X2 


Bit 16 


1.6 




x2 


Bit 17 


1.2 




x2 


Bit 18 


0.4 



We now have 18 additional bits in 
56.1625 = 111000.001010011001100 
1 10. Now we normalize the number by 
moving the binary point (binary point 
is to the binary system as decimal point 
is to the decimal system) to the leftmost 
position and put the number into scien- 
tific notation. The result is a binary 
point, followed by a one, followed by 
additional bits. If the original number 
were a fraction, the binary point would 
be adjusted to the right to achieve this 
status. (You may also have to calculate 
more bits to achieve the required preci- 



sion: 24 bits to the right of the binary 
point.) This yields 56.1625 = .11100 
0001010011001100110X2 6 . Now 
break the number into bytes as we did 
with the integer variable. This yields: 
most significant byte = 11 100000; next 
most significant byte = 101001 10; and 
least significant byte = 01100110. 

Now take the power of two and add 
it to 128. In this case, we get 134. For a 
positive value, change the leftmost bit 
of the most significant byte (the byte 
closest to the binary point) from a one 
to a zero. For a negative value, omit 
this step. This is the system adopted by 
Microsoft for representations of posi- 
tive floating-point numbers. It is by no 
means universal. In the case of 
56.1625, we have 01 100000. 

Next convert your three significant 
bytes to base 10. We now have 96, 166 
and 102. The number 56.1625 would 
be stored in the TRS-80 using four con- 
secutive bytes: 

Byte 1 (least significant byte) = 102 
Byte 2 (next most significant byte) = 166 
Byte 3 (most significant byte) = 96 
Byte 4 (exponent) = 134 

If the following program is run on the 
TRS-80, the printout would yield 




$ H0RSERACING $ 




The . If LC ° SYSTEM - developed by Dr. A.S. Kelsey, Professor of Mathematics, and Mike Cox, an expert in horse race handicapping has been 
available separately for Thoroughbred and Harness racing since the late 1960's and has increased in popularity as the technical presentation of 
it has improved. 

The in depth analysis of 10,000 races for each of Thoroughbred and Harness racing was conducted to determine which measurable variables 
were most predictive and which of the intangibles could be organized into a workable form 

CANNELLA SALES CORP. NOW INTRODUCES TWO KEL- CO SOFTWARE PACKAGES FOR ANALYSING 

THOROUGHBRED AND HARNESS HORSES! 
THE PROGRAMS 

Because of Computer technology, a novice need only learn how to interpret the racing papers (clear instructions included) to operate these 
programs. You'll enjoy becoming a Railbird! 



TROT PROGRAM (RS-6): Horses' ratings are derived through the 
mathematical links among Speed, Finishes, Post Positions and Track 
Lengths. Adjustments are then made for Current Form, Class 
Changes, Driver Changes etc. This method can be used at any 
Harness racetrack for which normal past performance data is avail- 
able. 



THOROUGHBRED PROGRAM (RS-5): Horses' ratings reflect 
True Class levels. The Program takes into account the levels of 
racing at all North American racetracks so that ratings always 
remain consistent; Fitness of the horse is also a major element 
brought out in the analysis. Ratings may then be adjusted in 
consideration of factors like Distance, Weight, Surface etc. 

INPUT/OUTPUT — The Programs operate on the basis of prompts where the user responds with material from the racing papers, and in some 
cases personal judgement. 

Results may be produced one horse at a time or for complete races; horses are rated, ranked and qualified on a list (screen copy or hard copy). 
Wagering guidelines for Straight-Win, Place, Show and Combination Bets, eg. Daily Doubles, Exactas - are given in the Programs. These rules 
are applied in accordance with the horses' ratings and qualifications. 

IMMEDIATE DELIVERY ON CASH AND CREDIT CARD ORDERS - Send Money Orders; Personal Cheques (must clear before delivery); 
VISA, MasterCard, (American Express-USA only) - send Acct. No., Expiry Date 
TELEPHONE CREDIT CARD ORDERS! 



IN USA: $200. Each Program 

CANNELLA SALES CORP. 

420 E. Genesee St. 

Syracuse, New York 13202 

1-800-448-5713 

(NY State 315-476-1430) 

NY Residents add sales tax. 



STUDY 

A formal Study using the Thoroughbred 
System in New York, New Jersey and Canada 
showed a profit of 24% over 372 potential 
races. Copies of the Study may be obtained 
for $1.00 each from either our U.S. or 
Canadian office. Call Now and Order 
These Two Programs. 



IN CANADA: $225. Cdn. Each Program 

EQUINE MANAGEMENT & INNOVATIONS 

P.O. Box 2214, Station D 

Ottawa, Ontario K 1 P 5W4 

Toronto 281-3568 

Ottawa 523-4202 

Vancouver 228-9091 



Specifications: TRS-80^ I & III, 48K; Apple II \{™) with DOS 3.3, 48K; enquire about others! ^ 177 



^See List ol Advertisers on Page 563 
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56.1625: 

10 X= -1 

20V = VARPTR(X) 
30 POKE V, 102 
40 POKE V + 1,166 
50 POKE V + 2,96 
60 POKE V + 3,134 
70 PRINT X 
80 STOP 
90 END 

For TRS-80 double precision, the 
process is similar, except you need 56 
bits to the right of the binary point in 
the normalized number. 

In the case of 56.1625: 56.1625 = 
1 1 1000.00101001 1001 1001 1001 1001 10 
011001100110011001100110. After 
changing to scientific notation, we 
have: .1110000010100110011001100 
1 1001 1001 1001 1001 1001 1001 1001 10 
x 2 6 . The bytes going from most 
significant to least significant and con- 
verting to base 10 are: 

01 100000 = 96 (the left bit was stripped as 

before.) 

10100110 = 166 

01100110 = 102 

01100110 = 102 

01100110 = 102 

01100110 = 102 

01100110 = 102 

and, as before, the exponent is 128 + 
6=134. 

The number is stored in very much 
the same way as in single precision ex- 
cept it uses 8 bytes. If we run the fol- 
lowing program, the result would be 
56.1625: 

10 X# = -1 

20 V = VARPTR (X#) 

30 POKE V, 102 

40 POKE V + 1,102 

50 POKE V + 2, 102 

60 POKE V + 3, 102 

70 POKE V + 4, 102 

80 POKE V + 5, 166 

90 POKE V + 6,96 
100 POKE V + 7,134 
110 PRINT X# 
120 STOP 
130 END 

For the TRS-80 Color Computer, 
let's again consider the number 
56.1625. The Color Computer only 
has one type of variable, which is a 
five-byte, floating-point number. 

As before, convert 56.1625 to bi- 
nary, this time to 32 bits: 56.1625 = 
111000.00101001100110011001100110. 
After changing to scientific notation 
we have: .111000001010011001100 
11001100110 x 2\ Break into bytes 
and convert to base 10: 
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01 100000 = 96 (the left byte was stripped as 

before) 
10100110 = 166 
01100110 = 102 
01100110 = 102 

and as before, the exponent is 128 + 6 
= 134. 

Unlike before, the numbers are 
stored in the reverse order of those in 
the Models I and II. This order is used 
in most computers. The real oddball in 
this case is the Z80. The TRS-80 uses 
Motorola's 6809 chip. 

As before, if we run the following 
program, 56.1625 will be our result: 

10 x = -l 

20 V = VARPTR (X) 
30 POKE V, 134 
40 POKE V + 1,96 
50 POKE V + 2,166 
60 POKE V + 3, 102 
70 POKE V+ 4, 102 
80 PRINT X 
90 STOP 
100 END 

The following program written in 
TRS-80 Basic divides an input number 
by two by changing the value of the ex- 
ponent of the stored floating-point 
number: 



10 input x 

20 V = VARPTR (X) 

30 E = PEEK(V + 3) 

40 E = E - 1 

50 POKE V + 3,E 

60 PRINT X 

70 STOP 

80 END 

The corresponding program for the 
Color Computer follows: 



10 INPUT x 

20 V = VARPTR (X) 

30 E = PEEK (V) 

40E = E-l 

50 POKE V,E 

60 PRINT X 

70 STOP 

80 END 

Now consider this problem raised by 
Michael Binkhurst ("80 Aid," 80 Mi- 
cro, February 1981): "When the fol- 
lowing program is run, why is the result 
.0100002 instead of the expected .01?" 

120 A = 20.01 :B = 20:PRINT A-B 

To see why, convert both numbers 
to binary as the TRS-80 does. 



20 = 10100 
.01 = .0000001010001111010 

(19 places are required in this problem) 

In scientific notation: 

20.01 = .101000000001010001111010 x 2 s 
20 = .101000000000000000000000 x 2 5 

If we subtract the two, we obtain: 

7 

.01 = .000000000001010001111010 x V 

This result must now be normalized re- 
sulting in: 

? 
.01 = .1010001111010 00000000000 x 2~ 6 

(the underlined zeros were added to retain 24 
bits of accuracy) 

Converting our result back to base 10 
yields: (1/2 + 1/8 + 1/128 + 1/256 
+ 1/512 + 1/1024 + 1/4096) x 2" 6 = 
.0100002 

The error introduced into this calcu- 
lation plagues computers that use 
scientific notation. One way to avoid 
this problem is to use the binary-coded 
decimal arithmetic scheme where each 
decimal digit is represented by four bits 
and the computer then calculates in 
much the same manner as one would 
using pencil and paper. This technique 
is fine for business problems, but it 
uses more memory and is slower. 

In the world of big computers, both 
systems are used: Fortran (with float- 
ing-point arithmetic) for scientific 
problems and Cobol (with binary- 
coded decimal arithmetic) for business 
problems. 

Some possible solutions to this 
problem include: 

• Use double precision. It will not 
eliminate the error completely, but it 
will be made smaller. 

• Get a computer that uses BCD 
arithmetic. An example of one is the 
APF Imagination Machine. 

• Use the technique called "fuzzing." 
If a number is within a certain toler- 
ance of a base- 10 number, print that 
base-10 number. This scheme is used 
in APL. In APL, the "fuzz" is ad- 
justable. ■ 



Richard Esposito can be reached at 
62 Meadow Road, Frost burg, MD 
21532. 
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Free Personal Computer 
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1 year warranty 
Hub ring installed 
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No minimum order quantity 
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Plus 2 Free BONUS DISKS/Box* 
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TUTORIAL 



Nine Programming Tricks 



by David D. Busch 



T 



ry these shortcuts for faster Basic program- 
ming — easier backups, macro commands, renum- 
berings, cross references, and block moves. 



Many programmers do not use all the 
tools available to them as they write 
their code. When a programmer lets 
his machines handle as much of the 
drudgery as possible, he can then 
devote a full effort to the creative 
aspects of programming. 

Leading software suppliers have 
helped by offering utilities, disk 
operating systems with enhanced Disk 
Basics, and other tools to make pro- 
gramming easier. Even so, while the 
documentation for these time-savers is 
usually adequate, it lacks real-life ex- 
amples on how to use them to optimize 
your programming productivity. I will 
present nine shortcuts that make my 
programming easier. 

Easier Backups 

As you develop a program, it is good 
practice to periodically save the work 
in progress either to cassette or disk. 
Thus, should a power failure occur, 
hours of work are not lost. With a 
disk-based system, making backups is 
easy — so simple that when I end a ses- 
sion and look at the working disk's 
directory, I see 10 or more versions of 
my program tucked away (PRO- 
GRAM/VI, PROGRAM/V2 and so 
on). This system works well, but when 
saving, I can never remember what I 
called the last version. I must either in- 
voke a CMD"DIR" to check, or play 
it safe and skip a number or two. 

Here is a short program disk users 
can append onto the end of any pro- 
gram they are working on and use to 
automatically save an updated version 
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of a program under an appropriate file 
name. To use it, remember to turn on 
your clock. Then, by typing GOTO 
30000 at any point during program 
development, the module will collect 
the current TIMES, extract the hour 
and minutes, and use that to make the 
file name. 

30000 B$ = TIMES: H$ =MIDS(B$, 10,2) 
30010 M$ - MID$(B$, 13,2) 
30020 F$ = "PROG" + H$ + M$ 
30030 SAVE F$ 

Save this in ASCII form on your 
disk, and then append or merge it to 
any program you choose (which does 
not have line numbers that conflict). 
You may want to edit line 30020, 
replacing the string "PROG" with any 
four letters that are more meaningful 
for the program you are developing. If 
you want to back up the program to 
two (or more) disk drives automati- 
cally, add the following lines: 

30025 Fl$ = F$ + ":1 ":F2$ = F$ + ":2" 
30035 SAVE F1$:SAVE F2$ 

This automatic save feature provides 
you with valuable added security. 

Macro Commands 

Computer users who have an op- 
erating system or utility (such as IRV) 
that provides a keystroke multiplier or 
defined key functions can speed up 
their program development even more. 
You can store the short program above 
in one of IRV's defined keys and in- 



voke it by hitting one or two keys. 
Other frequently used commands, 
such as CMD"DIR :1" or RENUM 
10,10, can also be applied to user -pro- 
grammable keys. 

Though programmers most fre- 
quently use such utilities to speed the 
entry of keywords (I instead of Input), 
you can define and reuse longer, 
more complex strings. How often 
have you typed the following: 

A$ = INKEY$:IF A$ = "" GOTO 

OPEN "0",1,F$ 

HIT ANY KEY TO CONTINUE 

CLS:PRINT:PRINT 

Defining these will save you many 
more keystrokes than simply bypassing 
Input with I. Try it. 

Moving Blocks of Code 

Renumbering programs is a basic 
programming tool. Even if you code 
with line numbers in increments of 50, 
some day you will have to fit a line be- 
tween line 350 and line 349. Renumber- 
ing utilities such as NEWDOS80 2.0's 
RENUM make this problem trivial. 
Almost as quickly as you can type 
RENUM 10, 10, (or RENUM , ) the en- 
tire program will be renumbered with 
plenty of room to add new lines. 

But wait a minute! While writing the 
code, don't you keep many line num- 
bers in your head? It is handy not to 
have to search for your main menu 
routine and just type GOTO 200 at the 
end of each module. If you renumber 
frequently, a module that was at line 
200 might have been moved back to 
line 1 80, or ahead to line 220. You were 
careful to put the subroutines at lines 
2000, 3000, 4000 and 5000 so you could 
find them. Now they have been renum- 
bered to lines 1340, 1350, 1360 and 
1370. NEWDOS80 2.0's RENUM can 
be very flexible. Try these formats, all 
carefully explained in the document- 



ation, but not often used. If necessary, 
write them on a sticker and place it on 
your computer for reference. These 
formats save time: RENUM first line, 
increment, first line renumbered, last 
line renumbered. 

In this example, first line should be 
the beginning line number for the 
renumbered section. Increment should 
be the amount of space desired be- 
tween lines, while the last two entries 
are the first line to be renumbered and 
the last to be renumbered. This format 
allows you to renumber only part of a 
program, without interfering with the 
rest of the code. 

Suppose you are running out of 
space between lines 300 and 400, but 
have no additional program lines writ- 
ten between lines 400 and 500. You can 
expand the code-filling lines 300-400 
to include all numbers between lines 
300 and 500. 

RENUM 300,10,300,500 accom- 
plishes this. You can use two commas 
to replace the 10, a default value, so 
that RENUM 300„300,500 accom- 
plishes the same thing. All program 
lines beginning at line 300 and ending 
at line 500 will be renumbered with an 
increment of 10. The first line will be 
assigned 300, the second 310, and so 



forth. The highest -numbered line of 
the old module, line 400, will now have 
a higher number past 400, possibly as 
high as 500. The other lines will be sep- 
arated by 10 lines in the code. The rest 
of your program remains unchanged. 

Have you written a title block, 
remarks, or some other piece of code at 
the beginning of a program that you do 
not want to renumber? In this case, 
you want to renumber the program 
from line X onward. Use this format: 
RENUM first line number, increment, 
first line to be renumbered. 

If I wanted to renumber all program 
lines from 10 onward with an incre- 
ment of 5 and use line 25 as the first 
line number for that module, I would 
enter RENUM 25,5,10. 

Because there is no fourth entry (last 
line number), the utility renumbers all 
remaining lines in the program. 

How about moving blocks of pro- 
gram lines? NEWDOS80 2.0 has a 
quick and dirty DI and DU command 
that moves single lines fast (or dup- 
licates them in a new location). Un- 
fortunately, this feature does not 
change any GOTOs that might be af- 
fected by the change. If your program 
contains a branch to a line that was 
moved, you must find the line and 



make the correct change. This is not 
difficult (using REF, discussed later), 
but is an additional opportunity for 
bugs to creep in. 

However, RENUM can be a better 
way of moving whole blocks of code, 
because all GOTOs and GOSUBs are 
updated to take into account the 
change. Although the syntax is iden- 
tical, I have phrased it slightly dif- 
ferently in the following example to 
make it clearer exactly what is taking 
place: RENUM new location, incre- 
ment, first line moved, last line moved. 

This format takes a section of code 
and renumbers it (if necessary) while 
dropping it neatly into a new location. 
As an example, assume we want to 
move all lines between line 300 and line 
400 to a space between line 1000 and 
line 2000. 1 will use a line number incre- 
ment of 10. Type RENUM 1000,10, 
300,400. 

That's all there is to it. Once you are 
comfortable moving blocks of code 
around, you might want to try one 
other trick: Save modules that are fre- 
quently used in ASCII form on your 
disk. These may be disk I/O routines, 
menus, title blocks and so forth. Then 
merge or append them with the pro- 
gram under development, and move 



Ability: 
Library Commands 

1 . All of TRS-DOS comman 

2. Lower case options 

3. Varible track suppo. 
(35-80) 

4. Plus many more . . . 

Utility Command 

1 . All of TRS-DOS commands 

2. Purge all files not needed ' 

3. Terminal control as to 
communication with 
another terminal 

4. Plus many more . 

Languages 

1 . Extended basic 

2. Edtasem - Editor Assembly 

3. Plus many more 

Write or call us now for the best 

investment of your life. 

POS MODEL I. II. and III .$85.00 






^*3 



^Al 




THE GREATEST OPERATING SYSTEM 
UNDER THE SUN 

All application program provide introductory 
discount - 20% off. 



POS i§ truly the operating 
system that has the other DOS 
beat in price and ability. 

/ Other available Software for 
MOD I, II, and III 

1. A R Osborne $350. 

2. A P Osborne $350. 

3. GL Osborne $350. 

4. PR Osborne $400. 

5. ACT I - A R. A P, 

G L $850. 

6. ACT II - A R. A P. 

G/L. PR 1200. 

7. Inventory Control I . $150. 

8. Inventory Control II . $250. 

9. F'M (creates 
programs) $80. 

10. Wordit (mailing list and 
word processing) . $150. 

1 1 . Letterit (word 
processor) $35. 

12. Sort $45. 

1 3. And much more .... Call 



As an introductory oiler you can try POS 'or 10 days lor only $25 00 II your nol 
satisfied, return the Diskette and manual lor a refund, or send S60 00 tor the Master 
Diskette which can be backed up 

10 day inai Diskette w'manuai S25 

Master POS S60 

Or |ust pay S85 



USAGE SOFTWARE GROUP 

SOFTWARE wiih SUPPORT 
1008 Shadow Run Drive 
Lakeland. FL 33803 ^509 

(813)-644-2038 



• See List of Advertisers on Page 563 
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them as you see fit. All the internal 
GOTOs and GOSUBs within the mod- 
ules will be renumbered to match the 
new location. You merely need to add 
references to transfer control to and 
from your transplanted subroutines. 

RENUM has one other useful pro- 
gramming feature. You may type 
RENUM U, and the utility will not ac- 
tually do any renumbering. Instead, it 
will search through your program and 
find any undefined line numbers and 
other errors that would abort a 
renumber. In this way, you may find 
and delete redundant blocks of code or 
errors. 

Cross-Reference Utilities 

A number of sources have cross- 
reference utility programs that search 
your Basic code or find all occurrences 
of a variable, line number, or text 
strings. These can be useful debugging 
tools. Are you interested in finding 
out why a variable changes value 
when it is not supposed to? Check out 
all uses of that variable. You may find 
A$ was used in an INKEY$ line within 
a module that also includes a LINE- 
INPUT A$ statement. 

Long-time NEWDOS80 1.0 and 2.0 
users are not aware of all the things 



REF can do. Most know that typing 
REF A produces a listing of all uses of 
A as a variable, either string, integer, 
array, double precision or single preci- 
sion. But then they laboriously type 
LIST 10, LIST 300, LIST 1000, and so 
forth to check each use. 

This is unnecessary! After invoking 
the REF variable, simply type REF 
with no argument. The utility will list 
the first line where the variable is used. 
You may edit that line or ignore it as 
you prefer. Type REF again and the 
next text line with that variable will be 
shown. Text End appears when all 
have been displayed. This is simple, 
but often overlooked. 

REF will also search for character 
sequences, such as PRINT, HIT ANY 
KEY, and so forth, up to 16 charac- 
ters. By prefacing the string with a 
quotation mark (REF"text string) the 
program will search strings and com- 
ments for the desired characters. This 
is a fast way to find a certain block of 
code, or to change all Prints to 
LPRINTs or do some other work. 

These nine programming tricks 
should be useful to anyone doing more 
than casual programming. After all, 
the computer should be doing as much 
of the work as possible. ■ 



ST TOUT 3 

A vastly improved version of the 
original TOUT horse race handicapper 
Now. thousands ol races are simu- 
lated in seconds to give you each 
horse's probability ol winning and 
identity overlays Horses are 
screened using tactors derived Irom 
an operations research study This 
handicapper outpertorms programs 
and calculators selling lor much more 

Only $19.0° 



SOFTWARE you can BET om 

CFsTUDJ 

A live card stud program so realistic 
you'll swear you're lacing six professionals 
You decide who's bluffing and who has 
the cards Your opponents learn 
your style and that of the others and 
modify their Betting strategies as 
the game proceeds You can define the 
players' characteristics to match those 
ol your Friday night poker cluo 0' lei your 
computer define them randomly 

Only $15.00 



& & DRAWS 



This is the poker playing program thai s 
gefting the rave reviews 

"Alter a while each ol the simulated player:, 
lakes on ils own individual peisonatily - 
ils most uncanny DRAW5 has detmitety 
sharpened my playing skills ' (Lloyd 
Marlin. 80 Microcomputing. Jan 1982) 
"// you like playing poker. Buy this program 
it will De a long time betore a better one 
comes along " (Richard Clope Computet 
Shopper. Jan 19821 

Only $20.00 



TRADE IN your old advertised handicapping and poker- 
playing programs and receive a $6 00 credit, include original 
cassette/disk and documentation with your order 

WILSON " 192 

Software Division • 539 Springhouse Lane • Camp Hill, PA 17011 



All programs on cassette lor Level II 16K (Models I and III) 
Loading guaranteed Add $3.50 to get one or more programs on 
a formatted diskette Pa residents add 6% sales tax. 



TRS-80 is a Tandy Corporation trademark. 



Model I /III & 11 Model-ll CP/M VISA/MC Orders 800-253-4358 

FINDISK-III Newly enhanced automatic disk indexing Model-I/III $20.00 . Model-II $30.00 

New versions for MODEL-I/III TRSDOS (SD/DD). NEWDOS/80 2.0. plus MODEL-II TRSDOS or CP/M. Aulo- 
maticly INDEX 1200 files. Alphabetized disk LABELS marked DATA or SYSTEM. New fast SEARCH and SORT of 
index by disk or file. File DESCRIPTIONS. PURGE disks and easy UPDATE, (specify Model and DOS). 

RIA III Real Estate Investment Analysis Model-I/III $30.00 . . . Model-II $45.00 

New ACRS depreciation New multiple MORTGAGES. INPUT cost, income, expenses, loan and tax data. OUTPUT 

cap rate, payments, cash flow or SALE, after tax Return on Investment or Internal Return for any 9 years. Screen or 

printed reports Also home/condo analysis. 

DEPRECIATE-II New ACRS depreciation manager . Model-I/III $35.00 . . . Model-II $50.00 

Track 190-260 depreciable items or more for each client. Old and new ACRS rates. Inv credit. Print IRS deprec form. 

Fiscal or calendar year. In use by many CPAs 

STRUCT-I Graphic design of steel/wood beams . . . Model-I/III $30.00 . . . Model-II $45.00 

INPUT: Span, cantilever, uniform or point loads, beam material. OUTPUT. Screen and printed reports with beam 

moment and shear diagrams, stresses, beam sizes. Moments of odd shapes 

SOLAR-I Passive Solar design tool w/graphics Model-I/III $30.00 . . . Model-II $45.00 

INPUT, any latitude, slope, orientation, overhang, storage, building loss, glass type. OUTPUT: solar angles shading, 
heat gain/ loss percent solar fuel use. Print report by hour, month. New graphic analysis! 

Formats: Model-I/ 111 disk. Model-HDD or CP/M SD. Add SI. 50 shipping (4% tax in Mich) 



DOCUMAN SOFTWARE 

BOX 387-A KALAMAZOO. Ml 49005 (616) 344-0805 
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Percom Disk Storage 

Quality Percom products are available from the 
following authorized Percom retailers. If a retailer 
is not listed for your area, call Percom toll free at 
1-800-527-1222 for the address of a nearby 
retailer, or to order directly from Percom. 

ARKANSAS 

MICROCOMPUTER SYSTEMS. INC. Hot Springs (501 ) 623-5209 

ARIZONA 
SIMUTEK Tucson (602) 323-9391 

CALIFORNIA 
ALPHA BYTE STORES Calabasas (213)883-8594 

BERKELEY MICRO COMPUTERS Berkeley (415)848 7122 

COMPUTER INFORMATION EXCHANGE 

San Luis Rey (714)757-4849 

HOBBYWORLD Northridge (213) 886-9200 

RAY'S AND DON'S COMPUTERS Whittier (213)695-3248 

DISTRICT OF COLUMBIA 
THE PROGRAM STORE Washington (202) 363-9797 

FLORIDA 
EN-TRON, INC. Largo (813)586-5012 

HAWAII 
COMPUTER CENTER Honolulu (808)488-2171 

IDAHO 
OFFICE MAGIC COMPUTERS Boise (208) 376-4613 

IDAHO MICROCOMPUTER Buhl (208) 543-6292 

KANSAS 
BESCO ELECTRONICS Shawnee (913) 268-7633 

SALES DATA Hutchinson (800) 835-007] 

DATA SERVICES, INC. Wichita (316)838-9021 

MASSACHUSETTS 
THE BIT BUCKET West Newton (617)964-3080 

MARYLAND 
DAMASCUSC.B. Damascus (301)253-2101 

MICHIGAN 
ALTERNATE SOURCE Lansing (517)482-8270 

MINNESOTA 
THE CODE ROOM Eden Prairie (612)934-1826 

MISSOURI 
LF.MBERGF.R CO. Vienna (314) 422-3353 

NEBRASKA 
CURTRONICS Lincoln (402)423-7771 

NEW HAMPSHIRE 
THINK TANK Portsmouth (603)431-1077 

TSE HARDS1DE Milfotd (603) 673-5144 

NEW JERSEY 
CHANNEL 1 RADIO SHACK Medford (609) 654-7454 

DA & D SALES Bloomfield (201 ) 751-8444 

NEW YORK 
H & E COMPUTRONICS Spring Valley (914) 425-1535 

PROGRAMS UNLIMITED Jericho (800) 645-6038 

STONY CLOVE New York City (212)675-1046 

DATASCAN COMPUTER SYSTEMS. INC. 

Farmingville (516) 698-6285 

NORTH CAROLINA 
HOLLIDAY MFG. Greensboro (919) 274 6346 

OHIO 
FF.LDMAN ENTERPRISES Akron (216) 724-5583 

OKLAHOMA 
ONLINE COMPUTER CENTER Oklahoma City (405) 751-2796 

OREGON 
PIONEER ELECTRONICS Sandy (503) 668-8666 

PENNSYLVANIA 
COMPUTER ANALYSTS New Brighton (412) 846-9323 

TEXAS 
PERCOM COMPUTER CENTER Richardson (214)690-0207 

COMPUTER TO GO Austin (512)472-8926 

UTAH 
MICRO MNEMONICS Sunset (801) 825-9317 

VIRGINIA 
BURCO DISTRIBUTORS Richmond (804)222-1481 

WASHINGTON 
COMPUTER SERVICES Kennewick (509) 582-9759 

NORTHWEST COMPUTER SERVICE Belluue (206) 454-4979 

WEST VIRGINIA 
BURCO DISTRIBUTORS Huntington (304) 453-6387 

WISCONSIN 

BYTE SHOP MILWAUKEE Greenfield (414)281-7004 

FOREIGN DEALERS 

AUSTRALIA 

DICK SMITH ELECTRONICS P.O. Box 321 North Ryde NSW2113 

CANADA 
ALPHA ONE Edmonton (403) 454-8409 

VALERIOTE AND ASSOC. Guelph Ontario (416)624-4899 

DRV COMPUTERS. LTD. Surrey B. C. (604) 576-8535 

COTS MICROSYSTEMS. LTD Ottawa (613) 741-7937 

MICRO-COMP ENTERPRISES, INC. Pickering (416)839 4561 

MICRO MART Montreal (514)731-9486 

MEXICO 
COMPUTADORAS Y ASESORAMIENTO 

Rio Panuco 14 Mexico 5 D.F. 

DOMINICAN REPUBLIC 
RADIO SHACK Santo Domingo (809)565-9121 
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So Far, So Good... 




Your Model III is a fine computer. 

So why settle for less than 

a fine disk storage system? 

A fast, reliable disk storage system — no other 
device is so vital to the satisfactory performance of 
your computer. At Percom we build quality, high- 
performance disk drive systems. From gold-plated 
connector contacts to goldcad metal chassis 
structures. From proven design through 100% 
reliability testing. Percom disk systems are the 
standard by which others are judged — the industry's 
"gold standard," in a sense. And since Percom is the 
largest independent manufacturer of disk systems 
for microcomputers, you get Percom quality 
at very competitive prices. Add-on drives for 
TRS-80' computers start as low as S399. 
Complete first-drive systems for the Model III 
start at only $599. Put a quality Percom mini-disk 
storage system in your Model III. And save. 



#1 For Your Model III 

Percom TFD floppy drives for your TRS-80* Model III computer are 
available in single- and dual-head versions, providing 180,000 and 360,000 
bytes per drive, respectively, of formatted on-line storage capacity. 

The Percom Model III disk controller handles one to four drives so you 
can have from 180,000 to over 1.4 million bytes of on-line program and file 
storage. 

You get MSS' DOSPLUS' with first-drive systems, and your first drive 
may be either internal (add-in) or external (add-on). Percom TFD drive 
units also work with TRSDOS* and other compatible disk-operating 
systems. 

First-drive systems are pre-assembled and may be installed with 
common tools. ^2 

#1 For Your Model I, Too 

Percom TFD add-on drives for the TRS-80" Model I computer are 
available with the same features and the same quality control measures 
as TFD Model III drives. As for Model III drives, all Percom Model I drives 
are double-density rated. Install Percom's popular DOUBLER II in your 
Model I Expansion Interface and upgrade your Model I to provide the 
same storage capacity as the Model III. ^3 

Now! Low-cost Percom Winchester Disk Systems 
for Radio Shack computers. 

To order, or for the name of your authorized Percom retailer, 
call toll free 1-800-527-1222. 



The Drive People 
You get more out of 
Percom disk systems. 
Expect it! 





PERCOM DATA COMPANY. INC. 

1 1 220 Pagemill Road • Dallas. Texas 75243 
(214) 340-7081 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 

'TRS-80 is a trademark of Tandy Radio Shack Corporation which has no relationship to 

Percom Data Company, Inc. 

PERCOM. DOUBLER II and OS-80 III are trademarks of Percom Data Company. Inc. 

'trademark of Micro Systems Software. Inc. 
■ See List ol Advertisers on Page 563 



Yes ... I'd like to know more about 
the best for my Radio Shack 
computer. Send me free literature 
about quality Percom products: 



ClMdl I 
□ Mdl II 



I i Mdl III 
DMdl 16 



Send lo 

PERCOM DATA COMPANY. INC. Depl. 8-M 

1 1220 Pagemill Road. Dallas. TX. 75243 



NAME 



STREET 



CITY 



STATE 



ZIP 



PHONE NUMBER 
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TUTORIAL 



The Sum of Its Parts 



by Spencer Weersing 



G 



ood Basic programming begins with an organ- 
ized game plan. This article explains how to 
tackle your programming in a logical manner. 



"A confusion of aims and a pro- 
fusion of means seems to be our main 
problem. " — Albert Einstein 

Beginning students of Basic often 
have difficulty writing programs that 
work properly because they use poor 
design techniques. But if you plan your 
work, then work your plan, you will be 
successful. Follow these five steps of 
good design technique; they will lead 
you to proficiency: 

• State the purpose of the program. 

• Make an organizational chart. 

• Make a pseudocoded outline. 

• Code and check the fundamental 
program. 

• Code and check the completed pro- 
gram. 

The First Step 

Succinctly state the purpose of the 
program. Be as specific as possible 
without stating the method by which 
you plan to accomplish that purpose. 
You need to be clear, concise, and 
complete. Ambiguous writing and dis- 
organized thoughts will destroy a pro- 
gram before it is born. 



The Key Box 

Model I 
16KRAM 
Cassette Basic 
Disk Basic 



If there are multiple things that the 
program must do, divide it into appro- 
priate subprograms and state the pur- 
pose of each. (A subprogram performs 
a major part of the work of the whole 
program.) If you divide your task into 
parts, you can write and check man- 
ageable portions to see that each part 
performs its functions properly. The 
sum of the parts, each fulfilling its pur- 
pose, equals the whole. Complex pro- 
grams are hard to write any other way 
because, without subprograms, you 
have to contend with the entire mass of 
computer code; this defies understand- 
ing. Split the program into parts that 
you can easily handle. 

As an example, let's write a program 
that has practical value when you are 
considering purchase of real estate. 
Assume that you want to know if the 



proposed terms of a land contract are 
reasonable and within your means. 
You have to judge if the proposed 
amount of the total loan, the down 
payment, the monthly payments, and 
the interest seem satisfactory, and you 
want a program that calculates the 
duration of the contract in order to 
facilitate that judgment. 

For instance, if the down payment 
or the monthly payments are too low, 
the monthly interest would not be cov- 
ered or the contract would run for an 
excessive number of years. If the con- 
tract is not satisfactory with the given 
terms, how long would it run with 
other terms? Alternatively, if you 
know the principal, interest rate, and 
duration, how much would the 
monthly payments have to be? 

Once all terms seem satisfactory, 
you want to know four things each 
month: how much of the current 
monthly payment covers interest; how 
much of the current monthly payment 
reduces the principal; how much the 
new principal is; and the total to date 
of interest payments (for tax pur- 
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poses). The program, to be useful for 
others who may not have the same 
hardware and peripheral equipment 
that you do, must have an option to 
print copy if a printer is available. 

Now that you have considered your 
needs, state the purpose of the pro- 
gram: calculate a land contract. First, 
calculate its duration, given the prin- 
cipal, interest rate, and monthly pay- 
ments. Second, for each month, dis- 
play payment portion for interest, 
payment portion reducing principal, 



new principal, and total interest to 
date. Have an option to print a pay- 
ment schedule on a line printer. 
Third, calculate monthly payments if 
the duration is known. 

Plan on three subprograms to fulfill 
your needs. 

Step Two 

Next,. make an organizational chart 
(see Fig. 1). This is a simple way to 
visualize the sequence of the major 
parts of the program. Do not confuse 



Subprogram 1: Calculated duration of proposed land contract. 


Input 


Process 


Output 


total amt TA 






down payment D 


TAD 


P =amt of contract 


% interest I 


1/100 


decimal form 


monthly payment MP 






month X = 


X+l 


X = next month 




P*I/12 


Ml =amt for interest 




IFMP<MII 


Stop 




MP-MI 


MR = amt applied to P 




P-MR 


P = new principal 




IFP<0 


Print X ( = # months) 
Restore input 




GOTO start 


GOTO Menu 


Subprogram 2: For each month (with option to print via line printer) display month, payment 


portion for interest, payment portion rcducii 


g principal, new principal, and total interest to 


date. 






Input 


Process 


Output 


same 


X+l 


X = total tf months 




P*I/12 


MI =amt for interest 




MP-MI 


MR = amt applied to P 




P-MR 


P = new principal 




MT + MI 


MT = total I to date 
Print X MI MR P MT 




IF P<MP 


Print "Pay" P + P*I/12 
Total = MT + P + P*I/12 




GOTO start 


GOTO LPRINT option 




make flag to LPRINT via subroutines 




restore input 






GOTO start 




Notes: 






Make P and MT double-precision values it' over 6 significant figures; store them without trail- 


ing garbage digits. Precede Menu with input that is common to all subprograms. Include line to 


restore X, MT, and P. 






Subprogram 3: Calculate mo 


ithly payment il 


given term. 


Input 


Process 


Output 


same 






term (years) N 








1*100 


°/o form 




P* 1/1200 


Y = intermediate for MP 




(1 + I/1200)t(12*N) Z = intermediate for MP 




Y/(l - I/Z) 


MP = monthly payment 




1/100 


decimal form 




GOTO Menu 




Note: Round off MP to $.01 








Fig. 2. 


Outline 



this with a flowchart, a diagram that is 
helpful to demonstrate how the com- 
puter follows a specific instruction. 
After you have written the program, 
flowcharts help you understand com- 
puter logic, but they are far too de- 
tailed at this stage. If you attempt to 
make a flowchart too early in pro- 
gramming, you become so immersed in 
the minor details of Basic technique 
that you lose the overall design. Do not 
concern yourself with coding tech- 
niques at this stage, only with the over- 
all goals of the programs and subpro- 
grams. You have to know where you 
want to go before deciding if it is better 
to take a train or a bus! The road map 
that guides you to your destination is 
the organizational chart. 

The first item in the organizational 
chart is housekeeping, a part that sets 
things up in preparation for a data- 
processing operation. The second item 
in the chart is normally the master pro- 
gram (do not confuse this with the 
main program itself)- The master pro- 
gram directs the proper sequence of 
subprograms to accomplish the overall 
purpose. If the sequence of subpro- 
grams is under operator control by 
means of keyboard input, the master 
program is often called the menu, 
because the operator makes selections 
from a list of subprograms. The master 
program also allows flexibility in the 
sequence of operations and easily 
traced program flow. 

In the land contract organizational 
chart, the menu offers a choice of any 
of the three subprograms. Following 
subprogram one or three, program 
flow returns to the menu. Following 
subprogram two, the user may pro- 
duce a printout by rerunning subpro- 
gram two with the necessary instruc- 
tions. You can easily visualize program 
flow by using an organizational chart. 

The Third Step 

Next, outline each subprogram (see 
Fig. 2). Write the purpose of each, and 
list (in appropriate sequence) the data 
you need to give to the computer (in- 
put), what you expect the computer to 
do with it (process), and what results 
you expect (output). These are the 
three parts of a computer program. A 
parallel outline under these headings is 
called pseudocode. Pseudocode is not 
code that the computer understands, 
but detailed directions that make ac- 
tual coding obvious. 

Input may be accomplished from the 
keyboard, from a data file on tape or 
disk, or from previous computer pro- 
cess. The process section is the actual 
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tions, separate each part widely and 
use an interval of 10 between line num- 
bers. You can renumber the program 
later, if you desire. 

Begin the housekeeping section with 
a remark statement giving a proper file 
name, current date, and the author's 
name. This important information 
allows proper magnetic storage of the 
program in a file, identifies the file 
later, and tells the user which modifica- 
tion the program is. You are limited to 
eight alphanumeric characters for the 
file name, and the first character must 
be alphabetic. Truncate the program 
title "Land Contract Schedule" to 
LANDCONT for an acceptable file 
name that helps you remember which 
program it is. Radio Shack's Level II 
Basic allows you to put an extension of 
three characters following a slash on 
the file name to identify the data the 
file contains. Use /BAS because this 
file contains a program written in 
Basic. The author's name is important 
for proper credit — or to assign respon- 
sibility if the program fails to operate 
properly! 

Add additional remark statements 
throughout the program as needed for 
clarity. While this consumes memory 
and makes the program run more 
slowly, remark statements help recall 
essential information about any particu- 
lar operation that you are instructing 
the computer to do. Once the program 
is perfected you can delete remark state- 
ments, but keep an annotated printout 
for your reference library. 

Set aside housekeeping line numbers 
500-799 for subroutines. A subroutine 
is a set of instructions that will be 
needed more than once. Rather than 



requiring you to repeat the same in- 
structions, Basic allows access to those 
instructions via the subroutine func- 
tion. After performing the work di- 
rected by the instructions, program 
flow returns to the location of origin in 
the main program. You can use one set 
of instructions multiple times from any 
part of the program (even from an- 
other subroutine). Include a remark 
statement with each subroutine indi- 
cating which lines call it, so you may 
easily trace program flow. 

Line 500 restores original input 
values to allow succession of subpro- 
grams without having to repeat input. 
Lines 600 and 610 are reserved for the 
print option in the completed program. 

Do not use any housekeeping func- 
tions in the fundamental coding that 
are not absolutely required. Discipline 
yourself to include essentials only, re- 
gardless of how desirable nonessentials 
are. You can add elegance after the pro- 
gram functions perfectly. (Modify it to 
run faster, or produce an ideal display 
or attractive printout, for example.) 

Lines 900-940 are not part of house- 
keeping. Some identical keyboard 
input is required by all of the subpro- 
grams, so this input precedes the sub- 
programs. 

The next section, lines 1000-1040, is 
the menu, which allows a choice of any 
subprogram. 

Now, code each subprogram. Once 
again keep your priorities clear: Make 
the program run correctly before wor- 
rying about attractive output, speed 
running, and nonessential process. As 
you work, update the list of variables 
and their purposes. You must know if 
you have used a variable previously, 



WEERSING/GREEN Land Contract 










25500 less 5000 down = 20500 initial principal at 


11% 


interest 




Payment of 350 due each month on 7th 












Monthly 


Principal 




New 


Interest 


Month 


interest 


reduced 




principal 


to date 


1 


187.92 


162.08 




20337.92 


187.92 


2 


186.43 


163.57 




20174.35 


374.35 


3 


184.93 


165.07 




20009.28 


559.28 


4 


183.42 


166.58 




19842.70 


742.70 


5 


181.89 


168.11 




19674.59 


924.59 


• 


• 


• 




• 


• 


79 


19.75 


330.25 




1824.18 


8974.18 


80 


16.72 


333.28 




1490.90 


8990.90 


81 


13.67 


336.33 




1154.57 


9004.57 


82 


10.58 


339.42 




815.15 


9015.15 


83 


7.47 


342.53 




742.62 


9022.62 


84 


4.33 


345.67 




126.95 


9026.95 


Final payment of 128.11 next month 










Total interest on land 


contract will = 9028.11 










Fig. 4. Final Payment Schedule 





and if you ha*fe defined it in the house- 
keeping section in a manner that cur- 
rently makes it an inappropriate 
choice. (If you want to use a single- 
precision variable, you must know if 
you have previously defined it as an in- 
teger or a string variable.) 

Subprogram 3 is based on the fol- 
lowing formula: 



M = 



PI/ 1200 



1- 1/(1 + I/1200) I2N 



in which M is the monthly payment, P 
is the principal of the land contract, I is 
the interest rate in percent, and N is the 
length of the mortgage in years. 

Accustom yourself to writing and 
reading code without any spaces 
between characters. Spaces waste mem- 
ory and room on the video screen. 
Youcangetusedtoreadingpackedpro- 
gramsandtheincreasedefficiencyis 
worthit! Avoid multiple statement 
lines during the first coding because 
they make additions and editing diffi- 
cult. Also, if you ever find yourself 
coding a repetitive, endless series of 
steps, stop! Get advice from a more ex- 
perienced Basic programmer who may 
know a way to accomplish the task 
more efficiently. 

Debug each subprogram as it is writ- 
ten. Run it with appropriate input and 
be sure the output is exactly correct 
(see Fig. 3). Take nothing for granted. 
Computer outputs look so credible 
that it is easy to believe that the results 
must surely be correct. However, com- 
puters make mistakes more quickly 
than any other human contrivance! 
Use the highest and lowest expected 
values to be sure the program can 
handle them. Put the program through 
every imaginable test. At this stage you 
will appreciate having kept everything 
as simple as possible. After the funda- 
mental program runs satisfactorily, be 
assured that you have accomplished 
the most difficult part of your task. 

Last Step 

The final step for good program 
design is to code and debug the com- 
pleted program (see Program Listing 
2). Modify the fundamental program 
to decrease the running time, increase 
accuracy, improve the video display 
and line-printer output, and make the 
final result exactly what you stated in 
step one. Carefully debug each feature 
you add as it is written, otherwise a for- 
midable task lies ahead! 

I expanded the housekeeping section 
from the lone, but important, remark 
statement of the fundamental pro- 
gram. CLEAR 100 reserves 100 bytes 
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computation that is required for each 
step in every subprogram. The output 
may be the desired end product, or it 
may be data that will be input once 
more for further computer process. 

Study Fig. 2, which shows pseudo- 
coding of the land contract program. 
Particularly note these important 
features: 

• The pseudocoding for each subpro- 
gram is short. You have to consider 
only a small portion at a time. 



• The format of the outline leads you 
to work as a computer does: input, 
process, and output. 

• Each variable is defined accurately 
when first introduced. Keep a separate 
list of variables (Fig. 5) to avoid con- 
fusion when you later assign variable 
names in other subprograms. 

• Any helpful notes are included at the 
bottom of each subprogram. 

• The outline contains only the essen- 
tials; all unnecessary features are left 



INPUT TOTAL AMOUNT? 25500 

INPUT DOWN PAYMENT? 5000 

INPUT % INTEREST? 11 

INPUT MONTHLY PAYMENT? 350 

INPUT 1 TO FIGURE NUMBER MONTHS 

INPUT 2 TO FIGURE DETAILS AND PRINT 

INPUT 3 TO FIGURE MONTHLY PAYMENT 

?1 

85 MONTHS TO RUN 
INPUT 1 TO FIGURE NUMBER MONTHS 
INPUT 2 TO FIGURE DETAILS AND PRINT 
INPUT 3 TO FIGURE MONTHLY PAYMENT 
?2 



1 


187.917 


162.083 


20337.9 


187.917 


2 


186.431 


163.569 


20174.3 


374.348 


3 


184.932 


165.068 


20009.3 


559.279 


4 


183.418 


166.582 


19842.7 


742.698 


5 


181.891 


168.109 


19674.6 


924.589 


6 


180.35 


169.65 


19504.9 


1104.94 


79 


19.7488 


330.251 


1824.16 


8974.17 


80 


16.7215 


333.279 


1490.88 


8990.89 


81 


3.6664 


336.334 


1154.55 


9004.55 


82 


10.5834 


339.417 


815.135 


9015.14 


83 


7.47207 


342.528 


472.607 


9022.61 


84 


4.33223 


345.668 


126.939 


9026.94 



PAY 128.102 NEXT MONTH; TOTAL INTEREST TO DATE WILL =9037.52 
Fig. 3. Run of Fundamental Programs 



out. This helps prevent errors that are 
difficult to find and correct. 

Coding this plan will be easy, check- 
ing it will be easy. After the initially 
coded program is functioning per- 
fectly, you will have ample opportu- 
nity to flesh out the program to make it 
run more quickly and accurately, and 
to produce an attractive output on 
screen and paper. 

Prior to the actual coding, rewrite 
any of the preceding three steps you 
think necessary. This is important. The 
extra time you take to think through 
each subprogram will be amply repaid 
when coding and debugging your pro- 
gram. (Debugging a program means 
finding and fixing any errors in it. 
Debugging a program can often take 
longer than writing it!) Do not hesitate 
to rewrite and edit your work if you 
can think of any improvements. 

Debugging cr.n be relatively painless 
if you split programs into subpro- 
grams, with each procedure of each 
subprogram divided into the three 
components of computer process: in- 
put, process, and output. Keep your 
outlines as simple as possible. Fancy 
output should follow the development 
of a working program, not precede it. 

Step Four 

After you are satisfied with your 
preceding work, write the fundamental 
program in Basic (see Program Listing 
1). Assign line numbers 1-999 for 
housekeeping, 1000-1999 for the 
menu, 2000-2999 for subprogram one, 
3000-3999 for subprogram two, 4000- 
4999 for the option to print, and 5000 
on for subprogram three. To accom- 
modate later refinements and addi- 
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"TOO MUCH" 

FOR 
RADIO SHACK! 

Radio Shack REFUSED to 
include MISADVENTURE 
#1 in their SOURCEBOOK 
due to our description of 
the game! 

^379 



II 16k 



MISADVENTURE SERIES— model 
#201 (#1) Madam Rosa's Massage Parlor* 
#202 (#2) Wei T-Shirt Contest* 
#203 (#3) Sewers of Moscow**— with sound! 
#204 (#4) Casino of Pleasure**— with sound! 
#205 (#5) Naked Nightmare**— with sound! NEW! 
*not as hard * 'experience recommended 

ARCADE— TYPE GAMES— model I & III 16k 

#302 Block Breaker by Cedar Software— with sound! 

#303 Leaper by Cedar Software— NEW!— with sound! 

ADVENTURE DECODER— model I & III 16k 

#301 Dohne' Bugg (Adventure-decoder) 

COLOR COMPUTER— games and Misadventures 
#401 Mystery of the Keys (4k)— with sound! 
#501 (#1) Madam Rosa's Massage Parlor (16k) — 

with sound! 
#502 (#2) Wet T-Shirt Contest (16k)— with sound! 



$15.00 
$15.00 
$15.00 
$15.00 
$15.00 



$14.95 
d! 
$15.95 



515.00 



$15.00 

$15.00 

$15.00 



Immediate shipment! Check, credit cards, or phone 
orders [12-6 p.m.] Dealers and distributors welcome- 
please inquire! HINT SHEETS AVAILABLE! 
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"Big Five: EAT YOUR 
HEART OUT!" 

—the Gamester 

New! <*>% 

Ml* \ 



\<* 



Go Frog Go! 



Our MISADVENTURE SERIES consist of CHALLENGING 
and FUN "adventure-type" programs that may occasion- 
ally be a bit naughty! 

MYSTERY OF THE KEYS for the color computer is a 
graphic puzzle as addicting as "The Cube" and similar to 
"The Link" . 4k and up. 

DOHNE' BUGG is our best-selling ADVENTURE-DE- 
CODER! Are you STUCK in a machine-language 
ADVENTURE GAME? This program will display on the 
screen all VERBS that interact in the game, all 
LOCATIONS & OBJECTS you will find, and all ACTIONS 
that result! A MUST FOR THE SERIOUS ADVENTURER! 

All programs are presently available in cassette form. 



v'See List ol Advertisers on , 
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for string use. (Fifty bytes are auto- 
matically reserved, but more are 
needed because of line 520.) All 
numeric variables beginning with X are 
defined as integers. C$ and M$ are 
field specifiers for Print Using state- 
ments. Your program may also need 
housekeeping chores such as dimen- 
sioning arrays or defining integral, 
single, and double precision of other 
variables. In long programs, define in- 
tegers for use in For . . . Next loops for 
faster program execution, unless you 
require greater precision. Strings may 
also need to be defined. 

You may need to define commonly 
used values with variables (instead of 
repeatedly using constants), because it 
takes less time to access a variable than 
to convert a constant to floating point 
representation. Define the most com- 
monly used variables first so they are at 
the top of the variable table list, 
because the computer searches the 
table from top to bottom to find the 
variable. 

You may need to initiate an On Er- 
ror GOTO statement, or to code Read 
, . . Data statements, or to enable the 
use of machine-language subroutines 
through the DEFUSR function. 

Use the list of variables (see Fig. 5) to 



10 ' 

500 

510 

600 

610 

900 

910 

920 

930 

940 

1000 

1010 

1020 

1030 

1040 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

3000 

3010 

3020 

3030 

3040 

3060 

3070 

3080 

e wi 

3090 

4000 

4010 

4020 

5000 



Program Listing 1. Fundamental Program 

LANDCONT/BAS, 11/18/81, by Spencer Weersing. Land Contracts 
GOTO900' ***** Subroutines 500-899 
P=OP:MT=0:X=0: RETURN' restores input 2060 4010 5060 

RETURN' future LPRINT 3070 

RETURN' future LPRINT 3080 

' ***** input for subprograms 
INPUT"Input total amount", -TA 
INPUT"Input down payment" ;D: P=TA-D:OP=P' 
INPUT"Input % interest"; I: 1=1/100' 
INPUT" Input monthly payment"; MP 
» * * * * * * 

PRINT"lnput 1 to figure number months" 
PRINT"Input 2 to figure details and print' 
PRINT"Input 3 to figure monthly payment" 
INPUTX1:ONX1GOTO2000, 3000, 5000 



orig principal 
decimal form 



* subprogram 1 

number of month 

amt for interest 



X=X+1' 
MI=P*I/12' 

IFMP<MIPRINT"Won't work!":STOP 

MR=MP-MI ' amt reducing principal 

P=P-MR' new principal 

IFP<=0PRINTX"months to run" :GOSUB510:GOTO1000 

GOTO2010 

******** subprogram 2 
X=X+1 
MI=P*I/12 
MR=MP-MI 
P=P-MR 
MT=MT+MI ' 

PRINTX;MI,MR,P,MT:IFFL=1GOSUB600 

IFP<=MPPRINT"Pay"P+P*I/12"next month; total interest 'to dat 
11 ="MT+P*I/12: IFFL=1GOSUB610:ENDELSE4000 
GOTO3010 

******** LPRINT option 
INPUT"Print, Y or N" ;X$: IFX$="Y"THENFL=1 :GOSUB510 :GOTO3000 
END 

******* subprogram 3 

Listing I continues 



total interest to date 
FLag for LPRINT option 



Gold Plug 80— E.A.P. Company 

P.O. Box 14 Keller.TX 76248 
817-498-4242 



Ahhhh, instant relief! At last there is a 
permanent cure for contact oxidation 
on Model I edge connectors. Many TRS-80 
users are familiar with the symptoms: un- 
timely resets, spontaneous reboots, or the 
inability to get the computer started at all 
without a frustrating session with a pink 
eraser. 

The Gold Plug 80 is a well made device 
consisting of an edge-card plug with gold 
plated contacts, available with either 34 or 
40 contacts. The rear of the plug has ter- 

■HH 



minal tabs which fit exactly over the ex- 
isting foil fingers on the TRS-80's connec- 
tors. After installation, the original plugs 
have been extended about a half inch, 
meaning that the plastic door covers no 
longer fit. This did not trouble me. but you 
should take it into consideration. E.A.P.'s 
advertising leaflet, by the way, cautions 
you about the doors, which is refreshing. 
They also have the excellent policy of per- 
mitting you to return any plugs ordered for 
a refund if after seeing them you are un- 




The Gold Plug 



willing to undertake the installation. 

An excellent set of instructions accom- 
pany the plugs, and they are shipped 
promptly. I ordered mine by mail on a Mon- 
day and received my set of plugs by first 
class mail on Tuesday of the next week. 

Installation 

Installation requires a soldering iron (I 
use a 40-watt Weller), Rosin-core solder, a 
Phillips screwdriver, and your last Pink 
Pearl. The keyboard and Expansion Inter- 
face have to be disassembled to get at the 
connectors, which are then cleaned— the 
eraser's last fling. The Gold Plug 80 is fit- 
ted over the existing plug with the con- 
tacts centered, and then soldered to the 
board. I have some soldering experience, 
but it proved to be an easy, safe job. The 
contact is heated, a very small amount of 
solder applied, and then you go on to the 
next contact. It took about an hour to do 
all six plugs. 

If you are a little nervous about this kind 
of work, note that all the contacts on the 
underside of the RS-232 output connector 
are grounded— that is, they are all con- 
nected. Start there; you can do no harm 
and the practice will be helpful. 

The Gold Plug 80 set I bought included 
all six plugs. The plugs are available indi- 
vidually for $9.95, or you can get a pair for 
the keyboard to Expansion Interface 
cable for $18.95. 

As I said earlier, I did resolder every con- 
nector on the machine, and I haven't had a 
single unwanted reset since.B 



ADVERTISEMENT 
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Listing 1 co 


ntinued 


5010 


INPUT" Input term in years " ;N:X2=N*12 ' X2=term in mos 


5020 


1=1*100* % form 


5030 


Y=P*I/1200:Z=(1+I/1200) [ (12*N) :MP=Y/ ( 1-1/Z) ' MP formula 


5040 


PRINT"Monthly payments =";:PRPNTMP 


5050 


MP=INT(MP*100 + .5)/100 ' round to .01 


5060 


I=I/100:GOSUB510:GOTO1000 'decimal form, restore, goto menu 



Program Listing 2. Completed Program 



10 'LANDCONT/BAS, 11/30/81, by Spencer Weersing. Land contracts 
100 ' * * * * * * * housekeeping 
110 CLEAR100' bytes for strings 

120 DEFINTX:C$="#######.##":M$="###-" format LPRINTUSING 
130 CLS:PRINT n Land Contract Schedule" :GOSUB520 

500 GOTO900' ****** subroutines 
510 P=IP:QT=0:X=0:F1=0:RETURN' restores input 2060 4010 5060 
520 PRINTSTRING$(64,"-") ;:RETURN' 130 3070 

530 LPRINTSTRING$ ( 43, "-" ) :LPRINT: RETURN' 640 660 

540 T#=P:DEFDBLP:P=T#: RETURN' converts P to dbl prec 3016 
550 T I =P:DEFSNGP:P=TI: RETURN' converts P to sng prec 3018 
560 T#=QT:DEFDBLQ:QT=T#: RETURN' converts Q to dbl prec 3046 
600 CLS:INPUT n Input name/name of parties involved" ; A$ ' check 
610 INPUT"Input day each month that payment is due";B$ 
620 PRINT"Beginning principal =" ; :PRINTUSINGC$;P 
622 PRINT"Interest rate in % ="; :PRINTUSINGC$; 1*10 

624 PRINT"Monthly payment ="; :PRINTUSINGC$;MP 

625 IFX2=0THEN628' if MP not yet figured 

626 IFX2O0PRlNT"Term of contract ="; :PRINTINT(X2/12) "years , " 
X2-INT(X2/12) *12"months 

628 PRINT: INPUT"Is all this correct, Y or N";X$: IFX$="N"RETURN 
630 LPRINTA$" Land Contract" :LPRINTTA"less"D"down ="P"initial pr 
incipal": RETURN' begin LPRINT if input O.K. 3006 

640 GOSUB530:LPRINT"Payment of"MP"due each month on "B$:GOSUB530 
: LPRINT" Monthly Principal New Interest " :LPRINT"Mon 

Interest Reduced Principal To date": LPRINT" 

": RETURN' 300 8 

650 LPRINTUSINGM$;X;:LPRINTUSINGC$;MI;MR;P;QT:RETURN' 3060 
660 LPRINT"Final payment of "; :LPRINTUSINGC$;P+P*I/12; : LPRINT" ne 
xt month. ":LPRINT"Total interest on land contract will =";:LPRIN 
TUSINGC$;QT+P*I/12:GOSUB530: RETURN' 3070 

900 ' * * * * * input for subprograms 

910 INPUT"Input total amount";TA 

920 INPUT"Input down payment" ; D: P=TA-D: IP=P' initial principal 

930 INPUT-Input % interest"; I: 1=1/100 ' decimal form 

940 PRINT" Input monthly payment" 

950 INPUT" (If monthly payment is to be figured, input 0)";MP:IFM 

P=0THEN5000 

1000 '******** menu 

1010 PRINT: PRINT" Input 1 to calculate term in months" 

1020 PRINT"Input 2 to video print a payment schedule" 

1025 PRINT"Input 3 to video print and line print schedule" 

1030 PRINT"Input 4 to figure monthly payment, given term" 

1040 INPUTX1:ONX1GOTO2000,3 000,2090,5000 

2000 '***** subprogram 1 

2010 x=X+l' number of month 

2020 MI=P*I/12' amt for interest 

2030 IFMP<MIPRINT"Down payment and/or monthly payment must be in 

creased" :GOTO900' return for different input 

2040 MR=MP-MI ' amt reducing principal 

2050 P=P-MR' new principal 

2060 IFP<=0PRINTX; "months total to fulfill contract" :GOSUB510 :G0 

TO1000 

2070 GOTO2010' next month 

2090 FL=1' FLag for LPRINT option 

3000 '******* subprogram 2 

3006 IFFL=1GOSUB600:IFX$="N"GOTO900' for correct input 

3008 GOSUB520:PRINT"Payment of"MP"due each month on ";B$:GOSUB52 

0: PRINT" Monthly Principal New Interest " :PRINT"Mon 

Interest Reduced Principal To date": PRINT" 



" : IFFL=1G0SUB6 40 



3010 
3012 
3014 
3016 
3018 
3020 
3030 
3040 
3044 
3046 
3050 
3060 
3070 



X=X+1 

IFF1=2THEN3020' 

IFF1=1THEN3018' 

IFP>=10000THENF1=1: 

IFP<=10000THENF1=2: 

P2=P*I/12:P2=INT(P2 

MR=MP-MI 

P=P-MR' 

IFF2=1THEN3050 

IFQT>=10000THENF2=1 

QT=QT+MI ' 

PRINTUSINGM$;X; :PRI 

IFP<=MPPRINT"Final 



P < 6 sig figs, no check req 

P is dbl prec, is sng req? 

GOSUB540' check if P over 6 sig figs 

GOSUB550' check if P under 6 sig figs 

*100+.5)/100:MI=P2' rounds # to .01 

same as subprogram 1 

:GOSUB560' check if QT over 6 sig figs 
QT=total interest to date 
NTUSINGC$;MI;MR;P;QT:IFFL=1GOSUB650 
payment of"; :PRINTUSINGC$;P+P*I/12; :PRIN 

Listing 2 continue!, 



carefully name the variables so that 
their functions are suggested. QT re- 
places MT to allow defining it as 
double precision without affecting the 
other variables beginning with M. 
Lines 620-628 allow you to verify that 
all input is correct before printing the 
payment schedule. I added line 1025 to 
allow the print option without first 
running through Subprogram 2, be- 
cause that can take a long time when 
term is, for example, 25 years. Flags Fl 
and F2 avoid unnecessary branching to 
subroutines. 

A Few More Points 

When checking your program, note 
if you require accuracy greater than six 
significant figures. If so, you will need 
double-precision values, but double- 
precision calculations consume so 
much memory and take so long that 



' 'Double-precision 
calculations consume so 

much memory and take so 
long that you should use 

them only when required. " 



you should use them only when re- 
quired. Subprogram 2 has an instruc- 
tion to examine the two variables (P 
and QT) that may involve more than 
six significant figures and switch them 
from single to double precision as 
needed. As the program runs you can 
easily tell by the speed of the output 
whether the calculation involves dou- 
ble precision or not. 

Accuracy in calculations involving 
money requires that the result be 
rounded to $0.01 following multiplica- 
tion or division in order to remove 
trailing digits before addition or sub- 
traction. Two calculations need this 
procedure in LANDCONT/BAS— in 
lines 3020 and 5030. The results of the 
calculations are immediately rounded 
to maintain the current degree of pre- 
cision and trailing digits are removed. 

During debugging procedures, 
check the accuracy of results. There is 
an easy way to do this: Temporarily 
define all variables to double precision 
(DEFDBLA-Z), and then redefine any 
variable as integral or single precision 
if you must. (For example, For . . . 
Next loops cannot work if the variable 
following For is a double-precision 
variable.) Use a double-precision type 
declaration (#) on all constants. Now 
run your program. It will take a long 
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Add S12/ Year (Canada. Mexico)— Add S24/ Year Air Mail outside of US A . Canada, and Mexico 
All Prices and Specifications Subject 10 Change 

' TRS-80 is a trademark of the Radio Shack Division ot Tandy Corp 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80™ (Model I, II, III, or 16) • APPLE™ • IBM™ • OSBORNE™ • CP/M™ • XEROX™ 



Tired < ' Kgijr. 



GENERAL LEPGEI?. 

~1 




The VersaBusiness" Series 

Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VERSARECEIVABLES™ $99.95 

VERSaRECEIVABLES'" is a complete menu-driven accounts receivable, invoicing, and 
monthly statement generating system. It keeps track of all information related to who 
owes you or your company money, and can provide automatic billing for past due ac- 
counts. Versa Receivables'" prints all necessary statements, invoices, and summary 
reports and can be linked with VersaLedger II'" and VERSAlNVENTORY'". 

VERSAPAYABLES'" $99.95 

VERSA PAYABLES" is designed to keep track of current and aged payables, keeping you 
in touch with all information regarding how much money your company owes, and to 
whom. VERSA PAYABLES" maintains a complete record on each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With VERSA PAYABLES", you can even let your computer automatically select 
which vouchers arc to be paid. 

VeRSAPAYROLU" $99.95 

Versa Payroll" is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government -required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval. A payroll can be run totally, automati- 
cally, or the operator can intervene to prevent a check from being printed, or to alter 
information on it. If desired, totals may be posted to the VersaLedger IT" system. 

VERSAlNVENTORY™ $99.95 

VERSA toVENTORY" is a complete inventory control system that gives you instant access 
to data on any item. VERSAlNVENTORY" keeps track of all information related to what 
items are in stock, out of stock, on backorder, etc., stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSA RECEIVABLES" system. VERSAlNVENTORY" prints 
all needed inventory listings, reports of items below reorder point, inventory value re- 
ports, period and year-to-date sales reports, price lists, inventory checklists, etc. 

•CQMRJTRQNICS- 
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VersaLedger ir* $149.95 

VERSALEDGER II" is a complete accounting system that grows as your business 
grows. VersaLedger IP" can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VERSALEDGER II'" gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor-feed checks, 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VersaLedger IF" comes with a professionally-written 160 page manual de- 
signed for first-time users. The VersaLedger II*" manual will help you become 
quickly familiar with VERSALEDGER Ii"\ using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Every VERSABUSINESS" module is guaranteed to ouipcrfoimall other competitive systems, 
and at a fraction of their cost. If you arc not satisfied with any VERSABUSINESS" module, you 
may return it within 30 days lor a relund Manuals lor any VERSABUSINESS" module may be 
purchased for $25 each, credited toward a later purchase ol that module. 



To Order: 

Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 



* add $3 lor shipping in UPS arca& 

• add $4 lor COD or non-UPS areas 



DEALER INQUIRIES WELCOME 

All prices and specifications subject to change , 



1 add $5 to CANADA or MEXICO 
1 add proper postage elsewhere 



Delivery subject to availability 



TRS30 is a trademark of the Radio Shack Division of Tandy Corp. • 'APPLE is a trademark of Apple Corp. - 'IBM is a trademark of IBM Corp. 'OSBORNE is a trademark of Osborne Corp. 

•CP/M is a trademark of Digital Research 'XEROX is a trademark of Xerox Corp. 



Listing 2 continued 

T" next month. ": PRINT "Total interest on land contract will = n ;:P 

RINTUSINGC$;QT+P*I/12:GOSUB520 : IFFL=1GOSUB660 : ENDELSE4000 

3080 GOTO3010' next month 

4000 '******* LPRINT option 

4010 INPUT"Lineprint this, Y or N";X$: IFX$= n Y"THENFL=l:Fl=0:F2=0 

:GOSUB510:GOTO3006 ' FLag for LPRINT option 

4020 END 

5000 '******* subprogram 3 

5010 INPUT"Input term in years";N:X2=N*12 ' term in yrs and mos 

5020 1=1*100' interest in decimal form 

5030 Y=P*l/1200:Z=(l+I/1200) [ (12*N) :MP=Y/(1-1/Z) ' MP by formula 

5040 PRINT-Monthly payments ="; : PRINTUSINGC$;MP 

5050 MP=INT(MP*100+.5)/100' round to .01 

5060 I=I/100:GOSUB510:GOTO1000 'decimal form: restore: goto menu 



time to execute, but you may compare 
the results to those previously derived 
to verify accuracy. 

The results of calculations will have 
the same degree of precision as the 
most precise operand. Precision is 
limited by the type declaration of the 
variable that stores the result. Con- 
stants that contain an arithmetic ex- 
pression (e.g. 1/3) are single preci- 
sion — accurate to seven significant 
digits stored, and six displayed or 
printed. If a single-precision constant 
is stored in a double-precision variable, 
the digits following the seventh will be 
meaningless. You can prevent this by 
using the double-precision type declar- 
ation sign # (l/3# rather than 1/3). 



Converting to double precision from 
single must be done with care because 
only the first seven digits will be ac- 
curate, fewer if the single-precision 
number contained fewer. 

Double-precision values are stored 
with 17 significant digits, and dis- 
played or printed with 16. (For further 
information see the reference manual 
for Level II Basic.) 

With the help of Fig. 5, the list of 
variables, and the remark statements 
that are added to most of the lines in 
the completed program, you should 
understand the purpose of each line of 
the program. 

Debug your program carefully fol- 
lowing each modification or addition. 



AS 


string variable, names of parties 


B$ 


string variable, monthly payment due date 


C$ 


specifies field for PRINTUSING statement 


D 


down payment 


FL 


flag: GOTO LPRINT subroutine 


Fl 


flag: is P six significant figures or not 


F2 


flag: is QT six significant figures or not 


I 


interest rate: 1/100 is decimal form, 1*100 returns it to % 


IP 


initial principal 


MI 


amount of monthly payment that pays interest 


MP 


monthly payment 


MR 


amount of monthly payment that reduces principal 


MT 


total MI to date (fundamental program only) 


M$ 


specifies field for PRINTUSING statement 


N 


term in years 


P 


principal 


P2 


temporary MI, allows either double or single precision 


QT 


total MI to date (allows double precision) 


TA 


total amount 


T! 


temporary variable, single precision 


T# 


temporary variable, double precision 


X 


number of current month 


XI 


variable integer 


X2 


term in months 


Y 


intermediate for MP formula 


Z 


intermediate for MP formula 


formi 


la for subprogram 3: 


Um i 


PI/1200 


-1/(1 + I/1200) 12N 




Fig. 5. Variable List 



Contrast Figs. 4 and 5. Particularly 
note the difference that using double 
precision makes as well as the appear- 
ance of the output. 

The five steps are complete; your 
program is written and debugged. Af- 
ter everything has been satisfactorily 
accomplished, place a printout of 
your completed program, including 
the remark statements, in your refer- 
ence library. Also, include your other 
work: the statement of purpose, the 
organizational chart, the pseudocod- 
ed outline, the fundamental program, 
the list of variables, and any helpful 
notes you have made. When a ques- 
tion concerning the program arises in 
the future, or a modification is desir- 
able, it will be easy to recall necessary 
details by referring to these records. 

You may elect to pack the program 
by eliminating remark statements and 
by further use of multiple-statement 
lines. You may use commercial soft- 
ware utilities, or if you have a disk 
drive and Scripsit, try this excellent 
method. Save your program in ASCII 
format (SAVE "LANDCONT/ 
BAS",A) and then load it into Scripsit 
for easy editing (move blocks of pro- 
gram text, change line numbers, elimi- 
nate line numbers by use of multiple- 
statement lines, and use the global 
search and replace function to change, 
for example, Print to LPRINT or 
the name of a variable throughout the 
program). When editing is complete 
save the text in ASCII format again 
(S,A LANDCONT/BAS) to allow ac- 
cess to the file via Disk Basic. Begin 
each new line with a line number, and 
do not leave format instructions in the 
text or the file will not load. You will 
get a "Direct Statement in File" error 
message instead. 

Basic 

Basic is an acronym for Beginner's 
All-purpose Symbolic Instruction 
Code, but do not be deceived by the 
term "Beginner's" in its name. Basic is 
a powerful and sophisticated computer 
language that is appropriately used for 
a truly amazing variety of purposes. 
Use it to write individual programs to 
satisfy your specific needs. Program 
design and writing is rewarding and en- 
joyable. With good design procedures 
you will find it is true in programming 
as well as in traveling, "Getting there is 
half the fun!" ■ 



Spencer Weersing practices dentistry. 
He can be reached at the Professional 
Building, Montague, MI 49473. 
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BUSINESS PAC 100 




ressed within 24-Hours 

^ AH orders proce s antee 

* 30-Day money o« 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance Accounts Receivable Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RCILE78 Interest Apportionment by Rule of the 78's 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEINT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

1 4 MORTGAGE/A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple, 

1 6 SALVAGE Determines salvage value of an investment 

1 7 RRVARIN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

2 1 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWITH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP % Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OPTWRITE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 UTILITY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 
4b TRAMS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE1 Single server queueing (waiting line) model 

49 CVP Costvolume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost-benefit waiting line analysis 

56 NCFANAL Met cash-flow analysis for simple investment 

57 PROF1ND Profitability index of a project 

58 CAP1 Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FINRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Saleleaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



$99.95 



□ TRS-80 Cassette Version 

□ TRS-80 (Mod-I or III), Pet, Apple 
or Atari Versions 

D TRS-80 Mod-ll, IBM, Osborne 
and CP/M Versions 

ADO $3.00 FOR SHIPPING IN UPS AREAS 

ADD $4.00 FOR COD. OR NON-UPS AREAS 

ADD $5.00 TO CANADA AND MEXICO 

ADD PROPER POSTAGE OUTSIDE OF U.S., CANADA AND MEXICO 
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OA ORDER 
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(914) 425-1535 
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ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 
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TECHNIQUE 



Linear Programming 



by David Clapp 



T 



his method is usually used by mainframes to 
solve complex problems. Dr. Clapp gives a 
simple demonstration, so you can use it, too. 



Linear programming is a powerful 
technique for analyzing decision prob- 
lems. The technique has been in use for 
many years, although primarily for 
analysis of large-scale problems on 
large computers. While large compu- 
ters are necessary for analyzing some 
linear programming problems, you can 
solve many complex problems using a 
simple algorithm on a microcomputer. 

I will describe a simple linear pro- 
gramming routine that you can use to 
solve maximization and minimization 
problems. The size of the problem that 
may be solved is limited only by your 
microcomputer's memory. To enlarge 
the program's capacity, change only 
the dimension statement. 

Linear Programming 

Linear programming is a relatively 
complex mathematical procedure. I 
will explain the technique by reference 
to simple examples. 

Consider the ABC Toy Company. 
This company (as with most) is inter- 
ested in making a profit from its opera- 
tions. Assume that ABC manufactures 
only two toys: xylophones and yoyos. 
For convenience, label the number of 
each produced in a production period 
as X and Y, respectively. To make the 



The Key Box 

Model I 
16K RAM 
Basic Level II 



maximum profit, ABC should make 
an infinite number of each toy, sell 
them, and accumulate an infinite 
amount of cash. 

In reality, however, no company can 
make an unlimited number of any- 
thing. The availability of raw materi- 
als, production capacity of machines, 
storage space for produced products 
as well as investment capital all are 
examples of restrictions on total pos- 
sible production. These restrictions 
are called constraints in a linear pro- 
gramming problem. The goal of linear 
programming is to allocate limited 
resources to production in order to 
maximize profit. 

For the ABC problem, I have built 
some simple, arbitrary constraints. For 
example, assume that only two 
machines are used in production 
(machine A and machine B). The 
number of production hours on each 
machine is limited by hours in the day 
as well as by skilled operator time. 

For our example, assume that 
machine A is available only for 1,000 
hours per production period (per week, 
for example) and machine B is 
available for 800 hours per period. It 
takes twice as long to produce a xylo- 
phone than a yoyo on machine A, 
while it requires equal time for each toy 
on machine B. These production 
restrictions can be expressed mathe- 
matically as: 



2X 
x 



Y < 1000 

Y < 800 



value up to and equal to the hours 
available. Making these expressions in- 
equalities allows a wide variation 
of possible solutions. If they are 
equalities (e.g., 2X + Y = 1000), all 
available hours on machine A must be 
used. Clearly, the inequalities make 
more sense since it may be more eco- 
nomical not to use all of the machine 
capacity available. 

As additional simple constraints on 
this problem, we have specified that no 
more than 400 xylophones or 700 
yoyos can be made in any production 
period. This type of constraint could 
be the result of expected sales, avail- 
able raw materials, or available in- 
vestment capital. These constraints 
may also be expressed mathematically 
as X < 400 and Y < 700. 

Again, the inequalities make sense 
since we may decide to produce up to 
the limit, but still at some lower level. 

Finally, we must express the ob- 
jective of our decision problem — to 
make the most money. This expres- 
sion, called the objective function, is 
expressed mathematically as: 

Maximize Z = 0.4X + 0.3Y 

This expression reflects the selling price 
of each toy (40 cents for xylophones 
and 30 cents for yoyos), and our pur- 
pose (to maximize). Thus, Z can be any 
value depending on how many toys we 
make. If we make ten of each toy then 
Z equals $7; hence, the objective func- 
tion expresses the value of each possi- 
ble solution in dollars. We wish this to 
be the greatest amount possible, sub- 
ject to the constraints. 

The decision problem described so 
far can be summarized as: 



The expressions above are called ine- 
qualities since production can be any 



Maximize Z = 0.4X + 


0.3Y 


subject to: 




2X + Y < 1000 




X + Y < 800 




X < 400 




Y < 700 
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The only solutions we are interested in 
have positive variable values (we can- 
not manufacture a negative number) 
and integer or whole number solutions 
(we cannot manufacture fractions of 
yoyos or xylophones). 

Regarding the integer constraints, it 
so happens that all the solutions of in- 
terest in this problem are whole 
numbers, or integers. This is not 
always the case. If non-integer solu- 
tions did exist, an integer program- 
ming algorithm would be required. In 
many linear programming problems, 
non-integer solutions are perfectly ac- 
ceptable (see the nutrition example I 
will give later). 

The easiest way to visualize the ABC 
Toy solution is with a graph. Figure 
1 shows a plot of the constraints for 
this problem. Note that the constraints 
are simply straight lines on the graph 
relating numbers of X we can make to 
numbers of Y. All solutions must be 
within the dotted lines (called the feas- 
ible region) to satisfy the problem's 
constraints. 

The objective function is not a single 
line, but a "family" of lines depending 
on the value of Z. Two typical values 
of the objective function are plotted 
(for Z equals $120 and Z equals $240) 
as solid lines on the graph. These are 
called "iso-profit" lines, since the pro- 
fit (Z) is the same at any point along 
the line. For the Z-equals-$120 line, the 
profit is $120 at either end (X equals 
and Y equals 400 or X equals 300 and 
Y equals 0) and at any point between. 

You can make several important 
observations by looking at the objec- 
tive function lines. First, the value of Z 
increases as the lines move away from 
the origin (the 0,0 point). Also, the best 
solutions occur only at corners of the 
feasible region. 

This is the key to the linear program- 
ming algorithm — the best solutions oc- 
cur at corners. We want to move the 
objective function line as far from the 
origin as possible (getting larger values 
of Z, or profit) and still just barely 
touch the feasible region. Clearly, this 
can only happen at corners. Imagine a 
ruler parallel to the sketched objective 
function lines. This ruler is moved out 
as far as possible, remaining parallel to 
the plotted lines, to achieve the highest 
Z. The best solution must be at a cor- 
ner and not at any interior point. 

Looking at the sketch, there are six 
possible solutions or corners to choose 
from. These are in Table 1. The solu- 
tion (4) produces a profit of $260, yet 
remains within the constraints of the 
problem. You can see this solution by 

v-See List ol Advertisers on Paqe 563 



moving the imaginary ruler from the 
origin. Point 4 is the furthest the ruler 
can travel parallel to the sketched ob- 
jective function lines and still touch the 
feasible region. 
The fact that the solutions to the 



problem must occur at corners suggests 
the mathematical method to solve this 
problem. Corners in the graph are 
intersections of lines, or simultaneous 
solutions to linear equations. For ex- 
ample, point 4 is the solution to the 




Figure 1 



For TRS-80 Model I & IE Users 

STOP 
DISK CRASHES 

We are proud to announce a modification 
that protects your diskettes against power 
failure while they are in the drives. 
Your data will be safe without diskette 
removal... so leave 'em in! 

This small PC board is simple to install (four 
solder connections on mod I only). Requires 
absolutely no software changes! One year 
warranty. 

MODEL I equipped with Radio Shack. Shugart or Tandon drives 1 ... «P2V.V5 
MODEL HI (Protects internal drives only) $34.95 

Send check or M.O. to : INTEGRATED DEVICES, INC. + $uo P4H 

PO. Box 8385 
Haledon, N.J. 07538 



MC& VISA customers please include card no., exp. date, and signature: 
Or call our 24 hour order line: 201-956-8496. 
Sorry, no COD orders. 

NJ residents add 5% sales tax. 

TRS -80 is o Irademork of Tandy Corp. Opening the case ol o TRS-80 may void the RS 
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equations: 



2X + Y = 1000 
X + Y = 800 



You can solve these equations alge- 
braically and find the solution X equals 
200 and Y equals 600, which we con- 
firmed graphically earlier (for which Z 
equals $260). 

The purpose of linear programming, 
then, is to find solutions of systems of 
linear equations or find solutions at 
each corner of the feasible region. The 
linear programming algorithm 
achieves this logically by moving from 
one corner to the next until it finds the 
highest value of Z. 

The first step in setting up a linear 
programming problem is defining the 
objective function and constraints for 
the decision problem under study. In 
our ABC problem, we have already 
completed this step. The second step is 



to convert the inequalities to equations: 

2X + Y + M = 1000 

X + Y + N = 800 

X + O =400 

Y + P =700 

Note the slack variables M, N, O, 
and P, aptly named since they take up 
the slack in converting the inequalities 
to equalities. (We must do this because 
there is no algebraic way to solve ine- 
qualities.) In the final solution the 
slack variables express the amount of 



unused resource. For our optimal solu- 
tion of X equals 200 and Y equals 600 
there is no slack in the first two con- 
straints (or M and N equal zero); how- 
ever, there is slack in the last two con- 
straints since we are not making 400 
xylophones or 700 yoyos. In the final 
solution, O equals 200 and P equals 
100. The meaning of slack variables 
should become clearer as we move on. 
The equations are difficult to solve 
algebraically. We can only solve sys- 
tems of equations where the number of 



1 


Make no toys 


profit 


= $0 




2 


Make 400 xyloph 


ones profit = 


= $160 




3 


Make 200 yoyos, 


400 xylophones profit = 


= $220 


4 


Make 600 yoyos, 


200 xylophones profit = 


= $260 


5 


Make 700 yoyos, 


100 xylophones profit = 


= $250 


6 


Make 700 yoyos 


profit = 
Table 1 


= $210 





10 CLEAR 500 


6 80 NEXT N 




20 DErSNG A-Z 


6 90 FOR M=l TO IW 




30 DIM D(20,20) r P(20) ,IV(20) ,SC(20) 


700 IM=IV(M) 




40 CLS 


710 SC(IM)=0 




50 PRiNT TAB(23) "LINEAR PROGRAMMING" 


720 NEXT M 




60 PkiNT 


730 IF LEFT$(IB$,1)<>"Y" AND LEFTS (IBS , 1) <>"y" THEN 


920 


70 REM ENTER DATA BY APPENDING DATA STATEMENTS TO THIS PROGRAM 


740 PRiNT" " 




80 REM 1ST DATA STMT CONTAINS NUMBER OF ROW, NUMBER OF COLUMNS,AND NUMBER O 


750 PRINT "TABLEAU NO.";NP 




F REAL (ACTUAL DECISION) VARIABLES IN THE PROBLEM 


760 FOR N=l TO IX 




90 REM 2ND DATA STMT CONTAINS COEFFICIENTS OF OBJECTIVE FUNTION 


770 PRINT USING "#t######";N; 




100 REM REMAINING DATA STMTS CONTAIN COEFFICIENTS OF EACH ROW IN THE INITIA 


7 8b NEXT N 




L TABLEAU INCLUDING RHS. A SIMPLE EXAMPLE IS INCLUDED WITH THIS LISTING 


7 9M PRINT 




110 READ IW,IZ,IY 


80 FOR M=l TO IW 




120 IX=IZ-1 


810 FOR N=l TO IZ 




130 INfUi'DO YOU WISH SUCCESSIVE TABLEAUX PRINTED (YES/NO) "; IBS 


820 PRINT USING"#####.#t";D(M,N); 




140 FOR M=l TO IX 


830 NEXT N 




150 READ P(M) 


840 PRINT 




160 NEXT M 


850 NEXT M 




170 FOR M=l TO IW 


860 FOR J= 1 TO IX 




1»B FOR N= 1 TO IZ 


87B PRINT USING"###»#.##";SC(J) ; 




190 READ D(M,N) 


880 NEXT J 




200 NEXT N 


890 PRiNT 




210 NEXT M 


900 PRINT "THE OBJECTIVE FUNCTION VALUE IS";Z 




220 INfui"DO YOU WANT OUTPUT TO GO TO THE PRINTER ( YES/NO) "; POS 


910 NP=NP+1 




230 IF LEFTS(PO$,l)="Y" OR LEFT$(POS ,1) «"y" THEN PO-1 


920 IF SX>=0 THEN 1200 




240 IF PO=l THEN PRINT"PRINTING. .." :A1=PEEK ( 16414 ): A2=PEEK ( 16415) : PUKE 1641 


930 SV=999999 




4,PEEK(16422) :POKE 16415 ,PEEK(16423) 


940 IR=-1 




250 PRINT" " 


950 FOR M=l TO IW 




260 PRiNT "THE INITIAL TABLEAU IS:" 


960 IF D(M,IC)<=0 THEN 1010 




2/0 FOR N=l TO IX 


97M QU=D(M,IZ)/D(M,IC) 




280 PRINT USING "*##*##**" ;N; 


980 IF (QU-SV)>=0 THEN 1010 




290 NEXT N 


990 IR=M 




300 PRINT 


1000 SV=Qu 




310 FOR M=l TO IX 


1010 NEXT M 




320 PRINT USING " ###t #.##"; P (M) ; 


1020 IF IR=-1 THEN PRINT "UNBOUNDED SOLUTION" :GOTO 


1270 


330 NEXT M 


1030 IV(IR)=IC 




340 PRINT 


1040 DI=D(IR,IC) 




350 FOR M=l TO IW 


1050 FOR N=l TO IZ 




360 FOR N=l TO IZ 


1060 CK=D(IR,N) 




370 PRINT USING "#####. M";D(M, N) ( 


1070 D(IR,N)=CK/DI 




38b NEXT N 


1080 NEXT N 




390 PRINT 


1090 FOR M=l TO IW 




400 NEXT M 


1100 IF M=IR THEN 1170 




410 FOR N=IY TO IX 


1110 CM=-D(M,IC) 




420 FOR L=l TO IW 


1120 FOR N=l TO IZ 




430 IF D(L,N) = 1 THEN 460 


1130 TM=D(IR,N)*CM 




440 NEXT L 


1140 SK=D(M,N) 




450 GOTO 470 


1150 D(M,N)=SK+TM 




460 IV(L)=N 


1160 NEXT N 




470 NEXT N 


1170 NEXT H 




480 Z=0 


1180 Z=Z-SV*SX 




490 FOR M=l TO IW 


1190 GOTO 540 




500 IM=IV(M) 


1200 PRINT" 




510 Z=Z+D(M,IZ)*P(IM) 


1210 PRINT "THE OPTIMAL TABLEAU IS:" 




520 NEXT M 


1220 FOR M=l TO IW 




530 NP=1 


1230 A$=RIGHT$(STR$(IV(M)) , LEN(STR$ (IV(M) ) ) -1) 




540 SX=0 


1240 PRINT "X("AS") = "USING"**#*#.##";D(M,IZ) 




550 FOR N=l TO IX 


1250 NEXT M 




560 FOR 1=1 TO IW 


126 PRiNT "THE OBJECTIVE FUNCTION VALUE IS";Z 




570 IF N=IV(I) THEN 680 


1270 IF PO=l THEN POKE 16414, Al : POKE 16415, A2 : 


CLS 


580 NEXT I 


1280 END 




590 SM=0 


1290 DATA 3,7,3 




600 FOR 1=1 TO IW 


1300 DATA -2,-1,0,-100,-100,0 




610 J=IV(I) 


1310 DATA 3,1,0,1,0,0,3 




620 SM=SM+P(J)*D(I,N) 


1320 DATA 4,3,-1,0,1,0,6 




630 NEXT I 


1330 DATA 1,2,0,0,0,1,3 




640 SC(N)=SM-P(N) 






650 IF SC(N)>=SX THEN 680 






660 SX=SC(N) 






670 IC=N 






Program Listing 
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equations equals the number of un- 
knowns. Above there are six un- 
knowns and only four equations. The 
theory of linear programming suggests 
considering only m variables for solu- 
tions at any given time, where m is the 
number of equations. In our example, 
we want to have only four variables 
under consideration at a time so that 
we can calculate a unique solution with 
the four available equations. This set 
of variables is called the "basis." 

An initial basis to start with would 
be to set the variables X and Y equal to 
zero and solve for the remaining four 
variables. Looking at the equations 
above, this particular solution is M 
equals 1000, N equals 800, O equals 
400 and P equals 700. This solution is 
the "do nothing" alternative; we are 
making no toys and profit is $0. 
Furthermore, all production is at slack 
levels: None of the resources are used 
at all. This solution corresponds to 
point 1 in the graph. 

Obviously, we wish to make some 
toys. What variable should now come 
into the solution and which should go 
out (only four can be in the basis at any 
time)? We make more money from 
xylophones, so common sense suggests 
trying to make some X. Pivoting, the 
process of bringing the variable X into 
the solution and taking out another 
variable, is especially amenable to 
computer solution. 

The Program 

Following the simple instructions in 
the comment lines in the Program 
Listing, set up the data for this prob- 
lem as: 

1400 DATA 4,7,3 
1410 DATA .4,. 3,0,0,0,0 
1420 DATA 2, 1,1, 0,0,0, 1000 
1430 DATA 1,1,0,1,0,0,800 
1440 DATA 1,0,0,0,1,0,400 
1450 DATA 0,1,0,0,0,1,700 

Merge this data with the program 
with the Basic Merge command or by 
typing the data statements into the pro- 
gram directly. You could easily modify 
the program to accept data via an In- 
put command, but with a disk system 
and Merge you can rapidly input dif- 
ferent sets of fairly complex data to the 
program. 

The program will respond with the 
output shown in Fig. 2. The initial 
tableau simply places the input data in 
convenient columnar format. Check 
this data carefully with the statement 
of the problem. The objective function 
is displayed on the top row of the tab- 
leau. You can identify the current solu- 
tion by locating the identity matrix. 



The identity matrix is a set of columns 
of zeros and ones which looks like: 

10 
10 
10 
1 

In the initial tableau, the identity 
matrix is the rightmost four columns 
under variable numbers 3, 4, 5 and 6, 
or the variables M, N, O and P. This 
corresponds to the solution in which 
we produce no toys. 

The second tableau is identical to the 
first except the objective function has 
been arrayed on the bottom row with 



negative signs. This prepares the analy- 
sis for selecting the first pivot point. 
This row is not always identical to the 
objective function row in the initial 
tableau; in minimization problems (as 
in the nutrition problem below), this 
row is quite different. 

The selection of the pivot point re- 
quires only two checks. First, check for 
the most negative coefficient in the 
bottom row to identify the most prom- 
ising incoming variable (xylophones, in 
our example). Next, check for the 
outgoing variable by forming a ratio of 
the right side over the coefficient in the 
pivot column, and choose the element 



The Initial Tableau Is: 










1 


2 


3 


4 


5 


6 




0.40 


0.30 


0.00 


0.00 


0.00 


0.00 




2.00 


1.00 


1.00 


0.00 


0.00 


0.00 


1000.00 


1.00 


1.00 


0.00 


1.00 


0.00 


0.00 


800.00 


1.00 


0.00 


0.00 


0.00 


1.00 


0.00 


400.00 


0.00 


1.00 


0.00 


0.00 


0.00 


1.00 


700.00 


Tableau 1 














1 


2 


3 


4 


5 


6 




2.00 


1.00 


1.00 


0.00 


0.00 


0.00 


1000.00 


1.00 


1.00 


0.00 


1.00 


0.00 


0.00 


800.00 


1.00 


0.00 


0.00 


0.00 


1.00 


0.00 


400.00 


0.00 


1.00 


0.00 


0.00 


0.00 


1.00 


700.00 


-0.40 


-0.30 


0.00 


0.00 


0.00 


0.00 




The objective function value is 








Tableau 2 














1 


2 


3 


4 


5 


6 




0.00 


1.00 


1.00 


0.00 


-2.00 


0.00 


200.00 


0.00 


1.00 


0.00 


1.00 


-1.00 


0.00 


400.00 


1.00 


0.00 


0.00 


0.00 


1.00 


0.00 


400.00 


0.00 


1.00 


0.00 


0.00 


0.00 


1.00 


700.00 


0.00 - 


-0.30 


0.00 


0.00 


0.40 


0.00 




The objective function value is 160 








Tableau 3 














1 


2 


3 


4 


5 


6 




0.00 


1.00 


1.00 


0.00 


-2.00 


0.00 


200.00 


0.00 


0.00 


-1.00 


1.00 


1.00 


0.00 


200.00 


1.00 


0.00 


0.00 


0.00 


1.00 


0.00 


400.00 


0.00 


0.00 


-1.00 


0.00 


2.00 


1.00 


500.00 


0.00 


0.00 


0.30 


0.00 


-0.20 


0.00 




The objective function value is 220 








Tableau 4 














1 


2 


3 


4 


5 


6 




0.00 


1.00 


-1.00 


2.00 


0.00 


0.00 


600.00 


0.00 


0.00 


-1.00 


1.00 


1.00 


0.00 


200.00 


1.00 


0.00 


1.00 - 


1.00 


0.00 


0.00 


200.00 


0.00 


0.00 


1.00 - 


2.00 


0.00 


1.00 


100.00 


0.00 


0.00 


0.10 


0.20 


0.00 


0.00 




The objective function value 


is 260 








The Optimal Tableau Is: 










X(2) = 600.00 












X(5) = 200.00 












X(l) = 200.00 












X(6) = 100.00 












The object 


ve function value 


is 260 












Figure 2 
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that produces the lowest ratio. 

Examine Fig. 2 to identify the pivot 
point in Tableau 1 . Look for the pivot 
in column 1 (xylophones) since -0.4 is 
the smallest coefficient. Next, form the 
ratios 1000/2, 800/1, and 400/1. The 
smallest value is 400. The pivot point in 
tableau 1 is in bold type. When finding 
ratios, always ignore negative ratios or 
division by zero. 

You are now ready to develop 
tableau 2. Your objective is to produce 
a column of zeros and a one under col- 
umn 1 (that is, create a column of the 
identity matrix). The one must appear 
at the pivot point. By examining col- 
umn 1 in tableau 2, you can see the 
desired column of zeros and a one. To 
obtain this column use the pivot row to 
eliminate variable one from all other 
rows in the tableau. Thus, to eliminate 
the one from row 2 in tableau 1 , sub- 
tract the entire row 3 (pivot row) from 
row 2. (This is equivalent to algebra's 
Gauss- Jordan Reduction, where we 
subtract one equation from another to 
solve systems of equations.) 

Subtraction continues until zeros are 
produced in the pivot column, in- 
cluding the objective function row. 
Eliminate the two in row 1 by multiply- 
ing row 3 by two and subtracting the 
result from row 1. In all cases, the 
pivot element must be a one before 
beginning these operations. If it is not, 
simply divide through the equation to 
produce a one before beginning the 
row operations. To fully understand 
the solution, subtract all rows in 
tableau 1 to produce tableau 2. 

The linear programming algorithm 
now continues until there are no more 



negative coefficients in the bottom 
row. For the ABC Toy problem this 
occurs at tableau 4, which displays the 
solution 600, 200, 200, and 100. To 
identify which variables in tableau 4 
correspond to which solution, look for 
the identity matrix (it will not be in 
order). Also, the program reprints the 
solution with the appropriate variable 
identified. This solution corresponds 
to the graphical solution shown earlier. 
It is interesting to follow the route of 
the algorithm on Fig. 1 as it moves 
from corner to corner of the feasible 
region. As expected, tableau 1 is the 
origin (point 1 on the graph). Then, the 
solution moves to points 2, 3 and 4 
(tableaus 2, 3 and 4). Calculations ter- 
minate at point 4 because a move to 
point 5 only results in a lower profit. 
The theory of linear programming in- 
cludes a mathematical proof that point 
4 is the optimal point and any further 
search will be fruitless. Such a charac- 
teristic is a real boon since the solution 
must occur after a series of finite steps. 
The technique is a powerful analytical 
application for computer processing. 

Nutrition 

To further explain linear program- 
ming and interpretation of the output, 
I will give another example. This nutri- 
tion problem provides an opportunity 
to present additional features, includ- 
ing minimization and the use of artifi- 
cial variables. This problem is a lot 
closer to reality than the ABC Toy Co. 

Nutritionists have determined that an 
adult must consume at least 75 grams 
of protein, 90 grams of fats and 300 
grams of carbohydrates daily to main- 



Minimize: Z = 0.5X, + .7X 2 + 3.75X 


+ 1X, 


+ 1.5X, 


+ 1.5X.+ 1.73 


+ 


.125, 


subject to: 






















2.4X,+7.1X, 


+ 8.4X 


+ 6.2X 


+ 


.7X 


+ 2.3X* 


+ 


1.6X, 






> 


.3X,+9.8X 2 


+ 2. IX 


+ .2X 


+ 




+ 9.4X. 


+ 


3.7X, 


+ 28. 


IX, 


>90 


15. 8X, 






+ 


1.4X, 


+ .9X, 


+ 


8.0X, 






»300 








Figure 3 















Item 


Protein 


Fat 


Carbohydrate 


Cost 


Wheat bread 


2.4 


0.3 


15.8 


0.5 


Cheddar cheese 


7.1 


9.8 





1.7 


Roast chicken 


8.4 


2.1 





3.75 


Steamed haddock 


6.2 


0.2 





1.0 


Dried prunes 


0.7 





11.4 


1.5 


Walnuts 


2.3 


9.4 


0.9 


1.5 


Gingerbread 


1.6 


3.7 


18.0 


1.75 


Margarine 





28.1 





1.125 




Table 2 







tain good health. Table 2 lists several 
common foods with protein, fat and 
carbohydrate content, as well as an ap- 
proximate cost. All data is grams per 
ounce of the food item. Suppose we 
want to produce a meal which will sup- 
ply these substances at the lowest cost. 
This is a minimization problem; the 
formulation should look like Fig. 3. 

Special techniques are needed to deal 
with a minimization problem as de- 
fined in Fig. 3. First, the computer pro- 
gram is designed to maximize; you 
must trick it into minimizing by multi- 
plying through the objective function 
with a - 1 . The program will try to 
make the result as negatively large as 
possible (or as small as possible). 

We have other problems with the 
constraints. Consider Constraint 3, for 
example: 

15.8Xi + 11.4X 5 + -9X 6 + I8X7 - A = 300 

Here, we converted the inequality to an 
equality by subtracting a slack vari- 
able. This variable is now called a sur- 
plus variable since it is the amount of 
carbohydrate in excess of the minimum 
requirements. All seems well, except 
the sign of the surplus is negative and 
the algorithm must have positive signs 
for the starting variables in the identity 
matrix. We overcome this by adding an 
artificial variable to the inequality. 
This variable is included only to pro- 
vide a suitable starting variable. Since 
it is useless other than to get us started, 
we wish to discard it as soon as possible. 

We discard artificial variables rapid- 
ly by giving them extremely large coef- 
ficients in the objective function. The 
program rapidly excludes them from 
the solution and they will never return 
since they cost so much relative to 
other variables (remember that this is a 
minimization problem and we want to 
keep costs as low as possible). 

The results of our handiwork are 
shown in Fig. 4. Here, the input data is 
displayed along with the tableaus. 
Notice first in the objective function 
data (line 1410) that the surplus vari- 
ables have a coefficient of zero as ex- 
pected, but the artificial variables have 
a coefficient of 100 (extremely expen- 
sive items). All coefficients are nega- 
tive since this is a minimization prob- 
lem. Also note in the initial tableau 
that the initial basis consists of the ar- 
tificial variables (X, , X 12 and X 14 ) in 
the columns headed by the -100 
values. 

The objective function row is con- 
siderably changed in tableau 1 . Here, 
as in the ABC Toy problem, we wish to 
find the most negative coefficient in 
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nKlitiu> v 



i A LITTLE 

BIT OF "GREEN" 

GOES A LONG WAY!!! 




COMPARE OUR PRICES. . .Call (216) 481-1600 



DISKITJjl 

MODEL III DISK UPGRADE 

Features 

• Uses Micro Main Frame Finest Disk Controller 

• Gold Plated Edge Connectors 

• Switching Power Supply 

• Supports 5" or 8" Drives 

• 40/80 Track Supported 

• Single/Dual Head Supported 

• Metal Disk Drive Brackets 

• All Hardware and Cables tor Two Disk Drives 

• 1 Hour or Less lor Installation 

• 100°o Compatible 

• No Soldering Needed 

• 180 Days Warranty on Controller 

DISKIT III W'O Drives S279 00 

DISKIT III W/ONE Tandon 

100-1 40 Track Drive $479 00 

DISKIT III W/TWO Tandon 

100-1 40 Track Drive $699.00 

DEALER INQUIRIES WELCOME 
DISKIT Ml is a trademark ol MDS 



PRINTERS 
NEW LOWER PRICES 

Epson MX-80 SCALL 

Epson MX-80FT w/Graltrax SCALL 

Epson MX-100 w'Graftrax SCALL 

IDS Prism 80 SCALL 

IDS Prism 132 SCALL 

Okidata Microlme 80 SCALL 

Okidata Microlme 82A SCALL 

Okidata Microlme 83A SCALL 

Okidata Microlme 84 SCALL 

Prownter 8510 SCALL 

Smith Corona TP- 1 $629 00 



TRS-80, HEATH, IBM. APPLE, ZENITH 
DISK DRIVES 
AT OR BELOW DEALERS COST! 
TRAXX-Model I & III Complete 

Tandon 40 Track S279 00 

Tandon 80 Track SCALL 

***** SPECIAL ***** 

Tandon 80/80 Track $429.00 

************* 

BARE TANDON 

T100-1 40 Track $209 00 

T100-2 40/40 Track SCALL 

T 100- 3 80 Track SCALL 

***** SPECIAL ***** 

T100-4 80/80 Track $359.00 

************* 

TRAXX 8 INCH MODELS 

Seaman 11 Track s/s $339 00 

NEW TANDON THIN LINE" 8 INCH 

848-1 Single Side $399 00 

848-2 Dual Side $499 00 

APPLE Add-On Disk Drive $359.00 



MODEMS 

UDS 103 LP Direct Connect $175 00 

UDS 103 JLP AUTO ANS S209 00 

Hayes Micromodem II (APPLE) S299 00 

Hayes 100 Model (S-100) $325 00 

Hayes Smart Modem (RS-232) S249 00 

MICROBUFFER 

MBP-16K Parallel $149 00 

MBS-8K Serial S149 00 

INTERFACE CARDS 

8141 (RS-232) $75 00 

8150 (2K Butter RS-232) S150 00 

8161 (IEEE 488) $55 00 

8131 (Apple Card) $85 00 

8230 (Apple Cable) $25 00 

8220 (TRS-80 Cable) $25 00 



DISKETTES 

PARAGON MAGNETICS GOLD. Soft-Sectored. 
Single-Sided. Double-Density 5« inch diskettes 

with reinforcing HUB-RINGS S23 95 

VERBATIM-Soft-Sectored Diskettes 

5V iS/DDen (MD525-0D S26 95 

514" 2S/DDen (MD550-01 ) S39 95 

5V 2S/4Den (MD557-01) S51.50 

8" IS/DDen (FD34-8000) $43 95 

VERBATIM-Hard-Sectored Diskettes 

5 V 1S/DDen 10-Sector (MD525-10) $26 95 

5V 2S/DDen 10-Sector (MD550-10) S39 95 

5 ." 2S/4Den 10-Sector (MD557-10) $51.50 

SUPPLIES 

HUB RING KIT for 5." disks $10.95 

HUB RING KIT for 8" disks $12 95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5' >" drives $24 95 

5 v Diskette Case $ 3 50 

8" Diskette Case S 3 95 

5' <" File Box for 50 diskettes $24 95 

AVERY TABULABLES 

1.000 3V x 15/16 S 5 49 

3.000 3': x 15/16 10 95 

5.000 3': x 15/16 $15.95 

FAN FOLD PAPER 
(Prices FOB S P ) 

9 . x 1 1 18 lb WHITE 3.000 ct $27 95 

14 i x 1 1 18 lb WHITE 3.000 ct $37 95 



BOOKS 

OTHER MYSTERIES 

TRS-80 DISK $19.95 

Microsoft Basic Decoded $24.95 

The Custom TRS-80 S28 95 

Basic Faster & Better S29 95 

The Custom Apple $28 95 

1001 Things To Do With 

Your Personal Computer $10 95 

Choosing A Word Processor S 1 5 95 

CP/M Primer $15.95 

I Speak Basic TRS-80 $1 2.95 



TRS-80 

Model III w/2 Tandon 48K S 1795 00 

Modellll w/1 Tandon 48K $1599 00 

Botn units come witn 120 aay warranty from MDS 
ana usp our MEMORY ana DISKIT 



LNW 

LNW-80 Computer $1595.00 

LNW-80-II Computer w/cpm 96K S1995.00 

SYSTEM EXPANSION II $ 349 00 

LNDOUBLER 5/8 Board $ 149 00 



SOFTWARE 

TRS-80 Model I & III 

***** SPECIAL ***** 

FREE Floppy Doctor with the purchase of 
any DISKIT III S30.00 VALUE' 

************* 

NEWDOS 80 2 $139 95 

DOSPLUS 3 4 Model I S 89.00 

DOSPLUS 3 3 Model I $ 69 95 

*NEW* Electric Pencil $79.95 

ELECTRIC WEBSTER 

50.000 Word Spelling Checker S 79 95 

Correcting Feature S 59 95 

When purchased together $129 95 

UNITERM Terminal $ 79 95 

UNITERM/80 Terminal S 89.95 

ACE MAIL for Hayes Smart Modem $ 6995 

LABELMAKER for MX80 $ 1950 

AIDS ill Data Management $ 49 95 

Maxi Manager $ 89 00 

Floppy Doctor I. Ill $ 24 95 

Inventory ♦ $ 29 95 

Cash Register/80 $ 2995 



GAMES 

TRS-80 • SAVE • MOST GAMES AVAI 
141-001 Introductory 3-Pack 

Rescue. Morloc's and 

Datestones 
221-001 Super Nova 
221-002 Galaxy Invasion 
221-003 Attack Force 
221-004 Cosmic Fighter 
221-006 Robot Attack 
221-008 Stellar Escort 
351-001 Scarfman (Mod l/lll) 
351-500 Scarfman (color) 
351-501 New Bounceoids 
391-001 Math-Pak-1 
391-002 Math-Pak-2 
431-001 Sargon II (Mod I) 
431-101 Sargon II (Mod III) 
511-003 Adventure 
021-004 Pigskin 
060-601 Adventure »1,2&3 
060-604 Adventure «4.5&6 
060-607 Adventure «7.8&9 
060-611 Adventure «10.11&12 
061-066 The Mean Checker 

Machine 



LABLE 


FOR APPLE 


DISK . 


. S49 95 


DISK 


. S 17.95 


DISK 


. S17 95 


DISK 


. $17 95 


DISK 


. SI 7.95 


DISK 


. S17.95 


DISK 


. $17 95 


DISK 


. $17.95 


CASS 


. $17.95 


DISK 


. $19.95 


CASS 


. $1495 


CASS 


. $14.95 


DISK 


. $29.95 


DISK 


. $3495 


DISK 


. S29 95 


DISK 


. $17.95 


DISK 


. $34 95 


DISK 


. $34.95 


DISK 


. $34.95 


DISK 


. $34.95 



DISK .. S17 95 




FMICRO DATA SUPPLIES 



^459 



22295 EUCLID flVG. 
6UCLID.OHIO 44II7 
(2I6)48H600 



WE ACCEPT 

• Visa 

• MasterCard 

• ChecKS 

• Money Order 

• COD 


ALL PRICES 

ARE FOR 

MAIL OROER ONLY 

Prices. Specifications 

and Offerings subiect 

to change without 

notice 


ADD S3 00 FOR 
SHIPPING 
& HANDLING 
$6 00 Extra lor 
COD Orders 
Ohio Residents 
add 6 5% Sales Tax 



the objective function row which will 
reveal the most promising incoming 
variable. In this case, variable X 8 
(margarine) is the incoming variable. 
In column 8 there is only one choice for 
the pivot (90/28. 1) and X 12 is hence the 
outgoing variable. (This is one of the 
artificial variables we wish to banish.) 

Finally, in Fig. 4, tableau 8 (the last 
tableau) and the final solution are 
displayed. (Six other tableaus com- 
puted on the way to this solution were 
omitted to save space.) Observing the 
objective function row in tableau 8, no 
further negative signs are seen and the 
optimal solution is reached. The solu- 
tion is 18.99 grams of bread, 4.75 
grams of fish, and 2.97 grams of mar- 
garine. Looks like a fish sandwich! 
You can question the proportions of 
items, but the solution does satisfy the 
constraints. 

In the real world, an analyst would go 
back to the original problem and devise 
additional constraints. (For example, 



we may never want more than 1/2 gram 
of margarine in any solution.) 

The objective function row in the 
last tableau, now called "shadow 
prices," reveals the necessary cost 
reduction for a food item to come into 
the solution. A person particularly 
fond of chicken sandwiches (versus 
fish) could examine the shadow price 
for chicken ($2.32). If the price were 
reduced to $1.42, chicken would come 
into the solution. (It would then have a 
negative coefficient in bottom row.) 
You may wish to change the cost of 
chicken in the initial data and explore 
the resulting solution. 

You may wish to explore more alter- 
natives regarding the final solution to 
the Toy Co. or nutrition problems. 
Additional solutions are possible. The 
computer program permits rapid re- 
analysis of the problem, eliminating 
the drudgery of hand solution. 

Here are some additional problems 
for interested readers. Explore the 



changes in the ABC Toy problem if all 
available machine hours must be used. 
(Hint: This requirement implies equal- 
ity constraints and you must add an ar- 
tificial variable to the formulation to 
get started.) What happens when you 
make the following changes to the 
nutrition problem? 

Modify the input data and resolve 
the problem by reducing the price of 
chicken by the amount of the shadow 
price ($2.33). 

Supposing your diet must contain 
exactly 215 grams of carbohydrates, 
find the new solution. 

Suppose the protein requirement is 
revised to only 50 grams or more of 
protein. Can you guess from the cur- 
rent solution if the diet will change? In 
either case, resolve the problem. ■ 

Dr. David Clapp is an engineer with a 
federal agency. He can be reached at 
1 769 Kingsway Court, Cincinnati, OH 
45230. 



The Initial Tableau Is: 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 




-0.50 


-1.70 


-3.75 


-1.00 


-1.50 


-1.50 


-1.75 


-1.13 


0.00 - 


-100.00 


0.00 - 


-100.00 


0.00 ■ 


-100.00 




2.40 


7.10 


8.40 


6.20 


0.70 


2.30 


1.60 


0.00 


-1.00 


1.00 


0.00 


0.00 


0.00 


0.00 


75.00 


0.30 


9.80 


2.10 


0.20 


0.00 


9.40 


3.70 


28.10 


0.00 


0.00 


-1.00 


1.00 


0.00 


0.00 


90.00 


15.80 


0.00 


0.00 


0.00 


11.40 


0.90 


18.00 


0.00 


0.00 


0.00 


0.00 


0.00 


-1.00 


1.00 


300.00 


Tableau 1 
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7 
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10 


11 


12 


13 


14 




2.40 


7.10 


8.40 


6.20 


0.70 


2.30 


1.60 


0.00 


-1.00 


1.00 


0.00 


0.00 


0.00 


0.00 


75.00 


0.30 


9.80 


2.10 


0.20 


0.00 


9.40 


3.70 


28.10 


0.00 


0.00 


-1.00 


1.00 


0.00 


0.00 


90.00 


15.80 


0.00 


0.00 


0.00 


11.40 


0.90 


18.00 


0.00 


0.00 


0.00 


0.00 


0.00 


-1.00 


1.00 


300.00 


-1849.50- 


- 1688.30- 


• 1046.25 


-639.00- 


-1208.50- 


-1258.50- 


-2328.25- 


-2808.88 


100.00 


0.00 


100.00 


0.00 


100.00 


0.00 




The objective function value is 


-46500 
























Tableau 2 
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2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 




2.40 


7.10 


8.40 


6.20 


0.70 


2.30 


1.60 


0.00 


-1.00 


1.00 


0.00 


0.00 


0.00 


0.00 


75.00 


0.01 


0.35 


0.07 


0.01 


0.00 


0.33 


0.13 


1.00 


0.00 


0.00 


-0.04 


0.04 


0.00 


0.00 


3.20 


15.80 


0.00 


0.00 


0.00 


11.40 


0.90 


18.00 


0.00 


0.00 


0.00 


0.00 


0.00 


-1.00 


1.00 


300.00 


-1819.51 


-708.69 


-836.33 


-619.01- 


- 1208.50 


-318.88- 


-1958.40 


0.00 


100.00 


0.00 


0.04 


99.96 


100.00 


0.00 





The objective function value is -37503.6 



Tableau 7 






























1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 




1.00 


0.00 


0.00 


0.00 


0.72 


0.06 


1.14 


0.00 


0.00 


0.00 


0.00 


0.00 


-0.06 


0.06 


18.99 


0.00 


1.00 


1.18 


0.87 


-0.15 


0.30 


-0.16 


0.00 


-0.14 


0.14 


0.00 


-0.00 


0.02 


-0.02 


4.15 


0.00 


0.00 


-0.34 


-0.30 


0.04 


0.23 


0.18 


1.00 


0.05 


-0.05 


-0.04 


0.04 


-0.01 


0.01 


1.55 


0.00 


0.00 


2.12 


-0.15 


1.34 


0.70 


1.25 


0.00 


0.18 


99.82 


0.04 


99.96 


0.00 


100.00 




The objective 


function value is - 


-18.2915 
























Tableau 8 






























1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 




1.00 


-0.00 


-0.00 


0.00 


0.72 


0.06 


1.14 


0.00 


0.00 


-0.00 


-0.00 


0.00 


-0.06 


0.06 


18.99 


0.00 


1.15 


1.35 


1.00 


-0.17 


0.35 


-0.18 


0.00 


-0.16 


0.16 


0.00 


-0.00 


0.02 


-0.02 


4.75 


0.00 


0.34 


0.07 


0.00 


-0.01 


0.33 


0.12 


1.00 


0.00 


-0.00 


-0.04 


0.04 


0.00 


-0.00 


2.97 


0.00 


0.17 


2.32 


0.00 


1.31 


0.75 


1.23 


0.00 


0.16 


99.84 


0.04 


99.96 


0.01 


99.99 





The objective function value is - 17.58 



The Optimal Tableau Is: 

X(l) =18.99 

X(4) =4.75 

X(8) = 2.97 

The objective function value is - 17.58 
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Figure 4 
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YOUR TRS-80®...OUR BASIC BOOK, 
THE PERFECT COUPLE 

LEARNING TRS-80 BASIC starts where the Radio Shack® 
getting started manuals end, fulfilling the needs of 
elementary and intermediate level users. If you own or 
have access to a Model I, 11/16, or III, our 544 page BASIC 
book is a necessity. 

IT'S SIMPLE 

We receive testimonials every day commenting on the 
simplicity of this book. 

• "very well organized... careful step-by-step progression" 
— R.G., Oxnard, CA 

• "extremely logical progression and excellent explanations" 
— J.S., Pacifica, CA 

• "easy reading style"— J. B., St. Louis Park, MN 

In fact we think it is so simple that.... 

WE GUARANTEE IT 




Try LEARNING TRS-80 BASIC free lor 15 days and it you don't agree that it is as simple 
as we and users like yourself are saying, then send back the book in saleable condition 
and pay nothing. ' 
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6%) — same return guarantee. Offer good in USA only. 
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TECHNIQUE 



Model III Relative Files 



by Andrew Rucks 



T 



he drawbacks of direct access files can be 
overcome by using relative files accessed by 
the scatter technique with open addressing. 



It's difficult to write application pro- 
grams using direct-access files for the 
Model III. Model III Disk Basic offers 
constructs for creating and accessing 
random or direct-access files; however, 
it doesn't permit efficient use of file 
space unless logical records conform to 
the size parameter of physical records. 

Using the R option with a file-open 
statement designates a direct-access 
file. For the Model III and most other 
microcomputers, direct access means 
each of the physical records allocated 
to a file can be accessed independently. 
For example, the fifth record of a file 
containing 10 records can be accessed 
without having to access the first rec- 
ord, second record and so forth. You 
can determine the number of physical 
records allocated to a file by examining 
the #Rec column of the report pro- 
duced by a DIR command. 

Model III Disk 
Organization and Buffering 

Disk Basic running under TRSDOS 
stores data on disks in fixed-length 
blocks. These fixed-length blocks, 
called sectors, are the units of ad- 
dressable space on a disk. Therefore 
sector and physical record are syno- 
nyms. The size (length) of a sector is ex- 
pressed as the number of characters 
(bytes) that can be stored in a sector. On 
Model III disks the sector size is 256 
characters. The combination of sector 
size, number of sectors per track, and 
the number of tracks on a disk deter- 
mine a disk's storage capacity. 
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For example, the 5 14 inch disks de- 
signed for use with Model III systems 
have 40 tracks, 18 sectors per track, 
and 256 bytes per sector, and therefore 
can store 184,326 characters. Actual 
data storage capacity of a disk is less 
than the physical capacity of a disk be- 
cause track 17 of a disk is reserved for 
the disk's directory and cannot be used 
for data storage. 

The Model III and other microcom- 
puters reserve a portion of random- 
access memory (RAM) for disk input- 
output (I/O) operations. These reserved 
areas are called buffers. A buffer has the 
same capacity (size) as a sector or phys- 
ical record. When a disk input operation 
is performed, a copy of the information 
stored in a sector is placed in a buffer 
where it becomes available to an applica- 
tion program. A disk output operation is 
the reverse of this process. For every disk 
input operation a complete sector is read 
into memory and for every disk output 
operation a complete sector is written 
onto the disk. 

The full sector read/write applies 
even when you answer V to the "How 
many files?" query upon entering Disk 
Basic. The use of variable-length rec- 
ords has no perceivable impact on the 
manner in which TRSDOS references 
files. Disk Basic through TRSDOS 
reads an entire sector; however, when 
this data is transferred to a buffer, only 
the first N bytes are placed in the buf- 
fer — the remainder are disregarded. 

For example, assume that a program 
is using a variable-length record file 



and the file's buffer is fielded for 128 
characters. When a disk read operation 
is performed on the file, a full sector 
(256 characters) is read from the disk 
but only the leftmost 128 characters are 
placed in the file buffer. The remaining 
128 characters of the sector are ig- 
nored. This remainder cannot be used 
for data storage because Disk Basic 
and TRSDOS cannot reference frag- 
ments of sectors. 

Impact of Fixed Blocks 

Fixed-block disk organization is not 
limited to the Model III; it is also com- 
mon in other microcomputers, mini- 
computers and large-scale systems. 
Operating systems of computers in the 
mini and large-scale classes perform buf- 
fer fielding and data transfer without 
programmer intervention. These op- 
erating systems can write logical records 
across sector boundaries, thus optimiz- 
ing disk space utilization. Microcom- 
puters cannot place more than one 
logical record in a sector without pro- 
grammer intervention. 

Consider writing eight records of 32 
characters each in a direct-access file on 
the Model III compared with the same 
operation on a typical minicomputer. 
Storing the eight records on the Model 
III requires 2,048 characters of disk 
space (eight records of 256 characters 
each). For the minicomputer only 256 
characters of disk space are required. 
The Model III consumes eight times 
more disk space than the minicom- 



The Key Box 

Model III 
Disk System 



100 DIM BU$(8) 


1000 OPEN "R",1,"FILE" 

1010 FIELD 1, 32 AS BU$(1), 32 AS BU$(2), 
32 AS BU$(3), 32 AS BU$(4), 32 AS 
BU$(5), 32 AS BU$(6), 32 AS BU$(7), 
32 AS BU$(8) 


Figure la 


100 DIM BU$(5) 


1000 OPEN "R",l, "FILE" 

1010 FIELD 1, 48 AS BU$(1), 48 AS BU$(2), 

48 AS BU$(3), 48 AS BU$(4), 48 AS 

BU$(5), 16 AS LOS 


Figure lb 



puter to store the same amount of in- 
formation. 

Model III programmers have several 
options available to solve the problem 



of wasted disk space associated with 
direct-access files. One solution is to 
avoid the use of direct-access files by 
relying only on sequential files. Using 
sequential files improves disk space 
usage efficiency; however, this tech- 
nique significantly increases the search 
time for records and complicates file 
maintenance procedures. Record 
search-time inefficiency results from 
having to read n-1 records in order to 
reach the nth record in a file. In a se- 
quential file maintenance procedure, 
the original (master file) must be 
merged with a transaction file (con- 
taining changes, deletions or insertions 
for the master file) to create an update 
of the master file. The transaction file 
must be sorted in the same order as 
the master file. 

Relative Files 

In relative files the location of a 
logical record in a file is determined by 
a value within the record referred to as 
the record key (e.g., employee ID in a 
payroll system). The location of a log- 
ical record in the file is relative to the 



RELATIVE \ 

FILE MAINTENANCE)-- 

PROCEOURE J 



FPA< - ll/(, PFN1 



»S/l/< - flW, Pe\ 



Lff/V< -HN.P4.PSN) 




WRITE SECTOR TO FILE 



- i EX ' T J 



Legend: 

FMO = file maintenance operation (delete, edit, insert) 

FPA = first probe address 

K = record key 

LRN = logical record number 

N = number of logical records per sector 

PA = probe address (either FPA or SPA) 

PNF = prime number factor — largest prime number less than the number of logical records 

per sector times the number of sectors allocated to a file divided by 0.95 

RSN = relative sector number (1< = RSN < = SAF) 

SAF = sectors allocated to a file multiplied by 0.95 

Fig. 2. File Maintenance Procedure— Scatter Method with Open Addressing 



contents of the record. Relative file or- 
ganization treats a file as a pool of 
space wherein records can be stored at 
random or scattered throughout the 
file. 

To create a storage pool, field the 
buffer areas of direct-access files as 
elements of an array. The size of the 
array is the integer portion of the quo- 
tient obtained by dividing the number 
of bytes in each logical record into the 
buffer size. The treatment of buffers as 
arrays creates a pool of storage area in 
much the same way that soft-drink car- 
tons subdivide the space in a soft-drink 
case. 

Figures la and lb show two examples 
of fielding a file buffer as an array. In 
Fig. la, the logical record length is 32 
characters. Therefore, eight logical 
records can be placed in the buffer and in 
each sector allocated to the file. Figure 
lb illustrates the fielding of a buffer in 
situations where sector size is not evenly 
divisible by the logical record length. In 
Fig. lb, the logical record length is 48 
characters, resulting in five logical 
records being held in the buffer and a 
slack or waste area of 16 characters. 

Determining Logical 
Record Location 

The actual location of a record in a 
relative file is determined by a formula 
known as a hash function. Hash func- 
tions produce a set of sector numbers 
that fall within an allowable range. 
This range is expressed as 1 < = Sf 
< = Sn, where 1 is the minimum rela- 
tive sector number, Sn is the number of 
sectors allocated to a file and is the 
largest relative sector number, and Sf is 
the sector number produced by the 
hash function. 

A good hash function minimizes the 
probability that the hashing of two in- 
dependent keys will produce the same 
relative sector number. The generation 
of duplicate addresses is termed colli- 
sion. Since hashing algorithms that 
totally avoid collisions are rare, you 
must use a method for resolving these 
situations. 

Open addressing is one of several 
methods for resolving collisions and 
offers advantages to the Model III user 
not provided by alternative methods. 
Open addressing minimizes the num- 
ber of disk accesses required to de- 
termine if a record is present in a file. 
Although open addressing involves 
more computational overhead than 
other collision-resolution techniques, 
this overhead is insignificant when 
compared to the overhead involved in 
accessing a Model III disk. 
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In open addressing a record key is 
hashed repetitively and the resulting 
sector number is probed for the ap- 
propriate record. This set of sector 
numbers is referred to as the probe se- 
quence. Members of a probe sequence 
are generated on an as-needed basis: 
When the probe of a logical record 
does not achieve the desired result, the 
key is hashed again to produce the next 
member of the probe sequence. An im- 
portant feature of open addressing is 
that the formula used to generate a 
probe sequence always generates the 
same set of sector numbers for a given 
record key. 

File Maintenance 

File maintenance involves three 
possible actions: placing a new record 
in a file (insert), changing the contents 
of a record in a file (edit) and removing 
a record from a file (delete). Figure 2 
shows a flowchart of the procedure for 
performing file maintenance using the 
scatter method with open addressing. 

Sizing a Relative File 

Use a file load factor of approx- 
imately 95 percent for this implementa- 
tion of the relative organization. A 



"TRS — QO =>IBM RC ! 

TRIX is an 8086 program which 
reads TRS-BO Model III disks 
and writes any file to an IBM 
PC disk while operating under 
PC-DOS on an IBM PC. Just put 
your Mod III diskette into an 
PC and copy your files. 
TRS-BO BASIC programs 
run immediately on the 



IBM 

Many 

will 

PC! 

TRIX on PC DOS Disk *99.95 



BL I MK I MC3 1=" I EELDS ! 

BLINKS-IT is a BASIC program 
which can easily be merged 
into any TRS-80 Mod I or III 
BASIC program. Using machine 
language it will blink any 
field or combination of fields 
on the TRS— 80 screen at any 
rate from 1 to 30 times per 
second. BLINKS- IT on Mod I or 
III disk *49.95 

LAST CHANCE SALE ! CLOSE OUT ! : 

«?0,000 WORDS ! 

WORD BRINDER is an ASCII dic- 
tionary in alphabetical order 
of 90,000 words. Great for 
proof-readers, word games, 
etc. Over 1 Megabyte of ASCII 
files. Distributed on various 
media. Supplied on 14 Mod I 
Disks or 7 Mod III disks. WORD 
GRINDER. From *125.00 

VISA JOE COMPUTER M/C 
22458 VENTURA BLVD. Ste. E 
WOODLAND HILLS CALIF. 91364 " 256 
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200 REM *** First Probe Address Function 

210 DEF FNFP(K,P) = K-(INT(K/P)*P) + 1 

220 REM where, K = record key and P = prime number factor 

230 REM *** Subsequent Probe Address Function 

240 DEF FNSP (PA,K,P) = (PA + (K-(INT(K/P)*P))- 

(INT (PA + (K - INT(K/P)*P)/P)*P) 
250 REM where, K and P are defined above and PA = probe address 

260 REM *** Relative Sector Number Function 

270 DEF FNRS(PA,N) = INT(PA-1/N) + 1 

280 REM where, PA is defined above and N = number of logical records per sector 

290 REM *** Logical Record Number Function 

300 DEF FNLR(SA,N,PA) = SA*N-(PA-1) 

310 REM where, SA = relative sector number, and N and PA are defined above 

Program Listing 



95 -percent file load factor means you 
should plan to use only about 95 per- 
cent of the space allocated to a relative 
access file. The slack prevents the 
processing time of a search from sig- 
nificantly increasing as the file be- 
comes full. For example, assume you 
are creating a relative file with 1,000 
logical records of 45 bytes each. Five 
logical records can be stored in each 



"Slack prevents 

the processing time 

of a search from 

significantly increasing 

as the file becomes full. " 



sector (256/45 = 5 and a slack area of 
31 characters), and 200 sectors are re- 
quired for data storage. However, 
because of the file load factor, you 
should allocate five percent more sec- 
tors to the file, thereby making the file 
210 sectors long. 

Hash Functions 

The scatter technique with open ad- 
dressing requires two hash functions: 
one to determine the first probe ad- 
dress (FPA) and another to determine 
all subsequent probe addresses (SPA). 
The FPA function is: FPA = modulo 
(record key,P) + 1. Record key is the 
value of the record key and P is the 
largest prime number less than or equal 
to the number of logical records multi- 
plied by the number of sectors 
allocated to the file multiplied by the 
file load factor. 

The function for determining SPAs 



is: SPA = modulo(PA + modulo 
(record key/P,P),P) + 1. PA is the 
previous unsuccessful probe address 
determined by either the FPA or SPA 
functions. Record key and P are de- 
fined in the FPA function. Probe ad- 
dresses produced by these algorithms 
have the characteristic of 1 < = probe 
address (PA) < = P. 

Identifying Logical Records 

A probe address is a composite of 
the number of sectors and the number 
of logical records per sector. It must be 
reduced to a relative sector number 
(RSN) and a logical record number 
(LRN). The RSN identifies the sector 
that will be read into a file buffer and 
examined for the desired logical rec- 
ord. The RSN function is: RSN = 
integer((PA - 1) / N) + 1. PA is the 
probe address and N is the number of 
logical records per sector. 

The final function required to imple- 
ment the relative file organization is 
one to determine the element within 
the buffer array that contains the 
logical record. The logical record 
number (LRN) function is: LRN = 
(RSN * N) - (PA - 1). RSN, N and PA 
are the same as defined in previous 
functions. 

Disk Basic Implementation 

The program segment presented in 
the listing is written in Disk Basic. This 
segment illustrates the define function 
(DEF FN) construct for each of the 
functions presented in this article. B 



Peter Ginter and Andrew Rucks can 
be reached at the College of Business 
Administration, University of Arkan- 
sas, Fayetteville, AK 72701. 



Convert to CP/M 
and Save. 

Unprecedented Sale for Model III Owners. Call for Details. 



The Trouble with TRS-DOS. 

Although TRS-DOS is an excellent operating system, it 
has one major disadvantage. VVhen compared with CP/M, 
TRS-DOS locks you into a limited and possibly dead-end 
course. When you are ready to upgrade to a new computer, 
it is likely that none of your present software will run on 
the new machine. All of the time and money you have 
invested in TRS-DOS software will be lost. 

CP/M for the TRS-80. 

Converting to CP/M offers the TRS-80 owner many advan- 
tages. The TRS-80 immediately becomes capable of run- 
ning twice the software of any other computer on the 
market. Perhaps more importantly, CP/M permits soft- 
ware portability. Unlike TRS-DOS programs. CP/M pro- 
grams can be directly transferred to your next computer. 
The savings in time and software costs can be quite sig- 
nificant. CP/M conversion can easily pay for itself with the 
money saved on one or two software purchases. The sooner 
you convert to CP/M, the more you stand to save. 

CP/M Acquires Unprecedented Support. 

Over the past year, a number of powerful competitors 
have introduced new microcomputers. Most people will 
instantly recognize the names of Xerox, IBM, Hewlett- 
Packard, Digital Equipment and Zenith. The Japanese 
companies, Sony. NEC, Sanyo. Toshiba and Sharp, are 
equally well-known. Together, these companies have com- 
mitted over a billion dollars to compete effectively in the 
micro market. TRS-80 owners should be aware that every 
one of these companies has chosen CP/M for their stan- 
dard operating system. Over the next few years, these 
companies will sell millions of CP/M computers. Consid- 
ering these facts, it is clear that CP/M is the operating 
system of the future. 

Apple and Commodore Offer CP/M. 

In a recent press conference, the Apple Computer 
Company stated, "The largest installed base CP/M system 
in the world today is the Apple II with the Z80 card from 
Microsoft'.' In a recent full page ad in the Wall Street 
Journal, Apple announced Cr/M for the Apple III. 
Commodore, refusing to be left behind, has recently 
announced their "Emulator" series of computers that sup- 
port CP/M. There are even rumors that the new Tandy 16 
will support a version of CP/M. 



Plan Ahead. 

The Omikron "Mapper" offers the ideal step to upgrading 
to a newer, more powerful computer. With the "Mapper, 
your TRS-80 can run both CP/M programs and TRS-DOS. 
With CP/M, you can build a software library that's fully 
compatible with the newest CP/M business computers. 
All of the time and money you spend on selecting, pur- 
chasing, and learning CP/M software can be considered 
an investment in the future. In addition, your old TRS-80 
can gain a new lease on life as a fully compatible back-up 
unit. Consider all these points carefully. The Omikron 
"Works" package offers the best solution for protecting 
your investment in the TRS-80. By choosing the "Works," 
you can purchase a "Mapper" and also receive over $1,000 
worth of top-quality CP/M software. Value, Utility, per- 
formance — Omikron offers you more than ever before. 



COUGAR . . . Omikron's Users Group. 

CP/M has always been the standard for business and pro- 
fessional use. This market has always demanded high 
quality and high performance. The high prices for CP/M 
programs reflect the additional effort required to develop 
top-quality software products. To help our customers afford 
Cr/M software, Omikron has formed Cougar, our official 
users group. Through Cougar, Omikron can purchase 
software products in large volume. This allows us to offer 
our customers some of the best CP/M software in the 
industry at greatly reduced prices. 



Omikron Puts It All Together. 

Omikron has sold more CP/M conversions than all of our 
competitors combined. Omikron was the first in the mar- 
ket with a CP/M conversion. Omikron has continued to 
lead the market for one simple reason — our total commit- 
ment to our customers. Only Omikron offers a "Works" 
type introductory package. Only Omikron has a "Cougar" 
type users group for long-term savings. Our hardware has 
always been designed with reliability first. Our software 
is well designed, complete, and bug free. Our technical 
hot line assists those with problems. Finally, our exchange 
policy has enabled our customers to upgrade to our new 
designs for much less than the cost to new customers. 
\Vhen you buy from Omikron, you buy from a company 
with a proven record of dedication and success. 
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Towards Better Programming 



by John T. Blair 



I 



mprove your programming technique by applying 
these straightforward methods — Program Devel- 
opment Language and the Scientific Method. 



Professional tools and ideas are 
always welcome to newcomers to com- 
puters and programming. I will present 
a procedure for solving problems (the 
scientific method) and Program Devel- 
opment Language (PDL, similar to 
flowcharting) for program design. 

These techniques are not restricted 
to the TRS-80 or to Basic. They can be 
applied to a program in any language 
run on any computer. For program- 
ming in Assembly language, these prin- 
ciples are almost mandatory. 

I will use these techniques to write a 
Basic program which will convert an 
Assembly-language source program to 
an ASCII file, and an ASCII file back 
to an Assembly-language source pro- 
gram. Many TRS-80 terminal pro- 
grams only transmit or receive ASCII 
files. Consequently, Assembly-lan- 



guage source programs cannot be sent 
via these terminal programs unless 
converted to ASCII files. 

Getting Started 

Three distinct steps must be per- 
formed to get a program from thought 
to execution. 

The first phase is developing the pro- 
gram specifications. You must define 
requirements and identify possible 
problem areas. Next comes the pro- 
gram design, where logic flow is devel- 
oped via a PDL or flowcharts. This is 
the most important part of writing a 
program, because a poorly designed 
program costs extra time and money. 
Here is where you find out: 

Do I want to do this?; Can I do this? 
(Do I have the time and resources?); 
and What assumptions have been made 



Initial problem analysis 

• Sift through the material or data, to produce a better definition of the given data. 

• Define the requirements of the problem. In other words, what are we required to find? 

Attempt a general model 

• Draw a general system flowchart. Examine the logic. 

• Draw detailed or subordinate flowcharts. All language should be machine independent. 
Write short, descriptive English words to describe functions. 

• Test the final model by implementing the coding in the language to be used. 

Adjusting the model 

• Look for bugs. 

• Retest and look for bugs again until complete. 

Table 1. Scientific Programming 



by the person requesting the program? 

The second phase is translating ideas 
from the PDL into the language of the 
computer. 

The last phase consists of running 
the program, debugging it, and look- 
ing for logic flaws. 

Each of these independent steps 
could be handled by a separate person. 
As hobbyists, most of us must do all 
three. In an academic environment, 
most courses emphasize language syn- 
tax; the student is expected to learn 
programming design by default. 

Scientific Method 

The scientific method is a systematic 
thought process for solving problems 
or predicting the correct results of an 
action. The Nature of Scientific 
Thought states the scientific method in 
its simplest form as: 

Postulate a model based on existing experimental 
observation or measurement. Check the predic- 
tions of the model against further observation or 
measurements. Adjust or replace the model as re- 
quired by the new observation or measurement. 

How does this relate to program- 
ming? The programmer is trying to 
predict a computer's action when given 
a sequence of instructions. The scien- 
tific method leads to a logical path 
(flowchart or PDL), a way to predict if 
the program will yield the desired 
results. Expanding and redefining the 



The Key Box 

Disk Basic 
Model I or HI 
32KRAM 
TRSDOS 
One Disk Drive 
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basic steps of this methodology and 
applying it to programming, the solu- 
tion of a problem can be divided into 
several parts (see Table 1). 

This is called "top down design," or 
structured programming. Be aware of 
the difference between designing and 



writing a program. Designing a pro- 
gram is the development of a smooth 
flow of ideas and a step-by-step pro- 
cedure (algorithm) to solve a problem. 
It is not necessary for the algorithm to 
run on a computer. The logic flow can 
be checked by reading the PDL or fol- 



lowing the lines in a flowchart. Once 
the logic has been proved, the design 
can be translated into a language your 
computer will understand. Notice that 
the program design is machine inde- 
pendent! Writing a program is putting 
instructions in a language the com- 



Program Listing 
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100 

110 

120 

130 

140 

150 

160 

170 

172 

180 

190 

UT & 

200 

210 

220 

230 

240 

250 

RCE 

260 

EQUI 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

802 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 



***** C N H L S **** 

CONVERT MACHINE LANGUAGE SOURCE TO AN ASCII DATA FILE 
BY JOHN T. BLAIR WA40HZ DATE 06/14/80 
LAST REV 11/01/80 
END-OF-FILES BASIC ■ 0D(H) EDTASH » 0D1A(H) 

PENCIL = 00(H) 
A TAB FOR EDTASH » 09(H) 

DEFINATION OF VARIABLES USED 
IS = INPUT BUFFER 
IN$ ■ INPUT FILE 
N$ - FILE NAME LESS EXTENSION 
NIS ■ DRIVE NUMBER (INPUT) 
NO$ = DRIVE NUMBER (OUTPUT) 
0$ = OUTPUT BUFFER 
OUS ■ OUTPUT FILE 

LN » LINE NUMBER (OUTPUT FILE) 
S$ - SPACE STRING 
T? » TEMP OUTPUT LINE 



CLEAR STRING SPACE FOR INP 



CLEAR 1000:DIM IS ( 256) , OS ( 256) 

OUTPUT BUFFERS 
S$=STRING$(10,32) 

1 CRT HEADERS 

CLS: PRINT" C N M L S" 

PRINT:PRINT"THIS PROGRAM WILL CONVERT A MACHINE LANGUAGE SOU 

PROGRAM" 

PRINT'TO AN ASCII FILE OR VISA VERSA. EXTENSIONS ARE N-O-T R 

RED , " 1 

PRINT'BUT MUST BE:":PRINT "FOR THE INPUT FILESPEC." 

PRINT" TXT = SOURCE FILE 

PRINT" ASC = ASCII FILE." 

PRINT: PRINT :PRINT"WHICH TYPE OF FILE IS THE INPUT FILE?" 

PRINT" 1 = M/L SOURCE FILE":PRINT" 2 = ASCII FILE" 

INPUT" INPUT YOUR OPTION #";0 

INPUT " SOURCE FILESPEC:"; INS 

INPUT " SOURCE DRIVE #";NI$ 

INPUT " DEST DRIVE «";NO$ 

1 GET FILE NAME FROM FILESPEC 



J = INSTR(IN$,"/") : IF J = 

J=LEN(INS) :GOTO420 

J=J-1 

ON GOTO 500,1220 



THEN 400 ELSE 410 



CONVERT SOURCE FILE TO ASCII FILE 



DISK INITILAIZATION 

OU$=MID$(IN$,l,J)+"/ASC"+":"+NO$ 

IN$=MID$(IN$,l,J)+"/TXT"+":"+NI$ 

0$="" 

OPEN "I",1,INS:' INPUT FILE 

OPEN "0",2,0U$:' OUTPUT FILE 

CLS:PRINT"NEW FILEs ";0U$ 

' READ 1ST LINE FROM DISK INTO INPUT BUFFER 



IS="":LINEINPUT #1,1$ 
GOSUB 970: IF L=0 THEN 820 
L=LEN(I$) :I$=MID$(I$,8,L) : ' 
0$="" 

GOSUB 880: ' 
GOSUB 1050: ' 
PRINT OS: ' 
PRINT #2, OS: ' 



STRIP OFF FILE NAME 

CONVERT AND ADD LINE NUMBER 
CONVERT TABS 
PRINT TEXT LINE ON CRT 
OUTPUT TEXT LINE TO DISK 



READ REMAINING LINES FROM DISK 



I$="":0$="":' 
LINEINPUT #1,1$: ' 
IF EOF(l) THEN 820 
GOSUB 970: IF L=0 
GOSUB 880: ' 
GOSUB 1050: ' 
PRINT OS 
PRINT #2, OS 
GOTO 700: ' 



CLEAR INPUT & OUTPUT BUFFERS 
READ NTH TEXT LINE 



CONVERT AND ADD LINE NUMBER 
CHECK FOR TABS 



REPEAT TILL E-O-F 



CLOSE FILES & ADD END OF TEXT 
THIS ASC FILE IS DIRECTLY READABLE BY PENCIL 



O$="":O$=O$+CHR$(13)+CHR$(00) • • 
PRINT #2, OS 
GOTO 1670 



ADD EOT CHAR 



1 CONVERT BIT 8 HIGH ASCII TO BIT 8 LOW 

FOR 1=1 TO 5: ' 5 DIGITS / LINE NUMBER 

0$=0S+CHR$(ASC(MID$(I$,I,1)) AND 127) 
NEXT I 
0$=0$+CHR$(32) , • ADD <SP> AFT LINE # 



920 I$=MID$(I$,7,LJ -L=LEN(IS) : 

930 RETURN 

940 

950 ' END-OF-TEXT FINDER 

952 

954 

960 

970 J=INSTR(IS,CHR$(26) 

980 IF J-0 THEN 1000: ' 

990 I$=MID$(I$,1,J-1 

1000 L - LEN(IS) 

1010 RETURN 

1020 

1030 ' TAB CONVERTER 

1032 

1034 

1036 

1040 

1050 S=l:T$-""i ■ 

1060 J=INSTR(MID$(I$,S,L) ,CHR$(9 

1070 IF J=0 THEN 1140: ' 

1080 Jl=(INT(J/8)+l)*8: ' 

1090 J2-J1-J:' 

1100 



MODIFY INPUT STRING 



THIS SECTION LOOKS FOR A 1A(H) THE EDTASM'S EOT. 



»=> NO EOF THIS READ 



THIS SECTION SCANS EACH LINE LOOKING FOR 09(H) I 
CONVERTS THEM TO THE APPROPRIATE NUMBER OF <SP>. 



SET STARTING POS 
LOCATE A TAB 

NO TABS 

CAL NEXT TAB STOP 
# <SP> REQ. 
IF J=l THEN T$»T$+MID$(S$,1,8) :G0T0112e 



DISK INITIALIZATION 



OUTPUT BUFFER 



CODE (CARRY OVER F 



1110 T$«T$+MID$(I$,S,J-1)+MID$(S$,1,J2+1) 

1120 S-S+J:' BUMP START POS PTR. 

1130 GOTO 1060 

1140 0$=0$+T$+MID$(I$,S,L) ,' BUILD OUTPUT LINE 

1150 RETURN 

1160 i ******•****************•*.****.****.*****. ..********. 

1170 ********* CONVERT ASCII FILE TO SOURCE ************< 

1180 •****************************************************< 

1190 ■ 

1200 • 

1210 ' 

1220 IN$=MID$(IN$,l,J)+"/ASC"+NI$ 

1230 OU$=MID$(IN$,l,J)+"/TXT"+":"+NO$ 

1240 0$="*:I$="" 

1250 OPEN "I",1,IN$:' INPUT FILE 

1260 OPEN "0",2,OU$:' OUTPUT FILE 

1270 CLS:PRINT"NEW FILE: ";OUS 

1280 ' 

1290 ' READ 1ST SECTOR FROM DISK INTO BUFFER 

1300 ' 

1310 I$="":0$="": ' CLEAR INPUT s 

1320 LINEINPUT #1,1$ 

1330 0$=CHRS(211) : ' FILE IDENT 

ROM TAPE) 

1340 ' 

1350 ' INSERT FILE NAME IN OUTPUT BUFFER 

1360 ' 

1370 N=6-J:' # SPACES TO FILL OUT FILE NAME 

1380 IF N=0 THEN 1410:' FILE NAME 6 CHAR LONG 

1390 0$=0$+MID$(IN$,l,J) +MID$(SS,1,N) 

1400 GOTO 1420 

1410 0$=0S+MID$(IN$,1,J) : ' ADD NAME TO OUTPUT BUFFER 

1420 GOSUB 1720:' CONVERT AND ADD LINE NUMBER 

1430 L=LEN(I$) 

1440 I$=MID$(I$,6,L) : ■ STRIP OFF LINE NUMBER FROM INPU 

T BUFFER 

1450 0$=0$+I$! ' ADD REMAINDER OF TEXT LINE 

1460 PRINT 0$ 

1470 PRINT #2,0$ 

1480 ' 

1490 

1500 ' 

1510 I$="":0$="": ' 

1520 LINEINPUT #1,1$:' 

1530 IF EOF(l) THEN 1650 

1540 GOSUB 1790 

1550 IF L=0 THEN 1650 

1560 GOSUB 1720: ' 

1570 L=LEN(I$) 

1580 0$=0S+MID$(I$,6,L) : ' 

1590 PRINT 0$ 

1600 PRINT #2,0$ 

1610 GOTO 1510: ■ 

1620 ■ 

1630 ' CLOSE FILES & EXIT 

1640 ' 

1650 O$="":0$=O$+CHR$(26) : ' 

1660 PRINT #2, 0$ 

1670 CLOSE ALL 

16 80 END 

1690 ' 

1700 ' CONVERT BIT 8 LOW ASCII TO BIT 

1710 ' 

1720 FOR 1=1 TO 5: 

1730 0$=O$+CHRS(ASC(MID$(IS,I,D) O 

1740 NEXT I 

1750 RETURN 

1760 ' 

1770 ' END-OF-TEXT FINDER 

1780 ' 

1790 J=INSTR(I$,CHR$(13)) 

1800 IF J=0 THEN 1820:' J - 

1810 I$=MID$(I$,1,J-1) 

1820 L = LEN(I$) 

1830 RETURN: ' *** END OF PROG *** 



READ REMAINING SECTORS FROM DISK 



CLEAR INPUT 4 OUTPUT BUFFERS 
GET NTH TEXT LINE 



CONVERT AND ADD LINE NUMBER 



ADD REMAINDER OF TEXT LINE 



REPEAT TILL E-O-F 



ADD EOT CHAR 



==> NO EOF THIS READ 
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FLASH 



michael shrayer's 



worSrocessing system 



• Easy to Learn - Like lightning you will be up anckrurVning with a comprehensive and sophisticated word 
processor. Our manual says you can bean expert in ine hour, our users tell us it takes less than 30 minutes. 
The manual's 1 28 pages are packed with figures, illdfctraHpns and examples for the beginner and"old pro". 

• Easy to Use - With the ELECTRIC PENCIL youbrocess words, not commands. ELECTRIC PENCIL'S 
menus and simple two keystroke commands keepsfyour mind on your work NOT on your manual. ELECTRIC 
PENCIL is soeasytouseyoursecretary will WANTto'usteitN. so sophisticatedyou'llbegladshedid. David Ahl, 
the editor of Creative Computing says, "ELECTRIC PENCIL 2.0 is the most user friendly word processing 
package available." \ 

• Features - ELECTRIC PENCIL has a 36k+ text buffer (48k\t6k system), supports disk, tape and Stringy 
Floppy files(disk version)* and has every major feature you want infeword processor. It is'bullet proof"- Data 
recovery is a built-in feature. The exclusive DICT-A-MATldfeature^ves your office the flexibility of dictation- 
word processing without fancy equipment. Your dictation playback^sclontrolled from the computer keyboard. 

• Flexible - It is the only word processing system that is designed like an operating system. You can add 
new programs and features to ELECTRIC PENCIL, such as RED and ByJE PENCIL dictionary/correction - 
with a 50,000 word dictionary (sold separately) - without patches aridujpgrades. Simply press one of the 
control key combinations and new additions to your system are instantly available. Add automatic proofing, 
spelling correction, dynamic print formatting, proportional printing, communications, graphics and typesetting 
and many other add-on features when you need them. \ 

• Versatile - ELECTRIC PENCIL runs on TRS-80 model I and model III completers under all versions of 
TRSDOS. and NEWDOS without modification or patching (Patches required for otrW operating systems). It 
also supports parallel and serial printers as well as single and double density disk systems. 

ELECTRIC PENCIL is the choice of thousands -make it yours for only $89.95 (dispersion) or S79.95 (tape 
and Stringy Floppy versions). Manual only* 



■Sir. 7^.- 



ELECTRIC PENCIL is available at computer stores, selected B. Daltoi 
Booksellers and selected independent book dealers. If your dealer is outjof 
stock, order direct (specify disk tape or Stringy Floppy version). Include 
S4.00 for shipping and handling. Foreign residents add $1 1.00 plus purchase 
price, in U.S. funds. jA 

•Tape and Stringy Floppy versions support tape and stringy files only / 



Stringy Floppy trademark EXATRON Corp 
NEWDOS trademark APPARAT. Inc. 



TRS80. TRSDOS trademark TANDY Corp 



puter can understand. 

Solving a 
Programming Problem 

First, read and understand the prob- 
lem. The hardest part of this is under- 
standing the problem. 

Second, restate the problem in your 
own words, and draw pictures if pos- 
sible. 

Third, identify all given informa- 
tion. Identify any areas where further 
research is required. Eliminate all ex- 
traneous information, and state all as- 
sumptions. State all external files or 
algorithms not explicitly given in the 
problem. 

In many cases the problem will be 
too large to solve. To reduce the prob- 
lem size, certain pieces of information 
may be ignored or taken for granted. 
These are the assumptions. If when the 
program is executed the solution yields 
incorrect results, you can check your 
assumptions. The particular solution 
may be applicable to similar problems. 
While many problems are similar, the 
results differ depending on the as- 
sumptions. 

Fourth, identify all the information 
you are required to find. Identify error 
handling/trapping ("goofproofing"), 
find the various intermediate results, 
and finally, determine what was origi- 
nally required of the problem. 

Many problems have several items 
which may or may not be order depen- 
dent: These are the intermediate 
results. The final result is the answer to 
the problem. Error trapping is com- 
monly overlooked. What happens if 
the user inputs the wrong data? The 
program should require the operator to 
reenter data. 

Fifth, design the program. Use 
flowcharts or a PDL in plain English 
(not machine or language dependent) 
and describe the function to be per- 
formed. Check the logic of the pro- 
gram design. 

Sixth, code the design into a par- 
ticular program language. At this point 
the program becomes machine depen- 
dent unless a higher-level language is 
used. 

Seventh, analyze the results for ac- 
curacy. Execute the program to verify 
results. When running the program in 
this debugging stage, use sample data. 
If the results are wrong, check the 
design again. If the design is good, 
check the coding. 

The most common error is in a loop 
and is called "off by one." This is 
when a routine to be repeated X times 
is executed one more or less. Again run 



some sample data. If it is to be repeated 
100 times, try setting the counter to 
five. If the loop is only executed four 
times, you must increment the counter 
by one. Conversely if it is executed six 
times, you must decrement the counter 
by one. 

The best method for determining 
where an error occurs is to use the 
"divide and conquer" technique. In 
machine language use break points, 
and in a high-level language use print 
statements. Choose some arbitrary 
point and insert a print statement or 
break point, and output the results to 
this point. If the answers are correct, 
move further down the program. If 
they are wrong, move towards the 
beginning of the program. 

Rules for 

Structured Programming 

First, as you design a program start 
with the overall picture, then write the 



"A Programming 

Development Language 

(PDL) is a verbal picture 

of the program function, 

much like a flowchart. " 



smaller sections. By dividing a large 
program into several small modules 
(subroutines) the task does not seem as 
overpowering. By keeping it simple, 
you will not get hung up trying to do 
too much at once. 

Second, use subroutines as small in- 
dependent modules. 

Third, each module should perform 
only one function. If you want a 
module to perform a function that has 
several subfunctions, the subfunctions 
should be called from the first module. 
If each module performs only one 
function, adding or deleting functions 
to the program is simple. This avoids 
having two routines do the same thing. 

Fourth, each module should have 
only one entry and exit point. This 
prevents a module from performing 
more than one function. It also helps 
the programmer keep track of any 
flags that have been set. 

Fifth, avoid self-modifying coding. 



Self-modifying code writes over itself 
to change instructions. It is more com- 
mon in Assembly or machine lan- 
guage, and cannot always be avoided. 

Sixth, variables should have mean- 
ingful names. In a high-level language 
(Basic) or Assembly language, use a 
variable name resembling what is 
stored. 

Seventh, initialize and define all 
variables at the beginning of the pro- 
gram. Many newer languages require 
that all variables be allocated at the be- 
ginning of the program. In Basic it 
doesn't matter. Each variable should 
be given an initial value at the begin- 
ning of the program, so the computer 
can allocate storage for it. A remark 
statement should tell what the variable 
is used for. Suppose you have an array 
"grades." It appears that the contents 
will be a student's grades. But where 
are the grades for quizzes, mid-term 
and final exams, and projects located 
in the array? How will you or any- 
one else know where to modify the 
program? 

Eighth, assign a variable name to 
constants. In a high-level program or 
low-level language this allows the pro- 
gram more flexibility. If the data must 
be changed, you just alter the value 
once at the beginning of the program, 
instead of at each place it is used. 

Programming 
Development Language 

A Programming Development Lan- 
guage (PDL) is a verbal picture of the 
program function, much like a flow- 
chart. A PDL is a set of instructions 
used to design a program. It is both 
language and machine independent. 
This means it is not Fortran, Basic, 
Cobol, nor does it run on a Z80, 6800, 
6502, PDP-11, or IBM computer. 
Many software professionals are 
switching from flowcharts to a PDL, 
for two main reasons: First, too many 
people write a flowchart after the pro- 
gram is done, producing nothing more 
than the instructions with a block 
around them. Second, in a production 
environment, the programmer does 
not control flowcharts after sketching 
them. They are sent to the drafting de- 
partment to be readied for publication. 
Design changes rarely catch up to the 
original documentation. 

Repeat... Until 

One PDL has the following instruc- 
tions: 



Repeat 



program statements 
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Until condition 



The loop of instructions between the 
Repeat and Until is repeated until the 
condition is satisfied. The condition 
specified is checked at the end of each 
pass through the loop. When the loop 
is finished, control moves to the line of 
code following the Until statement. 
Use this construction for loops which 
must repeat at least once. 

Example: Design a routine that will 
read a tape and store the contents in 
memory until the tape is finished or the 
buffer is full. 

Repeal 

Get character from tape 

Store in buffer 

Increment, buffer pointer 
Until (buffer full) Or (End of tape) 
Display finished prompt 

While.. .Do 

The second set of instructions has 
the form: 

While condition Do 

program statement(s) 
End While 

This instruction is similar to the 
Repeat except that the check Of condi- 
tion is made before the loop Of is exe- 
cuted. When the condition is satisfied, 
control passes to the instruction fol- 
lowing the End While. If the condition 
is false initially, the loop will not be 
executed. 

Example: Design a program to read 
a disk file and store data in buffer until 
the end of file is found. 

While Not EOF Do 

Get sector from disk 

Store in buffer 

Increment buffer pointer 
End While 

If... Then... Else 

The third set of instructions has the 
form: 

If condition 
Then program segment 1 
Else program segment 2 

This is identical to the If... Then... 
Else from Basic, Fortran, or Pascal. 
Only one of the Then or Else program 
segments is executed. At the comple- 
tion of the path taken, control trans- 
fers to the instruction following the 
Else clause. The Else clause is usually 
optional. 

Example: Design a program to read 
a tape until the end of tape is found, 
the buffer is full, or the read is aborted 
by the break key. 
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stop = false 
While stop = false Do 
Get character from tape 
Store in buffer 
Increment buffer pointer 
If buffer = full 
Then stop = true 
Else If EOT 
Then stop = true 
Else 

Scan keyboard 
If break key closed 
Then stop = true 
End While 

The indentations show the reader what 
instructions are at the same level. Each 
successive indentation means that the 
line is subordinate to the last line. This 
method is, however, cumbersome. 



"Each successive 

indentation means that the 

line is subordinate 

to the last line. " 



Case 

To overcome this, the Case state- 
ment can be used. 

Case of 

AA: program statement 

BB: program statement 

Others: program statement 
End Case 

In the Case statement only one of 
the case labels (AA:, BB:, or Others) is 
executed. Upon completion of a par- 
ticular case, control passes to the in- 
struction following the End Case. 

Example: Repeat the design of ex- 
ample three using the Case statement. 

stop = false 
While stop = false 
Get character from tape 
Case of 
End Of Tape: stop = true 
Buffer full: stop = true 

Others: store character in buffer 
scan keyboard 
If Break key 

Then stop — true 
End Case 
End While 

This instruction clarifies nested 
If. ..Then. ..Else statements. The 
reader has a more accurate picture of 
logic at a glance. 



Subroutines 

Subroutines are identified by a 
name. In the above example, "store 
character in buffer" and "scan key- 
board" are subroutines. They can be 
called by name (as above) or by preced- 
ing the name with the word Call. 

Two schools of thought dictate 
where subroutines are placed in a pro- 
gram. The first method is to place them 
at the beginning of a program. Many 
languages (like Pascal) require this 
predefinition. 

The second school is that they 
belong at the end of the program, 
following the concept of top-down 
design. Controlling modules come 
first, with subordinate modules fol- 
lowing. In some languages (like Basic) 
the placement makes no difference to 
the program. But with an interpreter, 
programs execute faster with subrou- 
tines at the front of a program. This is 
because subroutines are called by line 
number; the interpreter must scan 
from the front of the program until the 
required line number is found. 

GOTO 

The GOTO label, identical to the 
Basic GOTO, can be either a number 
or word. When designing a program 
this is seldom used. In some cases it is 
more efficient, but use it sparingly. 

This completes the instruction set of 
most PDLs. The only item remaining is 
a comment line. This is usually defined 
as: /* comment */. 

In the above examples, English is 
used liberally to indicate desired func- 
tions. This makes reading and compre- 
hending the program very easy, and 
the program transportable across 
languages and computers. When imple- 
menting the program, these instructions 
are changed to some corresponding 
represention in the particular language, 
language. 

Documentation 

This is the last and most important 
area to cover. Why are documentation 
and a logical approach so important? 
Most programs are written based on 
criteria valid at the time of design. As 
time passes requirements will change, 
and you will have to modify the pro- 
gram. If the program is poorly docu- 
mented, you will not know why you 
did things the way you did. The 
documentation helps you sift through 
the maze of instructions making up the 
program. In many cases it would be 
easier to start from scratch and re- 
design the program. 

How is a program documented? 



There are three ways of maintaining a 
program documentation package. The 
first is the program maintenance pack- 
age. The program is documented both 
internally and externally. Internal to 
the program, use simple structure (no 
fancy coding). 

Use meaningful names and labels, 
define them at the beginning of the 
program, and initialize them. Separate 
variable RAM, I/O and parameter 
with a blank line. Use names for I/O 
devices and parameters definitions. 
Comment liberally. Preface each sec- 
tion with a brief description of its func- 
tion. Comment as many lines as possi- 
ble, but don't comment the obvious, 
by restating the meaning of an instruc- 
tion. Include a header on each pro- 
gram containing the program's name, 
creation date, author's name, last revi- 
sion date, and the name of the person 
modifying it. 

External to the program include 
the engineering notebook described 
earlier. Describe the program logic 
flow and functions using flowcharts or 
a PDL. 

The second way of maintaining a 
program documentation package is to 
write a library user's package, for 
documentation of subroutines. The 
library user's package should contain 
the name of the subroutine (creation 
date and last revision date); the pur- 
pose of routine; the computer system 
required; the language it's written in; 
the required parameters and how they 
are passed; the results and how they are 
passed; the affected registers; and er- 
ror handling provisions. 

This data should be kept at the be- 
ginning of each subroutine, algorithm, 
or module. It should also be kept in a 
library file, on the computer or on in- 
dex cards. This way a programmer will 
not reinvent work someone has already 
done. 

The third way of maintaining a pro- 
gram documentation package is to 
write a user's manual. The user's 
manual should include a description of 
the system configuration required, the 
amount of memory, number of disks 
or tape recorders, and so on; a descrip- 
tion of the program's function, what it 
does, and any special functions it can 
perform; and any warnings or special 
considerations. Define any external in- 
formation used. If data is not keyed in, 
include a description of data structure 
and required I/O. Describe the loading 
and execution procedure. 

Solving a Problem 

Let's put these tools to work writing 



"Let's put these tools 

to work writing 

a program to convert 

an Assembly file 

to an ASCII file. " 



a program to convert an Assembly file 
to an ASCII file. 

Step one is the initial problem analy- 
sis. What do we know about the prob- 
lem? We know that it is supposed to in- 
put an Assembly file, and output an 
ASCII file. Organize this information. 

The Assembly file is the given infor- 
mation and the ASCII file is what the 
programmer is required to find. 

Are there any implied assumptions? 

The answer is probably. What 
assumptions were made? The first was 
the location at which the source file is 
stored. By my definition, it is on a disk. 
Great! That leads to two other ques- 
tions: What does an Assembler source 
file look like, and what does an ASCII 
file look like on the disk? Both of these 
questions require further research. 

This research was accomplished us- 



ing several tools: Miosys Editor/ 
Assembler to generate the input source 
file; Basic to generate the output 
ASCII file; and Apparat's Superzap to 
examine both the Assembler and a Ba- 
sic ASCII file. A program, written 
with the Editor/Assembler (content 
and executability is not important), 
was saved to disk. Then a short, mean- 
ingless Basic program was written and 
saved to disk using the ASCII format 
command, Save "file name", A. Final- 
ly, Superzap was loaded, and these two 
files were examined using its DFS com- 
mand. The format of the Assembly 
source file was: D3(H), a program type 
identifier, is the first byte; next, 6-byte 
file name in ASCII with bit 8 set low; 
third, 5-digit ASCII line number with 
bit 8 set high; next, N number of 
ASCII characters for the line with a 
0D(H) terminator; and finally a 1 A(H) 
End Of Text terminator at the end of 
the file. The third and fourth steps re- 
peated until the End of Text (EOT = 
1A) indicator was found on the last 
sector. 

The format of the Basic ASCII file 
was: A five-digit ASCII line number 
with bit 8 set low; N number of ASCII 
characters for the line with a 0D(H) 
terminator; and a 1A(H) EOT ter- 
minator. This means our program can 
be considered a black box, with one in- 





/* CONMLS */ 




/* 


This program will convert an Assembly source file 


*/ 


/* 


to an ASCII source file, and save it on disk. 


*/ 


/* 


It can also go the other way, converting an ASCII 


V 


/* 


file to an Assembly source file. 
Initialize any data required 


V 


/* 


This section will also be responsible forgetting 


*/ 


/* 


the source and destination file names. 


*/ 


/* 


Handle first record of file 
Get sector from disk 


*/ 




Call Strip /* strip off file identifier and name 


*/ 




Output modified line to new disk file 




/* 


Handle remaining records except the last 

While not End Of File Do 
Get sector from disk 


*/ 




Call Number 2 /* convert line numbers from 


*/ 




/* bit 8 high to low 


*/ 




End While 




/* 


EOF character found, handle last case 


*/ 




Call Close /* put end of file marker on file 


*/ 


End Program 






Table 2. Example PDL 
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Table 3. Initialization PDL 




/* Initialization Section 


*/ 


Define all variables 




Display explanatory text 




Prompt user for type of input file 




Open appropriate disk files 




End Initialization 




Case Of input file type 




ASCII : /*Convert to Assembly source 


*/ 


/* Handle first record of file 


*/ 


Get sector from disk 




Call Add /* add file identifier and name 


*/ 


Call Number 1 /* convert line numbers from bit 8 


V 


/* low to high 


*/ 


Output modified line to new disk file 




/* Handle remaining records except the last 


*/ 


While not End Of File Do 




Get sector from disk 




Call Number 1 




End While 




/* EOF character found, handle last case 


V 


Close files/* put end of file marker (1 AH) on file 


*/ 


ASSBLY: /* convert to ASCII file 


*/ 


/* Handle 1st record of file 


*/ 


Get sector from disk 


Table 3 continues 



put and one output. The program ap- 
pears to be a transfer function: It 
transforms the input into the desired 
output. 

Step two is to formulate a general 
model. We have to re-analyze this data 
and identify the items to be trans- 
formed and any particular order re- 
quired. Once this has been accom- 
plished the model can be built. Most 
programs have two things in common. 
At the initial start they all can be 
represented by: 

Initialization section 
Input data 
Solve problem 
Output results 

Next, "solve the problem" is exam- 
ined. Again most programs have the 
following in common: 

Process first item 

Process all remaining items, except 

the last 

Process the last item 

Usually there is something different 
about the first and last data processed. 
Consequently they must be handled 
separately. 

Stating the changes that have to be 



NEW PRINTERS ADDED! FIND YOURS BELOW. 



Go od TK.s Month 



RIBBON SALE 



EXACT REPLACEMENTS, LONG-LIFE. HEAVY INKING 



RADIO SHACKCENTRONICS-EPSON-ANADEXBASE 2HEWLETT PACKARD-MALIBU-IBM-NEC-C.ITOH-IDS 



PRINTER 

MAKE, MODEL NUMBER 

(Contact us II your printer is 
not listed. We can probably 
RELOAD your old cartridges.) 



ANADEX 9000S«rles 
BASE 2 
CENTRONICS 7 MEG 

702/703/704/753 
HPMALIBU 26082631 

RADIO SHACK 
DAISY WHEEL II 

Carbon Film (26-1419) 

COLORS l''„ a ^ 

Long-Lite Fabric (1449) 

LP l-ll-IV 700 Zip Pack 
(1413)730/737/739/779 
LPIII-V (26-1414) 
LP VI-VIII (26 1418) 
LP VII (26 1424) 

EPSON MX 70-80 IBM 

MX 100 
C.ITOH 
IDS 

DATA ROYAL 5000 
NEC 8023 Series 

Splnwrlter Fabric 
MS Carbon Film 
COLORS 



1SS08S10 
Paptr 450/4M 
Tig.. S00 Swill 



RIBBON 
SIZE 

Inches 

by 
Yards 



Vfr x30 
Vj x 20 



5/16 x 70 
V. x 60 

"« x 130 _ 

'/. x 1 30 

1 . ocNOTEi 
4 X ^S L OAO 

9/16x16 



Vs x 18 
5/16 x14~ 

Inker Loop 

_V2 x20 
Vi x 30 



Vi x 18 



1 ^x18 



V, x130 



INSERTS EZ-LOAD™ 

EXACT REPLACEMENTS made in 

our own shop feature Long-Lile 

and Heavy Inking. Ou' instructions 

DROP IN, NO WINDING! 



$21/3 



$78/12 



$18/3 



$66/12 



$25/ 6 $48 /12 $270/72 
$3 0/6 $58/12 $324/72 
$24/3 $47/6 $90/12 



$13/3 



$48/12 



S18/ 3-»AMgJj|'fiay $66/l2 
$17/3 $62/12 



518/3 



$21/3 



$66/12 
$78/12 



$18/3 



$66/12 



$18/3 



$66/12 



$18/3 



$66/12 



$18/3 



$66/12 



$25/6 $48/12 $270/72 



$30/6 $58/12 $324/72 



RELOADS 

You SEND your used 
CARTRIDGES to US. We 
RELOAD them for you 



$10/1 $9ea./2ormore 



$9/1 $8ea./2ormore 



$11/1 $10ea./2ormore 
$20/1 $18ea./2ormore 



$15/3 



S18/3 



$9/1 $8ea./2ormore 



$9/1 $8 ea./2 or more 



$9/1 $8 ea./2 or more 



$9/1 $8ea./2ormore 



$10/1 $9 ea./2 or more 



$9/1 $8 ea./2 or more 



$11/1 $10ea./2ormore 



$9/1 $8ea./2ormore 



$9/1 $8 ea./2 or more 



$8/1 $7 ea./2 or more 



$15/3 



$18/3 



WORRIED ABOUT ORDERING BY MAIL? Relax. We've been in business for many years and can please the 
smallest and largest account. You receive some ol the finest ribbons available made of our own exclusive 
IMAGE PLUS+ tm fabric and carbon film Our ribbons fit your printer exactly. COMPARE, but BEWARE! We 
order all our competitor's products and are amazed at what we get. Have you ever received a new fabric 
ribbon you had to unwind and dump out on the table before you could use it? We have. Or, carbon film in- 
serts that had no end-of-ribbon sensor? Or. 7-meg cartridges with only HALF enough ribbon at full retail? 
Our only business is RIBBON manufacturing and distribution. We use the latest state-of-the-art production 
equipment and are blessed with a fine, dedicated staff. We fully guarantee all our products because we make 
them ourselves. You must be completely satisfied, period. Our ribbons are made fresh daily and shipped within 
24 hours. Write for our brochure and newsletter "INK SPOTS". "Oc /t President 



NEW CARTRIDGES 

(from the various 

manufacturers. Subject 

to availability ') 



$30/2 $87/6 $168/12 



$25/2 $72/6 $140/12 



$18/3 $70/12 $408/ 72 
$21/3 $82/12 $480/72 



$20/2 $58/6 $112/12 



$25/2 $75/6 $150/12 



$22/2 $66/6 $132/12 



$16/2 $48/6 $96/12 



$18/2 $52/6 $100/12 



* $30/2 * 



SILVER DOLLAR 

WIND to LOAD 

WHY 00 WE SELL THESE? 
This is the type ribbon you gel il you order 
trom our fellow advertisers We sell them 
for less since we make them ourselves. Do 
you really like the mess and inconvenience of 
unwinding and dumping this type ribbon 
into a wastebasket or oul on a newspaper 
and/or winding it mlo your cartridge? We 
don't know why these are being sold. 
Computers should simplify your life, not 
make il more complex |ust to save a few 
pennies. You are welcome to order these 
if you cannot afford our EZ-LOAD tm 
INSERTS. RELOADS, or NEW CART- 
RIDGES. But BEWARE! You now know how 
to avoid disappointment. One more caution: 
be sure to check the length of any ribbon 
BEFORE you buy it. For instance, an MX-100 
ribbon should be 30 yards long, not 20 as in 
the MX-80 



$12/3 $44/12 $252/72 



$11/3 $40/12 $228/72 



$12/3 $44/12 $252/72 



$18/3 $66/12 $360/72 



Volumel MODEL II 8" GAME DISCS Volume 2 

Biorhythms, Trap Ugly, Bingo 

Rip Cord, Yacht Sea $25 EACH Towers, Blackjack 

Farkle, Pony & 3 more 



Concentration & 4 more 



SEND CHECK, MONEY ORDER, or COD TO: 

BCCOMPCO 

800 South 17 Box 246 
SUMMERSVILLE, MO 65571 

(417)932-4196 " 152 

WE PAY UPS SHIPPING ON PREPAID ORDERS. PLEASE 
INCLUDE STREET ADDRESS FOR UPS DELIVERY. ADD 
$1.00 FOR POSTAL, APO, FPO, OR AK, AS, CM, GU, HI, 
PR, TT, VI, CANADA OR MEXICO. FOREIGN ADD 10%, 
U.S. FUNDS. 
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Let's get personal 



try out the in-stock selection of Heath/ 
Zenith microcomputers, peripherals, 
accessories and software. 

Now available at your nearby Heathkit 
Electronic Center, or through the Heathkit 
mail order catalog. 

You get more with a Heath/Zenith per- 
sonal microcomputer system! We offer: 

I.Proven high-performance hardware: 

Thousands of our microcomputers prove 
themselves daily, in the field. 



2. Vast software library: Three operating 
systems (including CP/M), languages, word 
processors, an electronic spreadsheet, ver- 
satile utilities and the 500-program Heath 
Users' Group software library. 

3. Self-instruction courses: Evaluation 
and programming courses from Heathkit/ 
Zenith Educational Systems. 

4. Service support: Before and after the 
sale -consultation by phone, carry-in 
service by trained technicians. 



Test run one of our microcomputers 
at any of the more than 60 convenient 
Heathkit Electronic Centers in the U.S. 



Heathkit 

ELECTRONIC CENTERS 

See the white pages of your telephone book ^ff\ 
for store locations and telephone numbers. f 



* fH?£ 



• Units ol Veritechnology Electronics Corporation in the US 




u 





Table 3 continued 




Call Strip /* Strip off file identifier and name 


*/ 


Call Number 2 /* convert line numbers from bit 8 


*/ 


/* high to low 


V 


Output modified line to new disk file 




/* Handle remaining records except the last 


*/ 


While not End Of File Do 




Get sector from disk 




Call Number 2 




End While 




/* EOF character found, handle last case 


*/ 


Close Files /* put end of file marker (ODH) on file 


*/ 


End ASSBLY 




Others : Error and start again 




End Case 





made to go from an Assembly source 
to an ASCII file formally, the first 
change is to delete the file type iden- 
tifier and the file name. Next, change 
the bit 8 high ASCII line number to bit 
8 low ASCII. There is no need to 
change the N ASCII characters com- 
posing a line of the program. 

The PDL for the first crude model 
would look like Table 2. 

Does this PDL look accurate? Can 



you find any flaws? If the answers are 
yes and no respectively, it is time to 
enhance the program by writing the 
subordinate sections. 

The PDL for the Initialize section 
would look like Table 3. 

Check the model. If there are no er- 
rors, begin coding. 

At this time the language used is 
defined (Basic) and coding begins. The 
final outcome is shown in the Program 



"... the student 

is expected to 

learn programming 

design by default. " 



Listing. One thing should be brought 
to your attention again: the necessity 
of documenting a program as it is writ- 
ten. Remember, each section should 
have a description of what it does. 

Finally, execute the program and see 
if it works. The one in the Program 
Listing does. If it didn't the necessary 
changes should be made. If the errors 
are syntax errors, no correction to the 
flowcharts or PDL is required. If the 
program does not work for some rea- 
son other than syntax, there is a logic 
flaw; go back to the PDL and check 
the logic. If it appears correct, check 
your program to see that it matches the 
PDL. ■ 

John Blair (122 Dumont Ave., Nor- 
folk, VA 23505) is an electrical engi- 
neer and amateur radio operator. 



HOW TO BETTER USE 
YOUR COMPUTER 

Typing PIUS™ Gives You 2 Courses For The Price Of 1 

Learn About Your Computer While Learning To Type 
We deliver what everyone else offers 

* Individualized Lessons and Drills 
Personal Error Analysis and Records 
Interactive Displays 

Classroom Quality 

Which Are Essays On: 

Personal Computing Fundamentals 

Comprehensive Vocabulary 

Languages 

Application, System and Database Software 

* Telecommunication 
Quizzes 

Helpful Operating Tips 

Typing PIUS™ Improves Speed and Accuracy 
Teaches Essential Computer Information 
An Educational Tool For All Ages 
IBM,TRS80,APPLE,CPM Systems 

By Softouch 

PO. Box 25263 <K#w>rvr- 

Chicago, IL 60625 $29.95 

800 323 6556ext.R28 

800 945 6345 ext R28(ILL) IMPROVE 

MASTERCARD & VISA „ 527 THE USER 



w 



UlllDCftT 



CopyrcsM * 1981 by Dowki M Folding 



Remarkable Disk Directory 

Catalog System 

For use on Radio Shack TRS-80 Model 

1 and 3 microcomputers. 

Unique abstract feature permits positive file identifi- 
cation. Catalog includes a first line remark from every type 
file. Include* human readable remarks from machine code 
files. Contains ID, name, date, free space, filespec, and 
remark. Z !:«. ' .v" "'■- §39 *-}"■ 

Read any size directory from any size disk of any density 
with any number of tracks and any number of sides. Sort by 
any field. Multi-format print in any sorted order. Single 
sheet or continuous forms. Save to disk option. Very fast 
machine code. Self prompting. User friendly. Complete 
easy to understand documentation. 

Please specify MODEL and DOS when ordering. 

Req uires two drives M1N and 48 K RAM. 

Satisfaction Guaranteed — Ten day return privilege. 
$59.95 + $2.00 Shipping & Handling 
*Check Money Order Visa Mastercharge* 
Don Fielding 
2207 N.W. 61 Place D Margate, FL 33063^ 
(305) 972-6744 
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SIMPLY 
AMAZING! 

NEW LOW PRICE— $99.50 

How else can you describe the Exatron Stringy Floppy system? You could 
say that it's an under $100, compact, reliable, robust, high-speed, 
computer-controlled, easy-to-use, well-supported alternative to disk 
drives, for a Model I TRS-80-sfmp/i/ amazing! 

Amazing Technology 

Based on a special endless-loop tape cartridge, called a Wafer, the 

ESF system was designed specifically for computer data storage. 

The direct-drive transport mechanism has only one moving part, 

and data is transferred to and from the tape at a rate of 7200 baud. 

Amazing System 

Thousands of ESF buyers have been amazed by 16K programs loading 

in less than 20 seconds; automatic verification of saved programs; up 

to 70K bytes, and 99 files, on a single Wafer; a ROM operating system 

(RAM based in Model I ) no need for an expansion interface; and I-year 

parts and labor warranty. 

Amazing Support 

With an ESF system you don't just get a piece of hardware, you get total 
support with hundreds of user workshops; dozens of high-quality, reason- 
ably priced programs (such as Electric Pencil 2.0, Electric Spreadsheet, 
file Management System and Technical Word Processor); access to 
hundreds of FREE public-domain programs; an ©NEWS user 
column in 80-US; ©LOAD program magazine; and a 
toll-free information line. 




Amaze Yourself 

To see for yourself how amazing the ESF sys- 
tem is, or for more detailed information, call 
us toll-free at 800-538-8559 (inside Cali- 
fornia 408-737-7111) and take advantage 
of our 30-day money-back return policy. 
Copies of the 80-page manual are available 
for $4.95 (which you can credit towards an 
ESF), and while you're on the line ask about 
our equally amazing 64K RAM / ROM board 
for the Model I. 




excellence in electronics 

exatron 
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181 Commercial Street, 
Sunnyvale, CA 94086 





— PLEASE ANSWER THESE 5 QUESTIONS 

YES NO 

I. Do you have information that must be kept organized and ^ ._, 
accessible? ^-J L-J 

2. Do you ever need to perform statistical analyses? <— 

3. Would you like to have a tool that will allow you greater flexibility ._. 
in managing your own or your company's money? 

4. Could you use a mail list program that will be easy to use, 
maintain an unlimited number of names, allow you great sorting 
flexibility, and even interact with a word processor? 

5. Do you own or have access to a TRS-80 microcomputer? 

If you answered "yes" to any of these questions, we can be of assistance to 
you. Our Max/ Series of applications programs are designed to give you maximum 
versatility with a minimum of hassle. These programs were created for business use, 
but you'll find yourself using them for personal applications as well. 

Thorough support — Of course, each program comes with in-depth, user- 
oriented documentation, and is menu-driven to make it easy to use. When necessary, 
the Maxi programs are compatible with each other, and, whenever pertinent, are 
interactive with the major word processing and spreadsheet programs published by 
other manufacturers. Also, we maintain a telephone support line to provide you with 
any assistance you might require. 

9faxl Han agmr *y ° a,e Kubier <Moxi Cros 6 v^m/, 

Maxi Manager is a remarkable data base manager. Its fast j 
machine language sort complements its large data storage capacity. J (Check Register Accounting System) 

The soph.st.cat/on of.ts data entry, management, and printing capa- ( Maxi Cras IS a syslem , na , Wl ,i computerize check writing, 

bil.ties makes Max, Manager a versatile too/ for many applications. fecord , ng and ana , ysi s for business and personal finance. The system 

The program now includes Maxi Utility, which allows you to / . . ! l-„ ' . . ._ ,,.!.,,.. _,, 

rescue files on diskettes that have been damaged by excess.ve wear or I ,eatures 223 '"come and expense accounts, each of which will handle 
misuse and lets you expand, add. or delete fields from an existing data | an unlimited number of transactions. Extensive register and report 
base. Let the unmatched capabilities of Maxi Manager handle your I printing capabilities make Maxi CRAS an indispensible tool for 
data management! I managing money effectively. 

Mode< I A Model III. Minimum 1 disk drivm required 0120196 5149.99 / Model I A Model III. Minimum 2 drives required 0120145 $99.9! 

I € M0ll ^ Dale Kubler I %|#||#| gfpf by David Walonick 

Maxi Mail is a powerful mail list management system that. / •■■■■» ^pv^v 

1. Is easy to use. I Maxi Stat is the most useful statistical analysis package on the 

? E5V222 Zi.H n 'f!!L fted storaae "P^ity / market today. It was developed to allow maximum flexibility in 

leTersandother'! , e e xt ma ' 0f "^ processors to 9 enera,e '"""designing customized analysis. Max, Stat handles the three main 

4. Prints mailing labels up to fouracross In any format desired / components of statistical analysis: 

5. Has virtually unlimited coding capabilities with thirteen fields of I complete menu-driven codebook creation and editing, 
information tor each record. I 2. Menu-assisted data entry. 

Maxi Mail is the most sophisticated user-oriented mail list I 3. User-created control files to describe the statistical analyses to 
Wu^iif i 4 mi i. - . « I be P er,ormed and printed out on the variables of your choice. 

T8S«) Modi III only. 2 disk drives r^uired 012-0148 $99.95 / Model I & Model III. Minimum 2 drives required 0120153 $199.98 

A Division ol 
Scott Adams, Inc. 

^^ I Send $1.00 for our 16 page booklet 

■•Getting The Most From Your 
Micro" All 16 pages are packed with 
Indepth explanations and printout 
samples from the Maxi Series of ap- 
plications programs. 
THE BUSINESS DIVISION 
BOX 3435 

LONGWOOD.FL 32750 
(305) 830-8194 ^20 









MAXI STAT Is The Most Versatile 
Statistical Analysis Program.^ g* 
Available ... On Any Micro. ^7™ 

Dr. Steven E. Mayer, PhD., Industrial Psychologist — Maxi User 



Focus On: Maxi Stat 



Who can use Maxi Stat? 

Anyone who needs an analysis of statistical data. Maxi Stat has suc- 
cessfully replaced dedicated mainframe and time-sharing statistics 
programs for business, financial and marketing researchers, educa- 
tional administrators, hospitals, medical schools and medical 
research facilities, agricultural testing, and social scientists. 

What does it do? 

If you're familiar with SPSS (Statistical Package for the Social 
Sciences) and what it can do on a mainframe, you have a good idea 
of what Maxi Stat will do for your TRS-80. 

Maxi Stat offers many of the best features of SPSS (modified for 
microcomputers) as well as features you can't get in any other 
system, at any price. Maxi Stat is one of the most useful analysis 
packages available — anywhere. 

Read on to discover what this remarkable new tool can do for you . . . 
Maxi Stat offers: 

• menu-driven operation 

• user-created codebook 

• the ability to handle up to 255 variables 

• machine language code allowing speedy data entry 

• fast and easy editing 

• hundreds of tasks performed at one time 

• reports you can custom design for your specific needs 

• ample screen prompts to guide user 

• frequent automatic backup of data to help protect against power 
failures and system crashes 

• all phases of research analysis, including: 

write subfiles 

frequency distribution 

descriptive statistics 

crosstabs & chi-square 

correlation and linear regression 

t-test 

multiple linear regression 

analysis of variance 

multiple variable response 

Summary 

See for yourself what hundreds of other professionals have already 
discovered — Maxi Stat is THE solution to your analysis problems, 
and it's never further away than your TRS-80. Pull the plug on your 
time-sharing system and discover the power and convenience of 
Maxi Stat today! 



By David Walonick 

Maxi Stat is available 
now for TRS-80 Models I 
and III with 2 disk drives, 
48K RAM, and printer. 




$199.95 



Look who's already using it! 

University of Alaska, Fairbanks, AK. • Florida Hospital, Orlando, FL. • Capital 
Research Services, Topeka, KA. • Center for Financial Studies and 
Development, Claremont, CA. • U.S. Army Psychological Testing Unit, 
Wahiawa, HI. • University of Nottingham Dept. of Social Administration, 
Nottingham, U.K. • Defense Intelligence School, Washington, D.C. • Dept. of 
Recreation and Park Administration, University of Missouri, Columbia, MO. • 
Children's Hospital of Philadelphia, Philadelphia, PA. • Kingston City Schools, 
Kingston, N.Y. • Universidad de Monterrey, Monterrey, Mexico • University of 
Michigan, Dept. of Pediatrics, Ann Arbor, Ml. • Kodak Camera (Australia, Asia), 
Coburg, Victoria, Australia • The Williams Group Advertising and P.R., Dallas, 
TX. • Medical College of Pennsylvania, Philadelphia, PA. • Parkway Day 
School, Philadelphia, PA. • University of Illinois, Chicago, IL • Selkirk Health 
District, Nelson, B.C. Canada • Human Communications Systems, Reston, VA. 
• California Research Center, Los Angeles, CA. • WaltRich Marketing 
Consultants, Orlando, FL • Rutgers University, Piscataway, N.J. • Bethal 
Theological Seminary, Brooklyn Park, MN • Seton Hall University, Stillman 
School of Business, S. Orange, N.J. • Plan-Test Associates, Phoenix, AZ. • 
General Mills Corporation, Minneapolis, MN. • Shearson, Hayden Stone 
Investments, Hollywood, CA. • Energy Systems Research Institute, Raleigh, 
N.C. • Minnisota Historical Society, St. Paul, MN. • Purdue University, W. 
Lafayette, ID. • Nova Scotia Agricultural College, Truro, N.S., Canada • Agrico- 
Chemical Co., Wilmington, DL • Marketing Associates, Charlotte, N.C. • 
University of Ottawa, School of Psychology, Ottawa, Ont., Canada • Rock 
House Publishing, Kowloon, Hong Kong • Center for Applied Social Sciences, 
Boston, MA. • Blake and Dickinson Marketing Research, Manchester, N.H. • 
United Nations, New York, N.Y., and hundreds more! 



Maxi Stat prints many different report styles. 



tfst Ri:N 


OF THE NEU CORRELATION t. LINEAR REGRESSION PROGRAM 


3.4* 


SCORE ON COLLEGE ENTRANCE EXAK AS A PREDICTOR OF G?A 




. 


2.9* 


*.;•• ' 


2.5* 


» •; , 




*. 


2.0 + 


•;" * * 


1.6* 


. . * « 



Soon to be available for IBM PC 




COLLEGE ENTRANCE EXAM SCORE 



MEAN OF X * 

S.D. OF X = 

MEAN OF Y = 

S.D. Of V = 



48.23 CORRELATION COEFFICIENT = 

23.99 DEGREES OF FREEDOM 

2.46 SLOPE OF REGRESSION LINE = 

.67 Y INTERCEPT 



VALIL- CASE? 
MISSING CASES 
RESPONSE i 



REGRESSION EQUATION : Y' = .02 X ♦ 1.29 

STANDARD ERROR OF ESTIMATE FOR REGRESSION = .33 

STANDARD ERROR OF CORRELATION COEFFICIENT = .12 

SIGNIFICANCE OF CORRELATION COEFFICIENT = 0.C00 



A Subsidiary ol Scoli Adams, Inc. 



ORDER FROM YOUR FAVORITE DEALER or CALL TOLL FREE (800) 327-7172 (ORDERS ONLY PLEASE) 

SHIPPING & HANDLING ARE EXTRA - PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

BOX 3435, LONGWOOD, FL 32750, (305) 830-8194 (QUESTIONS) 



^See List of Advertisers on 
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Expensive 




EX PEN SI VE - The LN W \ 

System Expansion II and built-in \>'!w$ . 
comes with a full 32K of 200ns RAM??}--" ' 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
100'f TRS-80 Model I compatible and it works 
'right out of the box'. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE §1 - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 
(714) 641-8850 (714) 544-5744 



made us the number one 
manufacturer V-. of system expansion units 
and accessories for the Model 1 computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler 5/8 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided, 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double-density, double-sided. 

The LNDoubler's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single-sided 5-inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80 '7 increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model III! 



^32 




*8" drive operation requi 
double-density requires 3.f 
modification or LNW-80 4MH/. 



res special cable, 8" 
!>MHz C?V speed-up 
computer. 



Part II. 



MODEL 1 /III 
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UTILITY 



NO DOS 80 



by Thomas Quindry 



w 



ho says cassette users can't have some of the 
features of disk operating systems? It cer- 
tainly isn't Tom Quindry or 80 Micro. 



I've often thought it would be nice to 
have many of those neat Disk Basic 
commands and functions on a cassette- 
based system. There is no reason why 
CMD-type functions, nine USR func- 
tions, a sort routine, renumber capa- 



bility, or even other customized com- 
mands and functions can't be available 
in a simple 12K Model I or III system. 
I wanted a group of functions in 
memory that I could just call when 
needed or command from my Basic 



CMD"C": Removes REM, ', and spaces from a Basic program. 

CM D"O",A$(0): Sorts specified string array. Specify any array. 

DEFUSR: Specify USR address. DEFUSR0-DEFUSR9 are used with USR0-USR9. 

MERGE: Merge two or more Basic programs. Used with Merge *. 

RENUM: Renumber Basic programs. Also can be called using Name. 

FIND: Locate variables in Basic programs. 

PACK: Same as CMD"C" above. 

UN1KEY: Single-key command entry. A toggle command. 

DELAY: Limited debounce routine for Unikey. Disable with Nodelay. 

EDT: Autoedit function. A toggle command. 

SNGL: Single-step through Basic. A toggle command. 

DUAL: Route video output to printer also. Same as Dual Y. Disable with Dual N. 

PRDO: Route printer output to video instead. Disabled with Dual N. 

DOPR: Route video output to printer instead. Disabled with Dual N. 

&H, &0, &D: Hexadecimal, octal, decimal conversion. 

Table 1. Synopsis of Commands Available in NO DOS 80 



To Activate Ke> 


Codes, Press Shift Plus Alphabetical Key 




A PRINT® 


B ELSE 


C CHR$( 


D DATA 


E RIGHT$( 


F FOR 


G GOTO 


H RND( 


I INPUT" 


J READ 


K INKEYS 


L LEN( 


M ASC( 


N NEXT 


O POKE 


P PEEK( 


Q LEFT$( 


R RETURN 


S GOSUB 


T TAB( 


U USING 


V STRING$( 


W MID$( 


X SET( 


Y THEN 


Z RESET( 








Table 2. Unikey Single-key Entry Commands 





program. I decided to write an oper- 
ating system for my nondisk 16K 
Model I. 

I set a few goals for this operating 
system: It would be Model I/III com- 
patible, written in Assembly language, 
compile to approximately 4K of ma- 
chine language, reside in low memory, 
and all functions would be callable ei- 
ther by name or by a CMD-type func- 
tion. Most Basic programs should run 
with the remaining 12K. In fact, very 
few Basic programs require more than 
8K except for those using lots of data 
such as mailing lists, so losing 4K to an 
operating system was painless. 

The question of where to begin such 
a monumental task is easily answered: 
80 Micro. I had all issues from the first 
on. I remembered reading articles de- 
scribing most of the utilities I wanted. 

I went through back issues to see 
what I could find. I felt like a kid in a 
candy shop with only a dollar to spend 
— so many possibilities but I could 
hardly use them all. 

I eventually picked 13 articles con- 
taining Assembly-language programs 
and one other explaining the RST 
functions that I adapted for my oper- 
ating system. I would have picked 
more, but I would have exceeded my 
goal of 4K. 

A reference list follows this article. 
The articles with an asterisk were used 
to write NODOS 80. Additional maga- 
zine references for the same article are 
addenda from subsequent issues. 



The Key Box 

Model I or III 
16K RAM 

Assembly Language, cassette 
Editor/ Assembler 
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The BIG FOUR from Computer Shack... CYBORG a gladiator in space with screen movemenfin all four 
lions Many have said that this is the best TRS-80 they have seen this year.. .JOVIAN, this is Dunlevyand 
is first space ship type arcade game. It is totally unique Not a copy of any arcade game. Outstanding 

id graphics ASSAULT coming January 1 st, the lastest game from Dunlevyand Fryer a combination 

ot I ANKS. Monsters, and Aliens save your Christmas money for this one ARACHNID PLUS, Arachnid is a 

game where you have to shoot the spiders before they get you. Along with Arachnid are two 
other outstanding games Baja a race game like Turbo (tm) and Warzone a stratgy game. Cyborg, Jovian, and 

loy Stick usable and only $19. 95 for Tape and $24.95 for Disk.. Arachnid Plus (three great garm 
,$25.9 iui $29.95 for Disk. 



from your favorite store or if they don't 
.ill our. 
TOLL FREE ORDER LINE 800-392-8881 . 



1691 Eason • Pontiac, Michigan 48( 



■See List ol Advertisers on Page 563 
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Program Listing 1 








00100 




NODOS80 


-A EXEC PROGRAM 






00110 




CUSTOM 


COMMANDS AND ERROR MESSAGES 






00120 




CMD" ", 


DEFUSR, USR, MERGE, SPECIAL COMMANDS 






00130 




COMPILATION, ADAPTATION OF CODE, AND NEW CODE 






00140 




BY THOMAS L. QUINDRY 








00150 














00160 




CUSTOMIZED CMD" " FUNCTION ADAPTED FROM 






00170 




DALE W. 


RUPERT, 80 MICRO 


NOV 81, P292 


4300 




00180 




ORG 


4300H 




4300 


3A7341 


00190 PATCH 


LD 


A,(4173H) 


CMD 


4303 


325843 


00200 




LD 


(STORE) ,A 




4306 


2A7441 


00210 




LD 


HL,(4174H) 




4309 


225943 


00220 




LD 


(STORE+1) ,HL 




430C 


3A5B41 


00230 




LD 


A,(415BH) 


DEFUSR 


430F 


32C643 


00240 




LD 


(STORE3) ,A 




4312 


2A5C41 


00250 




LD 


HL,(415CH) 




4315 


22C743 


00260 




LD 


(STORE3+1) ,HL 




4318 


3AA941 


00270 




LD 


A,(41A9H) 


USR 


431B 


322C44 


00280 




LD 


(STORE4) ,A 




431E 


2AAA41 


00290 




LD 


HL, (41AAH) 




4321 


222D44 


00300 




LD 


(STORE4+1) ,HL 




4324 


3EC3 


00310 




LD 


A,0C3H 


JUMP COMMAND 


4326 


327341 


00320 




LD 


(4173H) ,A 


CMD 


4329 


325B41 


00330 




LD 


(415BH) ,A 


DEFUSR 


432C 


32A941 


00340 




LD 


(41A9H) ,A 


USR 


432F 


215B43 


00350 




LD 


HL, START 




4332 


227441 


00360 




LD 


(4174H) ,HL 




4335 


21DD43 


00370 




LD 


HL,START3 




4338 


225C41 


00380 




LD 


(415CH) ,HL 




433B 


212F44 


00390 




LD 


HL,START4 




433E 


22AA41 


00400 




LD 


(41AAH) ,HL 




4341 


060A 


00410 




LD 


B,10 




4343 


214A1E 


00420 ERR1 


LD 


HL,1E4AH 


ERROR MESSAGE 


4346 


22C943 


00430 ERR 


LD 


(DEFUS) ,HL 




4349 


214743 


00440 




LD 


HL,ERR+1 




434C 


34 


00450 




INC 


(HL) 




434D 


34 


00460 




INC 


(HL) 




434E 


10F3 


00470 




DJNZ 


ERR1 




4350 


0614 


00480 




LD 


B,20 




4352 


35 


00490 ERR2 


DEC 


(HL) 




4353 


10FD 


00500 




DJNZ 


ERR2 




4355 


C35644 


00510 




JP 


PATCH 1 




0003 




00520 STORE 


DEFS 


3 




435B 


E5 


00530 START 


PUSH 


HL 




435C 


D5 


00540 




PUSH 


DE 




435D 


F5 


00550 




PUSH 


AF 




435E 


E5 


00560 




PUSH 


HL 




435F 


21BC43 


00570 




LD 


HL,TABLE2 




4362 


228743 


00580 




LD 


(TABLE) ,HL 




4365 


El 


00590 




POP 


HL 




4366 


FE22 


00600 




CP 


i ti i 


CHECK FORMAT 


4368 


2047 


00610 




JR 


NZ,QUIT 




436A 


D7 


00620 




RST 


16 




436B 


FE41 


00630 




CP 


'A' 


BETWEEN A AND Z? 


436D 


FAB143 


00640 




JP 


M,QUIT 




4370 


FE5A 


00650 




CP 


'Z' 




4372 


CA7 843 


00660 




JP 


Z,OKl 




4375 


F2B143 


00670 




JP 


P,QUIT 




4378 


21B643 


00680 OKI 


LD 


HL,TABLE1 




437B 


BE 


00690 TEST 


CP 


(HL) 




437C 


2825 


00700 




JR 


Z,ADDR1 




437E 


57 


00710 




LD 


D,A 




437F 


7E 


00720 




LD 


A, (HL) 




4380 


B7 


00730 




OR 


A 




4381 


282E 


00740 




JR 


Z,QUIT 




4383 


7A 


00750 




LD 


A,D 




4384 


23 


00760 




INC 


HL 




4385 


18F4 


00770 




JR 


TEST 




4387 


0000 


007 80 TABLE 


DEFW 


0000 




4389 


11B643 


007 90 ADDR 


LD 


DE,TABLE1 


FIND CMD" " ADDRESS 


438C 


3F 


00800 




CCF 






43 8D 


ED52 


00810 




SBC 


HL,DE 




438F 


23 


00820 




INC 


HL 




4390 


7D 


00830 




LD 


A,L 




4391 


07 


00840 




RLCA 






4392 


2A8743 


00850 




LD 


HL, (TABLE) 




4395 


2B 


00860 




DEC 


HL 




4396 


2B 


00870 




DEC 


HL 




4397 


3C 


00880 




INC 


A 




4398 


3C 


00890 




INC 


A 




4399 


C5 


00900 




PUSH 


BC 




439A 


47 


00910 




LD 


B,A 




439B 


23 


00920 INCR 


INC 


HL 




439C 


10FD 


00930 




DJNZ 


INCR 




439E 


CI 


00940 




POP 


BC 




439F 


5E 


00950 




LD 


E, (HL) 




43A0 


23 


00960 




INC 


HL 




43A1 


56 


00970 




LD 


D,(HL) 




43A2 


C9 


00980 




RET 






43A3 


CD8943 


00990 ADDR1 


CALL 


ADDR 




43A6 


21AC43 


01000 




LD 


HL,NEXT1 




43A9 


E5 


01010 




PUSH 


HL 




43AA 


D5 


01020 




PUSH 


DE 


ADDRESS IN DE 


43AB 


C9 


01030 




RET 




JUMP TO "DE" ADDRESS 


43AC 


Fl 


01040 NEXT1 


POP 


AF 




43AD 


Dl 


01050 




POP 


DE 




43AE 


El 


01060 




POP 


HL 




43AF 


23 


01070 




INC 


HL 




43B0 


C9 


01080 




RET 






43B1 


Fl 


01090 QUIT 


POP 


AF 




43B2 


Dl 


01100 




POP 


DE 




43B3 


El 


01110 




POP 


HL 




43B4 


18A2 


01120 




JR 


STORE 




43B6 


43 


01130 TABLE1 


DEFB 


'C ;PACK 




43B7 


4F 


01140 




DEFB 


1 ' ; SORT 




43B8 


50 


01150 




DEFB 


'P' ;UNASSIGNED 














Listing 1 continues 



The functions I included in my oper- 
ating system were CMD" "; DEFUSR; 
nine USR functions; a command inter- 
preter; full error messages; hexadeci- 
mal, octal, and decimal conversion 
routines; a sort routine; single-step 
Basic, automatic editing; single-key 
command entry; a line-renumbering 
program; a program to delete spaces 
and remarks; a variable lister; dual and 
route functions for a line printer; and a 
new sign-on, or ready, message. 

I named my operating system NO- 
DOS 80, which stands for "no disk op- 
erating system." The 80 is in honor of 
80 Micro. 

The resulting program is broken 
down into four listings for a couple of 
reasons. Though the entire program 
compiles to approximately 4K of ma- 
chine-language code, the Assembly- 
code listing is much longer and cannot 
all be compiled at once on a 16K com- 
puter. Each of the four parts fit within a 
16K computer using the Radio Shack 
Editor /Assembler. Each can be com- 
piled separately, and the four programs 
can be loaded one after the other in the 
order given to form the whole system. 

Another reason for the spilt is so 
readers can customize the program to 
easily fit their needs. The program is 
modularly structured so that functions 
can easily be deleted or added during 
programming stages. You can use the 
reference list at the end of the article to 
find functions you like and want to add. 

The only mandatory code is part A 
and part D following line 1 8240. Part A 
contains the executive program. This is 
the part of the program that recognizes 
commands. The other three parts have 
Equates, which only refer back to part 
A. Starting with line 18240 is the clean- 
up part of the program. This code 
determines where the new start of Basic 
will be. It sets all necessary pointers: the 
start of Basic pointer, the start of scaler 
variables, and the start and end of array 
variables. 

Compatibility with the Model III is 
also maintained by code in this part. 
One program works on the Model I 
and Model III. For Model I efficiency, 
the program starts at 4300H. In the 
Model III, this starting address is in the 
middle of the 256-byte input buffer 
area. Instead of writing a new starting 
address for the Model III, I kept the 
same starting address and had the pro- 
gram determine if it is being used on a 
Model III, and if so, the input buffer is 
relocated to a safe area and the Basic 
pointers are advanced to allow for the 
change. Many functions also have 
changes from the original program to 
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maintain the compatibility between 
these two computers. 

If you have no use for a particular 
function, just eliminate it along with 
all other code that refers to it. Then 
change the origin addresses at the start 
of each part following the one that was 
changed. The other changes will be in 
the origin addresses and DEFW com- 
mands listed at the bottom of parts B, 
C, or D. 

For instance, you may already have 
a good renumbering program. The 
codes for the renumbering function of 
NODOS 80 take up over 25 percent of 
the operating-system code. Part C is 
entirely devoted to renumbering. If 
you decide you don't want the renum- 
ber function, simply ignore part C. 
The only change to part D would be to 
replace the origin address on line 13990 
with 4AD3H . If you don't have a print- 
er, the printer functions Dual and 
Route in lines 14000-14530 and the 
references to that part of the program 
in lines 1 8600- 1 8690 can be eliminated. 

If you want to add commands, that 
is also easy. Take, for instance, the 
Unikey command, to enable single-key 
entry commands. In part A, lines 
2910-2930, have the words UNIKE, 
'Y' + 80H, and OUT0. The Unikey 
command has the last letter set with the 
seventh bit high ( + 80H). This tells the 
program that the end of the word to be 
compared has been reached. The next 
two bytes give the address of the Uni- 
key function. 

Notice that in part A OUT0 goes to 
the error-message section instead. The 
remark PATCH8 is where we want the 
program to jump to when it interprets 
the Unikey command. Down in part D, 
the program that contains Unikey, 
lines 18500 and 18510, fill the space in 
line 2930 with the proper address. This 
is how you add or delete commands. If 
a command is deleted, the program 
jumps to an error message as if the com- 
mand name had not been recognized. 

Starting on line 32 1 are 3 1 spaces to 
add your own coded names and ad- 
dresses to the command table. Just re- 
member to set the seventh bit high for 
the last letter of the command. At this 
time, line 3210 is a zero byte. A zero 
signals the end of the command table. 
Be sure to start your commands here, 
eliminating this zero byte; after you 
add your last command, be sure to fol- 
low the address with a zero byte. You 
can add your function code anywhere 
before the clean-up section as long as 
you adjust the origin statements at the 
beginning of the parts B, C, or D that 
are affected. 



E BASIC 



There are five major DO's on the market all have there good points. Some folks like one, some 
like another, but every single reviewer has said that MULTIDOS had the BEST BASIC. Some 
would stop here, but not Vernon Hestor. He now brings us EBASIC, a new innovative state of the 
art basic. It makes Graphics and Sound EASY. This will give the basic programer more powerthan 
ever! Here are some of the new basic commands: print (a,b), input (a,b), line input (a,b), prints, call, 

sort, labeling, array read, array let, cound, shape, circles, cubes All of thisandyou still have over 

38K for your basic programs. EBASIC is only $29.00 for MultiDos owners. 

MULTIDOS 

MULTIDOS got bigger and better. NewBBASIC, new EASY ZAP, NewTAPE/CMD, and the New 
DISK DRIVE TIMER. All of this and its still the cheapest full Dos going $99.95 



ZD0S 



Z Dos the Dos for the person who does not want to spend a hundred dollars or more for an 
improvement overTRS-DOS. For only $39.95 you will double yourfun. Foronly $39.95 you can get 
what reviewers in three different magazines said was the BEST BASIC for the TRS-80. 

MULTI DOS $99.95 

Z DOS $39.95 

E BASIC $29.95 

Buy MultiDos at the list price of $99.95 and you can take 20% off of any or all of the following. E Basic 
E Basic $29.95 Super Directory $39.95 Aerocomp Doubler $1 9.00 

-SUPER DIRECTORY- 

- Automatic density recognition • Automatic track count recognition - 

- Automatic dos recognition • The Best Directory On The Market! - 

- By Mark Feldman - 

A Great new Directory program with its own operating system written by Vernon Hestor. This 
one program will read any dos as it is delivered by it's publishers except for Tandy's new model I 
double density operating system. There iseven compatibility between Model I and 1 1. The Model 
I SuperDircan read most Model III disksand the Model III SuperDircan read most Model I disks. 
SuperDir can even read double density 80 track disks. 

Now with version 23 you can SEARCH the catalog by program name, disc number, extension 
(/cmd), or even do a STRI NG SEARCH (find all occurences of any combination of letters). It will 
SORT (in seconds) on disc number, program name, remarks, extensions, orcatagories. You can 
even add a 25 character description of each program. SPECIAL PRINT ROUTINES for Different 
printers. DISPLAY SCROLLS up and down by line or by the entire screen. 
It has a direct SCREEN EDITOR that almost eliminates typing. SuperDir keeps track of the 
FREE SPACE on your disks. SuperDir is the FASTEST,the EASIEST to use and the ONLY 
directory able to read multiple dos's on the market $39.95 

TAPE DOWNLOAD SYSTEM (TDS) 

Ability to download and upload machine language, basic and text files with no conversion, and 
save them on tape or disk. Full parallel printer support. Full access to all BASIC and DISK 
commands while in terminal mode at the touch of a key. Prompt mode transmission capability. 
Best tape Smart Term Program on the Market. Write for complete details. 

DDS(disk) $75.95 TDS (Tape) $39.95 TRS-80 Model I or III 

HAYES SMART MODEM $239.95 

ULTRA TERM 

Ultra Term is one of the easiest to use and most versatile intelligent terminal programs 
available. The system includes a full featured intelligent terminal program, a self relocating host 
program, and hex conversion utilities for bulletin board downloading. All at prices one half to 
one third of the competitors. 

* Operates with both auto dial and manual modems, and includes full support for auto dial modems (such as 
Radio Shacks Direct connect Modem 2, Hayes Smartmodem or the auto dial Lynx) with an easy to access 
telephone directory. 

* Exclusive direct to disk file transfer function permits full control from the transmitting computer, allowing the 
receiving computer to run unattended. 

* Unique split screen feature allows simultaneous two way communications from terminal mode, eliminating 
confusion caused by incoming text mixing with what you are typing. 

- Printer support with built in 1 K spooler allows use of printers on systems that don't send nulls after carriage 
returns, and printers that can't keep up with modem baud rates. 

Ultra-Term runs on a TRS-80 Model I or Model III with at least 1 6K, one disk drive, RS-232 port, and modem. 
Regular Price $79.95 I ntroductory Price $59.95 



COMPUTER SHACK ... 

1691 Eason • Pontiac, Michigan 48054 
Info: (313)673-2224 • Orders: (800) 392-8881 

Master Charge and VISA OK. Please add $3.00 for shipping in U.S.A. - $5.00 for Canada or 

Mexico - Proper postage outside of U.S. - Canada - Mexico. 

Dealers: We are distributors for all items in this ad. Write for our catalog and price list. 



■See Lisl ot Advertisers on Page b63 
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FOR TRS-80 MODEL I OR III 
IBM PERSONAL COMPUTER 

MORE SPEED 

10-20 limes taster than interpreted BASIC. 

MORE ROOM 

Very compact compiled code plus VIRTUAL MEMORY 
makes your RAM act larger. Variable number of block 
buffers. 31-char.-unique wordnames use only 4 bytes in 
header! 

MORE INSTRUCTIONS 

Add YOUR commands to its 79-STANDARD-pluS 
Instruction set! 

Far more complete than most Forths: single & double 
precision, arrays, string-handling, clock, graphics (IBM 
low-res. gives B/W and 16 color or 200 tint color display). 

MORE EASE 

Excellent full-screen Editor, structured & modular 

programming 

Word search utility 

THE NOTEPAD letter writer 

Optimized for your TRS-80 or IBM with keyboard repeats, 

upper/lower case display driver, full ASCII. 

MORE POWER 

Forth operating system 

Concurrent Interpreter AND Compiler 

VIRTUAL I/O for video and printer, disk and tape 

(10-Megabyte hard disk available) 

Full 8080 or 8088 Assembler aboard 

(Z80 Assembler also available for TRS-80) 

Intermix 35- to 80-track disk drives 

IBM can read, write and run M.3 disks 

M.3 can read, write and run M.1 disks 




FORTH 



THE PROFESSIONAL FORTH SYSTEM 
FOR TRS-80 & IBM PC 

(Thousands of systems in use) 
MMSFORTH Disk System (requires 1 disk drive, 32K RAM) 

V2.0 tor Radio Shack TRS-80 Model I or III $129.95* 

V2.1 for IBM Personal Computer (80-col. screen) ... $249.95* 

AND MMS GIVES IT PROFESSIONAL SUPPORT 



ode pr. 



'ided 



MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest version 

Programming staff can provide advice, modifications and 

custom programs, to fit YOUR needs. 

MMSFORTH UTILITIES DISKETTE: includes FLOATING POINT 

MATH (BASIC ROM routines plus Complex numbers, Rectan- 

gular-Polar coordinate conversions. Degrees mode, more); a 
powerful CROSS-REFERENCER to list Forth words by block 
and line; plus (TRS-80) a full Forth-style Z80 assembler 
(requires MMSFORTH V2.0. 1 drive S 32K RAM) $39.95* 

FORTHCOM: communications package provides RS-232 
driver, dumb terminal mode, transfer of FORTH blocks, and 
host mode to operate a remote FORTHCOM system (requires 
MMSFORTH V2.0. 1 drive & 32K RAM) $39.95* 

THE DATAHANDLER: a very fast database management 
system operable by non-programmers (requires MMSFORTH 
V2.0, 1 drive & 32K RAM) $59.95' 

FORTHWRITE: fast, powerful word processor wteasy key- 
strokes, Help screens, manual & demo files. Full proportional 
w/tabs, outdenting. Include other blocks, documents, key- 
board inputs, S DATAHANDLER fields— ideal for form letters 
(requires MMSFORTH V2.0. 2 drives & 48K RAM) .... $175.00* 

MMSFORTH GAMES DISKETTE: realtime graphics & board 
games w/source code. Includes BREAKFORTH, CRASH- 
FORTH, CRYPTOOUOTE. FREEWAY (TRS-80), OTHELLO & 
TICTACFORTH (requires MMSFORTH V2.0, 1 drive S 32K RAM) 
$39.95* 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL - w/o Appendices $17.50" 

STARTING FORTH - best! $15.95* 

THREADED INTERPRETIVE LANGUAGES - advanced, 
analysis of FORTH internals $18.95* 

PROGRAM DESIGN & CONSTRUCTION - intro. to Structured 
programming, good for Forth $16.00* 



FORTH SPECIAL ISSUE, BYTE Magazine (Aug. 1980) - A col- 
lector's item for Forth users and beginners $4.00* 

* - ORDERING INFORMATION: Software prices include 
manuals and require signing ot a single computer license for 
one-person support. Describe your hardware. Add $2.00 S/H 
plus $3.00 per MMSFORTH and $1.00 per additional book; 
Mass orders add 5% tax. Foreign orders add 20%. UPS COD, 
VISA and M(C accepted; no unpaid purchase orders or refunds. 

Send SASF. lor tree MMSFORIH information 
Good dealers sought 



MILLER MICROCOMPUTER SERVICES 

61 Lake Shore Road, Natick, MA 01760 

(617)653-6136 



Listing I continued 










43B9 


58 


01160 




DEFB 


'X' -UNASSIGNED 


43 BA 


5A 


01170 




DEFB 


'Z' -UNASSIGNED 


43BB 


00 


01180 




DEFB 





43BC 


B143 


01190 


TABLE 2 


DEFW 


QUIT ;PACK 


43BE 


B143 


01200 




DEFW 


QUIT jSABUBL 


43C0 


B143 


01210 




DEFW 


QUIT ; UNASSIGNED 


43C2 


B143 


01220 




DEFW 


QUIT -UNASSIGNED 


43C4 


B143 


01230 




DEFW 


QUIT ; UNASSIGNED 






01240 




DEFUSR 


FUNCTION 






01250 




THOMAS 


L. QUINDRY, NEW CODE 






01260 




INCLUDES CODE FROM BASIC ENHANCED AGAIN 


0003 




01270 


STORE3 


DEFS 


3 


0014 




01280 


DEFUS 


DEFS 


20 ; DEFUSR ADDRESS TABLE 


43DD 


F5 


01290 


START3 


PUSH 


AF 


43DE 


D5 


01300 




PUSH 


DE 


43DF 


E5 


01310 




PUSH 


HL 


43E0 


11C643 


01320 




LD 


DE , STORE3 


43E3 


D5 


01330 




PUSH 


DE 


43E4 


FECI 


01340 




CP 


0C1H -TOKENIZED USR CODE 


43E6 


206A 


01350 




JR 


NZ,QUIT1 


43E8 


D7 


01360 




RST 


16 


43E9 


FED5 


01370 




CP 


0D5H ;TOKENIZED EQUAL SIGN 


43EB 


2003 


01380 




JR 


NZ,DIGIT1 


43ED 


3E30 


01390 




LD 


A,30H 


43EF 


2B 


01400 




DEC 


HL 


43F0 


CDF843 


01410 


DIGIT1 


CALL 


DIGIT 


43F3 


CD0544 


01420 




CALL 


USR2 


43F6 


1820 


01430 




JR 


DEFUS1 


43F8 


FE30 


01440 


DIGIT 


CP 


30H -BETWEEN AND 9? 


43FA 


F2FF43 


01450 




JP 


P,OK 


43FD 


1853 


01460 




JR 


QUIT1 


43FF 


FE3A 


01470 


OK 


CP 


3AH 


4401 


F25244 


01480 




JP 


P,QUIT1 


4404 


C9 


01490 




RET 




4405 


D62F 


01500 


USR2 


SUB 


2FH 


4407 


07 


01510 




RLCA 




4408 


221644 


01520 




LD 


(STOR4A) ,HL 


440B 


21C743 


01530 




LD 


HL,DEFUS-2 


440E 


47 


01540 




LD 


B,A 


440F 


23 


01550 


INCR1 


INC 


HL 


4410 


10FD 


01560 




DJNZ 


INCR1 


4412 


222544 


01570 




LD 


(STOREH+2) ,HL 


4415 


C9 


01580 




RET 




4416 


0000 


01590 


STOR4A 


DEFW 


0000 


4418 


2A1644 


01600 


DEFUS1 


LD 


HL, (STOR4A) 


441B 


D7 


01610 




RST 


16 


441C 


FED5 


01620 




CP 


0D5H ; EQUAL SIGN 


441E 


2032 


01630 




JR 


NZ,QUIT1 


4420 


CD012B 


01640 




CALL 


2B01H {EVALUATE ASCII TO BINARY 


4423 


ED53C943 


01650 


STOREH 


LD 


(DEFUS) ,DE 


4427 


Fl 


01660 


USR1 


POP 


AF /RECTIFY STACK 


4428 


Fl 


01670 




POP 


AF 


4429 


Dl 


01680 




POP 


DE 


442A 


Fl 


01690 




POP 


AF 


442B 


C9 


01700 




RET 








01710 




USR FUNCTIONS ADAPTED FROM 






01720 




BASIC 


ENHANCED AGAIN 






01730 
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0003 




01740 


STORE4 


DEFS 


3 


442F 


F5 


01750 


START 4 


PUSH 


AF 


4430 


D5 


01760 




PUSH 


DE 


4431 


B5 


01770 




PUSH 


HL 


4432 


112C44 


01780 




LD 


DE,STORE4 


4435 


D5 


01790 




PUSH 


DE 


4436 


D7 


01800 




RST 


16 


4437 


FE28 


01810 




CP 


' ( ■ ; CHECK FORMAT 


4439 


2003 


01820 




JR 


NZ,DIGIT2 


443B 


3E30 


01830 




LD 


A,30H 


443D 


2B 


01840 




DEC 


HL 


443E 


CDF843 


01850 


DIGIT2 


CALL 


DIGIT 


4441 


CD0544 


01860 




CALL 


USR2 


4444 


7E 


01870 




LD 


A,(HL) 


4445 


5F 


01880 




LD 


E,A 


4446 


23 


01890 




INC 


HL 


4447 


7E 


01900 




LD 


A,(HL) 


4448 


57 


01910 




LD 


D,A 


4449 


ED538E40 


01920 




LD 


(408EH) ,DE 


444D 


2A1644 


01930 




LD 


HL,(STOR4A) 


4450 


18D5 


01940 




JR 


USR1 


4452 


El 


01950 


QUIT1 


POP 


HL ; ERROR OCCURRED 


4453 


Dl 


01960 




POP 


DE 


4454 


Fl 


01970 




POP 


AF 


4455 


C9 


01980 




RET 








01990 


; 


MERGE 


flND MERGE* COMMANDS ADAPTED FROM 






02000 


9 


DALE W 


RUPERT, 80 MICRO, NOV 81, P292 


4456 


215E44 


02010 


PATCH1 


LD 


HL,START1 


4459 


228C41 


02020 




LD 


(418CH),HL -MERGE COMMAND 


445C 


181D 


02030 




JR 


PATCH 2 


445E 


7E 


02040 


START1 


LD 


A, (HL) 


445F 


FECF 


02050 




CP 


0CFH -TOKENIZED * 


4461 


280A 


02060 




JR 


Z,MERGE2 


4463 


2AF940 


02070 


MERGE 


LD 


HL,(40F9H) ;END OF BASIC 


4466 


2B 


02080 




DEC 


HL 


4467 


2B 


02090 




DEC 


HL 


4468 


22A440 


02100 




LD 


(40A4H) ,HL -START OF BASIC 


446B 


1806 


02110 




JR 


BASIC 


446D 


2A7944 


02120 


MERGE2 


LD 


HL,(BAS) 


4470 


22A440 


02130 




LD 


(40A4H) ,HL 


4473 


01181A 


02140 


BASIC 


LD 


BC,1A18H -MODEL I/III JUMP 


4476 


C3AE19 


02150 




JP 


19AEH ,"TO BASIC 


4479 


0000 


02160 


BAS 


DEFW 


; LOWEST BASIC START 






02170 




SPECIAL COMMAND RECOGNITION ADAPTED FROM 






02180 




WHITE 








02190 




JAKE COMMANDER, 80 MICRO, JULY 80, P94 


447B 


3EC3 


02200 


PATCH 2 


LD 


A,0C3H 


447D 


32A641 


02210 




LD 


(41A6H) ,A ; ERROR 


4480 


218944 


02220 




LD 


HL , ENTRY 


4483 


22A741 


02230 




LD 


(41A7H) ,HL 


4486 


C33D47 


02240 




JP 


PATCH3 


4489 


F5 


02250 


ENTRY 


PUSH 


AF 

Listing 1 continues 
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The command tables for CMD" " 
are similar, except that only single-let- 
ter commands are used. In this case, 
TABLE 1 corresponds with the ad- 
dresses in TABLE2 (lines 1130 -1230). 
Extra unassigned commands P, X, and 
Z are given. You can change them to 
suit your needs, or you can use them by 
putting the correct function addresses 
in lines 1210, 1220, and 1230, respec- 
tively. Notice the one-for-one corre- 
spondence between TABLE 1 and TA- 
BLE2 as given by the remarks. 

Table 1 gives a synopsis of all of the 
functions. The rest of this article gives 
more detail on how to use them. 

CMD" " Function 

Two commands are available. First, 
CMD"C" calls the pack function. 
This function compresses your Basic 
program in memory by removing all 
spaces and remark statements. It will 
remove both the REM and the (')-type 
remark statement. If a line is entirely a 
remark statement, the line is deleted. 

Second, commands of the form 
CMD"O",A$(0) alphabetically sort 
the string array specified. You can 
specify any string array. It is manda- 
tory that the subscript zero array be 
specified as above. 

It is a good idea to dimension every 
string array to be sorted to exactly the 
number of elements to be used. If the 
array is not dimensioned, such as DIM 
A$(5), a dimension of 10 is assumed. 
Unused strings have a null value and 
are sorted to the beginning of the array 
elements. For example, if only five 
strings are defined and the string array 
is not dimensioned, the sorted array 
starts with null strings from the 0-5 
elements. The array elements that have 
been defined will start with element 6. 

Specified Commands 

The DEFUSR command is used to 
specify the address for the correspond- 
ing USR command. These commands 
can specify DEFUSR0-DEFUSR9 and 
USR0-USR9. The zero is optional. 
DEFUSER works exactly as it does in 
Disk Basic. Enter it in the form 
DEFUSR7 = 32000. USR also works in 
the same manner as in Disk Basic. En- 
ter it in the form X = USR7(Y) or 
PRINT USR7(Y) where the value or 
variable Y can be passed to the called 
machine-language routine. 

Merge lets you CLOAD two or more 
Basic programs consecutively in mem- 
ory. The command temporarily hides 
the program already entered by rede- 
fining the start of Basic pointer to the 
address just above where the program 

^See List of Advertisers on Page 563 




DEALERS * DEALERS • DEALERS • DEALERS 

The Duck Company is a new division of Computer Shack. It was formed for the sole purpose of 
furnishing software to dealers. As Computer Shack grew, we found that we had a hard time 
getting software. We hadtocall manydifferent company's, rememberwhattheirminimum order 
was, what products they carried, and then usually wait 2-3 weeks for delivery. Each month we 
would see new products advertised and we would order a copy to review, then, if the product 
was worth carrying, we would order more. Now the Duck Company will do all this for you. We will 
evaluate all new games and send each of our dealers a written review. On many games we will 
send a free review copy. 

You might ask why the name Duck Company. 

There are many reasons. When we started a 

mail order business over a year ago, we came 

up with the name Supersoft and Supersoft 

Associates threatened to sue us. Then we got 

the name Computer Shack and now Radio 

Shack is threatening to sue us. So we picked 

the name the DUCKCO. It iseasy to remember. 

(I get all these Micro and Computer Companies mixed up) A Duck is a hard working speedy little 

bird, and we will try to do the same. At the present time we have over 100 different programs is 

stock and are continuously adding to it. We promise to ship all dealer orders within 48 hours. We 

will try to help you make your software business a success. You will also receive a copy of ourTop 

Ten games each month. A valuable selling tool. 

Call or write today and get our dealer price list and Catalog. 

• SOFTWARE HOUSES * PUBLISHERS • SOFTWARE HOUSES 

We at the DUCK CO. are looking for outstanding programs for the TRS-80 model I, Model III, and 
ColorComputer. If you have some programs that you would like help in distributing please send us 
a copy for evaluation. If you have a new game send us four copies and we will make sure that each 
member of the panel that rates the games for Computer Shack gets a copy. 

THE DUCK COMPANY 

1691 Eason • Pontiac, Michigan 48054 
Outside of Michigan 800-392-8881, in Michigan 313-673-2224 or 673-8700 

PRINTERS - PRINTERS ■ PRINTERS • PRINTERS 

At Computer Shack we have decided not to stock many different kinds of printers. There are many 
good printers on the m arket and all have their good points. We owned and tested the Okidatas, the 
Epson MX's, and others. But considering everything, especially the print quality, we think the 
C.ltoh Prowriter is the best all around printer on the market. This is the same printer as the NEC but 
with a newer and better set of Rom chips. This enables the printer to print at 1 20 cps (MX-80 is 
80cps, the NEC 1 00 cps). It has print quality equal to or better than the MX-80 and three different 
styles of type: pica, elite, or proportional, along with condensed, emphasised, or double size type. 
Then the PROWRITER has FRICTION FEED at no extra cost, REVERSE LINE FEED, true 
PROPORTIONAL SPACING, excellent dot addressable graphics and a replaceable print head. All 
the C. Itoh printers are guaranteed for 1 full year, that's 9 months longer than any other printer on 
the market. 

Computer Shack services what we sell. Computer Shack is an authorized C. Itoh Service Center. If 
in the unlikely event, your PROWRITER does break down, we will promptly fix it for you. With each 
new printer from Computer Shack we include special instructions showing how to set up and run 
your PROWRITER with the TRS-80. This shows all the codes and short cuts to making graphics 
with the TRS-80 and the PROWRITER. We also offer at $8.00 (authors commission plus materials) 
PRO-SET. PRO-SET is a new program that allows you to do screen dumps to the PROWRITER, 
print TRS-80 graphic blocks (something you cannot do with Graphtrax plus), send printer controls 
to the printer from Dos, etc. Regular price is $24.00/$29.00. 

PROWRITER 8510 A List Price $795.00 CS PRICE only $499.05 

PROWRITER II (1 5 in carriage) List $995.00 CS PRICE only $799.05 

•••••••• PRINT BUFFERS ••••••• 

These two items will pay for themselves in time saved. Why tie up a $4000 computer waiting 

for the printer to finish the printout? 

Practical Peripherals Epson 1 6K buffer only $149.95 

The Compulink SuperSpooler with 16K memory, LED readout, space compression and 
more. Write fora complete spec sheet. This is theCadillacof printbuffersforonly . . . $329.00 



COMPUTER SHACK * 

1691 Eason • Pontiac, Michigan 48054 
Info: (313)673-2224 • Orders: (800) 392-8881 

Master charge and VISA OK. Please add $3.00 for shipping in U.S.A. - $5.00 forCanada or Mexico- 
Proper postage outside of U.S. - Canada - Mexico. 
Dealers: We are distributors for all items is this ad. Write for our catalog and price list. 
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REMSOFT, INC. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 



Tired of buying book after book on assembly 
language programming and siiii nol knowing your 
POP from your PUSH? 

REMsOFT proudly announces a more 
efficient way. using your own TRS-80" to learn 
tne fundamentals of assembly language 
programming . . at YOUR pace and YOUR 
convenience 

Our unique package. "INTRODUCTION TO 
TRS-80 ASSEMBLY PROGRAMMING"', will 
provide you with the following: 

• Ten 45-mmute lessons on audio cassettes 

• A driver program to make your TRS-80' video 
monitor serve as a blackboard for the instructor 

• A display program for each lesson to orovide 
illustration and reinforcement fc what you are 
hearing. 

• Step-by-step dissection of complete and useful 
routines to test memory and to gam direct 
control over the keyboard, video monitor, and 
printer. 

• How to access and use powerful routines in 
your Level II ROM. 

for Model 1 

REMASSEM-1(ta pe) only $69.95 

REMASSEM-1 (disk, only $74.95 

NOW AVAILABLE FOR MODEL 3 

REMASSEM-3(.a P e) $74.95 

REM ASSEM-3 (disk. $79.95 



LEARN TRS-80' 

ASSEMBLY LANGUAGE 

DISK I/O 



You' disk system and you can really step out 
witn REMSOFT'S Educational Module. 
REMDISK-1. a short course" revealing the details 
of DISK I O PROGRAMMING using assembly- 
language. Intended fo< tne student with 
experience in assembly language. 
COURSE INCLUDES: 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80 video 
monitor serve as a blackboard for the instructor. 

• A display program, for each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• A booklet of comp'ehensive. fully commented 
program listings illustrating sequential file I O 
random-access file i O. and track and sector i 

• A diskette with machine-readable source codes 
for all programs discussed, in bctn Radio Snack 
EDTASM and Macro formats. 

• Routines to convert from one assembler format 
to the other 

Presently available for model 1 only 
REMDISK-1 only $29.95 

Dealer inquiries invited 

These courses were developed and recorded by 
Joseph E. WhIis and are based on the successful 
series of courses he has taught at Meta 
Technologies Corporation, tne Radio Shack 
Computer Center, and other locations in Northern 
Ohio The minimum system required is a Level II 
16K RAM. 



REMSOFT, INC. 

571 E. 185 St. 

Euclid. Ohio 44119 

(216) 531-1338 



SHIPPING CHARGES. ... 

S2. 50 WITHIN UNITED STATES ^'^ 9 

S5.00 CANADA AND MEXICO 
OTHER FOREIGN ORDERS ADD 20 c 5 
OHIO RESIDENTS ADD6'j c c SALES TAX 

TRS-80 IS A TRADEMARK OF TANDY CORP. 




resides. After an additional program 
has been entered, the Merge * com- 
mand restores the start of Basic pointer 
to the beginning of the first program. 
The space between Merge and * is op- 
tional. Use the RENUM or Name com- 
mand to renumber the last program 
entered so that line numbers do not 
conflict with previous programs en- 
tered. Then use the Merge * command 



to restore the start-of-Basic pointer to 
its original position. 

RENUM renumbers your Basic pro- 
gram in memory. The Name command 
provides the same function. This op- 
tional command name is given because 
it is similar to the renumbering func- 
tion in Disk Basic. 

Four options are available once you 
are in the renumbering program. "En- 
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448A 


7B 


02260 


LD 


A,E 






448B 


FE02 


02270 


CP 


2 




; SYNTAX ERROR? 


448D 


C25545 


02280 


JP 


NZ,OUTl 






4490 


E5 


02290 


PUSH 


HL 






4491 


D5 


02300 


PUSH 


DE 






4492 


2AE640 


02310 


LD 


HL, (40E6H) 




4495 


7E 


02320 


LD 


A, (HL) 






4496 


B7 


02330 


OR 


A 






4497 


2004 


02340 


JR 


NZ,NCHR 






4499 


23 


02350 


INC 


HL 






449A 


23 


02360 


INC 


HL 






449B 


23 


02370 


INC 


HL 






449C 


23 


02380 


INC 


HL 






449D 


D7 


023 90 NCHR 


RST 


16 






449E 


11DA44 


02400 


LD 


DE,CMD 






44A1 


E5 


02410 


PUSH 


HL 






44A2 


1A 


02420 CMPR 


LD 


A, (DE) 




; COMPARE WITH COMMAND TABLE 


44A3 


B7 


02430 


OR 


A 






44A4 


CA5245 


02440 


JP 


Z,OUT0 




;RAN OUT OF WORDS TO COMPARE 


44A7 


CBBF 


02450 


RES 


7, A 




;GET RID OF HI BIT 


44A9 


BE 


02460 


CP 


(HL) 






44AA 


2009 


02470 


JR 


NZ,NEXT 






4 4 AC 


1A 


02480 


LD 


A, (DE) 






44AD 


CB7F 


02490 


BIT 


7, A 






44AF 


200F 


02500 


JR 


NZ,DONE 






44B1 


23 


02510 


INC 


HL 






44B2 


13 


02520 CMPR1 


INC 


DE 






44B3 


18ED 


02530 


JR 


CMPR 






44B5 


1A 


02540 NEXT 


LD 


A, (DE) 






44B6 


CB7F 


02550 


BIT 


7, A 






44B8 


13 


02560 


INC 


DE 






44B9 


28FA 


02570 


JR 


Z,NEXT 




. 


44BB 


13 


02580 


INC 


DE 






44BC 


El 


02590 


POP 


HL 






44BD 


E5 


02600 


PUSH 


HL 






44BE 


18F2 


02610 


JR 


CMPR1 






44C0 


Fl 


02620 DONE 


POP 


AF 




; FOUND COMMAND 


44C1 


Fl 


02630 


POP 


AF 






44C2 


Fl 


02640 


POP 


AF 






44C3 


Fl 


02650 


POP 


AF 






44C4 


Fl 


02660 


POP 


AF 






44C5 


E5 


02670 


PUSH 


HL 






44C6 


21D144 


02680 


LD 


HL,EXIT1 






44C9 


E5 


02690 


PUSH 


HL 




;PUT "HL" ADDRESS ON STACK 


44CA 


13 


02700 


INC 


DE 






44CB 


1A 


02710 


LD 


A, (DE) 






44CC 


6F 


02720 


LD 


L,A 






44CD 


13 


02730 


INC 


DE 






44CE 


1A 


02740 


LD 


A, (DE) 






44CF 


67 


02750 


LD 


H,A 






44D0 


E9 


02760 


JP 


(HL) 




;JUMP TO COMMANDED ROUTINE 


44D1 


AF 


02770 EXIT1 


XOR 


A 






44D2 


329A40 


02780 


LD 


(409AH) , 


A 


; CLEAR ERROR 


44D5 


El 


02790 


POP 


HL 






44D6 


D7 


02800 


RST 


16 






44D7 


C31E1D 


02810 


JP 


1D1EH 




;BACK TO PROGRAM 


44DA 


52 


02820 CMD 


DEFM 


'RENU' 




,- COMMAND TABLE 


44DE 


CD 


02830 


DEFB 


'M'+80H 




,-END BIT + 80H 


44DF 


5245 


02840 


DEFW 


OUT0 


; START7 


(ADDRESS TO GO TO) 


44E1 


46 


02850 


DEFM 


'FIN' 






44E4 


C4 


02860 


DEFB 


'D'+80H 






44E5 


5245 


02870 


DEFW 


OUT0 


;FIND 




44E7 


50 


02880 


DEFM 


'PAC 






44EA 


CB 


02890 


DEFB 


'K'+80H 






44EB 


5245 


02900 


DEFW 


OUT0 


; PACK 




44ED 


55 


02910 


DEFM 


'UNIKE' 






44F2 


D9 


02920 


DEFB 


'Y'+80H 






44F3 


5245 


02930 


DEFW 


OUT0 


; PATCH 8 




44F5 


44 


02340 


DEFM 


■DELA' 






44F9 


D9 


02950 


DEFB 


'Y'+80H 






44FA 


5245 


02960 


DEFW 


OUT0 


; BOUNCE 




44FC 


4E 


02970 


DEFM 


'NODELA' 






4502 


D9 


029 80 


DEFB 


'Y'+80H 






4503 


5245 


02990 


DEFW 


OUT0 


; NOBOU 




4505 


45 


03000 


DEFM 


'ED' 






4507 


D4 


03010 


DEFB 


'T'+80H 






4508 


5245 


03020 


DEFW 


OUT0 


; PATCH A 




450A 


53 


03030 


DEFM 


'SNG' 






450D 


CC 


03040 


DEFB 


'L'+80H 






450E 


5245 


03050 


DEFW 


OUT0 


; PATCH B 




4510 


44 


03060 


DEFM 


'DUAL ' 






4515 


CE 


03070 


DEFB 


■N'+80H 






4516 


5245 


03080 


DEFW 


OUT0 


; DUALOF 




4518 


44 


03090 


DEFM 


'DUAL ' 






451D 


D9 


03100 


DEFB 


■Y'+80H 






451E 


5245 


03110 


DEFW 


OUT0 


; DUALON 




4520 


44 


03120 


DEFM 


■DUA 1 






4523 


CC 


03130 


DEFB 


'L'+80H 






4524 


5245 


03140 


DEFW 


OUT0 


; DUALON 


Listing I continues 
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ter start line" and "enter end line" 
specify which lines you wish to renum- 
ber. "Enter new start line" specifies 
the line number of the first line to be 
renumbered. "Enter increment" 
specifies the difference between 
renumbered lines. 

Beware! If you renumber lines in the 
middle of a program and your incre- 
ment is too large to keep within the 
boundaries of lines not renumbered, 
the program may not run properly. 
And it may not be easily corrected if 
GOTOs or GOSUBs refer to those line 
numbers either before or after renum- 
bering. Also, too large an increment 
may overflow the 65529 number limit 
and continue numbering with a lower 
number. Sometimes using RENUM 
gives erroneous error messages specify- 
ing nonexistent line numbers. Your 
program is not affected by these 
messages. 

The Find command locates variables 
used in the Basic program in memory. 
You can specify up to three letters, in- 
cluding the $, #, !, and °7o signs. It 
doesn't recognize tokenized words, but 
to some extent it recognizes partial 
strings up to three letters. It recognizes 
three-byte combinations and one or 
two-byte combinations followed by a 
space. It does not check the variable 
type, so you must specify the variable 
exactly as it appears in the text of your 
program. For example, if you have a 
DEFINT A command, check for A 
and not A% if the variable appears in 
the program as A. 

Pack provides the same function as 
CMD"C". The CMD"C" command 
was included because it is similar to the 
Disk Basic compress function. Some 
may prefer to use the Pack command 
instead. 

Unikey allows single-key entries by 
hitting the shift key and any alphabetic 
key or the down arrow. Table 2 gives 
the coded entry conditions for Unikey. 
The shift, down-arrow combination 
enters a user defined command or 
commands. This command line is pre- 
defined as RUN<CR>. You can change 
it to any command or string of com- 
mands up to 64 characters by en- 
tering shift, clear. You can also enter 
the carriage return as part of your com- 
mand. After the command line has 
been defined, you must enter shift, 
clear again to put the command in mem- 
ory for later use. Unikey is a toggle 
command. Entering the command again 
disables the function. You can enable 
and disable it as often as you like. 

Delay adds some debounce to the 
Unikey function. This is not needed in 
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4526 50 


03150 




DEFM 


'PRD' 


4529 CF 


03160 




DEFB 


■O'+80H 


452A 5245 


03170 




DEFW 


OUT0 ;PRDO 


452C 44 


03180 




DEFM 


'DOP' 


452F D2 


03190 




DEFB 


'R'+80H 


4530 5245 


03200 




DEFW 


OUT0 ;DOPR 


4532 00 


03210 




DEFB 





001E 


03220 




DEFS 


30 ;ROOM FOR MORE COMMANDS 


4551 00 


03230 




DEFB 





4552 D.l 


03240 


OUT0 


POP 


DE ;GIVE ERROR 


4553 Dl 


03250 




POP 


DE 


4554 El 


03260 




POP 


HL 


4555 Fl 


03270 


OUT1 


POP 


AF ;GIVE ERROR MESSAGE 


4556 C30F47 


03280 




JP 


ERRMES 




03290 


. 


FULL 


ERROR 




03300 


; 


HARRY 


AND KEY KEAIRNS, 80 MICRO, OCT 81, P340 


4559 4E 


03310 


NF 


DEFM 


'NEXT without FOR" 1 


456A 53 


03320 


SN 


DEFM 


'Syntax" ' 


4571 52 


03330 


RG 


DEFM 


'RETURN without GOSUB"' 


4586 4F 


03340 


OD 


DEFM 


'Out Of DATA" ' 


4592 49 


03350 


FC 


DEFM 


'Illegal function call"' 


45A8 4F 


03360 


OV 


DEFM 


'Overflow" ' 


45B1 4F 


03370 


OM 


DEFM 


'Out of memory" ' 


45BF 55 


03380 


UL 


DEFM 


'Undefined line number"' 


45D5 53 


03390 


BS 


DEFM 


'Subscript out of range" ' 


45EC 52 


03400 


DD 


DEFM 


'Redimensioned array"' 


4600 44 


03410 


DO 


DEFM 


'Division by zero"' 


4611 49 


03420 


ID 


DEFM 


' Illegal direct" ' 


4620 54 


03430 


TM 


DEFM 


'Type mismatch" ' 


462E 4F 


03440 


OS 


DEFM 


'Out of string space"' 


4642 53 


03450 


LS 


DEFM 


'String too long"' 


4652 53 


03460 


ST 


DEFM 


'String formula too complex"' 


466D 43 


03470 


CN 


DEFM 


'Can' 


4670 27 


03480 




DEFB 


27 H ; APOSTROPHE 


4671 74 


03490 




DEFM 


' t continue" ' 


467C 4E 


03500 


NR 


DEFM 


'No RESUME" ' 


4686 52 


03510 


RW 


DEFM 


'RESUME without" ' 


4695 55 


03520 


UE 


DEFM 


'Unprintable" ' 


46A1 4D 


03530 


MO 


DEFM 


'Missing operand" ' 


46B1 42 


03540 


FD 


DEFM 


'BAD file data" ' 


46BF 4E 


03550 


L3 


DEFM 


'N/A in NODOS 80 - Disk BASIC only"' 


46E1 5945 


03560 


TABL 


DEFW 


NF 


46E3 6A45 


03570 




DEFW 


SN 


46E5 7145 


03580 




DEFW 


RG 


46E7 8645 


03590 




DEFW 


OD 


46E9 9245 


03600 




DEFW 


FC 


46EB A845 


03610 




DEFW 


OV 


46ED B145 


03620 




DEFW 


OM 


46EF BF45 


03630 




DEFW 


UL 


46F1 D545 


03640 




DEFW 


BS 


46F3 EC45 


03650 




DEFW 


DD 


46F5 0046 


03660 




DEFW 


DO 


46F7 1146 


03670 




DEFW 


ID 


46F9 2046 


03680 




DEFW 


TM 


46FB 2E46 


03690 




DEFW 


OS 


46FD 4246 


03700 




DEFW 


LS 


46FF 5246 


03710 




DEFW 


ST 


4701 6D46 


03720 




DEFW 


CN 


4703 7C46 


03730 




DEFW 


NR 


4705 8646 


03740 




DEFW 


RW 


4707 9546 


03750 




DEFW 


UE 


4709 A146 


03760 




DEFW 


MO 


470B B146 


03770 




DEFW 


FD 


470D BF46 


03780 




DEFW 


L3 


470F 21E146 


03790 


ERRMES 


LD 


HL,TABL 


4712 09 


03800 




ADD 


HL,BC 


4713 D5 


03810 




PUSH 


DE 


4714 5E 


03820 




LD 


E,(HL) 


4715 23 


03830 




INC 


HL 


4716 56 


03840 




LD 


D,(HL) 


4717 EB 


03850 




EX 


DE,HL 


4718 Dl 


03860 




POP 


DE 


4719 CDA728 


03870 




CALL 


28A7H 


471C 211D19 


03880 




LD 


HL,191DH ; ERROR POINTER 


471F E5 


03890 




PUSH 


HL 


4720 2AEA40 


03900 




LD 


HL, (40EAH) 


4723 E3 


03910 




EX 


(SP) ,HL 


4724 CDA728 


03920 




CALL 


28A7H 


4727 El 


03930 




POP 


HL 


4728 11FEFF 


03940 




LD 


DE,0FFFEH 


47 2B DF 


03950 




RST 


18H 


472C CA7406 


03960 




JP 


Z,0674H 


472F 7C 


03970 




LD 


A,H 


4730 A5 


03980 




AND 


L 


4731 3C 


03990 




INC 


A 


4732 C4A70F 


04000 




CALL 


NZ,0FA7H 


4735 3EC1 


04010 




LD 


A,0C1H 


4737 CD8B03 


04020 




CALL 


038BH 


473A C31C1A 


04030 




JP 


1A1CH 


473D C37344 


04040 


PATCH 3 


JP 


BASIC 


02B2 


04050 




END 


02B2H 


00000 TOTAL 


ERRORS 









Program Listing 2 



473D 

473D 3A9441 



04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 



NODOS80-B FUNCTIONS 
HEX/DEC/BINARY, READY MESSAGE, 
VARIABLE LISTER, PACKER 

HEX/OCTAL/DECIMAL CONVERSION FROM 

CONSTANT ALTERNATIVES 

EVAN C. HAND, SR. , 80 MICRO, MAR 81, P225 

ORG 473DH 

LD A,(4194H) ;& FUNCTION 

Listing continues 
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What some have called "the best kept 

secret in the game software industry". 

Unleashed here are six new software 

games blending advanced graphics with precise elements of 

playability, challenge and intense fun for every gamer's tastes. 

Beyond these six new games are 26 more for you to consider . 

all we believe are the best software values for your money! 



LEGIONNAIRE- Real-time simulation of 
tactical combat in Caesar's time. YOU as Caesar 
command up to ten legions. Finest full-color 
graphics plus playability way beyond the state 
of the art! Cassette ... $35.00 

V.C.— Faithfully recreates unconventional 
conflict in Viet Nam. YOU command chopper 
and artillery units, and face task of protecting 
civilian population where the enemy hides 
among the people. Cassette . . . $20.00 
Diskette . . . $25.00 



G.F.S. SORCERESS-Sci-Fi adventure game. 
YOU are Joe Justin trying to clear yourself of a 
false charge of mutiny and get back to the 
Galactic Federation Starship "Sorceress". 
Beautiful full-color manuals provide useful clues. 
Cassette ... $30.00 Diskette . . . $35.00 

ANDROMEDA CONQUEST- Vast scale 
space strategy game of galactic colonizing and 
conquest among unique star systems with 
strange life forms and alien technologies that 
provide exciting exploration and battle. 
Cassette. . . $18.00 Diskette . . . $23.00 



' Trademarks lor Apple Compuler. Warner Communicaiions. Tandy Corp. 
International Business Machines and Commodore International Ltd. 

Available at finer 
computer stores everywhere! 



m 

urn 
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MOON PATROL-Arcade Pak™ game of 
lunar invasion. Beats any quarter-gobbling game 
around! Four levels of increasing difficulty 
present new attackers to battle. Fast, furious and 
fun! Cassette . . . $25.00 

TELENGARD— Dungeon adventure in a 
mysterious underworld with 50 levels of ever- 
more-complex mazes to explore. Real time 
fantasy and role-playing game. Using wits, 
magic and fast thinking, gamers fight monsters 
and reap valuable rewards. Cassette . . . $23.00 
Diskette . . . $28.00 

If your favorite dealer fails to have 
the games you want, call us toll free 

1-800-638-9292 



microcomputer games 

■ REGISTERED TRADEMARK OF MICROCOMPUTER GAMES. INC DIVISION OF 

The AVALON HILL Game Company 



Avalon Hill MICROCOMPUTER GAMES 

are compatible with the following computer systems: 

Apple II® 

Atari 4/800® 

TRS-80 Models I/HI & Color® 

IBM P.C .® 

Commodore VIC-20. CBM PET & 2001® 



cfe 



For specific information, such as 
machine compatibility, memory requirements. 

cassette or diskette availability and price. 

call us toll-free 1-800-638-9292 and ask for 

Operator 10 or write to: 

Avalon Hill Microcomputer Games. Dept. C-10 

4517 Harford Road. Baltimore. MD 21214 
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Champimts 



What can we do? Jyym Pearson and William Denman 

have squared off with magic swords and battle axes. 

Jyym claims that prose adventures allow the ultimate 

escape. William claims that 3-D graphic adventures 

are the highest achievement in computer gaming. 

The reviewers love both systems: The Institute-owe 

of the finest adventures I\e ever played-Mark 

Renne, '80 Microcomputing, September 1982. 

Asylum-another triumphant teaser from Med Systems 

-Debra Marshall, '80 Microcomputing May 1982. 



Either way, you, the user, get a game that can't be solved without incredible effort. We do not 
exaggerate when we claim to do more in 16K than any of our competitors. 



THE ASYLUM ADVENTURES 



Asylum is the most sophisticated, sinister, challenging 3-D graphics adventure ever written. You are placed 
in an asylum full of bizarre characters, weird objects, and strange happenings. Your only goal — 
ESCAPE! Over 1200 locations conspire to confuse your senses. Hallways recede into the screen as though 
you are actually there. An advanced language interpreter understands complete English sentences, not just 
one and two word commands. And everything takes place instantly! 
Asylum 16K cassette or diskette $19.95 



Just when you thought it was safe to go back to the key board... Asylum II was born! The insanity con- 
tinues. You need not have played Asylum I to play Asylum II. You will need ingenuity, persistence, and a 
terrific sense of direction to negotiate the 1500 locations full of army ants, rats, and strange inmates. 
Asylum II 16K cassette or diskette $19.95 




of flditEithirc 



Our cassettes are reliable, and our disks feature the 
Brandon loader. This allows multiple game saves and 
immediate compatibility with all disk systems (80 
track [96 tpi only], LNW, Model I double density, 
or any other TRS-80 configuration you care to 
name). You don't have to be a systems programmer 
to boot a Med Systems disk. One disk fits all 
systems. 

Still not convinced? Then remember, Med Systems 
offers a FULL MONEY BACK GUARANTEE! If 
you don't like our product, return it within 14 days for 
a prompt refund. Ask our competitors if they will do 
that! 



THE PEARSON ADVENTURES 




The Institute: not just one adventure, but five! You must negotiate not only the institution, but four other 
scenarios in your dreams. A huge statue, a prehistoric forest, an ancient temple, and the Titanic ocean liner 
all conceal objects and clues to help you escape the nightmare of the Institute. 
The Institute 16K cassette or diskette $19.95 

Lucifer's Realm: Entering the kingdom of Satan, you discover a revolution in the making, headed by 
Adolf Hitler. Travel through the bowels of Hades, dealing with the most evil mortals of all time. By cun- 
ning and strategy, you can bring Hitler to his final doom and gain your escape from the fiery Pit. 

Lucifer's Realm 16K cassette or diskette $19.95 

The Paradise Threat: Successfully emerging from Lucifer's Realm, you find that even heaven is not im- 
mune from harm. Your own previous actions in hell have led to a threat within heaven itself. Winston 
Churchill, Abe Lincoln, and Groucho Marx guide you to ways to remedy your mistakes and save 
Paradise. 
Paradise Threat 16K cassette or diskette $19.95 

The Farvar Legacy: You inherit an ancient European castle, only to discover that it is not empty. But its in- 
habitants, including some of your ancestors, are "the undead." Battle these terrifying creatures through the 
musty halls of the castle in order to save your own immortal soul. 
The Farvar Legacy 16K cassette or diskette $19.95 




Med Systems Software • P.O. Box 3558 • Chapel Hill, NC 27514 
To order, call 1-800-334-5470, or see your dealer 

Please add $2.00 to all orders for shipping and handling 
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IT'S YOUR MOVE 

MAKE YOUR MOVE NOW ON COMPUTER SUPPLIES 

FROM CHECK-MATE™ A K 



RADIO SHACK* 

LINE PRINTER 

RIBBONS 



EPSON 
RIBBONS 



KlbBUNS MX - 80 

THE EPSON MX - 80 CARTRIDGE 

LINE PRINTERS I Jl & IV * ND 

(Radio Shack P/N's 26-1150, 26-1152, 26-1154) ll/lvV-100 

2.99 Ed. 31 .99 UOZ. ZIP box refills designed to fit 

THE EPSON MX - 100 REFILLABLE CARTRIDGE 

LINE PRINTER III & V $g 95 Fa *1 07 46 Doz 

(Radio Shack P/N 26-1414) O.OOCO. IU/.WUW. 

$ 6.49Ea. $ 73.99Doz. 



DAISY WHEEL 
LINE PRINTER 



(Radio Shack P/N) 

26-1419 

26-1449 .... 



Multi Strike 
. Nylon 



LABEL SPECIALS 

3 1/2x15/16" 1 -up pin-feed Labels 
NOW $ 2.99/M(5M Minimum) 

3 1/2 x 15/16" CONTINUOUS LABELS 
2-ACROSS ON 9 1/2" FIXED CARRIER 



*6.49 Ea. $ 73.99 Doz.ANOW $ 3.99/M 



(10M Minimum) 



ALL PRICES INCLUDE SHIPPING IN CONTINENTAL U.S. (MASS. RESIDENTS ADD 5% SALES TAX) 

MINIMUM ORDER FOR RIBBONS $ 29.85 

•RADIO SHACK IS A REGISTERED TRADEMARK OF THE TANDY CORP. 



Check-Mate 



POST OFFICE BOX 103 RANDOLPH, MA 02368 

CALL TOLL FREE (800) 343-7706 / IN MASSACHUSETS (617) 963-7694 

CALL OR WRITE FOR OUR FREE CATALOG 
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the Color Computer Word Processor 



3 display formats: 51/64/85 

columns x 24 lines 

True lower case characters 

User-friendly full -screen 

editor 

Right justification 

Easy hyphenation 

Drives any printer 

Embedded format and 

control codes 

Runs in 16K, 32K, or 64K 

Menu-driven disk and 
cassette I/O 

No hardware modifications 
required 



THE ORIGINAL 



Simply slated, Telewriter is the most powerful 
word processor you can buy for (he TRS-80 
Color Computer. The original Telewriter has 
received rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
owners. And rightly so. 

The standard Color Computer display of 32 
characters by 16 lines without lower case is 
simply inadequate for serious word processing. 
The checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
TI, Vic or TRS-80 Model III. 

On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fun. With single-letter mnemonic 
commands, and menu-driven I/O and 
formatting, Telewriter surpasses all others for 
user friendliness and pure power. 

Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 



...one of the best programs for the Color 
Computer I have seen... 

— Color Computer News, Jan. 1982 



TELEWRITER-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Telewriter-64. For two reasons. 



64K COMPATIBLE 



Telewriter-64 runs fully in any Color Computer 
— 16K, 32K, or 64K, with or without Extended 
Basic, with disk or cassette or both. It 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telewriter-64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 x 24 and 85 x 24!! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 51 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
time. Compare this with cumbersome 
"windows" that show you only fragments at a 
time and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage of the full-width 
screen display is that you can now set the 
screen width to match the width of your 
printed page, so that "what you see is what 
you get." This makes exact alignment of 
columns possible and it makes hyphenation 
simple. 

Since short lines are the reason for the large 
spaces often found in standard right justified 
text, and since hyphenation is the most 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can get on 
the Color Computer. 



FEATURES & SPECIFICATIONS: 



Printing and formatting: Drives any printer 
(LPVII/V1II, DMP-100/200, Epson, Okidata, 
Centronics, NEC, C. Itoh, Smith-Corona, 
Terminet, etc). 

Embedded control codes give full dynamic access to 
intelligent printer features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, etc. 

Dynamic (embedded) formal controls for: top, 
bottom, and left margins; line length, lines per page, 
line spacing, new page, change page numbering, 
conditional new page, enable/disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer a( top speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from the keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line headers and automatic 
centering. Print or save all or any section of the text 
buffer. Chain print any number of files from cassette 
or disk. 



File and I/O Features: ASCII format files — 
create and edit BASIC, Assembly, Pascal, and C 
programs, Smart Terminal files (for uploading or 
downloading), even text files from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette verify command for sure saves. Cassette auto- 
retry means you type a load command only once no 
matter where you are in the tape. 
Read in, save, panial save, and append files with disk 
and/or cassette. For disk: print directory with free 
space to screen or printer, kill and rename files, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full-screen editor with 
wordwrap, block copy, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, last auto-repeat cursor, fast scrolling, cursor 
up, down, right, left, begin line, end line, top of text, 
bottom of text; page forward, page backward, align 
text, tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect, 
set line length on screen. 

Insert or delete text anywhere on the screen without 
changing "modes." This fast "free-form" editor 
provides maximum ease of use. Everything you do 
appears immediately on the screen in front of you. 
Commands require only a single key or a single key 
plus CLEAR. 



...truly a state of the art word processor, 
outstanding in every respect. 

— The -RAINBOW, Jan. 1982 



PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Computer is the lowest priced micro with the 
capability for serious word processing. And 
only Telewriter-64 fully unleashes that 
capability. 

Telewriter-64 costs $49.95 on cassette, $59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tutorial will have your writing with 
Telewriter-64 in a matter of minutes.) 
To order, send check or money order to: 

Cognitec 

704 Nob Ave. 

Del Mar, CA 92014 .121 

Or check your local software store. If you have 
questions, or would like to order by Visa or 
Mastercard, call us at (714) 755-1258 
(weekdays, 8AM-4PM PST). Dealer inquiries 
invited. 

(Add S2 lor shipping. Californians add 6% state tax. Allow 2 
weeks for personal checks. Send self-addressed stamped 
envelope for Telewriter reviews from CCN, RAINBOW, 
80-Micro, 80-U.S. Telewriter owners: send SASE or call for 
information on upgrading 10 Telewriter-64. Telewriter- 
compatible spelling checker (Spell 'n Fix) and Smart Terminal 
program (Colorcom/E) also available. Call or write for more 
information.) 

Apple II is a trademark of Apple Computer. Inc.; Atari is a 
trademark of Atari, Inc.; TRS-80 is a trademark of Tandy 
Corp; MX-80 is a trademark of Epson America, Inc. 



CHICAGO... 
What do you do 
when the system 
you bought by 
mail in California 

STOPS... 
DE 




It's tough. You can't send it 
back to the guy you bought it from. And you 
can bet you're going to pay back all that money 
you thought you'd saved, when you take it to be re- 
paired to a guy you didn't buy it from. 

HERE'S THE SOLUTION. Deal from the start 
with the best dealer in your own local area you can 
find. 

In CHICAGO . . . that's EBG & ASSOCIATES . . . 
since 1978 a Full Service microcomputer store spe- 
cializing in TRS-80, IBM PC and Corvus Concept 
Systems. 

• Computers & Peripherals & Supplies 

• Business & Personal Software* Consulting 

• On-site repair & modification facilities 

• Programmers & Technicians you can talk to 

ALL PRODUCTS COMPETITIVELY PRICED— 
COMPETENTLY REPRESENTED! 



• Lifeboat Assoc. 


• LNW Research 


• Epson 


• Integral Data 


• Olivetti 


• LDOS 


• Hayes 


• Micropro 


• DOSPLUS 


• MULTIDOS 


• OKIDATA 


• Maxell 


• Galactic Sftwre 


• Signalman 


• Corvus 


• Microsoft 


• Pickles & 


• SBSG 


• Novation 


• Trout 





CHICAGO AREA— come in or call (312) 782-9750. 

Get a FREE 3-month subscription to our computer 

newsletter. 

Stop in for a handful of Jelly Beans. 



& ASSOCIATES 

203 North Wabash, Suite 2118 
^271 Chicago, IL 60601 
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Listing 3 continued 








) ■■ 


4AF2 00 08570 


DEFB 







■■'■■ 


4AF3 0000 08580 ARRAY 


DEFW 









4AF5 2AB140 08590 START7 


LD 


HL,(40B1H) 






4AF8 25 08600 


DEC 


H 






4AF9 22F34A 08610 


LD 


(ARRAY) ,HL 






4AFC 24 08620 


INC 


H 






4AFD CDC901 08630 


CALL 


01C9H 






4B00 21E14A 08640 


LD 


HL,RENUM 






4B03 CDA728 08650 


CALL 


28A7H 






4B06 CD9548 08660 


CALL 


CHECK1 






4B09 AF 08670 


XOR 


A 






4B0A 0616 08680 


LD 


B,22 






4B0C 21E44E 08690 


LD 


HL, INDEX 






4B0F 77 08700 LOOP1 


LD 


(HL) ,A 






4B10 23 08710 


INC 


HL 






4B11 10FC 08720 


DJNZ 


LOOP1 






4B13 2F 08730 


CPL 








4B14 32EC4E 08740 


LD 


(ELINE) ,A 






4B17 32ED4E 08750 


LD 


(ELINE+1) ,A 






4B1A 21F24E 08760 


LD 


HL,NXTLPT 






4B1D ED5BA440 08770 


LD 


DE,(40A4H) 


(START OF BASIC 




4B21 73 08780 


LD 


(HL) ,E 






4B22 23 08790 


INC 


HL 






4B23 72 08800 


LD 


(HL) ,D 




J , .. 


4B24 2AF34A 08810 


LD 


HL, (ARRAY) 




:: 


4B27 22E44E 08820 


LD 


(INDEX) ,HL 




■J.;; 


4B2A 3E0A 08830 


LD 


A, 10 




■."':'■'' 


4B2C 32EE4E 08840 


LD 


(SLINE) ,A 




;■.:■■ 


4B2F 3E0A 08850 


LD 


A, 10 




:■■■: 


4B31 32F04E 08860 


LD 


(INCR3) ,A 




;■■ 


4B34 2AF940 08870 


LD 


HL,(40F9H) 




;'r' 


4B37 2B 08880 


DEC 


HL 






4B38 2B 08890 


DEC 


HL 






4B39 22F84E 08900 


LD 


(PEND) ,HL 






4B3C CD504E 08910 


CALL 


OPTION 






4B3F 2AF24E 08920 BEGINS 


LD 


HL,(NXTLPT) 






4B42 E5 08930 


POSH 


HL 






4B43 ED5BF84E 08940 


LD 


DE,(PEND) 






4B47 CD994C 08950 


CALL 


COMPAR 






4B4A D2E14B 08960 


JP 


NC,PASS2 






4B4D El 08970 


POP 


HL 






4B4E E5 08980 


PUSH 


HL 






4B4F 23 08990 


INC 


HL 






4B50 23 09000 


INC 


HL 






4B51 22F64E 09010 


LD 


(CORLPT) ,HL 






4B54 El 09020 


POP 


HL 






4B55 0604 09030 


LD 


B,4 






4B57 DD21F24E 09040 


LD 


IX.NXTLPT 






4B5B 7E 09050 LOOP2 


LD 


A,(HL) 






4B5C DD7700 09060 


LD 


(IX+0) ,A 






4B5F 23 09070 


INC 


HL 






4B60 DD23 09080 


INC 


IX 






4B62 10F7 09090 


DJNZ 


LOOP 2 






4B64 3AE94E 09100 


LD 


A, (GOFLAG) 


• 




4B67 B7 09110 


OR 


A 






4B68 200E 09120 


JR 


NZ, CKEND 






4B6A 2AF44E 09130 


LD 


HL,(CURLIN) 






4B6D ED5BEA4E 09140 


LD 


DE,(BLINE) 






4B71 CD994C 09150 


CALL 


COMPAR 






4B74 2810 09160 


JR 


Z , SAVEH 






4B76 38C7 09170 


JR 


C, BEGINS 






4B78 2AF44E 09180 CKEND 


LD 


HL, (CURLIN) 






4B7B ED5BEC4E 09190 


LD 


DE, (ELINE) 






4B7F CD994C 09200 


CALL 


COMPAR 






4B82 2802 09210 


JR 


Z, SAVEM 






4B84 305B 09220 


JR 


NCPASS2 






4B86 AF 09230 SAVEM 


XOR 


A 






4B87 2F 09240 


CPL 








4B88 32E94E 09250 


LD 


(GOFLAG) ,A 






4B8B 2AEE4E 09260 


LD 


HL, (SLINE) 






4B8E 11FAFF 09270 


LD 


DE, 65530 






4B91 CD994C 09280 


CALL 


COMPAR 






4B94 3806 09290 


JR 


C, LINEOK 






4B96 CD614C 09300 


CALL 


ERROR1 






4B99 C36E4C 09310 


JP 


BASIC1 






4B9C 2AE44E 09320 LINEOK 


LD 


HL, (INDEX) 






4B9F E5 09330 


PUSH 


HL 






4BA0 DDE1 09340 


POP 


IX 






4BA2 2AF44E 09350 


LD 


HL, (CURLIN) 






4BA5 DD7400 09360 


LD 


(IX+0) ,H 






4BA8 DD2B 09370 


DEC 


IX 






4BAA DD7500 09380 


LD 


(IX+0) ,L 






4BAD DD2B 09390 


DEC 


IX 






4BAF 2AEE4E 09400 


LD 


HL, (SLINE) 






4BB2 DD7400 09410 


LD 


(IX+0) ,H 




: 


4BB5 DD2B 09420 


DEC 


IX 




'■: : : 


4BB7 DD7500 09430 


LD 


(IX+0) ,L 






4BBA DD2B 09440 


DEC 


IX 






4BBC DD22E44E 09450 


LD 


(INDEX) ,IX 




4BC0 2AE64E 09460 


LD 


HL, (LINECT) 




1 


4BC3 23 09470 


INC 


HL 




4BC4 22E64E 09480 


LD 


(LINECT) ,HL 




4BC7 2AF64E 09490 


LD 


HL, (CURLPT) 




: : 


4BCA E5 09500 


POSH 


HL 






4BCB DDE1 09510 


POP 


IX 




: ■ : 


4BCD 2AEE4E 09520 


LD 


HL, (SLINE) 






4BD0 DD7500 09530 


LD 


(IX+0) ,L 




. ■;■ ■;: 


4BD3 DD7401 09540 


LD 


(IX+1) ,H 




'■:■■■: f 'i 


4BD6 ED5BF04E 09550 


LD 


DE,(INCR3) 




; ;; 


4BDA 19 09560 


ADD 


HL,DE 




■'.;;:/:■ 


4BDB 22EE4E 09570 


LD 


(SLINE) ,HL 




:' 


4BDE C33F4B 09580 


JP 


BEGIN5 




;. ; 


4BE1 2AE64E 09590 PASS2 


LD 


HL, (LINECT) 






4BE4 7C 09600 


LD 


A,H 




. : 


4BE5 B5 09610 


OR 


L 






4BE6 CA684C 09620 


JP 


Z,ERROR2 




: ' : : 


4BE9 2AA440 09630 


LD 


HL, (40A4H) 




',,;!. 


4BEC 22F24E 09640 PASS22 


LD 


(NXTLPT) ,HL 




1 


4BEF AF 09650 


XOR 


A 
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Convert your TRS-80* 
into a World Class Computer 

that 
REDUCES EYE FATIGUE 



AND DOESN'T 











...with LSI v s new Soft •View Replacement CRT. . . 

The black & white "TV Screen" CRT (picture tube) which came with your TRS-80*model II or III is an inexpensive 
rapid "P4" Phosphor CRT intended for TV use. The display is actually strobing 60 times a second. No amount of "green 
plastic" will stop this strobing or eliminate the eye fatigue it causes. But a new So ™ CRT display tube with a slower 

decaying, colored Phosphor will. 

• Available in slow-decay green (similar to new IBM* and APPLE IITmonitors) or medium decay "European 
Orange" (easy on the eyes, elegantly beautiful, and the standard for CRT displays in Europe) 

• Leaded glass stops X-ray emission 

• Optional Anti-Glare Frosted Glass available to reduce eye strain from glare 

• Easy installation — tube comes with pre-mounted hardware 

• 30-Day Money-Back Guarantee 

• Ideal for Word-Processing & Programming, fast enough for Games & Graphics 

• Finest quality double-dark glass and phosphor fields make the letters seem to be coming out of black space 



Try This Test: 



•462 




LSI'snew ™ CRT 



Turn the brightness control on 
your TRS-80*all the way up. Wave 
your hand up and down in front 
of the screen. See how jerky it 
seems? Just like in front of a 
strobe light! That's because the 
screen actually is strobing at you. 
A slower-phosphor CRT will 
reduce that troublesome strobe 
effect. That's why most of the 
newer monitors, from IBM* to 
Apple III* are using the new 
slow-phosphor CRT's. 

•IBM*, APPLE 



"TW 



80M- 82 



LSI SYSTEMS CRT's: 

D #GN42 Green Phosphor $79.95 
□ #GN42G Green Phosphor with anti-glare $89.95 
D #OR34 Orange Phosphor $89.95 
D #OR34G Orange Phosphor with anti-glare $99.95 
ADD $7 FOR PACKAGING AND UPS SHIPPING 



•:*:»»Langley-StClair 

Instrumentation 
Systems, Inc. 

132 West 24th Street, New York, N.Y. 10011 212-989-6876 



To Order Call: 

1-800-221-7070 

Dealer Inquiries Invited 



and TRS-80* are trademarks of IBM, APPLE Computer & TANDY Corp. 
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4BF0 


32E84E 


09660 




LD 


(ONFLAG) ,A 


4BF3 


110300 


09670 




LD 


DE,3 


4BF6 


19 


09680 




ADD 


HL,DE 


4BF7 


23 


09690 


GETBYT 


INC 


HL 


4BF8 


7E 


09700 




LD 


A,(HL) 


4BF9 


B7 


09710 




OR 


A 


4BFA 


200C 


09720 




JR 


NZ,COLONl 


4BFC 


23 


09730 




INC 


HL 


4BFD 


ED5BF84E 


09740 




LD 


DE, (PEND) 


4C01 


CD994C 


09750 




CALL 


COMPAR 


4C04 


20E6 


09760 




JR 


NZ,PASS22 


4C06 


1848 


09770 




JR 


FIN 


4C08 


FE3A 


09780 


C0L0N1 


CP 


58 


4C0A 


2006 


09790 




JR 


NZ, COMMA 


4C0C 


AF 


09800 




XOR 


A 


4C0D 


32E84E 


09810 




LD 


(ONFLAG) ,A 


4C10 


18E5 


09820 




JR 


GETBYT 


4C12 


FE2C 


09830 


COMMA 


CP 


44 


4C14 


200A 


09840 




JR 


NZ, CHEKON 


4C16 


3AE84E 


09850 




LD 


A, (ONFLAG) 


4C19 


B7 


09860 




OR 


A 


4C1A 


28DB 


09870 




JR 


Z, GETBYT 


4C1C 


3E8D 


09880 




LD 


A, 141 


4C1E 


1820 


09890 




JR 


GOFORT 


4C20 


FEA1 


09900 


CHEKON 


CP 


161 


4C22 


2006 


09910 




JR 


NZ, KEYWRD 


4C24 


2F 


09920 




CPL 




4C25 


32E84E 


09930 




LD 


(ONFLAG) ,A 


4C28 


18CD 


09940 




JR 


GETBYT 


4C2A 


FE8D 


09950 


KEYWRD 


CP 


141 


4C2C 


2812 


09960 




JR 


Z, GOFORT 


4C2E 


FE91 


09970 




CP 


145 


4C30 


280E 


09980 




JR 


Z, GOFORT 


4C32 


FECA 


09990 




CP 


202 


4C34 


280A 


10000 




JR 


Z, GOFORT 


4C36 


FE95 


10010 




CP 


149 


4C38 


20BD 


10020 




JR 


NZ, GETBYT 


4C3A 


08 


10030 




EX 


AF,AF' 


4C3B 


AF 


10040 




XOR 


A 


4C3C 


32E84E 


10050 




LD 


(ONFLAG) ,A 


4C3F 


08 


10060 




EX 


AF,AF' 


4C40 


CD0B4D 


10070 


GOFORT 


CALL 


LOOKUP 


4C43 


B7 


10080 




OR 


A 


4C44 


CC7D4C 


10090 




CALL 


Z,ERROR3 


4C47 


CB4F 


10100 




BIT 


1,A 


4C49 


20AD 


10110 




JR 


NZ,GETBYT+1 


4C4B 


CDB44D 


10120 




CALL 


INSERT 


4C4E 


18A8 


10130 




JR 


GETBYT+1 


4C50 


2AF84E 


10140 


FIN 


LD 


HL, (PEND) 


4C53 


23 


10150 




INC 


HL 


4C54 


23 


10160 




INC 


HL 


4C55 


22F940 


10170 




LD 


(40F9H) ,HL 


4C58 


21FA4E 


10180 




LD 


HL,FINI 


4C5B 


CDA728 


10190 




CALL 


28A7H 


4C5E 


C36E4C 


10200 




JP 


BASIC1 


4C61 


21044F 


10210 


ERROR1 


LD 


HL,EMSG1 


4C64 


CDA728 


10220 




CALL 


28A7H 


4C67 


C9 


10230 




RET 




4C68 


21164F 


10240 


ERROR2 


LD 


HL,EMSG2 


4C6B 


CDA728 


10250 




CALL 


28A7H 


4C6E 


CD641B 


10260 


BASIC1 


CALL 


1B64H 


4C71 


AF 


10270 




XOR 


A 


4C72 


329A40 


10280 




LD 


(409AH) ,A 


4C75 


2AF940 


10290 




LD 


HL, (40F9H) 


4C78 


2B 


10300 




DEC 


HL 


4C79 


2B 


10310 




DEC 


HL 


4C7A 


C31E1D 


10320 




JP 


1D1EH 


4C7D 


E5 


10330 


ERROR3 


PUSH 


HL 


4C7E 


21294F 


10340 




LD 


HL,EMSG3 


4C81 


CDA728 


10350 




CALL 


28A7H 


4C84 


CD8C4C 


10360 




CALL 


ERRET 


4C87 


21F84B 


10370 




LD 


HL, GETBYT+1 


4C8A 


E3 


10380 




EX 


(SP) ,HL 


4C8B 


C9 


10390 




RET 




4C8C 


2AF24E 


10400 


ERRET 


LD 


HL,(NXTLPT) 


4C8F 


23 


10410 




INC 


HL 


4C90 


23 


10420 




INC 


HL 


4C91 


5E 


10430 




LD 


E, (HL) 


4C92 


23 


10440 




INC 


HL 


4C93 


56 


10450 




LD 


D,(HL) 


4C94 


EB 


10460 




EX 


DE,HL 


4C95 


CDA70F 


10470 




CALL 


0FA7H 


4C98 


C9 


10480 




RET 




4C99 


C5 


10490 


COM PAR 


PUSH 


BC 


4C9A 


D5 


10500 




PUSH 


DE 


4C9B 


E5 


10510 




PUSH 


HL 


4C9C 


F5 


10520 




PUSH 


AF 


4C9D 


45 


10530 




LD 


B,L 


4C9E 


4B 


10540 




LD 


C,E 


4C9F 


6C 


10550 




LD 


L,H 


4CA0 


5A 


10560 




LD 


E,D 


4CA1 


AF 


10570 




XOR 


A 


4CA2 


67 


10580 




LD 


H,A 


4CA3 


57 


10590 




LD 


D,A 


4CA4 


ED52 


10600 




SBC 


HL,DE 


4CA6 


2805 


10610 




JR 


Z, MSBEQU 


4CA8 


F2C04C 


10620 




JP 


P,HLGRTR 


4CAB 


180C 


10630 




JR 


HLLESS 


4CAD 


68 


10640 


MSBEQU 


LD 


L,B 


4CAE 


59 


10650 




LD 


E,C 


4CAF 


AF 


10660 




XOR 


A 


4CB0 


67 


10670 




LD 


H,A 


4CB1 


57 


10680 




LD 


D,A 


4CB2 


ED52 


10690 




SBC 


HL,DE 


4CB4 


2810 


10700 




JR 


Z , EQUAL 


4CB6 


F2C04C 


10710 




JP 


P,HLGRTR 


4CB9 


Fl 


10720 


HLLESS 


POP 


AF 


4.CBA 


47 


10730 




LD 


B,A 


4CBB 


F6FF 


10740 




OR 


0FFH 


4CBD 


37 


10750 




SCF 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIV 

Q 



g 



8 

5 



£ 



o 



PRICE BREAKTHROUGH 



cc SfrlA/ \A iw v^*7// v\ /NN^^V^v/v/XA ^1x1^^*7/7/^ MvNkvt l/n/V V / V\/ v \ M ^V^ en 

o 

o 



Super Sale on New Disk Drives 

| Starting at $ 199.95* complete!! | 

S with Power Supply and Case. 3 

Q < 

| single sided 40 track — dual sided 40 track — dual sided 80 track § 

g for | 

§ RADIO SHACK — HEATH — ZENITH — S 100 | 

g IBM/PC 3 & MOST OTHER COMPUTERS g 

8 



SPECIAL! Disk Drive Head Cleaning Kits . . .$1 2.95 g 



Drive a Hard Bargain!!* S5 

5 M.B - 1 M.B. with Power Supply Case, Cables & Software | 

£ Complete Systems .... starting from $1,695.00 £ 

5 TOLL FREE ORDERING GENERAL and TECHNICAL I 

I 1-800-343-8841 1-617-872-9090 | 

| Model 1 1 1 1 nternal Disk Drive Kits $Call g 

I Color Computer First Disk Drive Kit $424.95 | 

gj Diskettes Of all Sizes (Box of 10) starting at$1 5.95 S3 

I Dot Matrix Printers $Call - 

5 Word Processing Printers starting at $999.95 c 



^ tarwt ifiwmn i mttwiw *^w~.. W 

g Word Processing Printers starting at $999.95 g 

I Printer Buffers 8K to 64K starting at $1 43.00 | 

CO 



Disk Drive Cases and Power Supplies . .starting at $49.95 55 

g DOSPLUS-3.4- $Special Price § 

g Filler pieces for Basf slimline drives $4.98 g 

§ *Ask about our Q^lh)fe l %RHMfe Warrant y* | 

w Dealer inquiries invited. S5 



SOFTWARE SUPPORT 



^327 



W 
* 



* terms: One Framingham Centre, Framingham, MA 01 701 o 

Sg M.C./Vlsa/Amex and personal /oh y\ R72-90Q0 1 -TANDY CORPORATION 2 

Q checks accepted at no extra charge. \wi »/ «»«. v/w^u -tpnitw hata «sv«5tpmq S 

CO C.O.D. Please add $3.00. Hours: M-F 1 to 6 (EST) Sat. by Appt. \ -feM CORro^ON S3 

UJ Shipping: Please call for amount. 3 ibm corporation <y? 

Aida xsia saAida asia s3Aiua asia ssAiaa xsia S3Aiaa xsia S3Aiaa ><sia s3Aiaa xsia S3Aiaa xss 

sSee List oi Advertisers on Page 563 80 Micro, Anniversary 1983 • 115 
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4CBE 1809 


10760 


JR 


EXITPT 


4CF0 2806 


11100 


JR 


Z, SKIPIT 


4CC0 Fl 


10770 HLGRTR 


POP 


AF 


4CF2 Fl 


11110 


POP 


AF 


4CC1 47 


10780 


LD 


B,A 


4CF3 CB15 


11120 


RL 


L 


4CC2 F6FF 


10790 


OR 


0FFH 


4CF5 CB14 


11130 


RL 


H 


4CC4 1803 


10800 


JR 


EXITPT 


4CF7 Dl 


11140 


POP 


DE 


4CC6 Fl 


10810 EQUAL 


POP 


AF 


4CF8 B7 


11150 SKIPIT 


OR 


A 


4CC7 47 


10820 


LD 


B,A 


4CF9 79 


11160 


LD 


A,C 


4CC8 AF 


10830 


XOR 


A 


4CFA CI 


11170 


POP 


BC 


4CC9 7b 


10840 EXITPT 


LD 


A,B 


4CFB C9 


11180 


RET 




4CCA El 


10850 


POP 


HL 


4CFC ED62 


11190 ZEROIT 


SBC 


HL,HL 


4CCB Dl 


10860 


POP 


DE 


4CFE 18F8 


11200 


JR 


SKIPIT 


4CCC CI 


10870 


POP 


BC 


4D00 Fl 


11210 CHKCRY 


POP 


AF 


4CCD C9 


10880 


RET 




4D01 3003 


11220 


JR 


NC,CHKCR1 


4CCE CD994C 


10890 HLDESB 


CALL 


COMPAR 


4D03 B7 


11230 


OR 


A 


4CD1 D8 


10900 


RET 


C 


4D04 1802 


11240 


JR 


CHKCR1+2 


4CD2 C5 


10910 


PUSH 


BC 


4D06 13 


11250 CHKCR1 


INC 


DE 


4CD3 4F 


10920 


LD 


C r A 


4D07 37 


11260 


SCF 




4CD4 2826 


10930 


JR 


Z,ZEROIT 


4D08 F5 


11270 


PUSH 


AF 


4CD6 0600 


10940 


LD 


B,0 


4D09 18DF 


11280 


JR 


CLEAR-1 


4CD8 CB7C 


10950 


BIT 


7,H 


4D0B 23 


11290 LOOKUP 


INC 


HL 


4CDA 280F 


10960 


JR 


Z, CLEAR 


4D0C E5 


11300 


PUSH 


HL 


4CDC D5 


10970 


PUSH 


DE 


4D0D F5 


11310 


PUSH 


AF 


4CDD B7 


10980 


OR 


A 


4D0E CD5A1E 


11320 


CALL 


1E5AH 


4CDE CB1C 


10990 


RR 


H 


4D11 7A 


11330 


LD 


A,D 


4CE0 CB1D 


11000 


RR 


L 


4D12 B3 


11340 


OR 


E 


4CE2 F5 


11010 


PUSH 


AF 


4D13 CA9F4D 


11350 


JP 


Z,POSERR 


4CE3 B7 


11020 


OR 


A 


4D16 Fl 


11360 


POP 


AF 


4CE4 CB1A 


11030 


RR 


D 


4D17 2AEA4E 


11370 


LD 


HL, (BLINE) 


4CE6 CB1B 


11040 


RR 


E 


4D1A CD994C 


11380 


CALL 


COMPAR 


4CE8 3816 


11050 


JR 


C,CHKCRY 


4D1D 2810 


11390 


JR 


Z,FINDIT 


4CEA 04 


11060 


INC 


B 


4D1F 300A 


11400 


JR 


NC, RETURN 


4CEB B7 


11070 CLEAR 


OR 


A 


4D21 2AEC4E 


11410 


LD 


HL,(ELINE) 


4CEC ED52 


11080 


SBC 


HL,DE 


4D24 CD994C 


11420 


CALL 


COMPAR 


4CEE CB40 


11090 


BIT 


0,B 


4D27 2806 


11430 


JR 


Z,FINDIT 
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References for Machine-Language Utility Programs 



"Memories Are Made of This," Robert D. 
Randall, 80 Micro, May 81, p. 146. 
"The Flexible Scroller," Jeff Myers, 80 Mi- 
cro, May 81, p. 204. 

"Shift Lock," Martin C. Hambel, 80 Mi- 
cro, May 81, p. 260. 

"Comprs," Stephen Barker, 80 Micro, 
May 81, p. 270. 

"*Never Ready," Ron Balewski, 80 Micro, 
July 81, p. 199. 

"High-speed Data Tapes," Jim Glosser, 80 
Micro, July 81, p. 280. 
"Datagen," Dan and Cass Lewart, 80 Mi- . 
cro, Aug. 81, p. 168. 

"Be a Super USR," Roger C. Alford, 80 
Micro, Aug. 81, p. 254. 
"Basic Shorthand," Jared Radin, 80 Mi- 
cro, Aug. 81, p. 282. 

"Three's Not a Crowd," David W. 
Mawdsley, 80 Micro, Aug. 81, p. 292. 
"*The Memory Expander," Tim Kenealy, 
80 Micro, Sept. 81, p. 174. 
"Base Conversions," James Yowell Yelv- 
ington, 80 Micro, Sept. 81, p. 186. 
"High-speed Sorts," Richard R. Robson, 
80 Micro, Sept. 81, p. 220. 
"Copyit," Ron Balewski, 80 Micro, Oct. 
81, p. 370. 

"*Full Error," Harry and Ken Keairns, 80 
Micro, Oct. 81, p. 340. 
"Merge for Level II," William J. Dalesan- 
dry Jr., 80 Micro, Nov. 81, p. 284. 
'""Customized Commands," Dale W. Ru- 
pert, 80 Micro, Nov. 81, p. 292. 
"*Basic — Enhanced Again," Mark Good- 
win, 80 Micro, Nov. 81, p. 384. 
"The Spooler," Roger B. Gault, 80 Micro, 
Dec. 81, p. 222. 

"The Sentry," Jim Rastin, 80 Micro, Dec. 
81, p. 242. 

"USR Usery," David H. Freese, Jr., 80 Mi- 
cro, Dec. 81, p. 248. 



"The Freebie," John C. Adams, Jr., 80 Mi- 
cro, Dec. 81, p. 304. 

"The Sargon Saver — Part II," Thomas L. 
Quindry, 80 Micro, Dec. 81, p. 348. 
"Array I/O," Norman Neff, 80 Micro, 
Jan. 82, p. 200. 

"♦Lost in Basic," Mark C. Paxton, 80 Mi- 
cro, Jan. 82, p. 304. 

"Tab Extender," David C. Hedinger, 80 
Micro, Feb. 82, p. 248. 
"Error Code Expanded," Roger C. Al- 
ford, 80 Micro, Feb. 82., p. 260. 
"As the Screen Scrolls," M. Keller, 80 
Micro, Feb. 82, p. 264. 
"Varispeed," Bruce Evans, 80 Micro, Mar. 
82, p. 336. 

"Bam," Jeff Byrkit, 80 Micro, April 82, p. 
167. 

"New Restored," Ken Fordham, 80 Micro, 
Jan. 80, p. 84. 

"Spool and Despool," H.S. Gentry, 80 
Micro, Mar. 80, p. 46. 
"Screenprint," Louis Frankenberg, 80 
Micro, May 80, p. 152; 80 Micro, July 80, 
p. 10; 80 Micro, Aug. 80, p. 16; 80 Micro, 
Sept. 80, p. 14. 

"Seespot (80 applications)," Dennis Kitsz, 
80 Micro, July 80, p. 26. 
"*White," Jake Commander, 80 Micro, 
July 80, p. 94. 

"* Single-step Basic (80 Applications)," 
Dennis Kitsz, 80 Micro, Aug. 80, p. 28. 
"Free Space," David Cornell, 80 Micro, 
Sept. 80, p. 68. 

"*Unikey," Rowland Archer, Jr., 80 Mi- 
cro, Sept. 80, p. 76. 

"Slow Scroll," Peter A. Lewis, 80 Micro, 
Sept. 80, p. 202. 

"*Get Serious," Roger L. Pape, 80 Micro, 
Oct. 80, p. 93. 

"Variable Scroll," William L. Colsher, 80 
Micro, Oct. 80, p. 134. 



"Resurrect It," Thomas L. Quindry, 80 

Micro, Nov. 80, p. 206. 

"Basic Line Compressor (Assembly 

Line)," William Barden, Jr., 80 Micro, 

Jan. 81, p. 23. 

"Zbug. . .Super Debug Monitor," Lt. 

John B. Harrell, 80 Micro, Jan. 81, p. 131. 

"*Auto Edit," Dan Rollins, 80 Micro, Feb. 

81, p. 144. 

"Find It Fast," James Yowell Yelvington, 

80 Micro, Mar. 81, p. 180. 

"Babydub," Dennis Kitsz, 80 Micro, Mar. 

81, p. 210; 80 Micro, July 81, p. 16. 
"♦Constant Alternatives," Evan C. Hand, 
Sr., 80 Micro, Mar. 81, p. 225. 
"♦Speedy Renumberer," Robert J. Dowd, 
80 Micro, Mar. 81, p. 256. 

"♦Bubble Sort (Assembly Line)," William 
Barden, Jr., 80 Micro, April 81, p. 57. 
"Block That Cursor," Ron Balewski, 80 
Micro, April 81, p. 297; 80 Micro, July 81, 
p. 20. 

"Smart Answers," James F. Williams, 80 
Micro, April 81, p. 298, 80 Micro, Mar. 82, 
p. 24. 

"Command Interpreter," Roger C. Al- 
ford, 80 Micro, April 82, p. 244. 
"CP80," Brian Cameron, 80 Micro, April 

82, p. 306; 80 Micro, June/July 82, p. 28. 
"Inverter (Soft Bits)," Roger Fuller, 80 Mi- 
cro, p. 34, 36. 

"Horizontal Scroll (Soft Bits)," Roger 
Fuller, 80 Micro, June/July 82, p. 40. 
"For the Novice — Part I," Jay Chidsey, 80 
Micro, June/July 82, p. 148. 
"Stepwise Refinement," B. Boasso, 80 Mi- 
cro, June/July 82, p. 148. 
"Horizontal Scrolling," G. M. Foley, 80 
Micro, June/July 82, p. 318. 
♦Signifies article was used for NODOS 80 
source material. 
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DOES STRING COMPRESSION HAVE YOU 
TIED UP IN KNOTS? 

LET TRASHMAN CLEAN UP THE MESS! 

TRASHMAN is a machine language utility for the TRS-80 Models I and III. It was written by Glenn 
Tesler, the author of FASTER, and can reduce BASIC'S string compression time by 95% (see table below). 

WHAT'S STRING COMPRESSION? 

When a BASIC program changes a string (words, names, 
descriptions), it moves it to a new place in memory, and leaves a hole in 
the old place. Eventually, all available memory gets used up and BASIC 
has to push the strings together to free up some space. This takes 
time. Lots of time. The computer stops running for seconds or minutes, 
and you may even think it's "crashed". The keyboard won't work, and 
until all the strings have been collected, you just have to sit and wait. 
Then things run for a while, until string compression is needed again. 
And again. 

If you're using your computer for business, that wastes your money. If 
you're using it personally, it wastes your time. 

WHAT'S THE SOLUTION? 

As soon as you start using TRASHMAN, those delays almost 
disappear. It uses less than 600 bytes of memory, plus 2 bytes for each 
active string. It works with other machine language programs and with all 
major operating systems. It's easy to use, comes with complete 
nstructions, and can be copied to your own disks. 

WHAT'S THE CATCH? 

If a BASIC program uses only a few strings, very little time is wasted 
n string compression, and TRASHMAN won't be helpful. But. if 
hundreds of strings, including large string arrays, are used. TRASHMAN 
is just what you need. 

Ask your software dealer for TRASHMAN, or order 
directly on our toll-free number. The price is just $39.95 
(plus sales tax in California). 

(All timings done on TRS-80 Model I. Model III 15% faster, but pet. improvements identical. Listing of timing program available on request. 




# 


SECONDS DELAY 


PERCENT 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


250 


11.8 


0.7 


94 


500 


45.8 


1.6 


96.5 


1000 


179.6 


3.5 


98 


2000 


713.2 


7.8 


98.9 



AMAZING PROGRAM SPEEDS UP BASIC ERRATIC D IS K DRPv E S 




Your time is valuable, so why 
waste it on slow-running BASIC 
programs? PROSOFT's 

"FASTER" will analyze those 
programs while they run, then 
show you a simple change (usu- 
ally one new line) that can re- 
duce run-times by up to 50 c . 

Accounting systems, financial models, engineering and scien- 
tific programs all run faster; so do games. Large, complex pro- 
grams improve the most, and "FASTER" is easy to use. 

THIS ISN'T A COMPILER! Your BASIC programs remain read- 
able and can be changed later on. While your programs run, 
"FASTER" counts how often each "variable" is used, then shows 
you the correct sequence for these variables. Afterwards, the 
computer finds them sooner, so your programs run faster. 

Does it really work? Yes! Personal Computing said so in their 
May, 1981 issue (p. 116); we've received many letters from cus- 
tomers who've gotten 20-50% improvements; and we will make 
you this offer; 

Order "FASTER" now. Try it on your bread-and-butter pro- 
grams. If you don't get an overall run-time reduction of at least 
20%, return it within 30 days for a prompt and cheerful refund. 

"FASTER runs on TRS-80 Models I and III, 16-48K, tape or disk 

$29.95 

QUICK COMPRESS 

Small (276 bytes), fast (processes 800 
lines in under 3 seconds) utility removes blanks and remarks from 
your BASIC programs. Produces smaller, faster programs, and 
doesn't alter the original logic. 



RPM measures the rotational speed and 
variation of your disk drives, and reveals a 
common cause of unexplained errors. 
Simple one-key operation, runs under any 
DOS, interchangeable between Models I 
and III. Shows current and average 
speeds, plus fluctuation history. Recovers 
from severe errors. Documentation ex- 
plains how to adjust drives. Use RPM 
monthly for best results. 32-48K Model I or 




III disk: $24.95 



TO ORDER, CALL NOW, TOLL FREE 

(800) 824-7888, Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213) 764-3131, or write to us. 



PRom 



16-48K Model I or III, tape or disk. 
SPECIAL FASTER + QUICK Compress: 



$19.95 



Dept. G Box 560 "' 
$39.95 North Hollywood, CA 91603 



TERMS: We accept VISA, Mastercard, checks, Money Orders, C.O.D. and even cash. We pay shipping via 

surface UPS inside U.S.A. Please add $3.00 for Blue Label, 6% tax in California, and 15% outside North America (air shipment). 
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STRIKE FORCE is the ultimate challenge in arcade 
action - bent on destroying your concepts about 
game software 

You'll need iron resolve and nerves of steel to go forth 
and defend a world of vulnerable cities under relentless 
alien attack. You are the mighty warrior-saviour of these 
cities! Armed 
and incendiar 



cities! Armed with rapid-fire missiles, long range radar 
and incendiary star-shells you'll need breathless speed 
to combat all the bombers, escorts, fighters and missiles. 



Your force field may give you temporary relief, but 
watch out! 

Skill, cunning, lightning fast response and a keen sense 

of strategy are not just important - they're imperative to 

your life and the lives of millions of city dwellers! STRIKE 

Melbourne House Software Inc. 

Orders to: Dept CS 

347 Reed wood Drive, Nashville, TN 37217 



Wnie for complete catalogue. Other arcade games currently available 
include PENETRATOR (see review in September 80 Micro) and GOBBLEMAfj 
a game guaranteed to drive you bananas. 

Dealer enquiries welcomed. 

Please add SI .50 per order for shipping, foreign orders add S6.00. Calif, 
residents please add 6% sales tax Visa. Mastercharge accepted - write 
in with card number and expiration date. 

VISA/MC order phone: 615-361-3738 

Trade orders: 800-251-5900 

Ask for Melbourne House Operator 



Actual TRS80* screen ^ 2 50 



Listing 4 continued 












516C B7 


15890 




OR 


A 




516D 2808 


15900 




JR 


Z , SRCHDN 




516F 47 


15910 




LD 


B,A 




5170 7E 


15920 NXTC 


LD 


A,(HL) 




5171 23 


15930 




INC 


HL 




5172 B7 


15940 




OR 


A 




5173 20FB 


15950 




JR 


NZ,NXTC 




5175 10F9 


15960 




DJNZ 


NXTC 




5177 226750 


15970 SRCHDN 


LD 


(OSPTR) ,HL 




517A 3E01 


15980 SETMD 


LD 


A,l 




517C 326650 


15990 




LD 


(OSFLAG) ,A 




517F El 


16000 




POP 


HL 




5180 E5 


16010 SUBST 


PUSH 


HL 




5181 2A6750 


16020 




LD 


HL, (OSPTR) 




5184 7E 


16030 




LD 


A, (HL) 




5185 B7 


16040 




OR 


A 




5186 2003 


16050 




JR 


NZ, NOTEND 




5188 326650 


16060 




LD 


(OSFLAG) ,A 




518B 23 


16070 NOTEND 


INC 


HL 




518C 226750 


16080 




LD 


(OSPTR) ,HL 




51 8F El 


16090 




POP 


HL 




5190 C9 


16100 




RET 






5191 3A8038 


16110 DEFINE 


LD 


A,(3880H) ;SHIFT KEY 




5194 B7 


16120 




OR 


A 




5195 3A2450 


16130 




LD 


A, (KEEPER) 




5198 2002 


16140 




JR 


NZ,DEF 




51 9A B7 


16150 




OR 


A 




519B C9 


16160 




RET 






519C C5 


16170 DEF 


PUSH 


BC 




519D E5 


16180 




PUSH 


HL 




519E 21E451 


16190 




LD 


HL , STRTDF 




51A1 CDDB51 


16200 




CALL 


PUTSTR 




51A4 212550 


16210 




LD 


HL,USTR 




51A7 0640 


16220 




LD 


B,64 




51A9 E5 


16230 GETC 


PUSH 


HL 




51AA C5 


16240 




PUSH 


BC 




51AB 1801 


16250 DEBOU2 


JR 


KEYDR2 




51AD 00 


16260 




NOP 






51AE CD0000 


16270 KEYDR2 


CALL 


0000H 




51B1 CI 


16280 




POP 


BC 




51B2 El 


16290 




POP 


HL 




51B3 B7 


16300 




OR 


A 




51B4 28F3 


16310 




JR 


Z,GETC 




51B6 322450 


16320 




LD 


(KEEPER) ,A 




51B9 3A4038 


16330 




LD 


A,(3840H) 




51BC FE02 


16340 




CP 


2 




51BE 2006 


16350 




JR 


NZ, NTENDF 




51C0 3A8038 


16360 




LD 


A,(3880H) 




51C3 B7 


16370 




OR 


A 




51C4 200A 


16380 




JR 


NZ, ENDDEF 




51C6 3A2450 


16390 NTENDF 


LD 


A, (KEEPER) 




51C9 77 


16400 




LD 


(HL) ,A 




51CA 23 


16410 




INC 


HL 




51CB CD3A03 


16420 




CALL 


033AH 




51CE 10D9 


16430 




DJNZ 


GETC 




51D0 AF 


16440 ENDDEF 


XOR 


A 




51D1 77 


16450 




LD 


(HL) ,A 




51D2 21F551 


16460 




LD 


HL,ENDMSG 




51D5 CDDB51 


16470 




CALL 


PUTSTR 




51D8 El 


16480 




POP 


HL 




51D9 CI 


16490 




POP 


BC 




51DA C9 


16500 




RET 






51DB 7E 


16510 PUTSTR 


LD 


A, (HL) 




51DC B7 


16520 




OR 


A 




51DD C8 


16530 




RET 


Z 




51DE CD3A03 


16540 




CALL 


033AH 




51E1 23 


16550 




INC 


HL 




51E2 18F7 


16560 




JR 


PUTSTR 




51E4 0D 


16570 STRTDF 


DEFB 


0DH 




51E5 44 


16580 




DEFM 


'Define String: ' 




51F3 0D 


16590 




DEFB 


0DH 




51F4 00 


16600 




DEFB 







51F5 0D 


16610 ENDHSG 


DEFB 


0DH 




51F6 45 


16620 




DEFM 


'End Definition' 




5204 0D 


16630 




DEFB 


0DH 




5205 00 


16640 




DEFB 









16650 




SORT 


ARRAY STRING ADAPTED FROM 






16660 




BUBBLE SORT, THE ASSEMBLY LINE 






16670 




WILLIAM BARDEN JR, 80 MICRO, APR 81, P53 






16680 




SORT 


ARRAY STARTING WITH ZERO ELEMENT 






16690 




COMMAND IS OF THE FORM CMD"O",A$(0) 






16700 




ARRAY 


MUST BE DIMENSIONED 




5206 CI 


16710 


3ABUBL 


POP 


BC 




5207 Fl 


16720 




POP 


AF 




5208 Dl 


16730 




POP 


DE 




5209 El 


16740 




POP 


HL 




520A E5 


16750 




PUSH 


HL 




520B D5 


16760 




PUSH 


DE 




520C F5 


16770 




PUSH 


AF 




520D D7 


16780 




RST 


16 




520E D7 


16790 




RST 


16 




520F FE22 


16800 




CP 


"" ; CHECK FORMAT 




5211 2803 


16810 




JR 


Z.SAB01A 




5213 C3A024 


16820 


5ABERR 


JP 


24A0H 




5216 D7 


16830 


3AB01A 


RST 


16 




5217 FE2C 


16840 




CP 


• , ' 




5219 20F8 


16850 




JR 


NZ,SABERR 




521B E5 


16860 




PUSH 


HL 




521C D7 


16870 


STRING 


RST 


16 ;MUST BE (0) 




>21D FE3A 


16880 




CP 


' : ' 




521F CA1352 


16890 




JP 


Z,SABERR 




>222 B7 


16900 




OR 


A 




5223 CA1352 


16910 




JP 


Z , SABERR 




5226 FE24 


16920 




CP 


'$' 




5228 20F2 


16930 




JR 


NZ, STRING 




522A D7 


16940 




RST 


16 




522B CF 


16950 




RST 


8 




522C 28 


16960 




DEFB 


'(' 




522D CF 


16970 




RST 


8 




522E 30 


16980 




DEFB 


'0' 




522F CF 


16990 




RST 


8 

Listing 4 


continues 



the Model III. Nodelay removes this 
function. 

EDT is another toggle command, al- 
lowing an autoedit function. Using the 
shift, enter keys puts you in the edit 
mode for the line after that already in 
the current line pointer in RAM. The 
proper way to use the autoedit func- 
tion is to specify EDT, then use the 
Edit command of Basic for the first 
line to be edited. Consecutive lines are 
automatically put in the edit mode with 
the shift, enter combination. Entering 
the EDT command a second time dis- 
ables the autoedit function. As with 
Unikey, you can enable or disable the 
autoedit function as often as you like. 



"The proper way 

to use the autoedit 

function is to 

specify EDT, 

then use the 

End command of Basic 

for the 
first line to be edited. " 



SNGL is a toggle command like Uni- 
key and EDT. Entering the command 
allows you to single-step through Ba- 
sic. You must enter the shift key to 
continue operation. A small delay oc- 
curs before you invoke the next Basic 
command. You can enable or disable 
this function as often as you like. 

Dual or Dual Y routes anything out- 
put through the Print command to a 
printer as well as the video. This com- 
mand isn't invoked if the printer is not 
ready. This avoids locking up comput- 
ers without printers. Dual N disables 
the command. You can use these com- 
mands within a Basic program by tak- 
ing certain precautions. The Pack utili- 
ty removes the space between Dual Y 
and Dual N, and the command is not 
recognized. If the printer is busy when 
you invoke the Dual command, it 
won't recognize the command. When 
the Dual or Dual Y commands are not 
recognized, the command disables all 
route functions. 

The PRDO command routes 
LPRINT commands to the video in- 
stead. This is especially useful when 
you don't have a printer or prefer the 
text to be printed to video such as when 
debugging a program. If you don't 
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Save more money (and data) with our hard disk drive 

Introducing the new, low-priced Winchester hard disk drive 
from A.M. Electronics. Designed to put the power of hard 
disk data storage within reach of more system owners than 
ever before. 

More megabytes per buck 

Our drive features an unformatted data capacity of 6.7 
megabytes, with an average access time of 75 milliseconds. 
Up to four drives can be daisy-chain connected for even 
greater capacity. 

Ready to run with TRS-80 

Each drive comes complete with controller board, ST-506 
interface, and a DOS Plus 4.0i for complete plug compati- 
bility with your TRS-80 system. 

Quality you can count on 

Manufactured from the finest components, the A.M. 
Electronics hard disk drive has an expected life rating of 
five years when used 50% of the time. 

Power consumption is unusually low: typically one amp 
less than other Winchester systems. 

™ TRS-80 is a trademark of Tandy Corp. 



The disk and read/write heads are fully enclosed in a 
module using an integral air recirculation system with an 
absolute filter. You can depend on stable operation and high 
reliability in any office environment. 

Think of the possibilities 

Word processing, large mailing lists, database management, 
financial planning and forecasting . . . demanding applica- 
tions like these and many more are now possible — and 
affordable — with the new A.M. Electronics hard disk drive. 

For more information, or to find the location of your 
nearest dealer, please contact: A.M. Electronics, Inc., 3446 
Washtenaw Ave., Ann Arbor, Ml 48104, 313/973-2075, 
Telex: 220821 HPC. In Europe, contact A.M. Electronics, 
Ltd., 10 Barley Mow, Barley Mow Passage, Chiswick, 
London W4 4PH, England, Tel. (01)994-6477, Telex: 
8811418. 



rn|A.M. ELECTRONICS 

f MM I THE POWER BEHIND THE DRIVES™ ,™ 



Ho>. 2B.OK. 2, 19(2 



'«£ 




THE SAD PLIGHT OF A FROG. HE FACES WILD DRIVERS AS HE 

TRIES TO CROSS THE ROAD. SINKING TURTLES, FLOATING LOGS 

AND HUNGRY ALLIGATORS STAND BETWEEN HIM AND HOME. HE 

NEEDS YOUR HELP!! ORDER SOON BEFORE ITS TOO LATE!! 

SOUND EFFECTS 

TOP TEN SCORES SAVED ON TAPE OR DISK 

TRS-80* MODEL I -III 

Disk $19.95 Tape $15.95 

Joysticks available for the above program for $ 39.95 

TO ORDER SEND CHECK OR MONEY ORDER OR CALL (517) 542-3280 



Visit Our Two 
RETAIL LOCATIONS: 

'111 Marshall St. 

Litchfield, MI 49252 

517-542-3280 

886 Ecorse Rd., Ypsilanti. MI 48197 

313-482-4424 

"Authorized Radio Shack Dealership 




ISPLAYED 



IDEO 



DISTRIBUTED EXCLUSIVELY BY DISPLAYED VIDEO 

DEALER DISCOUNTS AVAILABLE 

WRITTEN BY: DuBois and McNamara 




ADD $2.00 for 

Shipping. Add 

$1.50 for COD. 

Michigan Res. Add 4 percent. 

•TRS-80 Trademark of the Tandy Corporation 



Extra! Extra! 




Insect Frenzy ■ Page 5 



Volume 4 



All The News That's Fit To ZAP! 



Users vote no to the same 

OLD ARCADE GAMES 




(DV 1982) Blurry eyed users have turned to DISPLAYED 
VIDEO to answer their need for new and exciting arcade 
games. In response, DISPLAYED VIDEO has announced 
eight new programs for the TRS-80* Models I-III. These 
arcade type games feature sound, graphics, joystick compa- 
tibility and are written in machine language for maximum 
speed! Both disk and tape versions allow the user to save 
high scores, a feature not usually found on cassette based 
games. Maze enthusiasts seem to like Ghost Hunter and Killer 



Beetles, while gun slingers look toward Insect Frenzy, Jungle 
Raiders, Space Shootout, Alien Cresta and Battle Stations for 
excitement. A Game that does not fall into these categories 
is Hoppy. It features wild drivers, sinking turtles, and hungry 
alligators. These programs are distributed exclusively by 
DISPLAYED VIDEO and written by Dubois and McNamara. 
Pricing for these programs is $15.95 for tape and $19.95 
for disk. Reliable sources inside the company indicate Killer 
Gorilla will be available by the time you read this. 



TO ORDER SEND CHECK OR MONEY ORDER OR CALL (517) 542-3280 



Visit Our Two 
RETAIL LOCATIONS: 

111 Marshall St., Litchfield, MI 49252 

(517) 542-3280 

or 

886 Ecorse Rd., Ypsilanti, MI 48197 

(313) 426-5086/(313) 482-4424 

* Authorized Radio Shack Dealership 



D ISPLAYE D 
IDEO 

DEALER DISCOUNTS AVAILABLE 




Joysticks for above programs $39.95 
Add $2.00 for Shipping 
Add SI. 50 for COD 
Mich. res. add 4 percent tax 



• IRS 80 is a trademark of the Tandy Co 
Prices subject to change without notice. 



••••••••••• 



* 



* 



* 
* 



PLEASE 



at 



OUR PRICES 

Start 
a 15% Discount 




SAVE 



We also handle 

VIC - 20 
Okidata - Atari 

RAND'S 






* 
* 
* 

* 



Give Us 

A Chance to Save 

You the Largest 

Amount Possible on 

TRS-8(L 

Products 

Get Your Best 

Jf Price - Then Call Us + 

>+ 1800-762-6661 )+ 

* 

* 

* 

* 

* 

* 
* 




* 

* 
* 

* 

* 
* 






'f COMPUTER CORNER >f 

♦ 101 W. FRY BLVD. >f 

4- Sierra Vista, Az. 85635 )f 

Jf In State 602-458-2477 )f 

JkV TRS 80 is a trademark of Tandy Corporation ]tL 
••••••••••• 
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Listing 4 continued 












5230 29 


17000 




DEFB 


') ' 




5231 El 


17010 




POP 


HL 




5232 D7 


17020 




RST 


16 


; POINT HL TO VARIABLE NAME 


5233 CD0D26 


17030 




CALL 


260DH 


;VARPTR 


5236 E5 


17040 




PUSH 


HL 




5237 D5 


17050 




PUSH 


DE 


; STRING ADDRESS HERE 


5238 DDE1 


17060 




POP 


IX 




523A DDE5 


17070 


SAB010 


PUSH 


IX 




523C DD4EFE 


17080 




LD 


C,(IX+254) 


;(IX-2) 


523F DD46FF 


17090 




LD 


B,(IX+255) 


;(ix-l) 


5242 0B 


17100 




DEC 


BC 




5243 FD210000 


17110 




LD 


IY,0 




5247 C5 


17120 


SAB020 


PUSH 


BC 




5248 DD7E00 


17130 




LD 


A, (IX) 




524B B7 


17140 




OR 


A 




524C 2857 


17150 




JR 


Z,SAB070 




524E DD7E03 


17160 




LD 


A, (IX+3) 




5251 DD4600 


17170 




LD 


B,(IX) 




5254 90 


17180 




SUB 


B 




5255 ED44 


17190 




NEG 






5257 4F 


17200 




LD 


C,A 




5258 FA5E52 


17210 




JP 


M,SAB030 




525B DD4603 


17220 




LD 


B, (IX+3) 




525E DD6E01 


17230 


SAB030 


LD 


L,(IX+1) 




5261 DD6602 


17240 




LD 


H,(IX+2) 




5264 DD5E04 


17250 




LD 


E,(IX+4) 




5267 DD5605 


17260 




LD 


D,(IX+5) 




526A E5 


17270 




PUSH 


HL 




526B D5 


17280 




PUSH 


DE 




526C DD7E03 


17290 




LD 


A, (IX+3) 




526F B7 


17300 




OR 


A 




5270 2004 


17310 




JR 


NZ,SAB040 




5272 Dl 


17320 




POP 


DE 




5273 El 


17330 




POP 


HL 




5274 1813 


17340 




JR 


SAB060 




5276 1A 


17350 


SAB040 


LD 


A,(DE) 




5277 96 


17360 




SUB 


(HL) 




5278 ED44 


17370 




NEG 






527A 2005 


17380 




JR 


NZ,SAB050 




527C 13 


17390 




INC 


DE 




527D 23 


17400 




INC 


HL 




527E 10F6 


17410 




DJNZ 


SAB040 




5280 79 


17420 




LD 


A,C 




5281 Dl 


17430 


SAB050 


POP 


DE 




5282 El 


17440 




POP 


HL 




5283 B7 


17450 




OR 


A 




5284 281F 


17460 




JR 


Z,SAB07 




5286 FAA552 


17470 




JP 


M,SAB07 




5289 DD7504 


17480 


SAB060 


LD 


(IX+4) ,L 




528C DD7405 


17490 




LD 


(IX+5) ,H 




528F DD7301 


17500 




LD 


(IX+1) ,E 




5292 DD7202 


17510 




LD 


(IX+2) ,D 




5295 DD7E00 


17520 




LD 


A, (IX) 




5298 DD4603 


17530 




LD 


B,(IX+3) 




529B DD7703 


17540 




LD 


(IX+3) ,A 




529E DD7000 


17550 




LD 


(IX) ,B 




52A1 FD214000 


17560 




LD 


IY,40H 




52A5 CI 


17570 


SAB070 


POP 


BC 




52A6 DD23 


17580 


SAB080 


INC 


IX 




52A8 DD23 


17590 




INC 


IX 




52AA DD23 


17600 




INC 


IX 




52AC 0B 


17610 




DEC 


BC 




52AD 78 


17620 




LD 


A,B 




52AE Bl 


17630 




OR 


C 




52AF 2096 


17640 




JR 


NZ,SAB020 




52B1 FDE5 


17650 




PUSH 


IY 




52B3 Fl 


17660 




POP 


AF 




52B4 DDE1 


17670 




POP 


IX 




52B6 2002 


17680 




JR 


NZ,SAB090 




52B8 1880 


17690 




JR 


SAB010 




52BA El 


17700 


SAB090 


POP 


HL 




52BB Fl 


17710 




POP 


AF 




52BC Dl 


17720 




POP 


DE 




52BD CI 


17730 




POP 


BC 




52BE C9 


17740 




RET 








17750 




AUTO EDIT 






17760 




DAN ROLLINS, 80 MICRO, 


FEB 81, P144 




17770 




<SHIFTXENTER> TO ACTIVATE 


52BF 3AAF41 


17780 


PATCHA 


LD 


A, (41AFH) 




52C2 F5 


17790 




PUSH 


AF 




52C3 2AB041 


17800 




LD 


HL,(41B0H) 




52C6 E5 


17810 




PUSH 


HL 




52C7 3ADE52 


17820 




LD 


A, (STOREA) 




52CA 32AF41 


17830 




LD 


(41AFH) ,A 




52CD 2ADF52 


17840 




LD 


HL, ( STORE A+l) 




52D0 22B041 


17850 




LD 


(41B0H) ,HL 




52D3 El 


17860 




POP 


HL 




52D4 Fl 


17870 




POP 


AF 




52D5 32DE52 


17880 




LD 


(STOREA) ,A 




52D8 22DF52 


17890 




LD 


(STOREA+1) ,HL 




52DB C37344 


17900 




JP 


BASIC 




52DE C3E152 


17910 


STOREA 


JP 


ATOEDT 




52E1 3A8038 


17920 


ATOEDT 


LD 


A,(3880H) 


; CHECK SHIFT KEY 


52E4 B7 


17930 




OR 


A 




52E5 28F7 


17940 




JR 


Z , STOREA 




52E7 ED5BEC40 17950 




LD 


DE, (40ECH) 


; CURRENT LINE POINTER 


52EB 13 


17960 




INC 


DE 




52EC CD2C1B 


17970 




CALL 


1B2CH 


;GET ADDRESS FOR LINE NO. 


52EF C5 


17980 




PUSH 


BC 




52F0 El 


17990 




POP 


HL 




52F1 23 


18000 




INC 


HL 




52F2 23 


18010 




INC 


HL 




52F3 CD3F1B 


18020 




CALL 


1B3FH 


;LD HL,(HL) ROM ROUTINE 


52F6 C3662E 


18030 




JP 


2E66H 


;JUMP WITHIN EDIT 




18040 




SINGLE 


STEP, 80 APPLICATIONS 




18050 




DENNIS 


KITSZ, 80 MICRC 


, AUG 80, P28 




18060 




SINGLE 


STEP THROUGH A 


BASIC PROGRAM 


52F9 2A0440 


18070 


PATCHB 


LD 


HL, (4004H) 




52FC E5 


18080 




PUSH 


HL 




52FD 2A1B53 


18090 




LD 


HL, (STOREB+1) 


Listing 4 continues 



Listing 4 continued 
















5300 220440 


18100 


LD 


(4004H) ,HL 










5303 El 


18110 


POP 


HL 










5304 221B53 


18120 


LD 


(STOREB+1) ,HL 










5307 C37344 


18130 


JP 


BASIC 










530A F5 


18140 STARTB 


PUSH 


AF 










530B C5 


18150 


PUSH 


BC 










530C 3A8038 


18160 LOOPB 


LD 


A, (388011) 










530F A7 


18170 


AND 


A 










5310 28FA 


18180 


JR 


2, LOOPB 










5312 010010 


18190 


LD 


BC1000H ; DELAY 










5315 CD6000 


18200 


CALL 


0060H 










5318 CI 


18210 


POP 


BC 










5319 Fl 


18220 


POP 


AF 










531A C30A53 


18230 STOREB 
18240 ; 


JP 
CLEAN 


STARTB 
UP 












18250 ; 


SET POINTERS FOR BASIC 












18260 ; 














531D 214653 


18270 CLENUP 


LD 


HL, CLEND 


43BE 0652 


18490 


DEFW 


SABUBL 


5320 3A2501 


18280 


LD 


A, (0125H) 


44F3 


18500 


ORG 


44F3H 


5323 FE49 


18290 


CP 


49H ; CHECK IF MODEL III 


44F3 EE4F 


18510 


DEFW 


PATCH8 


5325 2004 


18300 


JR 


NZ,CLEN1 


44FA 


18520 


ORG 


44FAH 


5327 22A740 


18310 


LD 


(40A7H) ,HL jBO'FFER POINTER 


44FA 0250 


18530 


DEFW 


BOUNCE 


532A 24 


18320 


INC 


H 


4503 


18540 


ORG 


4503H 


532B 3600 


18330 CLEN1 


LD 


(HL) ,0 


4503 1450 


18550 


DEFW 


NOBOU 


532D 23 


18340 


INC 


HL 


4508 


18560 


ORG 


4508H 


532E 22A440 


18350 


LD 


(40A4H),HL ;BASIC START 


4508 BF52 


18570 


DEFW 


PATCH A 


5331 227944 


18360 


LD 


(BAS) ,HI, 


450E 


18580 


ORG 


450EH 


5334 3600 


18370 


LD 


(HL) ,0 


450E F952 


18590 


DEFW 


PATCH B 


5336 23 


18380 


INC 


HL 


4516 


18600 


ORG 


4516H 


5337 3600 


18390 


LD 


(HL) ,0 


4516 994F 


18610 


DEFW 


DUALOF 


5339 23 


18400 


INC 


HL 


451E 


18620 


ORG 


451EH 


533A 22F940 


18410 


LD 


(40F9H) ,HL 


451E 8B4F 


18630 


DEFW 


DUALON 


533D 22FB40 


18420 


LD 


(40FBH) ,HL 


4524 


18640 


ORG 


4524H 


5340 22FD40 


18430 


LD 


(40FDH) ,HL 


4524 8B4F 


18650 


DEFW 


DUALON 


5343 C37344 


18440 


JP 


BASIC 


452A 


18660 


ORG 


45 2AH 


5346 00 


18450 CLEND 


DEFB 





452A CB4F 


18670 


DEFW 


PRDO 


4473 


18460 3ASIC 


EQU 


4473H 


4530 


18680 


ORG 


4530H 


4479 


18470 BAS 


EQU 


4479H 


4530 D74F 


18690 


DEFW 


DOPR 


43BE 


18480 


ORG 


43BEH ;SET COMMAND ADDRESSES 


4300 


18700 


END 


4300H 



have a printer you may want to keep 
the Dual command as a function. You 
would also have to eliminate this com- 
mand as part of that set. PRDO is a 
very useful function and is well worth 
the memory used by all the route func- 
tions. The Dual N command turns off 
this function. The same precautions 
apply as for the Dual commands. 

The DOPR command routes Print 
commands to a printer. As with 
PRDO, Dual N turns off this function 
and the same precautions apply. Only 
one command, Dual, PRDO, or 
DOPR, is enabled at a time— the last 
command entered. 

Hex, octal, and decimal conversion 
is accomplished by the &H, &O, and 
&D commands, respectively. For ex- 
ample, executing PRINT &D255, 
PRINT &HFF, or PRINT &0377 
return the value 255 to video. The &D 
function is especially useful for convert- 
ing integers above 32767 to their signed 
value. lor example, PRINT PEEK 
(&D4(XXX)) is equivalent to PRINT 
PEEK(- 25536) and lets you avoid 
computing the negative value. The 
largest values allowed for the three 
functions are &HFFFF, &0 177777, and 
&D65529 

Well, there you have it! Many of the 
commands work in a slightly different 
fashion than intended by the original 
author. The Unikey function required 
extensive modification to work with 
the Model III as well as the Model I. 
The DEFUSR and USR functions are 
very loose derivatives of the program 
presented by the original author of the 

v'See List 0/ Advertisers on Page 563 



concept. 

I applaud the original authors for 
their work. With this program, you 
will get a compilation of utility pro- 
grams that I wish I had earlier on in my 



computing experience. ■ 

Tom Quindry, a Defense Depart- 
ment employee, lives at 6237 Wind- 
ward Drive, Burke, VA 22015. 



Serial Line 
Analizer 



Serial Line Analizer 

Plugs into TRS-80 color computer Rom 
Pack port. Displays EBCDIC, ASCII, Binary 
and HEX at 50, 75, 1 10, 134.5, 150, 200, 300, 
600, 1050, 1200, 1800, 2000, 2400, 4800. 9600, 
19200 Baud. Baud rates can be split over two 
channels. Analizer is async and supports 
computer/modem/terminal/printer applica- 
tions or trouble shooting. Industrial serial 
analizers sell tor 3000 and up New techno- 
logy allows us to sell it for $199. 

EPROM Programmer 

Read and program EPROM on the TRS-80 
color computer, for $80. 

EPROM Board 

Board with sockets and support chips allow 
you to plug in your own EPROM and execute 
them on the color computer, for $30. 

Tape map utility 

Displays TRS-80 tape file information: File 
name, file type, gap information, start ad- 
dress, load address and data blocks. $15. 

Tape save utility 

4K color computers can save machine code 
or binary files on tape with this utility. $15. 

Musld 

Simple note entry using joystick on TRS-80 
color computer. Supports whole notes 
through thirty-seconds and 11 keys. Can 
save music scores and recall them later to 
play or to change. Easy to use, $30. 

Add $1 .50 for post, and handlg. Prices subject 
to change. Wl residents add 5% sales tax. 



ONTROL CRAFT INC. 



P.O. Box 123 • Muskego, Wl 53150 

414-784-9027 ^no 



tOOK^ 




SMALL 



-442 



SMALL TIME USER'S GROUP 

BULLETIN BOARD 

- $39.95 - 

• Support about 200 USERS. IDEAL for LOCAL CLUBS 

• General, Club, and Confidential PASSWORD Prot 

• EASY. USER ORIENTED, complete UP/DOWN loading 

• Auto Config. lor N/7/1. N/8/1. E/7/1. or E/8/1 

• The BELOW TERM/HOST req for BULLETIN BOARD 

TERM/HOST VER 1 .5 (c)1 982 
— $34.95 — 

• ENTRY/EXIT TERM/HOST via Interrupt Handler 

• HEX TRANSLATION of RCV S XMIT DATA 

• TRANSMIT/RECEIVED Data Continually Displayed 

• Adiustable SPLIT SCREEN FULL DUPLEX Operation 

• BINARY and ASCII FILE Handling Capabilities 

• ASCII (Transparent BINARY File) Handling 

• CTRL CODE SUPPORT frm KBD or XMIT/RCV BUF 

• Additional CONV PROGRAMS are NOT REQUIRED 

• DISK or TAPE to the TRANSMIT/RECEIVE BUFFER 

• TRANSMIT/RECEIVE BUFFER to DISK or TAPE 

• DISK to TAPE or TAPE to DISK ALL File Types 

• AUTOMATIC CL EAN UP ot RECEIVED ASCII Files 

• HEX to DECIMAL CONVERSION From Any USER Prog. 

• UPPER/LOWERCASE DRIVER with KEYBD Toggle 

• TEXT SPOOL BUFFER tor VIEWING or PRINTING 

• EXIT/RETURN to DOS. BASIC or Other USER Prog. 

• HOST May Run MACH LANG or BASIC Programs 

• HOST You May UP/DN LOAD All FILE TYPES in the 
HOST From Any REMOTE TERMINAL or SYSTEM 

• HOST MODE has PASSWORD PROTECTION if Desired 

• VERSION Runson MODEL 1 &3.TAPE orDISK.48K 

CHECK or MONEY ORDER or COD 

Freedom Financial Enterprises of Washington, Inc. 
3601 Carriage Dr. Raleigh, NC 27612 919-782-9662 
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HOME/HOBBY 



Storm Tracker 



by Charles C. Williams 



F 



orecast the landfall coordinates of an on- 
coming tropical storm or hurricane to see how 
much danger the storm poses to you. 



This computer program forecasts 
landfall coordinates of an oncom- 
ing tropical storm or hurricane. The 
program supplements the hurricane 
watches and warnings issued by the 
weather bureau and gives you a clearer 
picture of just how much danger the 
storm poses to you. 

You enter the coordinates of the 
storm, longitude and ln(log e ) latitude 
(the weather service furnishes these), as 



1001 


DATA 


90.0, 


3.295837 


1002 


DATA 


90.5, 


3.295837 


1003 


DATA 


91.0, 


3.277145 


1004 


DATA 


91.2, 


3.269569 


1005 


DATA 


91.5, 


3.265759 


1006 


DATA 


92.0, 


3.265759 


1007 


DATA 


92.5, 


3.265759 


1008 


DATA 


93.5, 


3.258097 


1009 


DATA 


94.3, 


3.254243 


1010 


DATA 


95.4, 


3.242592 


1011 


DATA 


96.0, 


3.218876 


1012 


DATA 


96.6, 


3.194583 


1013 


DATA 


98.0, 


3.178054 


1014 


DATA 


97.5, 


3.182212 


1015 


DATA 


98.2, 


3.161247 


1016 


DATA 


98.5, 


3.157000 


1017 


RETURN 




1018 


GOTO 


1018 






Fig. 1. 


Data for 


Anita 



The Key Box 

Models I and III 

16K RAM 

Cassette or Disk Basic 



data into the program. The program 
computes a least-squares formula for 
the longitude and latitude and the 
latitude for a given longitude, and plots 
the curve points included in the compu- 
tation and the predictive curve based on 
the input data. 

The input value for M controls the 
depth of the data scan. When you are 
tracking a storm with the computer 
using the weather advisory's coordin- 
ates, you enter the longitude and 
ln(log e ) latitude data sets in reverse 
order. In the data stack the first data are 
on the bottom and the latest data at the 



top. For example, you would enter your 
data as follows: 



995 Fifth data set 

996 Fourth data set 

997 Third data set 

998 Second data set 

999 First data set 



The computer scans the data from 
the top down, line by line. Your value 
for M tells the computer how many data 
sets to read. When it reads M sets, it 
goes about its other chores. 

With the data entered in reverse, and 
with a constant value for M (e.g., 
three), you can see that on the third day 
your computer will read the third, sec- 
ond, and first data sets. On the fourth 
day it will read the fourth, third, and 
second data sets. On the fifth day the 
data scan involves the fifth, fourth, and 







Program Listing 




100 


CLS:N=0:X=0: 


Y=0 






101 


PRINTTAB(12) 


"::: HURRICANE TRACKING SYSTEM:::" 


102 


PRINTTAB(12) 


*********** ALLEN *********** 


103 


PRINTTAB(12) 


"LONGITUDE 'X'. 


.LOG LATITUDE 'Y'" 


104 


PRINTTAB(12) 


" M = 


NUMBER OF 


(X,Y) DATA SETS " 


105 


PRINTTAB(12) 


• 


CHARLES 


C WILLIAMS " 


106 


PRINTTAB(12) 


" 


COPYRIGHT 1980 


107 


INPUT n M=";M 








108 


CLS 








109 


READ X,Y 








110 


O=0+X 








111 


P=P+(X*X) 








112 


Q=Q+(X*Y) 








113 


S=S+Y 








114 


T=T+(Y*Y) 








115 


N=N+1 








116 


IFN=MTHEN117 


ELSE109 




117 


U=((Q*M)-(0* 


S))/(M 


*M) 




118 


V=( (P*M)-(0* 


0))/(M 


*M) 




119 


W=( (T*M)-(S* 


S))/(M 


*M) 




120 


B=U/V 








121 


A=((S/N)-(B* 


0/N)) 




Listing continues 
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Listing continued 



122 J=SQR(ABS(V) 

123 R=U/(J*K) 

124 PRINTTAB(12) 

125 PRINT 

126 PRINTTAB(12) " 

127 PRINTTAB(12) n .. 

128 INPUT "D= n ;D 

129 IF D=l THEN 132 

130 IF D=2 THEN 135 

131 IF D=3 THEN 144 

132 INPUT "X= n ;X 

133 PRINT, n LONGITUDE= n ;X; n 

134 GOTO 132 

135 RESTORE :GOSUB 153 

136 FOR N=1T0M 

137 READ X, Y 

138 Z=EXP(Y) 

139 F=407-4*X 

140 G= 91-3*Z 

141 SET (F,G) 

142 NEXT N 

143 GOTO 184 

144 RESTORE:GOSUB 153 

145 FORX=98T072 STEP-1 

146 Z=EXP(A+(B*X) ) 

147 F=407-(4*X) 

148 G= 91-(3*Z) 

149 IF(G<=l)OR(G>=47)THEN 152 

150 SET (F,G) 

151 NEXT X 

152 GOTO 184 

153 CLS:N=0:X=0 

154 FOR Y=0TO44 STEP 2 

155 C=(30-(N)) 

156 PRINT C"-" 

157 N=N+1:IF N>=15 THEN 159 

158 NEXT Y 

159 N=0:X=0:Y=0 

160 FOR X=7T0119 STEP 8 

161 Y=44 

162 SET (X,Y) 

163 NEXT X 

164 N=0 

165 FOR X=7T0119 STEP 8 

166 C=(100-(2*N) ) 

167 PRINT C; 

16 8 N=N+1 

169 NEXT X 

170 PRINT@ 23, "NO" 

171 PRINT@ 77, "GV" 

172 PRINT@136,"CC" 

173 PRINT@166,"TM" 

17 4 PRINT@26 5,"BV" 

175 PRINT@299,"MI n 

176 PRINT@422,"HV" 

177 PRINT@455,"TP n 

178 PRINT@542,"*Y" 

179 PRINT@651,"VC" 

180 PRINT@662, n CP" 

181 PRINT@766,"SD n 

182 PRINT@817, n KG n 

183 RETURN 

184 GOTO 184 

1001 DATA 87.0,3.091043 

1002 DATA 87.9,3.109061 

1003 DATA 89.0,3.109061 

1004 DATA 89.6,3.113515 

1005 DATA 90.8,3.157000 

1006 DATA 91.4,3.169686 

1007 DATA 92.0,3.178054 
8 DATA 92.8,3.194583 



:K=SQR(ABS(W) ) 
CORRELATION COEFFICIENT 

*** Q **i 

... . VALUE { 1 ) . . . PLOT { 2) . . 



(R) = ";R 
.CURVE (3) . . . . " 



"; "LATITUDES ;EXP(A+(B*x; 



ELSE 150 



ELSE 154 



1009 DATA 93.1,3.194583 

1010 DATA 93.8,3.210844 

1011 DATA 94.4,3.222868 

1012 DATA 95.2,3.230804 

1013 DATA 95.5,3.T26844 

1014 DATA 96.1,3.230804 

1015 DATA 96.5,3.238679 

1016 DATA 96.7,3.246491 

1017 DATA 96.9,3.254243 

1018 DATA 97.4,3.259569 

1019 DATA 98.1,3.292126 

1020 DATA 99.0,3.306887 

1021 END 



1001 


DATA 


93.0,3.068053 


1002 


DATA 


94.0,3.044522 


1003 


DATA 


94.0,3.020425 


1004 


DATA 


94.3,2.995732 


1005 


DATA 


94.0,3.020425 


1006 


DATA 


95.0,3.044522 


1007 


DATA 


95.2,3.058707 


1008 


DATA 


95.8,3.058707 


1009 


DATA 


95.7,3.077312 


1010 


DATA 


96.2,3.063391 


1011 


DATA 


95.5,3.068053 


1012 


DATA 


95.0,3.044522 


1013 


DATA 


94.5,3.068053 


1014 


DATA 


94.5,3.068053 


1015 


DATA 


94.0,3.044522 


1016 


DATA 


93.5,3.044522 


1017 


DATA 


93.0,3.044522 


1018 


DATA 


92.5,3.044522 


1019 


DATA 


93.0,3.091042 


1020 


DATA 


92.5,3.091042 


1021 


DATA 


92.5,3.091042 


1022 


DATA 


92.0,3.113515 


1023 


DATA 


89.5,3.238678 


1024 


DATA 


89.0,3.238678 


1025 


DATA 


88.0,3.258097 


1026 


DATA 


87.5,3.269569 


1027 


END 






Fig. 2. Data for Henri 



third sets. This gives you a moving scan 
with M data-set depth. You may vary 
the depth of the scan by changing the 
value for M. A large M gives a more 
generalized analysis. A smaller M 
makes the analysis more sensitive to 
path change. 

After you enter a value for M, the 
computer asks for the selector value D. 
If you press 1 the computer then asks 
for a value of x, the longitude coordin- 
ate. The value for x is the longitude of 
the possible landfall area. For the 
western Gulf a value of 97 is suitable. 
The computer then determines a lati- 
tude value using the data you have in- 
put. This gives you the coordinates of 
the landfall based on the measure- 
ments made at that point in time. 

Each point you determine is like a hit 
on a target. If the storm is well organ- 
ized and consistent, you will have a 
tight group of points and a good idea 
of where the storm will landfall. If the 
storm is disorganized and erratic your 
group of points could spread all over. 
Even so each landfall point you deter- 
mine is the best guess that can be made 
at that point in time and for the data 
input to the computer. 

If you enter a value of 2 for D the 
computer plots the points that have 
been included by the value for M. If 
you enter a value of 3 for D the com- 
puter plots a total curve based on the 
input measurements. 

The program also computes R, a 
measure of the correlation between the 
computer analysis and the actual data. 
R measures the goodness of fit and 
gives you an idea of how accurate your 
measurements are. 

The Program Listing contains the 
complete program including data from 
hurricane Allen. Figures 1 and 2 con- 
tain the data for hurricanes Anita and 
Henri. If you want to analyze these 
hurricanes replace the data from lines 
1001 and on in the program listing with 
the data from the figure for the hur- 
ricane you are interested in. 

The computer analysis of Allen was 
hard to believe. At longitude 89, a little 
past Yucatan, the predictions had an 
85 percent probability. By longitude 91 
they had reached 90 percent probabili- 
ty. By longitude 94 the probability was 
98 percent and rising. The latitude 
predicted at longitude 91.4 (25.8) was 
within . 1 degree of the actual landfall 
coordinate (25.9) longitude 96.9. ■ 



Charles Williams can be reached at 
Number 14, 5320 Auden, Houston, TX 
77005. 
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UTILITY 



LOAD 80 



6502 to Z80, Bit by Bit 



by David S. Peckett 



I 



f you've ever wanted to convert those 6502 
Assembly-language programs to run on a Z80 
computer, here's a piece on how it's done. 



One of the delights of working with 
computers is learning a particular sys- 
tem's programming language. To have 
any hope of adapting programs written 
for other systems, you must have a 
nodding acquaintance with other 
languages. 

Even a widely used high-level lan- 
guage like Basic has as many dialects as 
there are computer types. Fortunately, 
if you know Level II Basic, you can 
usually read, say, Applesoft programs. 
That's one of the reasons for having 
high-level languages. 

When you get down to the level of 
Assembly-language, things are not so 
easy. A thorough knowledge of the 



FLAGS 



SP 



PC 



Fig. I. 6502 Architecture 
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Z80 assembler is not much help when 
that special 6502 listing seems to be just 
what you need. The only way you can 
use it is to understand 6502 Assembly 
code well enough to work back to the 
program's algorithm. Then you can 
recode it for a Z80, and then debug it. 

This article gives an easy way out. It 
describes a Level II Basic program that 
can translate 6502 assembler into 
equivalent Z80 code. If you only work 
in Basic, the program will be of no use; 
however, if you are a machine-code 
freak it could be a great help to you. 

To keep things to a manageable size, 
the program translates a general 6502 
listing to a general Z80 listing. Hard- 
ware-dependent sections are only 
translated as Assembly code — they are 
not altered to suit the architecture of 
the target computer. 

For example, an Apple program 
may write directly to display memory; 
the translation would not automati- 
cally write to the TRS-80 display area. 
Similarly, you must make your own 
decisions about such items as where to 
put the stack. 

Translation Approach 

Before going into the detail of how 



the translation is handled, let's review 
the architectures of the 6502 and the 
Z80. Remember, a computer's archi- 
tecture is reflected in its Assembly 
language. An understanding of one is 
essential to understand the other. 

Figure 1 shows the 6502's basic con- 
figuration. The micro has a single 8-bit 
accumulator and a status register. It 
also has two 8-bit index registers (X 
and Y). Often interchangeable, these 
can be used for temporary data stor- 
age, as loop counters, and as indices 
for the micro's numerous addressing 
modes. 

The 6502 also has an 8-bit stack 
pointer (SP) pointing to a stack per- 
manently located on page 1 of mem- 
ory, and a conventional 16-bit pro- 
gram counter (PC). 

The Z80's architecture is shown in 
Fig. 2. The micro is more complex than 
the 6502 and has two sets of working 
registers. It can use either set at any 
time, but not together. 

Each set has an 8-bit accumulator 
(A), with its associated flag register 
(F), and six general-purpose 8-bit reg- 



The Key Box 

Basic Level II 

Model I 

16KRAM 

An editor/assembler 



7 




7 


A 




F 


B 


C 


D 


E 


H 


L 



7 



A' 




F' 




B' 


C' 




D' 


E' 




H' 


!_' 



07 



7 



IX 



IY 



SP 



PC 



Fig. 2. Basic Z80 Architecture 



isters (B-E,H,L). These six registers 
can be concatenated into three 16-bit 
registers (BC, DE, and HI), to perform 
limited 16-bit arithmetic or to give 
pointers to anywhere in memory. 

The Z80 also has a 16-bit stack 
pointer (SP), which means the stack 
can be anywhere in memory, and a 
16-bit program counter (PC). The two 
16-bit index registers (IX and IY) are 
redundant in this translation program. 

Both microprocessors have an eight- 
bit accumulator which performs most 



arithmetic and both offer the same 
fundamental operations. The flags 
show the results of the operations, and 
both micros have equivalent carry, 
zero, and sign flags. Program counter 
operation is similar in the two micros, 
and the 6502's eight-bit SP is a subset 
of the Z80's 16-bit stack pointer. 

Major Differences 

Perhaps the most important dif- 
ference between the two micros is in 
their approach to addressing memory. 



The 6502 has a wide selection of in- 
dexed, indirect, and compound ad- 
dressing modes, including the more ob- 
vious immediate and absolute modes. 
The Z80 has only immediate and in- 
direct operations — the latter use reg- 
ister HL as a pointer — and an indexing 
mode totally unlike the 6502. 

The two sets of flags work differ- 
ently. The 6502 sets them whenever it 
loads or manipulates A, X, or Y; the 
Z80 alters flags only after an arithmetic 
or logical operation. In subtraction 
and comparison operations, the 6502 
sets its carry flag to show there was no 
borrow, while the Z80 clears the flag to 
show the same state. To add to the con- 
fusion, both micros treat their carry 
flags identically during addition. 

Despite the differences, a Z80 can 
model a 6502 quite well. The grey areas 
(like the overflow flag) are unimpor- 
tant. In fact, SED, OLD, BRK and 
BIT are the only four 6502 operations 
that the Z80 cannot copy. 

Translation Approach 

The program uses the Z80's registers 
to emulate those in the 6502. The ac- 
cumulators, flag registers, stack 
pointers, and program counters are 



CANADA 
Don't be left out in the COLD! ! 

You can now order direct! The most popular games, utilities and business programs! 

TRS-80* ATARI* PET* APPLE* 



Apparat NEW DOS - 80 2.0 (Model I/III) 

NEW Canadian Payroll (Model II) 299.00 
User defined General Ledger 299.00 
or $499.00 set 

'REGISTERED TRADEMARKS 

SEND 3.00 FOR CATALOG - REFUNDABLE WITH PURCHASE 

DEALER INQUIRES WELCOME 

Rainbow Software 
Services Ltd. 



Peripherals 

• disk drives 

• Epson printers 

• cables 

• books 

• magazines 

• green screens 

• ribbons 

• Joy sticks 

• Storage boxes 

• Skyman 

• Mikee angelo 



7070B FARRELL ROAD S.E., 
CALGARY, ALBERTA T2H 0T2 



TRS 80 Color 
Spectral Associates 

• Meteroids 

• Space War 

• Space Intruders 

Corn Soft Group 

• Color Scarfman 

• Chromasette 

Modem - 80 

• auto dial/answer 

• with software 

• no RS 232 required 

$359.00 



PHONE: 253-6142 



BIG 5 ADVENTURE INTERNATIONAL CLOAD SSM FANTASTIC SOFTWARE SUB-LOGIC 



^See List of Advertisers on Page 563 
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Head Cleaning 
Diskettes 




Not yet 
available tor 
Vydec. Burroughs 
Mini-Disk II. or 96 TPI drives 

Keep your diskette drive 
heads "Computer Room 
Clean" with Scotch" Head 
Cleaning Diskettes. You 
can clean the heads your- 
self in just 30 seconds and 
save on service calls, data 
drop-outs, costly down 
time. Available in 8-inch 
and 5V4-inch sizes. 

$24.00 

Amflex Products 
& Services 

WORD AND DATA PHOCtSSING PR00UCIS 
P.O. Box 852. Adrian. Ml 49221 

Telephone: 517-423-7112 • 



equivalent and present no real prob- 
lems. C and E in the Z80 model X and 
Y in the 6502. By keeping B and D at 
zero, we can reproduce the 6502's ad- 
dressing modes. 

The fundamental approach is to 
replace a single line of 6502 code with 
functionally equivalent Z80 code; any 
labels or comments are preserved. 



With operations like ADC or LDA this 
is straightforward, but some opera- 
tions, such as CLV, are more complex. 
Handling only one 6502 instruction 
at a time is not an ideal approach but 
was necessary to fit the program into 
16K. With more RAM, it is not too dif- 
ficult to generate a more intelligent 
program that could translate the sense 



6502 Instruction Categories 




Untranslatable: 




BIT, BRK, CLD, SED 




Single-Line, No Operand: 




CL1, DEX, DEY, INX, INY, NOP, PHA, PHP, RTS, SEC, SEI 




Single-Line, with Operand: 




BCC, BCS, BEQ, BMI, BNE, BPL, BVC, BVS, JSR 




Standard Format: 




ADC, AND, ASL, CMP, DEC, EOR, INC, JMP, I.SR, ORA, ROL 


ROR, ST A, STX, 


STY 




Irregular: 




CLC, CIV, CPX, CPY, LDA, LDX, LDY, PLA, PLP, RTI, SBC, 


TAX, TAY, TSX, 


TXA, TXS, TYA 




Table I 





I" 



HOW YOUR TRS-80® CAN OUTSMART I BM-PC® 
With XYZT software you rTRS-80 becomes a real pro! 

INTERACTIVE CONTROL LANGUAGE (rel.2-A) . . S59.00/S10 ma 

The most powerful control language ever designed for the micro. Intended for 
control of computer operation, software enhancement and customization. Just 
check list of features: 



• Interactive program/ICL coexecution* 

• Enhances DOS, assemblers, 
compilers, wordprocessors, 
database, etc.* 

• Provides data for keyboard input 

• Access to display output* 

• &RETCODE indicates result of 
execution* 

• Conditional execution of DOS 
commands & /CMD files 



• Complete control over computer 
operation 

• Powerfull command language 
processor 

• Interaction with operator 

• Control interception* 

• Queue structure for data 
manipulation* 

• Variables and information passed 
between programs 

• Virtual I/O for keyboard and display operations* 

• Exclusive ICL feature 

LIBRARY SUPPORT OPTION . . .$79.00/510 ma 

Upgrade your DOS with libraries! Organize your files neatly- put all 
/BAS files into BAS/LIB, /CMDs to CMD/LIB, /RELs to REL/LIB, etc. 
Use regular DOS commands to list, copy, kill, print, load, save . . . files 
directly to/from libraries. Your processing will be faster, plus LSO 
saves space- minimal file size is 1 sector, not granule! In addition, the 
compress option saves another 30% of space. Using LSO we 
managed to place all files that previously occupied 2.5 diskettes 
onto one diskette and still 10% of space remained free! 

SPECIAL OFFER: ICL and LSO $99.00 

/*- -^ To order, specify Mod l/lll and DOS. 

/ ^v / \ Check, M.O., COD. plus $2.50 s/h 
j C ^t 5^ / Foreign orders - extra $10.00 
\Z__ /a xyzj COMPUTER DIMENSIONS, INC. 

2 PENN PLAZA. SUITE 1500 
NYC. N.Y. 10121 
(212)244-3100 ^158 

Dealers inquires welcomed ' -registered trademarks 
DOSPLUS- C LDOS* 7) TRSDOS* D NEWDOS+' D 



\z 



£1 



NEWDOS/80' 






SENECA ELECTRONICS 

SUPER DISCOUNTS TRS-80® AND OTHERS 



TRS-80® 

BELL & HOWELL" (APPLE)" 

ATARI™ 

VIC COMMODORE™ 

and OTHERS... 





TRS-80™ 16K MODEL III $810.00 m 

TRS-80™ 64K MODEL II $2995.00 
ATARI™ 800 W/16K $650.00 
VIC-20" HOME COMPUTER $245.00 
ALL MACHINES COME WITH FULL 
MANUFACTURES WARRANTY!! 

COMPUTER FURNITURE. PRINTERS, PERIPHERALS, YOU NAME 
IT, WE GOT IT. AT THE PRICE YOU WANT TO PAY. WE ACCEPT 
CERTIFIED CHECKS. MONEY ORDERS, VISA & MASTERCARD. 
SHIPPING CHARGES WILL BE ADDED TO CHARGE CARD ORDERS. 

SENECA ELECTRONICS 

RD #1, HARMONY, PA 16037 

(412) 452-5654 --474 
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Finally, a Spelling Checker that can SPELL! 



Electric 
Webster 

The "Cadillac" of Spelling Checkers! 

80 Microcomputing, 9/82 



No other spelling checker 



FAST and A CCURA TE 

comes close! 
INTEGRA TED — Proofs and corrects from 

within all these popular word processing 

programs: Scripsit, Newscript, Lazy Writer, 

Electric Pencil, Superscript, and Copy Art. 
SMART -- Finds and displays correct spellings instantly — no more clumsy dictionaries! 
HYPHEMA TES automatically — inserts discretionary hyphens with 100% accuracy, (optional) 

COMPLETE — One step proofing system with integrated Grammatical and Hyphenation 
features, (optional) 

No other program can claim even one of these features. 




EASY TO USE: Type your text using any of a number of 
popular word processing programs. When you are done, hit 
the appropriate key, and ELECTRIC WEBSTER proof- 
reads your document, displaying misspellings and typos 
on the screen. 

Then, Correcting Electric Webster can display each error 
separately, requesting you to enter the correct spellings for 
each. You are given the options of displaying errors in 
context, adding words to ELECTRIC WEBSTER'S 50,000 
word dictionary, or even displaying the dictionary to find 
the correct spelling. If you think you know the correct 
spelling, Electric Webster will verify it for you. 

Finally, Electric Webster CORRECTS' YOUR TEXT, 
automatically inserts discretionary HYPHENS (optional), 
and points out GRAMMATICAL errors (optional), all with 
remarkable speed! 



LOW PRICES: Standard Electric Webster is available for 
$89.50 (TRS-80™ Model I & III, or Apple™) or $149.50 
(CP/M™, TRS-80™ Model II and all others.) The optional 
Correcting Feature can be added at any time ($60) as can 
Hyphenation ($50) and Grammatical ($40). During the 
closing months of 1982 only, we are offering 6 W/P integra- 
tion programs FREE (reg. $35 each) with the purchase of 
Correcting Electric Webster. 



The Ultimate PROOFING SYSTEM 



REVIEWS OF MICROPROOF (EW's predecessor): 

"There is simply no finer program available . . ." 
Creative Computing, March 1982 

"This is a very useful product and should be obtained by anyone 

who uses a word processor." 

80 Microcomputing, August 1981 

"The summary review of this program? One word — Excellent." 
Computronics, September 1981 

"In a comparative review of proofreading programs (with smaller 

dictionaries) MICROPROOF was found to be considerably faster 

than all the others, when tested against a 400 word sample 

document." 

BYTE Magazine, November 1981 

"A 1500 word document took 26 seconds to load, process and proof 
... it is very friendly and any prson able to use a word processing 
program can master it in moments." 
InfoWorld, January 1982 

"By far, the most capable and efficient of these spelling checker 

programs." 

Microcomputing, June 1982 

AND NOW ELECTRIC WEBSTER: 

"Actually, Electric Webster is faster than its predecessor (Micro- 
proof) . . . and spelling corrections are immediately verified 
against the dictionary before being accepted . . ." 
Microcomputing, June 1982 

"Electric Webster is the Cadillac of vocabulary programs." 
80 Microcomputing, September 1982 




CORNUCOPIA SOFTWARE 

Post Ofice Box 61 1 1 Albany, California 94706 • (415) 524 8098 



^ 



^ ^ 
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■See List of Advertisers on Page 563 



80 Micro, Anniversary 1983 • 133 



of (small) blocks of 6502 assembler 
into Z80. Larger source programs than 
the 16K program's 1,500 byte buffer 
allows could also be handled. 

Translation causes a growth in code 
size, so a translated program takes 
about three times as much RAM as the 
original and runs about one third 
slower. Neither penalty is significant. 

Translating 6502 Operations 

The fundamental problem is how to 
translate the 6502 operations. There 
is no room for all the details here, but 
the micro's instruction set can be 
divided into five general categories (see 
Table 1). 

Untranslatable instructions are self- 
explanatory. The single-line commands 
replace a single 6502 operation with a 
single line of Z80 code. Single-line, no 
operand functions use implied address- 
ing, while single-line with operand use a 
relative or absolute address. For ex- 
ample, the 6502 instructions DEY and 
BNE LOOP translate exactly as 
DEC E and JR NZ,LOOP. 

The standard multi-line translations 
define a group in which the basic oper- 
ation can be translated by a single line 
or modified by other lines controlling 



flags and the addressing mode. For 
example, EOR TEST becomes: 

LD HL, TEST 

XOR (HL) 



These first three groups of translat- 
able instructions can be handled by a 
simple look-up table approach, but the 
instructions in the last category do not 



JU 
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S14.95 +S1-55S&H 

WILL-0-B0X 

Holds 50 discs 5'/4 
Removable sliding 
top 

Protects your Discs 
Sturdy Acrylic 
8 in. Box $21 .95 
+ S1.75S&H 

WILL-0-SCREEN FOR TRS-80® 

Sturdy Acrylic-gr, amber, lime 
Mod l-$5.95, Mod ll-$7.95, 
Modlll-$6.95+$1.25S&Heach 

BIBLE TEACHING PROGRAMS 

TRS-80 LVI 11 6K 
Learn the order of Bible Books 

Tape Disc 

1. O.T. Books-$4.95 7.95 

2. N.T. Books--$4.95 7.95 

3. Both 0.&N. -$7.95 10.95 

»»JMHH> »-»»»»♦»»»»♦»» » ¥ »»»» ' 

MONEY BACK GUARANTEE 
Send check or money order 





Program Listing I 

10 ' 6502 TO Z80 TRANSLATION PROGRAM 

20 '(C) 1981, D S PECKETT 

30 CLEAR 1000.-DEFINT A-Z 

40 DIM IN$(4) ,LN$(8) ,OD(57) ,TA$(8,4) ,TC{8) ,TV$(38) 

500 'TOP-LEVEL SEGMENT FOR 6502-Z80 TRANSLATION 

510 CLS: PRINT@272, "INITIALIZING SYSTEM" ; :GOSUB10 00 

520 GOSUB1500: 'INPUT DATA 

530 GOSUB3000: 'PARSE A LINE 

540 GOSUB5000: 'TRANSLATE 

550 IF F4 THEN 580: 'END? 

560 GOSUB2500: 'SAVE TO TAPE 

570 GOTO 530: 'BACK FOR MORE 

580 GOSUB9000: 'TAIL END 

590 PRINT@960 , "TRANSLATION COMPLETE; REMOVE TAPE" 

600 XS="": INPUT "DO YOU WANT TO DO ANOTHER TRANSLATION" ;X$: X$=LE 

FT$(X$,1) 

610 IF X$="N" END 

620 X$="Y" THEN 520 ELSE GOTO 600 

1000 'SYSTEM INITIALIZATION 

1010 OC$="ADCANDASLBCCBCSBEQBITBMIBNEBPLBRKBVCBVSCLCCLDCLICLVCMP 

CPXCPYDECDEXDEYENDEORINCINXINYJMPJSRLDALDXLDYLSRNOPORAPHAPHPPLAP 

LPROLRORRTIRTSSBCSECSEDSEISTASTXSTYTAXTAYTSXTXATXSTYA" : '6502 OPC 

ODES 

1020 FOR 1=1 TO 57:READ X:OD( I) =X:NEXTI : 'TRANSLATION CODES 

1030 T$=CHR$(9) :T1$=" " :C$=CHR$ (13) 

1040 FOR 1=1 TO 35:READ X$:TV$ (I) =X$: NEXT: 'TRANSLATION VECTOR 

1050 'FILL TRANSLATION ARRAY 

1060 FOR 1=1 TO 8:READ TC(I):FOR J=l TO TC(I):READ X$: TA$ (I , J) =X 

$:NEXT J, I 

1070 FOR 1=32584 TO 32762:READ X:POKE I,X:NEXT I: 'LOAD M/CODE 

1080 POKE 16526, 72:POKE 16527,127 

1090 RETURN 

1500 'INPUT DATA 

1510 'READ IN LISTING TO BE TRANSLATED 

1520 CLS 

1530 PRINT "LOAD CASSETTE WITH 6502 PROGRAM INTO CASSETTE DRIVE 

- HIT ANY KEY WHEN READY" 

1540 IF INKEY$="" THEN 1540 

1550 A=USR(32588) : 'LOAD SOURCE CODE 

1560 IF A=32588 PRINT "BAD TAPE - TRY AGAIN" -.GOTO 1530 

1570 IF A=0 THEN PRINT" INPUT BUFFER FULL. ANY KEY TO CONTINUE TR 

ANSLATION"ELSE GOTO 1590 

1580 IF INKEY$="" THEN 1580 

1590 L9=0: INPUT" START LINE NUMBER FOR OUTPUT" ;L9 : L9=L9-10 

1600 P9=30720: 'POINTER FOR READING TEXT 

1610 FD=0:FE=0:FF=0:FG=0: 'ADD. MODE FLAGS 

1620 'SET UP OUTPUT TAPE 

1630 PRINT"LOAD CASSETTE WITH BLANK TAPE AND SET TO RECORD" 

1640 X$="":INPUT"NAME OF OUTPUT FILE" ;X$:X$=X$+" " 

1650 X=VARPTR(X$)+l:POKE 32765 , PEEK (VARPTR(X) ) :POKE 32766, PEEK(V 

ARPTR(X)+1) : 'SET ADDRESS OF TITLE 

1660 A=USR(326 91) : 'LOAD HEADER 

1670 LN=2:GOSUB2000 

1680 OP$=LN$(l)+Tl$+"LD B, 0"+C$+LNS ( 2) +T1$+"LD D ,0"+C$: ' INIT 

IALIZE REGISTERS 

1690 GOSUB2500: RETURN 

2000 'GENERATE LINE NUMBERS 

2010 FOR IL=1 TO LN:L9=L9+10:L9$=STR$(L9) :LN$(IL) =RIGHT$ ("0000"+ 

RIGHT$(L9$,LEN(L9$)-1)+" n ,6) :NEXT 

2020 RETURN 

2500 'OUTPUT TRANSLATION 

2510 PRINT OPS; 

2520 X=VARPTR(OP$) :POKE 32765 ,PEEK(VARPTR(X) ) :POKE 32766 , PEEK (VA 

RPTR(X)+1) : 'OP$ ADDRESS 

2530 A=USR(32720) : 'RECORD TRANS. 

2540 RETURN 

3 000 'PARSE A LINE 

3010 Fl=0:F2=0:F3=0:IN$(l)="":IN$(2)=" n :IN$(3)="":IN$(4)= nn : 'INI 

TIALIZE VARIABLES 

3020 IF CHR$(PEEK(P9) ) =";" THEN 3200 :' COMMENT LINE? 

3030 F9=0:I9U1 

3040 X$=CHR$(PEEK(P9) ) : 'READ A CHAR 

3050 IF X$=C$ P9=P9+l:GOTO 3120: 'FINISH ON CR 

3060 IF X$="; n THEN F3=-l: 'COMMENT FLAG 

3070 IF (X$=" " OR X$=T$) AND NOT F9 AND NOT F3 AND I9<4 THEN 19 



Listing I continues 
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have a regular pattern. Each opcode in 
this group must be handled indivi- 
dually. It's possible to rationalize in 
the case of closely related instructions 
like CPX and CPY, but that is all. As 
examples of translations of opcodes in 
this group, TAX becomes: 

LD C,A 

INC C ;THESE2LINES.. 

DEC C ;.. SET THE FLAGS 

while CPY #$AB is translated as: 



LD 


D,A 


;SAVEA 


LD 


A,E 


;A = Y 


CP 


OAB 




CCF 




;CY FLAG TO 6502 MODE 


LD 


A,D 


; RESTORE A 


LD 


D,B 


;D=0 AGAIN 



These two examples illustrate the 
translation program's approach to 
controlling the flags. The INC, DEC in 
the first case sets the flags, and the sec- 
ond example's CCF keeps the Z80 
carry flag in the state the 6502 would 
put it. 

Translating 6502 Addressing Modes 

There is no point in translating 6502 
operations unless 6502 addressing 
modes can also be translated. The ab- 



Listing I continued 

=1 9+1 :F9=-1:P9=P9+1: GOTO 3040: 'DELIMITER? 

3080 IF (X$= n " OR X$=T$) AND F9 THEN P9=P9+1:G0T0 3040: 'SAME DE 

LIMITER? 

3090 F9=0: 'RESET FLAG 

3100 IN$(I9)=IN$(I9)+X$: 'READ A CHAR 

3110 P9=P9+l:GOT0 3040: 'NEXT 

3120 'IN$(l-4) FILLED 

3130 IF x(IN$(3) ,1)=";" AND IN$(4)= nn IN$(4) =IN$ (3) : IN$ (3) ="" : 'C 

ORRECT COMMENT FIELD 

3140 'FILL RETURN STRINGS 

3150 LB$=IN$(1)+T1$:01$=IN$(2) :02$=IN$(3) :CT$=Tl$+IN$ ( 4) 

3160 GOSUB3500:IF F2 RETURN: 'CHECK FOR ERRORS 

3170 GOSUB4000:IF F2 RETURN:'FIND OPCODE 

3180 GOSUB4500: RETURN: 'CHECK ADDRESS MODE 

3200 'COMMENT LINE 

3210 CT$="":F1=-1 

3220 X$=CHR$(PEEK(P9) ) :P9=P9+1 :CT$=CT$+X$ 

3230 IF X$=C$ THEN RETURN ELSE GOTO 3220 

3500 'CHECK FOR OBVIOUS SYNTAX ERRORS 

3510 'LABEL FIELD 

3520 IF LB$=T1$ THEN 3550 

3530 IF LEN(LB$)>10 F2=-l : RETURN: ' LABEL WRONG 

3540 L=ASC (LEFTS (LB$,1)) : IF NOT ( LBS=TT $ OR (L>64ANDL<91 ) ) F2=-l 

: RETURN: 'START OK? 

3550 'OPERATION FIELD 

3560 IF LEN(Ol$)<>3 F2=-l :RETURN: ' 3 CHAR IN OP? 

3570 L=ASC(LEFT$(01$,1)) : IF L<65 OR L>84 F2=-l : RETURN : 'A-T START 
? 

3580 'COMMENT FIELD 

3590 IF CT$=T1$ RETURN 

3600 IF MID$(CT$,5,1) <>"; " F2=-l:'NO ";" AT START 

3610 RETURN 

4000 'GET OPCODE 

4010 IA=1:IB=57:FH=0 

4020 IF FH OR IAMB THEN 4060 :' FINISHED? 

403 IM=(IA+IB)/2:AM$=MID$(OC$ r IM*3-2,3) 

4040 IF AM$=01$ THEN FH=-1 ELSE IF AM$>01$ THEN IB=IM-1 ELSE IA= 

Lisllne I continues 



Do your own taxes like an expert 
with TAX/ 



TAX/SAVERI M The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER™ I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging. 

• TAX/SAVER"" II: all features of TAX/SAVER'" I plus 
business income and capital gains. 

• 40% Discount on yearly updates. 



Reviews and Users' Comments: 

About TAX/SAVER' 1 ': 

"This is a very valuable tool" R. Ferry, Personal Computing Magazine, 

"Tax Preparation Software", December 1981 
"This is the perfect program for those doing taxes for others (. . .good for an 
individual, too!!) — B.M., Missoula. MT (Professional Preparer) 

About TAX/ FORECASTER'": 

"VERY HANDY!" — T. Pettibone, "Software Critic". 1982 ,.342 

©Copyright 1982 ^Registered trademark ol Tandy Corp 



TAX/FORECASTER'", a quick tax planner for 1982-1983, lets 
you see how financial decisions will affect your taxes. Merely change 
one or more entries to see your tax refigured. 

^CU|I PROFESSIONAL TAX/FORECASTER" 

W- - * adds disk storage of client files and income averaging. 
Orders will be filled in late January to allow inclusion of new tax laws. 
TO ORDER: 



Call collect 203-324-3009 or 203-544-8777 or mail this 
coupon to: Micromatic Programming Co. 

P.O. Box 158, Georgetown, CT 06829 

Please enroll me in member's service and send: 

D TAX SAVER'" I @ $89.95 Manual included 

□ TAX/SAVER'" II Co' $139.95 Manual Included 

□ TAX FORECASTER" @ $59.95 

□ PROFESSIONAL TAX. FORECASTER" 
@ S99.95 (requires 48K) 

($15. off any TAX.- FORECASTER" with any TAX SAVER") 
D Tax Form Overlays (set of 6) @ $39.95 

□ Please send me more information 
Please check one: 

TRS-80* Model I □ 32K, 2 drives □ 48K, 2 drives 

TRS-80* Model III □ 32K, 2 drives D 48K, 2 drives 

Add S.i.'M for postage and handling, CT residents add 7 1 /'- sales lax. 

Name 



Address 

City 

□ Check D Master Charge □ Visa 

Card No. Exp.date_ 



State 



Zip 



sSee List ol Advertisers on 
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solute and immediate modes are easy, 
as is the pure indirect mode; unfor- 
tunately, only JMP (Q) uses the in- 
direct mode. 

We also have to deal with the 6502's 
indexed, indirect-indexed and indexed- 
indirect modes; at the cost of a few 
lines of code, it is possible to imitate 
them all with a Z80. 

The technique is to load register HL 
with the operand label (for example, 
Total from LDA (TOTAL,X)). This is 
followed by a CALL to one of four 
possible subroutines to modify HL to 
the intended address. Four subroutines 
(XIXX, 1XIY, IXIND, and 1NDIX) 
emulate ABS,X, ABS,Y, (IND,X), 
and (1ND),Y respectively. An example 
of this technique, EOR (STORE),Y, 
translates as: 





LD 


HL.STORE 




CALL 


INDIX 




XOR 


(HL) 


where: 






INDIX EX 


AF,AF* 


;SAVE A AND F 


LD 


A,(HL) 


;LOW BYTE . . . 


INC 


HL 




LD 


H,(HL) 


;HIGH BYTE . . . 


LD 


L,A 


;HL IS NOW POINTER 


ADD 


HL.DE 


;ADD OFFSET 


EX 


AF,AF' 


; RESTORE 


RET 







When the 6502 program is trans- 
lated, those subroutines actually called 
by the translation are added to the 
output. 

Using the Translator 

First, prepare the 6502 source code 
on tape. Use an editor/assembler to 
write the 6502 program in standard 
format, including line numbers, and 
save the program on tape in standard 
TRS-80 format. The translator accepts 
code in the standard 6502 assembler 
format as defined in Zaks' Program- 
ming the 6502; in addition, all com- 
ment fields must start with a semi- 
colon. Do not include assembler 
pseudo-operations; since they vary 
from assembler to assembler, the 
translator does not attempt to handle 
them — they will be flagged as errors. 

Reboot your computer and set 
memory size to 30720. You can then 
load the translation program and read 
the source tape into the 1 ,500-byte buf- 
fer. If the source program is in the 
wrong format, or is too long, you will 
get a warning message. In the latter 
case you will have to split the program 
into smaller parts. Even if the buffer 
overflows, you can run the translator 
immediately on what has been loaded. 

Once the source code is in the buffer, 
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ELSE 02$=MID$(02$,2,LN-4) 



Listing I continued 

IM + 1 

4050 GOTO 4020 

4060 IF IA>IB THEN F2=-l :RETURN: 'UNIDENTIFIED OPCODE 

4070 IC=OD(IM) : RETURN: 'GET CODE 

4500 'IDENTIFY ADDRESS MODE 

4510 LN=LEN(02$) 

4520 IF 02$="" MA=1: RETURN: 'IMPLIED 

4530 IF 02$="A" MA=2 : RETURN: 'ACCUM 

4540 L=ASC(LEFT$(02$,1)) :R=ASC(RIGHT$ (02$,1) ) :'1ST & LAST CHARS 

4550 IF L<65 OR L>90 THEN 4620: 'NOT ABS OR INDEXED 

4560 IF LN<3 THEN 4580: 'TOO SHORT FOR INDEXED 

4570 IF MID$(02$,LN-l,l)= n ,''THEN 4600 :' INDEXED? 

4580 IF (R>47 AND R<58)OR(R>64 AND R<91)THEN MA=3 ELSE F2=-1:'AB 

SOLUTE? GIVES "ABS" FOR "REL" 

4590 RETURN 

4600 IF R=88 THEN MA=4 ELSE IF R=89 THEN MA=5 ELSE F2=-l: * INDEXE 

D 

4610 02$=LEFT$(02$,LN-2) .-RETURN: 'EXTRACT OPERAND 

4620 IF LO40 THEN 46 80 : 'OPENING BRACKET? 

4630 R$=RIGHT$(02$,3) 

4640 IF R$= n ,X)"THEN MA=6 ELSE IF R$="),Y n THEN MA=7 ELSE IF R=4 

1 THEN MA=8 ELSE F2=-l: • { IND,X)/ ( IND) ,Y/ ( IND) ? 

4650 IF F2 RETURN 

4660 IF MA=8 THEN 02$=MID$ (02$, 2 ,LN-2) 

: 'EXTRACT OPERAND 

467 RETURN 

46 80 'IMMEDIATE? 

4690 IF L<>35 F2=-1:RETURN: * #? 

4700 MA=9:L=ASC(MID$(02$,2,1)) : 'SECOND CHAR 

4710 IF L>47 AND L<58 THEN MI = 1 ELSE IF L=36 THEN MI=2 ELSE IF L 

=37 THEN MI=3 ELSE IF L>64 AND L<91 THEN MI=4 ELSE F2=-l :RETURN: 

'IMMED. MODE? 

4720 IF MI=1 OR MI=4 THEN 02$=RIGHT$ (02$ ,LN-1) ELSE 02$=RIGHT$(0 

2$,LN-2): 'EXTRACT OPERAND 

4730 IF MI=2 02$=02$+"H":IF LEFT$ (02$, 1) >"9 n O2$="0 n +O2$ 

4740 IF MI=3 02$=02$+ n B" 

4750 RETURN 

5000 'TRANSLATION SUBROUTINE 

5010 F4=0:'END FLAG 

5020 IF NOT Fl THEN 5040 

5030 LN=1:GOSUB2000:OP$=LN$(1)+CT$: RETURN: 

5040 IF F2 OR (MA=8 AND IC<>33) THEN 9500: 

5050 'DATA OK - SELECT TRANSLATION MODE 

5060 IF IC=25 F4=-1:RETURN: 'END 

5070 IF IC<5 THEN GOSUB5200 ELSE IF IC>4 AND IC<16 THEN GOSUB530 

ELSE IF IC>15 AND IC<25 GOSUB5400 

5080 IF IC>25 AND IC<41 THEN GOSUB5600 ELSE IF IO40 AND IC<49 T 

HEN GOSUB5800 ELSE IF IC>48 GOSUB6000 

5090 RETURN: 'TRANSLATION OVER 

5200 'UNTRANSLATABLE LINES 

5210 LN=2:GOSUB2000:OP$=LN$(1)+";***THE NEXT OPCODE IS UNTRANSLA 

TABLE***"+C$+LN$(2)+IN$(1)+T1$+IN$(2)+T1$+IN$(3)+T1$+IN$(4)+C$:R 

ETURN 

5300 'CLI-SEI 

5310 IF MAOl THEN 9500: 'IMM. MODE? 

5320 LN=l:GOSUB2000:OP$=LN$(l)+LB$+TV$(IC-4)+CT$+C$: RETURN 

5400 'BCC-JSR 

5410 IF MA<>3 THEN 9500: 'ABS. MODE? 

5420 LN=l:GOSUB2000:OP$=LN$(l)+LB$+TV$(IC-4) 

5430 IF IC<24 THEN OP$=OP$+", n ELSE 0P$=0P$+T1$: 'BRANCHES 

5440 0P$=OP$+O2$+CT$+C$:RETURN 

5600 'STND MULTI-MODE FORMAT ADC-STY 

5610 IF MA=1 OR (MA=2 AND NOT( IC=280RIC=340RIC=360RIC=37) ) OR (M 

A=9 AND NOT(IC=26ORIC=270RIC=29ORIC=310RIC=35) ) THEN 9500: 'BAD S 

YNTAX 

5620 LN=1:GOSUB2000 

5630 IF MA=2 OR MA=9 0P$=LN$ (1) +LB$+TV$ (IC-5) +02$+CT$+C$:GOTO 57 

00: 'IMMED OR ACCUM 

5640 IF MA=3 OR MA=8 OP$=LN$ (1) +LB$+ n LD HL , n +02$+CT$+C$: ' ABS O 

R (IND) 

5650 IF MA>3 AND MA<8 GOSUB80 00 :' INDEXED 

5660 LN=1:GOSUB2000 

5670 OP$=OP$+LN$(l)+Tl$+TV$(IC-5)+" (HL) " 

5680 IF 01$="STA" THEN D$=",A" ELSE IF 01$="STX" THEN D$=",C" EL 

SE IF 01$="STY" THEN D$=",E" ELSE D$= nn :'SORT OUT "STORES" 

5690 OP$=OP$+D$+C$ 

5700 IF 01$="CMP" LN=1:GOSUB2000:OP$=OP$+LN$(1)+Tl$+"CCF"+C$: 'CO 

NTROL CY FLAG 

5710 RETURN 

5800 'IRREGULAR SHORT 

5810 IF MAOl THEN 9500: 'NO OPERAND 

5820 ID=IC-40: 'OPCODE 

5830 LN=TC(ID) :GOSUB2000 :OP$=LN$ ( 1) +LB$+TA$ ( ID,1) +CT$+C$ 

5840 FOR 1=2 TO TC (ID) :OP$=OP$+LN$ (I) +T1$+TA$ (ID, I) +C$:NEXT I 

Listing I continues 



'COMMENT LINE 
'OBVIOUS ERROR 



6400 
6410 



6600 
6610 



"+P$+" , A"+CT$+C$+LN$ (2) 



HL , n +02$+C$+LN$ ( 2) + 



"+02$+C$ 

A, "+P$+C$+LN$ ( 2) +T1 



A, ("+02$+") "+CT$+C$:GOTO 
A,"+02$+CT$+C$:G0T0 6670: 



A, (HL) "+CS 
A"+C$+LN$(2)+T1$+" 



Listing 1 continued 

5850 RETURN 

6000 'IRREGULARS 

6010 ON (IC-48) GOSUB 6200,6400,6400,6600,6800,6800,7000,7200,72 

00 

6020 RETURN 

6200 'CLV 

6210 IF MAOl THEN 9500: 'OPERAND? 

6220 LN=8:GOSUB2000 

6230 OP$=LN$(l)+LB$+ n LD D,C"+CT$+C$+LN$ ( 2) +T1$+"PUSH AF"+C$+ 

LN$(3)+Tl$+"POP BC"+C$+LN$(4)+T1$+"RES 2 ,C n +C$+LN$ (5) +Tl$+ n P 

USH BC"+C$ 

6240 0P$=0P$+LN$(6) +T1$+"P0P AF"+C$+LN$ (7) +T1$+"LD C,D n +C$+L 

N$(8)+Tl$+ n LD B,0"+C$ 

6250 RETURN 

'CPX,CPY 

IF N0T(MA=3 OR MA=9) THEN 9500 
6420 P$= n B n :Q$="C n :R$="D n :IF IC=51 P$="D" :Q$="E n :R$="B n : 'CPX OR 
CPY? 

6430 LN=2:GOSUB2000:OP$=LN$(1)+LB$+"LD 
+T1$+"LD A,"+Q$+C$ 
6440 IF MA=9 THEN 6470 :' IMMEDIATE 
6450 LN=2:GOSUB2000:OP$=OP$+LN$(1)+T1$+"LD 
Tl$+ n CP (HL) n +C$ 
6460 GOTO 6480 

6 470 LN=1:GOSUB2000:OP$=OP$+LN$(1)+T1$+"CP 
6480 LN=3:GOSUB2000:OP$=OP$+LN$(l)+Tl$+ n LD 
$+"LD n +P$+ n r n +R$+C$+LN$(3)+Tl$+ n CCF n +C$ 
6490 RETURN 

'LDA 

IF MAO THEN 9500: 'BAD ADD. MODE? 
6620 LN=1:GOSUB2000 

6630 IF MA=3 THEN OP$=LN$ (1) +LB$+"LD 
6670: 'ABSOLUTE? 

6640 IF MA=9 THEN OP$=LN$ (1) +LB$+"LD 
• IMMED? 

6650 GOSUB8000: 'INDEXING 

666 LN=1:GOSUB2000:OP$=OP$+LN$(1)+T1$+"LD 
6670 LN=2:GOSUB2000:OP$=OP$+LN$(1)+T1$+"INC 
DEC A"+C$:'SET FLAGS 
66 80 RETURN 
6 800 'LDX/Y 

6810 P$="C n :IF IC=54 P$="E" 
6820 IF MAO THEN 9500:'BAD ADD MODE? 
6830 LN=1:GOSUB2000 

6840 IF MA=9 OP$=LN$ (1) +LB$+ n LD n +P$+" , n +02$+CT$+C$:G0T0 6870: 
'IMMED. 

6850 IF MA=3 THEN OP$=LN$ (1) +LB$+"LD HL, "+02$+CT$+C$ ELSE GOSU 
B8000: 'ABS. 

6860 LN=1:GOSUB2000:OP$=OP$+LN$(1)+T1$+"LD 
6 870 LN=2:GOSUB2000:OP$=OP$+LN$(1)+T1$+"INC 
+"DEC n +P$+C$ 
6 880 RETURN 
7000 'SBC 

7010 IF MAO THEN 9500: 'BAD ADD MODE? 
7020 IF MA<>9 THEN 7040 
7030 LN=3:GOSUB2000:OP$=LN$(l)+LB$+ n CCF n +CT$+C$+LN$(2)+Tl$+ n SBC 

A, n +02$+C$+LN$(3)+Tl$+ n CCF"+C$:RETURN 
7040 LN=1:GOSUB2000 

7050 IF MA=3 0P$=LN$(1)+LB$+"LD HL, n +02$+CT$+C$:GOTO 7070 
7060 GOSUB8000: 'INDEXING 

707 LN=3:GOSUB2000:OP$=OP$+LN$(l)+Tl$+"CCF n +C$+LN$(2)+Tl$+ n SBC 
A, (HL) n +C$+LN$(3) +Tl$+ n CCF n +C$: RETURN 

'TSX/TXS 

IF MAOl THEN 9500: 'BAD ADD. MODE? 
7220 LN=3:GOSUB2000:OP$=LN$(1)+LB$+"LD H,B"+CT$+C$+LN$ (2) +T1$+ 
"LD L,B"+C$+LN$(3)+Tl$+ n ADD HL,SP"+C$:IF IC=56 THEN 7240 
7230 LN=2:GOSUB2000:OP$=OP$+LN$(1)+Tl$+"LD L,C"+C$+LN$ ( 2) +T1$+ 
"LD SP,HL"+C$:IF IC=57 THEN 7250 
7240 LN=1:GOSUB2000:OP$=OP$+LN$(1)+T1$+"LD 
7250 LN=2:GOSUB2000:OP$=OP$+LN$(1)+T1$+"INC 
DEC C"+C$ 
7260 RETURN 
8000 'INDEXED MODE 

8010 OP$=LN$(l)+LB$+ n LD HL, "+02$+CT$+C$: • INITIALIZE HL 
8020 LN=1:GOSUB2000:OP$=OP$+LN$(1)+T1$+"CALL 

IF MA=4 OP$=OP$+"IXIX n :FD=-l: 'IND,X 

IF MA=5 OP$=OP$+ n IXIY n :FE=-l: 'IND,Y 

IF MA=6 OP$=OP$+ n IXIND n :FF=-l: ' (IND,X) 

IF MA=7 OP$=OP$+ n INDIX":FG=-l: ' (IND) ,Y 
8070 OP$=OP$+C$: 'FINISH OFF 
80 80 RETURN 
90 00 'WRAPUP ROUTINE 
9010 IF FD THEN LN=2:GOSUB2000 :OP$=LN$ ( 1) +"IXIX n +Tl$+ n EX AF,AF 

Listing I continues 



'+P$+ n r (HL) "+C$ 
"+P$+C$+LN$(2)+T1$ 



7200 
7210 



C,L"+C$ 
C"+C$+LN$(2)+T1$+" 



8030 
8040 
8050 
8060 




If you 
ever wished that 
you had a better program- 
ming language, PASCAL 80 may 
be the language you dream about. It is 
a compiled language, faster, more ac- 
curate and easier to modify than Basic. 
Yet it is so easy to use that you can 
forget the hassles and diskette spinning 
of other compiled languages, including 
other versions of Pascal. 

Now you can create your own com- 
mand files that execute from DOS 
without having to load a language into 
the computer first, but do it with far less 
work than machine language. You can 
sell your compiled programs without any 
royalty payments! 

Although designed for teaching and 
ideal for that purpose, PASCAL 80 also 
allows serious applications with a full 
fourteen digits of accuracy, even on log 
and trig functions! 

Both random and sequential access 
files are supported, without cumber- 
some format statements. 

PASCAL 80 offers most of the 
features of lib Standard Pascal as well 
as a number of useful extensions, in- 
cluding CLS, PEEK, POKE, CALL and 
graphics commands. Pascal 80 exten- 
sions m&M$e the use. of READ and 
WRITE witi. record oriented files, 
ELSE in CASE stateaienis, and other 
useful|:reatweS:«; •'• ':.i-i;M, 

PASCAL 80 allows you to create files 
on the XRS-80® Model I, Model III, 
LNW-80, PMC-80, or LOBO MAX-80 
that will run on any of the other 
machines under TRS-DOS®, LDOS, 
NewDOS, NewDOS 80, DBL-DOS or 
DOS Plus. 

PASCAL- 80 

PASCAL 80 is used in dozens of High 
Schools, Colleges, and Technical 
Schools, and has been favorably re- 
viewed in Byte, Creative Computing, 
and other magazines. 

You get all of this at a bargain price of 
only $99 plus $2 shipping. If you call and 
order by MasterCard or VISA, we will 
even credit you $1 for the phone call. 
Call or send your check today! 



JSJEW C LASS1CS S 0FTWARE 



239 Fox Hill Road 
Denville, NJ 07834 4 
(201) 625-8838 ^255 



iST 



TRS-80®and TRS-DOS are trademarks of Radio Shack. 
l.NW-80 of LNW Research, PMC-80 of Personal Micro 
Computers, LOBO, LDOS, and MAX-80 of Lobo Systems, 
DOS-Plus of Micro Systems Software, NewDOS and 
NewDOS 80 of Apparat, and DBL-DOS of Percom. 
PASCAL 80 is a trademark of New Classics Software. 
Pointer Variables, Variant Records. NEW, DISPOSE, 
WITH, GET, and PUT are not implemened in PASCAL 80. 



■ See List of Advertisers on Page 563 
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FOR YOUNG CHILDREN 

Nine educational and entertaining 
games controlled by a single pro- 
gram. Even very young children can 
select a game, play it, and select a 
ditterent game.. .ALL BY THEMSELVES! 

• PICTURE MENU GIVES CHILDREN 
CONTROL 

• MATCH NUMBERS AND LETTERS 

• COUNT COLORFUL BLOCKS 

• ADD AND SUBTRACT STACKS OF 
BLOCKS 

• LEARN THE ALPHABET 

• PRACTICE SPELLING NAMES 

• COMPARE SHAPES 

• DRAW AND SAVE COLORFUL PIC- 
TURES 

The large numbers and letters till the 
screen with color. Children enter 
single key stroke responses and get 
immediate visual and musical feed- 
back. Hints are provided when ap- 
propriate. Beyond just teaching 
children basic skills, EARLY GAMES 
makes them teel comfortable as they 
control the computer. Designed for 
children ages 2v2 to 6 years old. 

EARLY GAMES offers the child a 
diverse selection of activities which 
stimulate the process of problem 
solving as well as foster individual 
creativity. 

Pamela Bach, Director 
Youth World Day Care Center 

I took EARLY GAMES home for my kids 
and they really liked it! It held their at- 
tention and they learned from it! 

Jeannette Fritze 
Computer Saleswoman 

EARLY GAMES can help children 
learn new concepts, information, 
and skills and also introduce them to 
the joys and benefits of home com- 
puters. 

Peter Clark, faculty 

Institute of Child Development 

University of Minnesota 

All nine games for S 29.95 

(Minnesota residents add 5% sales tax) 

IBM Personal Computer, 

Apple II Plus 

TRS-80 Color Computer 16K Disk or Cassette 

Model I and III 32K Disk or 16K Cassette 





VISA/MasterCard 

LEARNING TOOLS INC 

educational software 

Suite 140E 
Shelard Plaza North 
Minneapolis, MN 55426 
1-800-328-1223 

Minnesota residents call: 

612-544-4720 - 402 



follow the program's instructions. It 
will call for a name for the output tape, 
and the line number at which the out- 
put must start. The program auto- 
matically increments each output line 
number by 10. 

Error Detection 

The translator does a fair amount of 
syntax checking on the 6502 program, 
but it only looks for errors that might 
confuse it. Examples are comments not 
starting with a semicolon; an operation 
field not having three characters; more 
than six characters in a label; and non- 
label and non-immediate operand fields. 
Some errors slip through, but they 
should be caught by the Z80 assembler 
after translation. 



Manual Tuning 

Once the 6502 program has been 
translated, a little manual fine-tuning 
can improve output efficiency. If the 
translated program has to handle 
interrupts several manual additions 
must be made. 

Whenever a 6502 operation sets the 
flags, but the corresponding Z80 in- 
struction does not, the translator adds: 

INC n 
DECn 

where n is A, C or E. This puts the 
flags into the correct state. 

The next instructions often do not 
need the flags. Examine the translation 
and, if the flags are redundant, delete 
the INC/DEC pairs. 



Listing continued 

,n +C$+LN$(2)+Tl$+ n ADD HL , BC"+C$:GOSUB9200 : ' IXIX? 
9020 IF FE THEN LN=2:GOSUB2000 :OP$=LN$ ( 1) + "IXIY ,, +T1$+ , 'EX AF,AF 
" , +C$+LN$(2)+Tl$+"ADD HL ,DE"+C$:GOSUB9200 : 'IXIY? 
9030 IF FF THEN LN=6 :GOSUB2000 :OP$=LN$ (1) +" IXIND n +Tl$+"EX AF,A 
F ,n +C$+LN$(2)+Tl$+"ADD HL , BC n +C$+LN$ (3) +Tl$+"LD A, ( HL) "MC$+L 
N$(4)+T1$+"INC HL"+C$+LN$(5)+T1$+"LD H , (HL) "+C$+LN$ ( 6) +T1$+" 
LD L,A"+C$:GOSUB9200: 'IXIND? 

9040 IF FG THEN LN=6 :GOSUB2000 :OP$=LN$ ( 1) +"INDIX n +Tl$+ ,, EX AF,A 
F ,n +C$+LN$(2)+Tl$+"LD A, (HL) "+C$+LN$ (3) +T1$+"INC HL n +C$+LN$( 
4)+Tl$+"LD H. (HL) "+C$+LN$ ( 5) +Tl$+ n LD L,A"+C$+LN$ (6) +Tl$+"ADD 

HL,DE n +C$:GOSUB9200: 'IXIND? 
9050 LN=l:GOSUB2000:OP$=LN$(l)+Tl$+"END n +C$+CHR$(26) :GOSUB2500: ' 
FINAL LINE 

9060 A=USR( 504) : 'TAPE OFF 
907 RETURN 

9200 'ALL n IX"S END SAME WAY 

9210 LN=2:GOSUB2000:OP$=OP$+LN$(1)+T1S+"EX AF,AF' n +CS+LN$(2) +T 
l$+ n RET"+C$:GOSUB2500: RETURN 
9500 'SYNTAX ERROR 

9510 LN=2:GOSUB2000:OP$=LN$(1) +"•*** SYNTAX ERROR BELOW ***"+C$+ 
LN$(2)+IN$(1)+Tl$+IN$(2)+Tl$+IN$(3)+Tl$+IN$(4)MC$:RETURN 

10000 'DATA FOR OPCODE TRANSLATION 

10010 DATA 26, 27,28, 16, 17,18, 1,19, 20,21,2,22,23, 41,3 ,5, 49, 29,50, 

51,30,6,7,25,31,32,8,9,33,24,52,53,54,34,10,35,11,12,42,43,36,37 

,44,13,55,14,4,15,3 8,3 9,40,45,46,56,47,57,48 

10020 'DATA FOR TRANSLATION VECTOR 

10030 'ONE-LINERS 

E,INC 



C,DEC 



CINC E, NOP, PUSH AF,PUSH 



C,JR 



Z,JP 



,CP 
,LD 



M,JR 



,DEC 
,LD 



NZ,JP 



P,JP 



,XOR ,INC ,J 



A,H",INC 
H,A",POP 



A, DEC 
AF,*LD 



A,3,"LD 
A,H n ,RET 



A, DEC A,3, n LD E,A n ,INC A, DEC 
A,3,"LD A,E",INC A, DEC A 



10040 DATA EI, DEC 

AF,RET,SCF,DI 
10050 'JUMPS 
10060 DATA JR NC,JR 

PE,JP PO,CALL 
1007 'STANDARDS 

10080 DATA "ADC A,", AND ,SLA 
P ,SRL ,OR ,RL ,RR ,LD 
10090 'DATA FOR TRANSLATION ARRAY 
10100 DATA 2,SCF,CCF,4,POP HL, B LD 

H,A",POP AF,"LD A,H",4, n LD 
I 
10110 DATA 3,"LD C,A n ,INC 

A,3, n LD A,C",INC A, DEC 

10120 'M/CODE DATA 

10130 'START 

10140 DATA 205,127,10,233 

10150 'INPUT 

10160 DATA 253 ,33 ,63 ,60M75 ,205 ,18 ,2,205 ,150 ,2,205,53 ,2, 254 ,211 , 

40,6,205,24 8,1,195,154,10,6,6,205,53,2,16,251,33,0,120,17,8,7,6, 

6, 205, 53, 2. 254, 26, 40, 31, 16, 247, 205, 53, 2, 119, 35, 27% 254, 13, 32, 246, 

62,42,253,190,0,32,2,62,32,253,119,0,203,122,40 

10170 DATA 219,17,0,0,205,248,1,62,9,119,35,62,6 9,119,35,62,7 8,1 

19,35,62,6 8,119,35,62,13,119,235,195,154,10 

10180 'HEADER 

10190 DATA 42,253,127,94,35,86,235,17 5,205,18,2,205,135,2,62,211 

,205,100,2,6,6,126,205,100,2,35,16,249,201 

10200 'OUTPUT 

10210 DATA 42,253,127,70,35,94,35,86,235,14,5,126,254,26,32,4,20 

5,100,2.201,20 3,255,205,100,2,35,5,13,32,237,126,20 5,100,2,35,5, 

200,254,13,40,224,24,243 ,.,. 

Listing continues 
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Because of the difference between 
the two micros' carry flags, the pro- 
gram has a CCF after each comparison 
operation. If the flag's state is irrele- 
vant, delete the line. Be cautious — the 
carry flag may be used later. If in 
doubt, leave it in. 

A third way of simplifying the trans- 
lation is found in some addition and 
subtraction operations. The 6502 
always takes the carry into account in 
these operations and has to achieve an 
add without carry by code like: 

CLC 

ADC TOTAL 

which is translated as: 

SCF 

CCF 

LD HL.TOTAL 

ADC (HL) 

and can be simplified to: 

LD HL.TOTAL 
ADD (HL) 

Interrupt Handling 

Other than by the presence of RTIs, 
the translator cannot tell that a 6502 
program is interrupt driven. The trans- 
lation must be modified before it will 
work. Add to the start of the program: 



Line No. 


16K 




32K 


48 K 


30 


1000 




1500 


1500 


1070 


32584 




- 16568 


-184 


1070 


32762 




- 16390 


- 6 


1080 


127 




191 


255 


1550, 1560 


32588 




-16564 


-180 


1600 


P9 = 30720 




P9! =31232 


P9! =31232 


1650 


32765 




- 16387 


-3 


1650 


32766 




- 16386 


-2 


1660 


32691 




-16461 


-77 


2520 


32765 




- 16387 


-3 


2520 


32766 




- 16386 


-2 


2530 


32720 




-16432 


-48 


3020, 3040 


P9 




Note 1 


Note 1 


3050, 3070 










3080,3110 


P9 




P9! 


P9! 


3220 


P9 




Note 1 


Note 1 


10160 


120 
(34th item) 




122 


122 


10160 


7 
(37th item) 




69 


133 


10190 


127 




191 


255 


10210 


127 




191 


255 


Note 1 : 










In these lines, 


P9 should be replaced by: 










P9! + (P9 


>Z1) 


*Z2! 




and an extra line should be inserted into the program 






1085 Zl -32767:7.2! 


= 65536 




Note 2: 










Set the memory size to 31220 in the 32K an 


d48K 


versions. 






Table 2. Conversion for 32K and 48K 





IM1 ;THIS MODE EMULATES 6502 

INTERRUPTS 

;SUITABLE CODE TO DEFINE THE 

INTERRUPT VECTOR 

The 6502 saves the program counter 
and the flags in the stack during an in- 
terrupt, while the Z80 only preserves 
the program counter. Whenever an 
interrupt handler could affect the flags 
add PUSH AF to its start and POP AF 
before the RETI. 

Assembler Directives 

The assembler directives will be dif- 
ferent from the originals. In addition, 
the stack area must be defined with a 
LD SP,wxyz; since the translation is set 
up to use a stack on a single page of 
memory, wxyz would be best as wxOO. 

For an example of the translator in 
action, see Program Listings 2 and 3. 
Listing 2 is a segment of 6502 code with 
several deliberate errors. Listing 3 is an 
unedited copy of its translation. All er- 
rors have been highlighted, and an 
error-free translation works perfectly. 

Listing 3 also shows lines which 
could be edited. For instance, the 
INC/DEC in lines 1210 and 1220 is 
redundant; the instructions could safe- 
ly be removed. On the other hand, the 
CCF in line 1410, after the compari- 



00100 


; SUBROUTINE 


TO SAVE DATA 


HELD IN STACK 


00110 


;SP TO 


THE DATA IS PASSED IN 'BASE' 


00120 


THIS IS 


A BAD COMMENT LINE 


00130 


SAVE 


LDX 


BASE 


•RESET SP TO. . 


00140 




TXS 




• . .BASE OF DATA 


00150 




TYA 




•DOUBLE COUNT.. 


00160 




ASL 


A 


• . .FOR STORAGE 


00170 




TAX 




SET INDEX 


00180 


NXTBYTT 


PLA 




BAD LABEL 


00190 




TAY 




SAVE BYTE 


00200 




AND 


#$0F 


TRUNCATE 


00210 




JSR 


ASCII 


CONVERT 


00220 




TYY 




BAD OPCODE 


00230 




LSR 


A 




00240 


;PLUS 3 


MORE 


'LSR A'S 




00250 




JSR 


ASCII E 


JAD COMMENT FIELD 


00260 




BNE 


NXTBYT 


FINISHED? 


00270 




RTS 


i 


YES, RETURN 


00280 


i 








00290 


ASCII 


OR A 


#$30 


ASCII PREFIX 


00300 




CMP 


#$3A 


TEST TO SEE.. 


00310 




BCC 


NUMBER 


. . IF A-F 


00320 




ADC 


#6 


ALPHA OFFSET 


00330 


NUMBER 


ST A 


DATA-1,X 


;SAVE CHARACTER 


00340 




DEX 




NEXT STORE 


00350 




RTS 






00360 




END 


Program Listing 2 
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son, is vital because the next instruc- 
tion tests the carry flag. 

The translation shows the address- 
mode subroutine IXIX was needed to 
handle the ST A DATA-l.X at line 330 
of Listing 2. The other indexing sub- 
routines were not added since they 



were not required. 

Limitations 

A translation program of this kind 
has limitations. None are serious, but 
be aware of them: 
• The operand must be a label or an 



01000 


LD 


B,0 


01010 


LD 


D,0 


01020 


; SUBROUTINE TO SAVE DATA HELD IN STACK 


01030 


;SP TO THE DATA IS PASSED IN 'BASE' 


01040 


;*** SYNTAX ERROR BELOW *** 


01050 


THIS 


IS A BAD COMMENT LINE 


01060 


SAVE 


LD HL,BASE ; RESET SP TO.. 


01070 


LD 


C , ( HL ) 


01080 


INC 


C 


01090 


DEC 


c 


01100 


LD 


H,B ; . .BASE OF DATA 


OHIO 


LD 


L,B 


01120 


ADD 


HL,SP 


01130 


LD 


L,C 


01140 


LD 


SP,HL 


01150 


INC 


C 


01160 


DEC 


C 


01170 


LD 


A,E ;DOUBLE COUNT.. 


01180 


INC 


A 


01190 


DEC 


A 


01200 


SLA 


A ;..FOR STORAGE 


01210 


LD 


C,A ;SET INDEX 


01220 


INC 


A 


01230 


DEC 


A 


01240 


.*** SYNTAX ERROR BELOW *** 


01250 


NXTBYTT 


PLA ;BAD LABEL 


01260 


LD 


E,A ;SAVE BYTE 


01270 


INC 


A 


01280 


DEC 


A 


01290 


AND 


0FH ; TRUNCATE 


01300 


CALI 


ASCII ; CONVERT 


01310 


;*** SYNTAX ERROR BELOW *** 


01320 


TYY 


;BAD OPCODE 


01330 


SRL 


A 


01340 


;PLUS 3 


MORE 'LSR A'S 


01350 


;*** SYNTAX ERROR BELOW *** 


01360 


JSR 


ASCII BAD COMMENT FIELD 


01370 


JR 


NZ,NXTBYT ; FINISHED? 


01380 


RET 


;YES, RETURN 


01390 


/ 




01400 


ASCII 


OR 30H ; ASCII PREFIX 


01410 


CP 


3 AH ;TEST TO SEE. . 


01420 


CCF 




01430 


JR 


NC, NUMBER ; . . IF A-F 


01440 


ADC 


A, 6 ; ALPHA OFFSET 


01450 


NUMBER 


LD HL,DATA-1 ; SAVE CHARACTER 


01460 


CALL 


IXIX 


01470 


LD 


( HL ) , A 


01480 


DEC 


C ;NEXT STORE 


01490 


RET 




01500 


IXIX 


EX AF , AF ' 


01510 


ADD 


HL,BC 


01520 


EX 


AF,AF' 


01530 


RET 




01540 


END 


Program Listing 3 



immediate quantity; you cannot use 
LDA $12B7 or similar expressions. 

• The 6502 can handle binary-coded 
decimal (BCD) quantities directly. It 
was not possible to translate this within 
the 16K size limitation. 

• Because Z80 stack operations move 
two bytes at a time, compared with the 
6502' s single-byte operations, there 
can only be a maximum of 128 items 
on the stack at any time. Also, manip- 
ulating data in the stack may cause cor- 
ruption. 

• The overflow flag cannot always be 
trusted. 

• Timing loops must be readjusted. 
The translator can handle a fuller 

and more rational set of addressing 
modes than the 6502 actually provides. 
As far as the program is concerned, 
any address memory instruction can 
use any mode other than implied, 
which eliminates the 6502 's arbitrary 
restrictions on what modes can be used 
when. Thus you can write pseudo-6502 
code that makes the fullest possible use 
of the micro's unusually complete set 
of addressing options. 

Extending the Program 

The program would run perfectly in 
the bottom 16K of a 32K or 48K 
TRS-80, and it is easily modified to 
make use of the extra space. The modi- 
fication enlarges the size of the input 
buffer to allow the program to translate 
larger 6502 programs. 

Table 2 shows the changes you 
should make to match the program to 
the larger computers; the 32K expan- 
sion would give more than enough 
space for any likely source code. 

Do not forget that, even with the 
larger memory, this will still be a cas- 
sette-based program. 

Conclusion 

This program is a useful tool for 
translating 6502 programs to run on 
Z80-based microcomputers. It is writ- 
ten for a TRS-80 Model I, but with a 
lot of effort, it could be adapted to 
other systems. 

The program's output is less effi- 
cient than the original code, but the 
translation is adequate for most pur- 
poses. The program's main weakness 
is that, since it has to fit into a 16K 
computer, it is not as intelligent as it 
might be. ■ 



David Peeked, a chartered electrical 
engineer, can be reached at 1 Delapoer 
Drive, Haverford West, Dyfed SA61 
1HZ, Wales, UK. 
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WHERE 

QUALITY PROGRAMS 

MEET COMPETITIVE PRICES 

2701 -C W. 1 5th • SUITE 324 • PLANO, TX 75075 • (21 4) 680-8268 




Christmas 

Stocking 

Stutters 



5.1 



WITH COMPLETE 2004 PAGE MANUAL 



LDOS5.1 ,'..-.,. ........129.00 

SUPER UTILITY PLUS. . .. . ....... .'.', ,74.95 

SUPER UTILITY TECH MANUAL . . . . 14.95 

218.90 

YOUR COST 149.95 



SAVE $68.95 



DOSPIUS 

WITH COMPLETE 200+ PAGE MANUAL 



DOSPLUS 3.4. ......... 149.95 

SUPER UTILITY PLUS ...... .... .'• 74.95 

SUPER UTILITY TECH MANUAL . . ". .1 4.95 
INSIDE SUPER UTILITY PLUS ...... 19.95 



YOUR 259 80 

SAVE $89.95 COST169 - 95 




MULTIDOS 



WITH COMPLETE 65+ PAGE MANUAL 



MULTIDOS :",: ........... 79.95 

SUPER UTILITY PLUS , . .'. . . 74 95 



YOUR COST 99.95 



SAVE $54.95 



BUY ANY OF THE ABOVE DISK OPERATING SYSTEMS.AND 

§(ii^®(yji(yiwwi)i @ ...You save over " kiiw 



OR BUY THE COMPLETE SUPER UTILITY PLUS KIT 



SUPER UTILITY PLUS 74.95 



TECH MANUAL 

INSIDE SUPER UTILITY PLUS 
OPERATORS MANUAL 



SAVE $40.00 



.14.95 
. 1 9.95 
. . N/C 
109.95 




SUPER UTILITY PLUS 



$50 



TJTT^ 



"/ believe Super Utility or Super Utility Plus should be present at every serious TRS-80 
disk installation." 

We didn't say this; Paul Wiener did in 80 Microcomputing. Jan. '82...but we sure agree 
with him! 



You heard about it! You read about it ( 
special price! 



Microcomputing). Now get the "Cadillac" at a 



Compatible with MOD I. and MOD 1 1 1, and all the currenl operating systems! Copy tiles 
from any DOS to any DOS. MOD I or III. without converting! 



Zap 
Purge 
Format 
Special Format 



Disk repair 
Memory 
File Utility 
Tape Copy 



MUCH MORE Mod I & III on Same Disk 

For MOD I/III...S74.95 

NEW! Back up copy now included. 



Format without erase 
Disk copy 
Special disk copy 
Configurable System 

Also available: Super Utility Plus 

TECH. MANUAL. SI 4.95 and 

"Inside Super Utility Plus." at S19.95 



TRACK VERSIONS AVAILABLE 



ST80-III 



VER 2.50 



ST80-III 



ST-80III 150.00 

SUPER UTILITY PLUS ,...:. ... 74.95 

SUPER UTILITY TECH MANUAL .... 1 4.95 
INSIDE SUPER UTILITY PLUS 1 9.95 



259.85 
YOUR COST 1 79.85 



SAVE $80.00 



The world's best selling smart terminal 
program has been improved! ST80-IH (tm) 
version 2.50 lortheTRS-80(tm) Mod I and 
III the NEW standard oi comparison. 
Since 1 979. ST80-III has communicated 
with almost every type ol ASC 1 1 computer 
made. It has worked with ALL of them and 
it will work with your host computer too. 
Complete NEW documentation, printer 
formatting, internal TOF. hard or soft form- 
feed, complete auto-dial support for most 
popular modems, store phone numbers 
on disk and dial from computer, protected 
screen areas, super fast screen to printer 
dumps. 10 pre-stored messages, hand 
shake status display, automatic 300/1 200 
baud rate selection. HE LP command, and 
MORE. MORE. MORE! This is theabsolute 
finest in communications packages. De- 
mand the CADILLAC of terminal pack- 
ages ST80-1II ver. 2.50. 

Mod I or III ondisk with complete manual 



WSkCOtlllt ORDER FORM 


Qly. 


Descriplion 


Density 


MODI 


MODII 


Price 




LDOS 51 








129.00 




DOSPLUS 3.4 








149.95 




MULTIDOS 








79.95 




ST80-IM 








150 00 




SUPER UTILITY PLUS 








74.95 




LDOS/SU+ DEAL 








149.95 




DOSPLUS/SU+TJEAL 








16995 




MULTIDOS/SU+ DEAL 








99.95 




ST80 III/SU+ DEAL 








1 79.95 




COMPLETE SU+ KIT 








69.95 



• See List ol Advertisers on Page 563 



Specify Mod I or Mod III. Mod I orders please specify single or double 
density. 

Send cash, check, or money order. VISA and MasterCard gladly accepted 
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JE600 
Hexadecimal 
Encoder Kit 

FULL 8-BIT 
LATCHED OUTPUT 
19-KEY KEYBOARD 



The JE600 Encoder Keyboard Kit provides two s 
hexadecimal digits produced from sequential kev 
to allow direct programming tor 8-bit micropr 
or 8 bit memory circuits. Three additional keys i 
vided for user operations with one having a I 
output available. The outputs are latched and mo 
with 9 LED readouts. Also included is a kev entry strobe 
Features: Full 8 bit latched output for microprocessoi 
use. Three user-define keys with one being bistable 
operation. Dobounce circuit provided for all 19 keys 
9 l-ED readouts to verify entries. Easy interfacing with 
standard 16-pin IC connector. Only I5VDC requires 
for operation. Size: 3J4"H x 8X"W x 8V D 

(After assembled Can qk 

as pictured above) ... 5>yy.yt) 



ed 



JE600/DTE-HK 



19-Key He 



. Keyboard. 



JE600 Kit pFBo^r/tcmpn'^^o™^) . .$59.95 

K19 19-Key Keyboard (Keyboard only) .... $14.95 
DTE-HK (case only 3!rVHx8«i"Wx8«i"D) $44.95 



JE610 ASCII Encoded Keyboard Kit 



Thr 



JE610 ASCI 




with an industrial grade keyboard switch assembly 
(62-keys), IC's, sockets, connector, electronic compo- 
nents and a double sided printed wiring board. The 
keyboard assembly requires +5V (?> 150mA and -12V 
(s> 10 mA for operation. Features: 60 keys generate the 
126 characters, upper and lower case ASCII set. Fully 
buffered. Two user-define keys provided for custom 
applications. Caps lock for upper-case only alpha charac- 
ters. Utilizes a 2376 (40-pin) encoder read-only memory 
chip. Outputs directly compatible with TTL/DTL or 
MOS logic arrays. Easy interfacing with a 16-pin dip or 
18-pin edge connector. Si2e: 3'/."H x 14y,"W x 8J4"D 
(After assembled 



JE6107DTE-AK 



i pictured abo 



$124.95 



iccm i/:, 62-Key Keyboard, PC Board, g. -,- „_ 

JbblO Kit 4 Components (no easel $ 79.95 

K62 62-Key KeyDoard (Keyboard only) . . .$ 34.95 

DTE-AK (ease only - 3*"Hxll"Wx8¥."D>$ 49.95 



r . JE212 - Negative 12VDC Adapter Board Kit 

NEW!? for JE610 ASCII KEYBOARD KIT Kit/ 

Tvwv^ Provides -12V DC from incoming5VDC . S9.95 



jVWivV 



JE215 Adjustable Dual Power Supply 

General Description: The JE215 is a Dual Power 
Supply with independent adjustable positive and nega- 
tive output voltages. A separate adjustment fur each 
o1 the supplies provides the user unlimited applications 
for IC current voltage requirements. The supply can 
also be used as a general all-purpose variable power 

Supply. FEATURES. 

• Adiustable regulated power supplies, 
pos. and neg. 1.2VDC to 15VDC. 
Power Output (each supply): 
6VOC @> 500mA, 1 OVDCiP 750mA. 
12V DC <•>> 500mA. and 
15VDC® 175mA. 

al adj. IC regulators 




He 



nth then 
;ink 



JE21 5 Adj. Dual Power Supply Kit (as shown) . . S24.95 



JE200 Reg. Power Supply Kit I5VDC. 1 amp) . 
JE205 Adapter Brd. (to JE200) ±5. ±9 & ±12V. 
JE210Var.Pwr.Sply. Kit, 5-15VDC. to 1. Samp. 



$14.95 
$12.95 
$19.95 



HP-Display Sale-National 

5082 Series — 0.43 Inch — 7-Segment 



Part 

Number 


Color 


Description 


1-3 

Price 


SALE 
PR'CE 


5082-7650 


Hi Eff Red 


CA LHD 


.89 


4/S2.49 


5082-7651 


Hi Eff Red 


CA - RH0 


.99 


4/S2.49 


5082-7653 


Hi Eff Red 


CC - RH0 


.99 


4/S2.49 


5082-7656 


Hi Eff Red 


Overflow ±1RHD 


.99 


4/S2.49 


5082-7660 


Yellow 


CA • LHD 


.99 


4/S2.49 


5082-7661 


Yellow 


CA - RHD 


.99 


4/S2.49 


5082-7663 


Yellow 


CC - RHD 


.99 


4/S2.49 


5082-7670 


Green 


CA - LHD 


.99 


4/S2.49 


5082-7671 


Green 


CA - RHD 


.99 


4/S2 49 


5082-7673 


Green 


CC - RHD 


.99 


4/S2.49 


5082-7676 


Green 


Overflow ±1 RHD 


.99 


4/ $2.49 


5082-7750 


Red 


CA - LHD 


.99 


4/$2.49 


5082-7751 


fled 


CA - RHD 


.99 


4/ $2.49 


5082-7756 


Red 


Overflow ±1 RHD 


.99 


4/$2.49 


5082-7760 


Red 

de CCComm 


CC - RHD 


.99 


4/ $2.49 


CAComm. Ano 


Calhode LHDfRHD 


Left/rig 


hi hand dec. 



KEYBOARDS — POWER SUPPLIES 



MICRO SWITCH 69-KEY KEYBOARD 

Data Entry Keyboard. Encoded Output. 8-bit Parallel EBC DIC. Switching: Hall Ettect. 24-pin Edge 
Card Connection. Complete with Pin Connection. 

Pari No. K869SD1 2-2 (Fits into DTE-20 Enclosure) S19.95 each 



l6'/."Lx5'/;"'Wx IV'H 



23"Lx5>>."Wx1-3;8"H 



"LxSVWx \1„" 





DATANETICS 74-KEY KEYBOARD 

ASCII Encoded Keyboard, Output: Even Parity ASCII. Supply voltage +5. -12 volt. Switchiit 
Mechanical SPST — 50-pin Connection. Complete with Pin Connection. 

Part No. KB354 (Fits Into DTE-20 Enclosure) $29.95 eac 



MICRO SWITCH 85-KEY KEYBOARD 
Word Proceislng Keyboard. 26 Pin Edoe Card Com 
Is QWERTY. Additional Key Pads lor Cursor and » 

Part No. 85SD18-1 



action Supply Voltage .5V0C. Main Keyboard 
ird processing lunctions. 

$29. 95 each 



MICRO SWITCH 88-KEY KEYBOARD (PARALLEL) 

Data Entry Keyboard used in a Diablo 1640 Terminal Supply Voltage: t5V. -12V. Switching: Hall 
Effect - 10-pln Edge Card Connection. Schematic included. Uses 6046 Encoder Chip. 

Part No. 88SD22 (Fits into DTE-20 Enclosure) $69. 95 each 



POWER SUPPLY -5V0C@1 AMP REGULATED > Transaction Tech 

Output ♦ 5»0C «J 1 amp (also ♦30VOC) teg. Input 11SVAC 60H; Two-lone (black/beige) sell- 
tnclosed case. 6 It.. 3 cond. black power cord. Size: 6VW x 7"D < 2VH. Wt. 3 lbs. 

Part No. PS51194 S19.95each 



POWER SUPPLY - 5VDC @ 1 AMP REGULATED a Industrie. 

Output *5VDC« 1 amp. ♦ 36-42VDC ad]. 400mA or less. 30VAC (isol.)iii 1.5 amp. Input 115VAC 
6OH7. Circ. brkr. re-sel button. 61k. sell-encl. case w/4 rubber leet 6 ft. 3 cond. Dlk. pow. cord. 
On/ofl switch. 6V."W x 7VD I 3-7/8"H ■ wt. 7 lbs. 

Part No. PS407D S24.95 each 



POWER SUPPLY - 5VDC @ 3 AMP REGULATED Deltron 

Input: 115VAC. 47-440H*. Output: 5V0C Adjustable § 3 amp. 6VDC .- 2.5 amp. Adjustable cur- 
rent limit. Ripple & Noise: 1MV rms. 5MVp-p — 2 mounting surfaces UL recognized Size: 4"Wx 
4Vi"Lx 2-7/16'H • wt. 2 lbs. 

Part No. 0PS-1 $29.95 each 



POWER SUPPLY - 5VDC @ 7.5 AMP. 12VDC @ 1.5 AMP SWITCHING 
Input: 1 15VAC. 50-60HZ ej 3 amp/?30VAC. bOHz (a 1 .6 amp. Fan volt. /power supply select swit- 
ches (115/230VACI. Output: 5VDC » 7.6 amp. I2VDC« 1.6 amp. 8 It. blk. pow. cord. tl'VWx 
13';V'D> 3"/."H. Wt. 6 lbs. 

Part No. PS94V0 S49.95 each 



MULTI-VOLTAGE POWER SUPPLY - +5. + 12.-12VDC REG. 

Input: 105-I25VAC. 47-63IU/205-250VAC. 47-63HZ. Output: * 5VDC <«. 2 amps Adj.. 5VDC <» 

50mA Fixed. .12VDC @ l amp Adj.. -12V @ 2 amp adj. Overvollaqe protection. Size: 12V?"Lx 



Part No. RA0250 



$39.95 each 




SORENSEN Regulated Power Supplies 

Sorensen's open construction (SOC) power supplies are series- 
regulated solid-state systems, designed to provide reg. DC 
voltages at 6 levels (2-28 v/range). These units are open-framed 
on sturdy black anodized aluminum for excellent mounting. 



Series A.B.C.E have three r 



it 50-63Hz. Low Ripple: 1.5mVrms. 5mV 
int control. All schematics and specification; 
trrlaces (Series F. bottom mounting only). 
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Powertec Sub-Modular DC Power Supplies 

SM Series power supplies include rectifying, filtering, 
regulating, overload and overvoltage protection functions. You 
need only connect the sub-module to the appropriate secondary 
transformer tap and bolt the unit to a heatsink. 

REGULATION: tINE; .10% lota change ttom -10% lo +10% input voltage. LOAD; .15% lor a 0-100% 
load change (units Delow 5V oulpul maintain SV regulation). OUIPUT RIPPLE: 1mV RMS. 3mV P-P 
typical. omV P-P ma.imum. INPUT CHARACTERISTICS: Requires low-level AC inpul. Derate oulput 
current 15% lor operations at 50Hz. 



L 



L. iV'lVAC ■ .'V.-.C ',Ai,..i;i ; :,0 ■ .1..J 






UIIL > ■ 

Mini Stereo ^^vl^V 



AM/FM 
Receiver 



°io. 



r°OZ 



S£. 



gM WITH HEADPHONES &%\. (UVtSS 

>■::./": -•■>, For Joggers. Cyclists. '1;"\' V 

-~*»*'Mp?/ay'#. skaters & Sports Events 

FEATURES: Lightweight headphones. Left/right 
balance control. Full fidelity stereo sound. Addi- 
tional black soft carrying case & shoulder strap. Belt 
clip (hands free). Operates on 3 AA cell batteries (not 
incl.j. Compact size: 3'/ 8 " x 4%" x 1". Wt. 6 oz. 

V Model 2830 $29.95 



• SHIPMENT IN 24 HOURS • 
BjL 7:00AM to 5:00PM (PST) J^ 
5p# Call: (415) 592-8097 ^ 



JUMPER AND CABLE ASSEMBLIES 



STANDARD DIP JUMPERS 



pins lo 


":M>.'ri:-;: 


J sen. 


cl applications. 






S"K° i C-'^-R....™ 


;■;, c..„ t . 


'".',-!■ 




Eii. 


. ?» 


6r5 


till I 


l 




wiei 


. : s 


62. 


Iff tl 11 


l 


3.69 


W«3 


9« 


Ill 


» fcuU™nd 


l 


s 


n ,M J 


4 : 9J4 


636 


2A ,!„„»,.. 


36" 


6 89 



',-'".' - 


".'.,. Z. n...- - r^,,- : !•<*- 


D«SI« 


924132 II 40 >,.,« r „J 12" S8» 
M413J-I4 40 i-gk.n.1 24" \ 6.J9 



STANDARD DB25 SERIES CABLES 



I Hat cable in 4 loo; lengths. Call today. 
STANDARD CABLES 
Calrltr Length Conneclorc Price 



DB26P 4 
DB2DS-4 
DN5M-F 



' DB25P 
I-0B2SS 
2-DB25P 



S10.00 Minimum Order — U.S. Funds Only 
California Residents Add 6'/2% Sales Tax 
Postage — Add 5% plus $1.50 Insurance 
Send S.A.S.E. for Monthly Sales Flyer! 



Spec Sheets — 30c each 
Send $1.00 Postage for your 
FREE 1983 JAMECO CATALOG 
Prices Subject to Change 



Call <?, r i- 
% Quantity < 
■% Discounts^ 



J BE 
a 
E 



K= 



ameco 



S Telex Number ^ 

^iy\Mr^ 



1355 SHOREWAY ROAD, BELMONT, CA 94002 
PHONE ORDERS WELCOME — (415) 592-8097 



5V«" Mini-Floppy Disc Drive 

FOR TRS-80 MODEL I (Industry Standard) 
Features single or double density. Recording 
mode: FM single. MFM double density. 
Pov/er: i 12VDC (±0.6V) 1.6 amps max.. 
5VDC (±0.2SV) 0.8 amps max. Unil as pic- 
tured al lelt (does not incl. case, power supp 
or cables). 30-page data book Inctudet 
Weighs V/i pounds. Size: 5V."W x 8"D x 
3%"H 
Pari No. Um "* d Quantity! p lic6 

FD200 $179.95 

Single-sided. 40 tracks, 250K bytes capacity 

FD250 $199.95 

Double-sided, 35 tracks. 438K bytes capacity 




EXPAND YOUR TRS-80 



to IBK. 32K, or 4BK 
•Model 1 = From 4K to 16K Requires (1) One Kit 
Model 3 = From 4K to 48K Requires (3) Three Kits 
Color = From 4K to 16K Requires (1) One Kit 

"Model 1 equipped with Expansion Board up to 48K Iwo Kits Required 
— One Kit Required lor each I6K ol Expansion — 



TRS-80 16K Conversion Kit 



Kit comes complete with 8 each MM5290 (UPD416/41 16) 16K 
Dynamic RAM (*ns) and documentation tor conversion. 

TRS-16K2 *150ns $14.95 

TRS-16K3 *200ns $12.95 

TRS-16K4 "250ns $10.95 



TRS-80 Color 32K or 64K Conversion Kit 



Kit comes complete with 8 ea. 4164-2 (200ns). 64K Dyn. RAMs 
& conversion documentation. Converts TRS-80 color computers 
from 4K-32K Memory or 16K-64K Memory. 
TRS-64K2 (200ns) S54.95 



Universal 




Computer Keyboard Enclosure 

"DTE" Blank Desk-Top Enclosures 

are Ceslgned tor easy modilica- 

hon. High strength epoxy molded 

end pieces fn mccha D'own finish 

Slicing rear/bottom panel lor service/ 

cmMficn! access lop/bcit panels .080" 

thick alum, alodme type 1200 finish (oo*d lint 

color} (cr best paint adhesion tile- rx-.Uuynr. 

Vented too & bottom panels lor cooling efficiency 

DTE-20 Panel width 20' $39.95 




Sprite-style Fan 

• 36cfm tree air delivery rwwi 

• 3.125" sq. x 1.665" depth >-M e tatl 

• 10 yrs. cont. duty at 20°C 4f—m»? 

• 115V50/60HZ wv* 

• For Apple users 

PWS2107U S, e ttdfuf«» ■ ■ • •* 9.95 ea. 
PWS2107F New $14.95 ea. 



Muffin-style Fan 

• 105cfm free air delivery i^V 

• 4.68" sq. x 1.50" depth. <Fr»rm 

• 10 yrs. cont. duty at 20 °C H^vv 

• Impedance protected, ambients to 70 °C 

• 115V 50/60HZ 14W Wt. 17 OZ. 



MU2A1-U g?™?; 

•MU2A-1N n.w 



S9.95ea. 
S14.95ea. 



JOYSTICKS 




5K Linear 

Taper Pots 



ll innK 100,( LinB3r 
JS " 100K Taper Pots 



$5.25 



150K Linear 
Taper Pots . 



ivr a<\ 40K ( 2 ) video Con - 
"'•'*' troller in Case $4.95 



UV-EPROM Eraser 



8 Chips — 51 Minutes 



| 1 Chip — 37 Minutes 



Erases 2708. 2716, 2732. 2764, 2S16, 2532. 2564. Erases up lo 8 chips 
within 51 minutes (1 chip in 37 minutes). Maintains constant exposure 
distance ot one inch. Special conductive loam liner eliminates static 
build-up. Built-in safety lock to prevent UV exposure. Compact — only 
9.00 - x 3.70 - x 2.60". Complete with holding tray tor 8 chips. 

UVS-11EL Replacement Bulb s 16.95 

DE-4 UV-EPROM Eraser . . . $ 79.95 



Wall Transformers 
AC and DC Types 



Par 



AC250 (Pictured) 

Input 



Pric 



AC 250 [above) 117VI60H2 

AC 500 117V/60H* 

AC1000 117V/60HZ 

AC1700 117W60HZ 

AC9004 117V/60Hz 

DC 800 120V/60H? 

DC6912 120V/60HZ 

DV5490 117V760HZ 

DC900 120V/60HZ 

DC1200 120W60HZ 



12VAC 250mA . 
12VAC 500mA 
12VAC 1 amp 
9VAC1.7amp 
9.2VAC2.5amp 
8VDC 4O0mA . 
6,9, 12VDC 300mA 
9.5VDC 275mA 
9VDC 5O0mA 



$3.95 

$4.95 

$5.95 

$3.95 

$2.95or2/S4.95 
$1.95or2/$2.95 

$9.95 

$2.49or2/$3.95 
$3.95 



12VDC 300mA $2.9Sor2J$4.95 



Siemens 



Floppy Disk Drive 



Single-Sided 
77 Tracks 
400/800K Bytes 
Capacity 
■ Industry Standard 



The FDD100-8 8" Floppy Disk Drive (Industry Standard) features 
sincile or double density Recording mode; FM single, MFM double 
density Transfer rate: 250K bils'sec. single density; 500K bits/sec. 
doub e density. The fddioo-0 is designed lo work with the single- 
sided soft sectored IBM Diskette I. or equivalent disk cartridge. 
A hard-sectored option is available. Power: 115/2.10VAC » 5O-60Hz, 
+ 24VDC i* 1.7 amps max.. + 5VDC <S 1.2 amps max. Unit as 
pictured above (does not include case, power supply, or cables). 




8.55 -W) 
Part No, 

f'ddToo-8 

FDD100-8 
FDD100-8 



14-L x 4.5"H. Weighs 12 I 



Price 



Buy 1 for $299.95 each 

Buy 2 for $279.95 each 

Buy 10 for S249.95 each> 
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ELECTRONICS 




JE664 EPROM PROGRAMMER 

8K TO 64K EPROMS — 24 AND 28 PIN PACKAGES 

COMPLETELY SELF-CONTAINED — REQUIRES NO ADDITIONAL SYSTEMS FOR OPERATION 




• Programs and validates EPROMs • Checks for properly erased EPROMs • Emulates PROMs or EPROMs 

• RS232C Computer Interface for editing and program loading • Loads data into RAM by keyboard • Changes 
data in RAM by keyboard • Loads RAM from an EPROM • Compares EPROMs for content differences • Copies 
EPROMs • Power Input: 115VAC, 60Hz, less than 10W power consumption • Enclosure: Color-coordinated, light 
tan panels with molded end pieces in mocha brown • Size: 15-5/8"L x 8 3 A"D x ZV2 "H • Weight: 5 3 A lbs. 

The JE664 EPROM Programmer emulates and programs various 8-Bit Word EPROMs from 8K to 64K-Bit memory 
capacity. Data can be entered into the JE664's internal 8K x 8-Bit RAM in three ways: (1) from a ROM or EPROM; 
(2) from an external computer via the optional JE665 RS232C BUS; (3) from its panel keyboard. The JE664's RAMs 
may be accessed for emulation purposes from the panel's test socket to an external microprocessor. In program- 
ming and emulation, the JE664 allows for examination, change and validation of program content. The JE664's 
RAMs can be programmed quickly to all "1"s (or any value), allowing unused addresses in the EPROM to be pro- 
grammed later without necessity of "UV" erasing. The JE664 displays DATA and ADDRESS in convenient hex- 
adecimal (alphanumeric) format. A "DISPLAY EPROM DATA" button changes the DATA readout from RAM word 
to EPROM word and is displayed in both hexadecimal and binary code. The front panel features a convenient 
operating guide. The JE664 Programmer includes one JM16A Jumper Module (as listed below). 

JE664-A EPROM Programmer — Assembled & Tested ( Includes JM16A Module) $995.00 

JE665 — RS232C INTERFACE OPTION — The J E665 RS232C Interface Option implements computer ac- 
cess to the JE664's RAM. A sample of software written in BASIC is provided for the TRS-80® Model I, Level II 
Computer. Baud rate: 9600. Word'Length: 8 Bits — Odd Parity. Stop Bits: 2. This option may be readily adapted to 
other computers. 

JE664-ARS EPROM Programmer with JE665 Option $1195.00 

Assembled and Tested (Includes JM16A Module) 



EPROM JUMPER MODULES — The je 6 64 

JE664 for the proper programming pulses to the EPROM a 


s JUMPER MODULE (Personality Module) is a plug-in Module that pre-sets the 
nd configures the EPROM socket connections for that particular EPROM. 


JE664 EPROM 
JUMPER MODULE NO. 


EPROM 


EPROM MANUFACTURER PRICE 


JM08A 


2708 


AMD, Motorola, National, Intel, Tl $14 95 


JM16A 


2716, TMS2516(TI) 


Intel, Motorola, National. NEC, Tl $14.95 


JM16B 


TMS2716 (3 Voltages) 


Motorola. Tl $14.95 


JM32A 


TMS2532 


Motorola, Tl ; $14.95 


JM32B 


2732 


AMD, Fujitsu, NEC, Hitachi, Intel $14.95 


JM64A 


MCM68764, MCM68L764 


Motorola $14.95 






JM64B 


2764 


Intel $14.95 


JM64C 


TMS2564 


Tl $14.95 



1355 Shoreway Road, Belmont, CA 94002 



Jarae©@ 



-534 FOR FAST DELIVERY CALL (415) 592-8097 
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UTILITY 



Super Spooler 



by Ron Balewski 



D 



on't let your printer tie up your computer 
during long tasks. Use this spooler, in- 
stead — it doesn't even require more hardware. 



Do you have a slow printer that 
bogs down your TRS-80? How would 
you like to run another program, type 
in another program, or maybe even 
play a game of Star Trek while your 
printer grinds out your mailing labels? 
Not possible without some sort of 
extra hardware, right? Wrong. A 
print spooler will do everything I just 
described. 

What Is a Print Spooler? 

A spooler is a program that com- 
pensates for the slowness of a printer 
by accepting printed data as fast as the 
Basic interpreter can send it, and stor- 
ing it in a buffer for later release to the 
printer at a speed slow enough for the 
printer to handle. 

There are two types of spoolers, 
RAM based and disk based. Since 1 
don't have a disk system, I use a RAM- 
based spooler. 1 reserve the top 32K (or 
however much I can do without) ot 
memory for the spooler print buffer. 
This lets me store about 32,700 char- 
acters in the buffer. On my Centronics 
737, which prints at 50 characters per 
second, this amounts to about 10 
minutes printing time. 

Use a disk-based spooler if you have 
a disk system. With this kind of 
spooler, printed data is not stored in 
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RAM (which is usually in short 
supply), but is spooled out to a disk. 
Whenever the printer requests more 
data, it's pulled back off the disk 
and sent to the printer. A typical 
35-track disk should hold about 89,000 
bytes of data. 

On my 50-character-per-second 737, 
this would amount to almost a half 
hour printing time, obviously better 
than the 10 minutes offered by the 
RAM spooler. 

How It Works 

The print-spooler program takes ad- 
vantage of the interrupt generated by 
the expansion interface so the com- 
puter appears to be doing two things at 
once: controlling the printer and run- 
ning another program. 

The first part of the program, up to 
line 650, is a new line printer-driver 
routine. This is patched into the line- 
printer DCB (data control block), by- 
passing Radio Shack's driver. Lines 
230-270 make sure there's room in the 
buffer for another character. Lines 
280-360 put the new character into the 
buffer and adjust the input pointer. 
Lines 470-650 contain a subroutine 
that is called when the print buffer is 
full. "Full" is printed on the screen by 
lines 480-510. Lines 530-570 then wait 



until the buffer empties a bit. The 
"Full" is then erased and control 
returns to the main driver. 

The second main part of the pro- 
gram, lines 770-1240, is the interrupt 
service routine. This section is called 40 
times per second, regardless of what 
the TRS-80 is doing. During each call, 
the routine first checks if there's any 
data in the buffer. If not, the interrupt 
ends. If there is data in the buffer, the 
routine checks if the printer can accept 
some. If not, the interrupt ends. 

Assuming there is data to be printed 
and the printer is ready to accept data, 
the interrupt service routine sends the 
next byte of data to the printer, delays 
for an instant, and loops back to per- 
form the above two checks again. 

Note that the delay loop in lines 
990-1000 may have to be adjusted or 
possibly removed entirely, depending 
on your printer. My 737 has an 80- 
character print buffer built in and only 
prints after either 80 characters or cer- 
tain control codes are received. There- 
fore, my interrupt service routine is de- 
signed to pass data to the printer in 
blocks instead of passing one character 
per interrupt (since the maximum 
speed at one character per interrupt is 
only 40 characters per second). When- 



The Key 

Model I 
32K RAM 

Cassette Basic, 


Box 
Assembly 



ever a character is passed to the 737, 
though, it takes the printer a moment 
to decide whether or not it can accept 
another character before it must start 
printing. The 30 in line 990 reflects this 
time delay. 

If your printer "thinks" faster, you 
can lower this number. You'll know if 
that number is too low because your 
printer will print slower than its maxi- 
mum speed due to the fact that it's only 
getting 40 characters per second and 
not its maximum amount. If your 
printer has no input buffer, you can 
delete the delay loop entirely since 
you'll return from the interrupt after 
each character printed. 

If your printer has no print buffer, 
the maximum speed it prints at under 
this spooling program is 40 characters 
per second, despite its maximum speed 
rating. 



three DOS key words — Open, Close, 
and Kill. Open enables the interrupts 
and starts the printer printing. Close 



disables the interrupts and stops the 
printer. Of course, you'll still be able to 
do LPRINTs, even though the printer 



"The initialization section 

starts the ball rolling by 

enabling the interrupts 

and then 

executing a Clear. " 



The next three program sections, 
when called, kill all the data in the print 
buffer, enable interrupts to start the 
printer, and disable interrupts to stop 
printing, respectively. All three of 
these sections are patched into DOS 
reserved words and are explained more 
fully in the operating instructions. 

The final section, lines 1610-1640, is 
the initialization section. It is run only 
once, immediately after you load the 
program. It starts the ball rolling by 
enabling the interrupts and then exe- 
cuting a Clear to fix the pointers 
messed up while loading. 

The rest of the program just sets 
memory size for you and patches in the 
new printer driver, the interrupt service 
routine, and the spooler commands. 

How to Use It 

Now that you know the basics of 
how this spooler works, let me tell you 
about its special features and how to 
use them. The spooler responds to 











Pro 


gram Listing 








00100 




****** 


***************** 








00110 




* RAM 


SPOOLER PROGRAM * 








00120 




*********************** 








00130 




BY 


RON BALEWSKI 








00140 




JULY 17, 1981 








00150 














00160 


LINE 


PRINTER DRIVER ROUTINE - 


STORES ALL LPRINTED 






00170 


DATA IN 


THE SPOOLING BUFFER. 


3C00 




00180 VIDEO 


EQU 


3C00H 




8000 




00190 




ORG 


8000H 


;TOP 32K 


8000 


C5 


00200 LPRDVR 


PUSH 


BC 




8001 


D5 


00210 




PUSH 


DE 




8002 


E5 


00220 




PUSH 


HI, 




8003 


ED5BB480 


00230 




LD 


DE, (INPPTR) 


;BE SURE ROOM IN BUFFER 


8007 


2AB680 


00240 




LD 


HL, (OUTPTR) 




800A 


13 


00250 




INC 


DE 




800B 


DF 


00260 




RST 


18H 




800C 


CC2380 


00270 




CALL 


Z, BUFFUL 


;IF NO ROOM, ? MSG & WAIT 


800F 


79 


00280 




LD 


A,C 




8010 


2AB480 


00290 




LD 


HL, (INPPTR) 


;PUT PRINTED CHAR IN BFR 


8013 


77 


00300 




LD 


(HL) ,A 




8014 


23 


00310 




INC 


HL 


.•INCREMENT INPUT POINTER 


8015 


7C 


00320 




LD 


A,H 




8016 


B5 


00330 




OR 


L 




8017 


2003 


00340 




JR 


NZ, LPRXIT 




8019 


21B880 


00350 




LD 


HL, BUFFER 




801C 


22B480 


00360 LPRXIT 


LD 


(INPPTR) ,HL 




801F 


El 


00370 




POP 


HL 




8020 


Dl 


00380 




POP 


DE 




8021 


CI 


00390 




POP 


BC 




8022 


C9 


00400 
00410 
00420 




RET 










00430 


BUFFUL - THIS SUBROUTINE PRINTS FULL IN THE LOWER LEFT 






00440 




CORNER OF THE VIDEO 


SCREEN AND WAITS UNTIL THE 






00450 




BUFFER EMPTIES SOME. 


IT THEN ERASES FULL AND 






00460 




RETURNS. 




8023 


C5 


00470 


3UFFUL 


PUSH 


BC 




8024 


010400 


00480 




LD 


BC,4 




8027 


11F73F 


00490 




LD 


DE,VIDEO+1015 




802A 


214880 


00500 




LD 


HL,FULMSG 




802D 


EDB0 


00510 




LDIR 






802F 


FB 


00520 




EI 






8030 


ED5BB480 


00530 


3TLFUL 


LD 


DE, (INPPTR) 




8034 


2AD680 


00540 




LD 


HL, (OUTPTR) 




8037 


13 


00550 




INC 


DE 




8038 


DF 


00560 




RST 


18H 




8039 


28F5 


00570 




JR 


Z,STLFUL 




803B 


010400 


00580 




LD 


BC,4 




803E 


11F73F 


00590 




LD 


DE,VIDEO+1015 




8041 


214C80 


00600 




LD 


HL, BLANKS 




8044 


EDB0 


00610 




LDIR 






8046 


CI 


00620 




POP 


BC 




8047 


C9 


00630 




RET 






8048 


46 


00640 


'ULMSG 


DEFM 


'FULL' 




804C 


20 


00650 
00660 
00670 


3LANKS 


DEFM 










00680 


INTERRUPT SERVICE ROUTINE - THIS ROUTINE IS ACCESSED 






00690 




40 TIMES A SECOND. IT CHECKS IF THERE IS DATA 






00700 




IN THE 


3UFFER AND IF THE 


PRINTER WILL ACCEPT SOME. 






00710 




IF SO, 


IT OUTPUTS DATA UNTIL THE PRINTER BUFFER 






00720 




IS FULL 


(PRINTER REFUSES 


TO ACCEPT MORE DATA) , 






00730 




AND THEN RETURNS TO DO BASIC UNTIL IT CAN PRINT 






00740 




AGAIN. 










00750 














00760 










8050 


F3 


00770 


INTRTN 


DI 






8051 


F5 


00780 




PUSH 


AE 




8052 


C5 


00790 




PUSH 


BC 




8053 


D5 


00800 




PUSH 


DE 




8054 


E5 


00810 




PUSH 


HL 




8055 


ED5BB480 


00820 


MXTOUT 


LD 


DE, (INPPTR) 


; CHECK IF DATA IN BUFFER 


8059 


2AB680 


00830 




LD 


HL, (OUTPTR) 




805C 


DF 


00840 




RST 


18H 




805D 


2824 


00850 




JR 


Z,NOPRNT 




805F 


CDD105 


00860 




CALL 


05D1H 


; CHECK IF PRINTER READY 


8062 


201F 


00870 




JR 


NZ,NOPRNT 




8064 


2AB680 


00880 




LD 


HL, (OUTPTR) 


;GET NEXT LETTER 


8067 


7E 


00890 




LD 


A, (HL) 




8068 


F5 


00900 




PUSH 


AF 




8069 


23 


00930 




INC 


HL 


;INC OUTPUT POINTER 


806A 


7C 


00940 




LD 


A,H 




806B 


B5 


00950 




OR 


L 




806C 


2003 


00960 




JR 


NZ,NORES 




806E 


21B880 


00970 




LD 


HL, BUFFER 




8071 


22B680 


00980 


MORES 


LD 


(OUTPTR) ,HL 




8074 


Fl 


00981 




POP 


AF 




8075 


B7 


00982 




OR 


A 


; LETTER 0? 


8076 


281A 


00983 




JR 


Z,PRTOFF 


;IF SO, THEN OFF PRINTER 


8078 


32E837 


00984 




LD 


(37E8H) ,A 


; PRINT THE LETTER 


807B 


011E00 


00990 




LD 


BC,3 


;LET PRINTER ACCEPT DATA 


807E 


CD6000 


01000 




CALL 


0060H 




8081 


18D2 


01010 




JR 


NXTOUT 




8083 


2AEC37 


01020 


TOPRNT 


LD 


HL, (37ECH) 




8086 


2AE037 


01030 




LD 


HL, (37E0H) 




8089 


2AE037 


01040 




LD 


HL, (37E0H) 


Listing continues 
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isn't going, since all printed data just 
goes into a buffer. Kill kills all data in 
the print buffer. This is a handy fea- 
ture in case you accidentally do an 
LLIST. It won't take long to dump a 
lot of garbage to the print buffer. Kill 
gives you a way to throw out the gar- 
bage without resetting the system. 

Another nice feature of the spooler 
is a print-hold feature. Since I fre- 
quently use single-sheet paper with my 
printer, I include in many of my pro- 
grams an automatic stop after so many 
lines printed so I can put a new sheet of 
paper into the printer. Such a pause 
works fine when Basic is running the 
printer directly. Whenever Basic stops, 
the printer stops. However, things 
don't work quite so smoothly when a 
spooler is put between Basic and the 
printer. 

In the blink of an eye, the computer 
was telling me to change the paper and 
press enter, but the printer was just get- 
ting started on that page! If I waited 
until the page was printed, changed the 
paper, and then pressed enter, I de- 
feated the purpose of the spooler by 
once again making the computer wait 
for the printer. On the other hand, if I 
pressed enter and let the computer con- 
tinue to pour data into the buffer, all 



COLOR — ST I C K 



N HERE AT LAST' 

Finally an interface for the Color 
Computer to let you use the famous 
N ATARI JOYSTICK" 

Just plug it into the joystick port 
and plug the Atari Joystick into it. 
The Color-Stick can improve scores 
58*/ and more while nak i ng some games 
more exciting and fun to play. 

Color-Stick interface $19.95 each 
or two for $34.95. (less joysticks) 
Atari Joysticks $9.95 each. 

Better Software Assoc. 
P.O. Box 6978 Station B 
Greenville S.C. 29686 
(883-295-3648) 

•■387 



Add $2.88 per order shipping and 
handling. Ue accept VISA, MASTERCARD 
CHECKS and MONEY ORDERS. 
C.O.D. add $3.88 extra per order. 
S.C. residents add 4X sales tax. 
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808C 


El 


01050 




POP 


HL 


80 8D 


Dl 


01060 




POP 


DE 


808E 


CI 


01070 




POP 


BC 


808F 


Fl 


01080 




POP 


AF 


8090 


FB 


01090 




EI 




8091 


C9 


01100 
01110 




RET 








01120 


WHEN 


A ZERO 


IS ENCOUNTERED IN THE PRINT BUFFER, CONTROL 






01130 




BRANCHES HERE TO DISABLE THE INTERRUPTS AND 






01140 




THEREFORE STOP THE PRINTER. THIS ALLOWS YOU TO 






01150 




PUT PAUSES IN THE PRINTING FOR FORMS CHANGING. 






01160 




TYPING 


OPEN WILL RE-START THE PRINTING. 


8092 


2AEC37 


01170 PRTOFF 


LD 


HL, (37ECH) 


8095 


2AE037 


01180 




LD 


HL, (37E0H) 


8098 


2AE037 


01190 




LD 


HL, (37E0H) 


809B 


El 


01200 




POP 


HL 


809C 


Dl 


01210 




POP 


DE 


809D 


CI 


01220 




POP 


BC 


809E 


Fl 


01230 




POP 


AF 


809F 


C9 


01240 
01250 
01260 
01270 




RET 








01280 


KILL 


- THE KILL COMMAND WILL KILL ALL DATA IN THE PRINT 






01290 




QUEUE 


. THIS IS PROVIDED IN CASE A LOT OF USELESS 






01300 




DATA 


IS ACCIDENTALLY DUMPED TO THE PRINTER. 


80A0 


21B880 


01310 


<ILL 


LD 


HL, BUFFER ; CLEAR THE PRINT BUFFER 


80A3 


22B480 


01320 




LD 


(INPPTR) ,HL 


80A6 


22B680 


01330 




LD 


(OUTPTR) ,HL 


80A9 


C3191A 


01340 
01350 
01360 
01370 




JP 


1A19H 






01380 


OPEN 


- THE OPEN COMMAND WILL TURN ON THE INTERRUPT AND 






01390 




THEREFORE TURN ON PRINTING. 


80AC 


FB 


01400 


3PEN 


EI 


; ENABLE INTERRUPTS 


80AD 


C3191A 


01410 
01420 
01430 
01440 




JP 


1A19H 






01450 


CLOSE 


- THE 


CLOSE COMMAND WILL DISABLE THE INTERRUPTS 






01460 




AND 


THEREFORE STOP THE PRINTING. THIS IS 






01470 




USEFUL BECAUSE YOU CAN'T READ OR WRITE A TAPE 






01480 




WHILE THE INTERRUPT IS ENABLED. TO RE-START 






01490 




PRINTING, TYPE OPEN. 


80B0 


F3 


01500 


:lose 


Dl 


.•DISABLE INTERRUPTS 


80B1 


C3191A 


01510 




JP 


1A19H 


80B4 


B880 


01520 


[NPPTR 


DEFW 


BUFFER 


80B6 


B880 


01530 


DUTPTR 


DEFW 


BUFFER 


80B8 


00 


01540 
01550 
01560 
01570 


3UFFER 


DEFB 









01580 


INITIALIZATION SECTION - AFTER INITIALIZATION, THIS 






01590 




CODE WILL BE OVERWRITTEN AS PART OF THE PRINT 






01600 




BUFFER 




80B9 


FB 


01610 


INIT 


EI 




80 BA 


21191A 


01620 




LD 


HL,1A19H 


80BD 


E5 


01630 




PUSH 


HL ;SET A RETURN ADDRESS 


80BE 


C37A1E 


01640 
01650 
01660 
01670 




JP 


1E7AH* ;DO A CLEAR 






01680 


SET PRINTER 


DCB ADDRESS 


4026 




01690 




ORG 


4026H 


4026 


0080 


01700 
01710 
01720 
01730 




DEFW 


LPRDVR 






01740 


SET INTERRUPT ADDRESS 


4012 




01750 




ORG 


4012H 


4012 


C35080 


01760 
01770 
01780 
01790 




JP 


INTRTN 






01800 


RESET 


TOP-OF 


-MEMORY POINTER 


40B1 




01810 




ORG 


40B1H 


40B1 


FF7F 


01820 
01830 
01840 
01850 




DEFW 


LPRDVR- 1 






01860 


RESET 


MEMORY 


SIZE PTR TO CLEAR 50 


40A0 




01870 




ORG 


40A0H 


40A0 


CD7F 


01880 
01890 
01900 
01910 




DEFW 


LPRDVR- 51 






01920 


SET KILL DOS 


VECTOR ADDRESS 


4191 




01930 




ORG 


4191H 


4191 


C3A080 


01940 
01950 
01960 
01970 




JP 


KILL 






01980 


SET OPEN DOS 


VECTOR ADDRESS 


4179 




01990 




ORG 


4179H 


4179 


C3AC80 


02000 
02010 
02020 
02030 




JP 


OPEN 






02040 


SET CLOSE DOS VECTOR ADDRESS 


4185 




02050 




ORG 


4185H 


4185 


C3B080 


02060 




JP 


CLOSE 


80B9 




02070 




END 


INIT 


00000 TOTAL 


ERRORS 
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the output ran together without the 
planned pause. 

The addition of the above-men- 
tioned print-hold feature solved the 
problem. To turn off (Close) the print- 
ing at a given point, just LPRINT 
CHR$(0). The printer prints up to the 
zero in the buffer and stops until you 
issue an Open command. You can in- 
clude as many zeros in the print buffer 
as you want. The printer stops when- 
ever it hits one. 

If the buffer becomes full when the 
interrupt is off (closed), the interrupt is 
automatically enabled (opened) to 
keep the system from eternally waiting 
for the buffer to empty, even though 
the printer is closed. 

Now for a bit of advice: Be sure to 
Close the printer before you read or 
write a cassette tape. If you try to do 
tape I/O with the interrupt enabled, 
the time spent in the interrupt service 
routine wreaks havoc with the tape 
timing. Don't worry about freely using 
Opens and Closes since no data is lost 
during their use. 

You can change the size of the buf- 
fer by changing the ORG in line 190. 
All memory from the ORG value 
through FFFH is assumed to be avail- 
able to the spooler. Using an ORG 
value of 8000H gives you 32K to be 
used by the spooler and 16K to be used 
by your program. An ORG value of 
C000H gives you 32K of memory for 
your program while leaving only 16K 
for the spooler. I keep an object file 
assembled with each of the two ORG 
values handy and reserve 32K for the 
spooler whenever possible. But if I 
can't afford 32K, I just load the copy 
that reserves 16K. 

For Use With 32K 

If you have a 32K system, you can 
get this spooler to run just by changing 
lines 330 and 950 to CP 0C0H. All this 
does is check to see if you went above 
BFFFH, the end of a 32K machine in- 
stead of FFFFH. 

Once you use this spooler for a 
while, you'll never run your printer 
again without it. 

Now for a challenge to all you 
5 14 -inch disk jockeys out there: How 
about writing a spooling program that 
uses a disk for temporary storage? That 
way, I won't have to write one when I 
get a disk system. ■ 

Ron Balewski (412 E. Ridge St., 
Nanticoke, PA 18634) is a freelance 
programmer. His interests include 
home video, community theater, and 
electronics. 

^See List of Advertisers on Page 563 



FED UP WITH GAMES YOU'VE MASTERED? 
FRUSTRATED BY $20 - $40 GAME PRICES? 

MICRO-TRADERS GIVES 50% TRADE-IN CREDIT 
ON GAMES PURCHASED FROM US 



CHOICE OF OVER 40 POPULAR 
GAME DISKS FOR MODEL I AND III 



LOW ANNUAL MEMBERSHIP FEE 



TYPICAL BARGAINS 



OUR PRICE CREDIT 



• FIRST DISK 5-15% 
OFF LIST PRICE 



GUARANTEED BUY-BACK PLAN' 



SUBSEQUENT GAMES UP TO 
75% OFF LIST PRICE 



NO MINIMUM PURCHASE 



NEW TITLES ADDED MONTHLY 



ALIEN DEFENSE (SSM) 
ARMORED PATROL 1 (Al) 
ASYLUM II (MED) 
CATERPILLAR J (SSM) 
DEFENSE COMMAND (BIG 5) 
ELIMINATOR (Al) 
FLIGHT SIMULATOR (SL) 
FORBIDDEN CITY (48K: FAN1 
THE INSTITUTE (MED) 
PLANETOIDS (Al) 
SCARFMAN J ' (CORNSOFT) 
STARFIGHTER (Al) 



'SORRY. NO TAPES. 

J - JOYSTICK COMPATIBLE 



$18 

22 
22 

18 
18 
22 
32 

>36 
22 

18 
18 
26 



% 9 
1 1 

1 1 

9 

9 

1 1 

16 

18 

1 1 

9 

9 

13 



• ARCADE. ADVENTURE AND 
SIMULATION GAMES 

•we will buy back any as new game for 
50% credit within limited time period and. 
for nominal inspection fee 
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EDUCATION 



Election 



by Robert Jacobs 



E 



lection teaches students about campaigning by 
introducing them to several facets of elec- 
tions such as budgets and stands on issues. 



Election simulates a Congressional 
District campaign and election. It incor- 
porates the strategies of recent Con- 
gressional campaigns as well as those of 
other medium-sized campaigns. This 
simulation is valuable for teaching stu- 
dents about the political choices and 
strategies available to candidates for 
public office in the early 1980s. 

You can alter the program to account 
for local political conditions, changing 
issues, or fluctuating interests in Ameri- 
can politics. The calculations of the 
control functions have been kept sepa- 
rate from one another to allow you to 
alter the weights given the variables and 
to change the assumptions upon which 
the program is based. Although the as- 
sumptions are not extremely controver- 
sial, their applicability will vary for dif- 
ferent sections of the country and from 



The Key Box 

Model I or III 
16K, 32K RAM 
Cassette or Disk Basic 



one election to the next. You, as the in- 
structor, should familiarize yourself 
with the assumptions. 

The electorate is established as 52 
percent Democrat and 48 percent Re- 
publican. This roughly reflects the total 
national Congressional vote in the 1980 
election. 

Regardless of other factors, the in- 
cumbent candidate receives .75 percent 
of the ultimate turnout for each week of 
the campaign. This reflects the Ameri- 
can political scene, although situational 
factors may alter this percentage. 

The amount of funds a candidate 
may raise has a predetermined ceiling. 
Students can discover this limit, as well 
as the proximate return for fund-raising 
efforts, by trial and error. 

The voter turnout is set low, but it 
can be increased by taking controver- 
sial stances on issues. However, con- 
troversial positions can also be detri- 
mental to the student's candidacy, so 
the student must find the balancing 
point between the two extremes. 

The program minimizes the impact 
of candidates' positions on issues. In 
some American elections, the issues 
dominate, but in most elections the 



candidates' positions become blurred 
and are almost indistinguishable from 
one another. The power of the posi- 
tions can be changed, but I don't rec- 
ommend this because the students' 
participation will become merely a 
hunt for "buried treasure," with the 
treasure being the "correct" stand on 
an issue. 

Changing positions too frequently 
results in a penalty. 

The effect of news headlines on 
the election is restricted. However, 
the weight and directional bias of 
the news stories may be changed by the 
instructor. 

The student must allocate funds for 
several forms of mass communication 
to avoid erosion of support. The pro- 
gram ascribes heavier weight to televi- 
sion expenditures, since television is 
our dominant medium. The order of 
efficacy is: television, radio, newspa- 
per advertising, and campaign souve- 
nirs. The latter two do little to promote 
the candidacy, but they prevent ero- 
sion of support. This order of impor- 
tance can be altered. 

Using the Program 

Election is written in Basic, and it 
uses most of the 16K. It is CLOADable 
on both Model I and III. Single charac- 
ters, both alphabetic and numeric, are 
entered by single key strokes through 
the INKEY$ function; when entering 
dollar amounts, press enter. 

After listing the instructions, the 
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program asks the student to choose a 
political party and decide whether or 
not he wants to be the incumbent. 
Then, the student must allocate cam- 
paign funds among the various media. 
If the student errs or spends more than 
is allocated, the program loops back so 
he can redo the budget. 

The student then selects political po- 
sitions on five issues. The range of 



choices span the range of "respect- 
able" opinions as reported by Ameri- 
can opinion polls. After these positions 
are entered, the first of several staff 
reports is offered. This lists the results 
of the week's polls, and it reports on 
the budget. 

The campaign runs for 10 weeks. 
After each week, news headlines ap- 
pear, and the student is asked whether 



DOS 


Lockout Break 


Restore Break 


TRSDOS 2.3 


POKE 23886,0 


POKE 23886,1 


NEWDOS2.1 


POKE 23461,0 


POKE 23461,1 


NEWDOS 80 


POKE 19408,0 
Table I 


POKE 19408,1 



Program Listing 

10 ' 

20 CLS:PRINTCHR$(23) : PRINT, , "ELECTION" 

30 PRINT : PRINT :PRINTTAB( 8) "BY ROBERT JACOBS" 

40 PRINT :PRINT"DRAFT - VERSION 2.1" 

50 PRINT: PRINTTAB( 8) "OCTOBER, 1981" 

60 DIMHL$(30) :DIMPH$(30) :DIMHL(30) : RANDOM: FORZ=lTO30 :READHL$ ( Z) , 

HL(Z) :NEXT 

70 P$=" $$###, ###":Q$="##.#%":F=30000:VP=31:CO=290000+RND( 30000) 

80 GOSUB2130 

90 ' 

100 CLS:PRINT"YOUR CONSTITUENCY HAS", -CO;" VOTERS IN IT. YOU WISH 

TO WIN THE DISTRICT'S SEAT IN THE HOUSE OF REPRESENTATIVES." 
110 PRINT"YOU START YOUR CAMPAIGN WITH" ;F; "DOLLARS. YOU MAY CHOO 
SE TO" 

Listing continues 



Variable 


Purpose 


Appears in Line Number 


CO 


Size of Constituency 


70 100 2450 


DP 


Democratic Percentage 


390 400 420 430 440 450 500 5 10 580 590 670 2450 


ET 


Total Expenditure 


2350 2360 2370 2390 2420 


F 


Current Campaign Fund 
Total 


70 1 10 220 320 720 2190 2370 2380 2390 2410 2420 


F2 


Week's Receipts 


300 310 320 710 


FR 


Total Fund Raising 
Expenditures 


2220 2420 2630 


MF 


Media Factor 


460 470 480 490 500 510 


PS 


Sum of Political Position 






Factors 


290 340 350 360 370 440 450 


RP 


Republican Percentage 


390 400 420 430 440 450 500 510 580 590 680 2450 


SO 


Total Souvenir Expendi- 
ture 


2210 2420 2620 


TE 


Number of Position 






Changes 


520 580 590 900 


TV 


Total Television Expen- 
ditures 


2200 2420 2610 


UP 


Undecided Percentage 


380 390 440 450 500 510 690 


VP 


Probable Turnout Per 
centage 


70 340 350 360 370 380 700 2450 2480 


Table 2. Election Variables 



or not he wishes to revise any of the po- 
sitions selected. A new budget must 
also be prepared. The staff report gives 
the student a running report of the 
campaign's progress. 

At the end of the 10 weeks, the re- 
sults of the election are announced, 
along with a summary of the monies 
expended and the number of position 
changes. 

Instructors who think the student 
will gain access to the program listing 
to either change the variables or dis- 
cover how to win can disable the break 
key by altering line 10 as follows: 

10 POKE 16396, 175: POKE 16397, 201 

To restore the key, POKE 16396, 201 
from the command level or reset the 
computer. With disk systems on the 
Model I, different locations must be 
accessed. (See Table 1.) 

Most Model III operating systems 
have a built-in break disable. 

Classroom Use 

For the most effective classroom 
use of Election, the students should 
pay attention to more than just win- 
ning the election; they can learn from 
the program only if it is approached 
systematically. 

Several teaching strategies are avail- 
able. The most useful of these is to 
divide the class into groups of partici- 
pants, and, for each group, to hold one 
or more of the program variables con- 
stant. For example, one group of stu- 
dents might be required to be the in- 
cumbent while the other might be the 
challenger; one group might be Demo- 
crats and the other Republicans. 

A log of each run should be kept and 
discussion of the strategies adopted 
held periodically. In this way, students 
can get some sense of the effect of each 
of the variables on the chances of win- 
ning the election. The instructor, who 
should be familiar with the assump- 
tions built into the program as well 
as with contemporary politics, can 
explain some of the reasons for the 
outcome. 

Election could also be tailored to in- 
corporate the characteristics of a spe- 
cific election or district. The students 
could research the amount of money 
spent by the candidates as well as the 
size of the district and its political com- 
position. This research could be used 
to alter the program. This exercise is 
more demanding than the first, but it 
can be rewarding as it teaches students 
how to analyze American politics, how 
to do historical and political research, 
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Listing continued 

120 PRINT"USE ALL OR A PORTION OF IT ON THE LISTED POLITICAL ACT 

IVITIES." 

13 PRINT"YOU SHOULD BE AWARE THAT FUND-RAISING ITSELF HAS SUBST 

ANTIAL" 

140 PRINT"COSTS WHICH YOU WILL HAVE TO BEAR. YOU SHOULD SPEND YO 

UR MONEY" 

150 PRINT"SO AS TO MAXIMIZE YOUR CONTRIBUTIONS AS WELL AS YOUR S 

TANDING" 

160 PRINT-IN THE POLLS. yOU MAY FIND THAT THIS IS DIFFICULT TO D 

O. AS THE" 

17 PRINT"CAMPAIGN CONTINUES YOU WILL HAVE THE OPPORTUNITY TO CH 

ANGE YOUR" 

180 PRINT "STRATEGY SEVERAL TIMES. STRATEGY CHANGES MAY NOT BE IM 

MEDIATELY" 

190 PRINT"REFLECTED EITHER IN THE POLLS OR IN THE RATE OF CONTRI 

BUTIONS." 

200 PRINT :PRINT"GOOD LUCK I " :GOSUB2130 

210 GOSUB1000 

220 CLS:PRINT"YOU NOW HAVE" ;F; "DOLLARS. PLEASE INDICATE HOW MUCH 

YOU" 
230 PRINT"WOULD LIKE TO SPEND FOR EACH OF THE FOLLOWING." 
240 PRINT:PRINTTAB(7) "FUND-RAISING", "TELEVISION ADVERTISING" 
250 PRINTTAB( 7) "NEWSPAPER ADVERTISING" , "RADIO ADVERTISING" 
260 PRINTTAB( 20) "CAMPAIGN SOUVENIRS" :GOSUB2240 
270 GOSUB1380 
280 ' 

290 WE=WE+1:PS=P1+P2+P3+P4+P5 

300 IFEK2000THENF2=E1+E1*RND(1)ELSEIFEK5000ANDE1>2000THENF2=E1 
*(3+RND(2) )ELSEF2=E1*(5+RND(2) ) 
310 IFF2>49999THENF2=50000-RND(500) 
320 F=F+F2:F8=F8+F2 

33 ONWEGOTO340,340,340,350,350,350,350,360,360,360 
340 IFPS<10ORPS>20THENVP=VP*1.03ELSEVP=VP*1.028:GOTO370 
350 IFPS<10ORPS>20THENVP=VP*1.04ELSEVP=VP*1.038:GOTO370 
36 IFPS<10ORPS>20THENVP=VP*1.045ELSEVP=VP*1.043 
370 IFPS<6ORPS>23THENVP=VP*1.003 
380 UP=(100-VP)/2.7+RND(2) 

390 IFWE=1THENDP=(100-UP) * . 52:RP= (100-UP) * . 48 
400 DP=DP+HL(N1)+HL(N2) :RP=RP-HL(N1) -HL (N2) 
410 NB=HL(N1)+HL(N2) 
420 IF(C$="R"ANDP0$=' 



.75 
430 
.75 
440 
450 



')OR(P0$="C"ANDC$="D n )THENRP=RP+.75:DP=DP- 
IF (C$="D"ANDP0 $="!") OR(P0$="C"ANDC$="R")THENDP=DP+. 75: RP=RP- 



IFC$="D"THENDP=DP-ABS(15-PS)/10:RP=100-UP-DP 

IFC$="R"THENRP=RP-ABS ( 15-PS) /10 : DP=100-UP-RP 
46 MF=0:IFE2>18000MF=MF+E2/18000ELSEMF=MF-1.5 
470 IFE3>12000THENMF=MF+E3/12000ELSEMF=MF-1 
4 80 IFE4>3000THENMF=MF+.5ELSEMF=MF-.7 
490 IFE5>=750THENMF=MF+.lELSEMF=MF-.2 
500 IFC$="D"THENDP=DP+MF:RP=100-DP-UP 
510 IFC$="R"THENRP=RP+MF:RP=100-DP-UP 
520 IFTE>3CLSELSE610 

530 PRINTCHR$(23) "IT LOOKS AS THOUGH YOU'VE" 
540 PRINT"CHANGED YOUR MIND ONCE TOO" 
550 PRINT"OFTEN. THE PRESS CHARGES YOU" 
560 PRINT"WITH INCONSISTENCY - OR WORSE!" 
570 PRINT"YOU LOSE ONE PERCENT!" 
580 IFC$="R"THENRP=RP-1:DP=DP+1:TE=0 
590 IFC$="D"THENRP=RP+1:DP=DP-1:TE=0 
600 GOSUB2130 
610 IFWE=10GOTO2430 
620 ' 

630 CLS:PRINTCHR$(23) 
640 PRINT@10, "STAFF REPORT, WEEK";WE 

FORZ=11TO106:SET(Z,3) :NEXT 

PRINT@196,"POLL RESULTS 



650 
660 
670 PRINTTAB( 7) "DEMOCRATIC:" 

6 80 PRINTTAB( 7) "REPUBLICAN:" 
690 PRINTTAB( 7) "UNDECIDED: " 
700 PRINTTAB (7) "PROBABLE TURNOUT 
710 PRINT@516, "WEEK'S RECEIPTS:" 
720 PRINT@580, "CAMPAIGN FUND: " 
730 PRINT@644, "SPENT TO DATE: " 
740 PRINT@708,"TIME UNTIL ELECTION: "; 10-WE; "WEEKS 
750 FORZ=11TO106:SET(Z,38) :NEXT:GOSUB2130 

760 ' 
770 

AS" 
780 PRINT"IT RELATES TO THE CAMPAIGN:" 

7 90 N1=RND(30) :IFPH$(N1) <>""GOTO790 
800 N2=RND(30) :IFN2=N1GOTO800 
810 IFPH$(N2) <>""THENGOTO800 
820 PH$(N1)=HL$(N1) :PH$ (N2) =HL$ (N2) 



:PRINTUSINGQ$;DP 

:PRINTUSINGQ$;RP 

:PRINTUSINGQ$;UP 

"; :PRINTUSINGQ$;VP 
:PRINTUSINGP$;F2 
:PRINTUSINGP$;F 
:PRINTUSINGP$;F1 



CLS:PRINT"HERE IS A DIGEST OF THE WEEK'S MOST IMPORTANT NEWS 



Listing continues 



and how to rewrite a Basic computer 
program. 

Since each run of Election lasts only 
15 or 20 minutes, a systematic ap- 
proach to it would be practical. Stu- 
dents will profit from such an ap- 
proach since they can vary strategy 
decisions to be tested from one run to 
the next. 

If anyone develops any other educa- 
tional uses for this program, please let 
me know about them. 

Altering Election 2.1 

Table 2 contains a list of variables 
you will most likely want to alter. 

To change the size of the constituen- 
cy, alter CO in line 70. As CO is set, it 
is the approximate size of a Congres- 
sional District. If you set up the pro- 
gram for a particular district, you can 
use the population of that district. For 
non-Congressional elections, you 
would also have to change the text ap- 
pearing in lines 100-190. 

The initial campaign fund, F, is set 
to $30,000 in line 70. El through E5, 
ET, Fl and F4 are temporary variables 
that carry items such as subtotals and 
the amount of money spent on each of 
the media. Assumptions regarding the 
effect of these expenditures appear in 
lines 460-490. For example, E3 is the 
amount spent on television each week. 
In line 470 you see that if a minimum 
of $12,000 has not been spent on televi- 
sion advertising that week, the media 
factor, MF, is reduced by one. If televi- 
sion spending is greater than $12,000, 
MF is incremented by one plus the 
amount spent divided by 12,000. 
Variable MF carries each of the media 
expenditure factors into the candidates 
vote total in lines 500 and 510. 

The initial Democratic "edge" is es- 
tablished by line 390. 

The news headlines appear as data 
statements in lines 2780 to the end. The 
number after each headline is the per- 
centage to be added to the Democratic 
side and subtracted from the Republi- 
can side. This calculation occurs in line 
400. The text of the headlines and their 
political effect can be adjusted to work 
in either direction. The program goes 
through two-thirds of the headlines in 
each run, so the general direction, or 
balance, of the news, can be controlled 
by the programmer. More headlines 
can be added in machines that have 
more than 16K memory by adding data 
statements and adjusting the high 
number of the loop in line 60 to reflect 
the number of headlines to be read into 
HL$(Z). For example, if there were 40 
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Listing continued 

830 PRINT : PRINT : PRINT : PRINTPH $ ( Nl) 

840 PRINT: PRINT: PRINT: PRINTPH $(N2) 

850 GOSUB2130 

860 ■ 

870 CLS : PRINT: PRINT :PRINTCHR$( 23 ): PRINT n DO YOU WISH TO CHANGE AN 

Y Of": PRINT" YOUR ANNOUNCED POSITIONS? (Y/N) " ; :GOSUB2140 
880 IFZ$= n Y"THENGOTO900 

890 GOTO2160 

900 TE=TE+l:TC=TC+l:CLS:PRINT"ON WHICH ISSUE DO YOU WISH TO CHAN 

GE YOUR POSITION?" 

910 PRINT: PRINT: PRINTTAB( 5) "(1) SOCIAL WELFARE" , "CURRENT POSITIO 

N IS # ";P1 

920 PRINT:PRINTTAB(5) "(2) THE ECONOMY" , "CURRENT POSITION IS # "; 

P2 

930 PRINT:PRINTTAB(5) "(3) BUSING" ,, "CURRENT POSITION IS # ";P3 

940 PRINT:PRINTTAB(5) "(4) WOMEN'S RIGHTS" , "CURRENT POSITION IS # 

";P4 
950 PRINT:PRINTTAB(5) "(5) FOREIGN POLICY" , "CURRENT POSITION IS # 

";P5 
960 PRINT:GOSUB2150:Z=VAL(Z$) : IFZ<0ORZ>5GOTO900ELSEONZGOSUB1510 , 
1630,1750,1870,1990 

970 CLS : PRINT (§192, "WOULD YOU LIKE TO MAKE ADDITIONAL POSITION CH 
ANGES? (Y/N) "; :GOSUB2140 
980 IFLEFT$(Z$,1)="Y"THENGOTO900ELSEGOTO2160 

990 ' 

1000 CLS:PRINT"YOU WILL NOW HAVE THE OPPORTUNITY TO MAKE SOME IN 
ITIAL POLITICALCHOICES. YOU MAY BE AN INCUMBENT OR A CHALLENGER, 

A DEMOCRAT OR REPUBLICAN. IF YOU WISH, THE COMPUTER WILL CHOOSE 

FOR YOU." 
1010 PRINT"AFTER MAKING YOUR INITIAL CAMPAIGN FUND DISBURSEMENTS 

YOU" 
1020 PRINT"WILL BE ASKED TO MAKE SOME POLICY CHOICES WHICH WILL 
LOCATE" 

1030 PRINT"YOU ON AN IDEOLOGICAL SCALE THUS HELPING DETERMINE WH 
AT" 

1040 PRINT" SHARE YOU WILL CAPTURE OF THE VOTE OF THE MAJOR GROUP 
S IN " 

1050 PRINT"YOUR CONSTITUENCY." 
1060 PRINT: PRINT 

1070 PRINTTAB(5) "WOULD YOU LIKE TO BE A (D)EMOCRAT OR A (R)EPUBL 
ICAN -" 

1080 PRINTTAB(8) "OR WOULD YOU LIKE THE (C)OMPUTER TO CHOOSE?":PR 
INTTAB(8) "PRESS <D>, 
<R>, OR <O.":GOSUB2140 

1090 C$=Z$:IFC$= n C"THENIFRND(2)=lTHENC$="D"ELSEC$="R" 
1100 IFC$O"R"ANDC$O"D"THEN1000 
1110 IFC$="R"GOTO1190 
1120 CLS:PRINT:PRINT:PRINT:PRINTTAB(10) "YOU'VE MADE AN EXCELLENT 

CHOICE. 
1130 PRINTTAB(10) "NOW YOU CAN WRAP YOURSELF IN THE MANTLE 
1140 PRINTTAB(10) "OF SUCH OTHER DEMOCRATS AS JEFFERSON," 
1150 PRINTTAB( 10) "WILSON, ROOSEVELT, AND KENNEDY BY SELECTING" 
1160 PRINTTAB( 10) "POSITIONS YOU THINK APPROPRIATE TO THE" 
1170 PRINTTAB( 10) "DEMOCRATIC PARTY." 
1180 GOSUB2130:GOTO1250 

1190 CLS : PRINT: PRINT: PRINT :PRINTTAB( 10) "A FINE CHOICE! NOW YOU M 
AY" 

1200 PRINTTAB( 10) "ATTEMPT TO EMULATE SUCH REPUBLICANS AS" 
1210 PRINTTAB( 10) "LINCOLN, ROOSEVELT, AND EISENHOWER BY 
1220 PRINTTAB( 10) "SELECTING POLITICAL POSITIONS WHICH ARE 
1230 PRINTTAB( 10) "APPROPRIATE TO THE PARTY." 
1240 GOSUB2130 

1250 CLS:PRINT"WOULD YOU PREFER TO BE AN INCUMBENT OR CHALLENGER 
?" 

1260 PRINT"BEFORE DECIDING YOU SHOULD BE AWARE THAT IN AMERICAN 
ELECTIONS" 

1270 PRINT" INCUMBENTS ARE NORMALLY RE-ELECTED MORE THAN 60% OF T 
HE TIME." 

1280 PRINT"IN 'BAD* TIMES THIS PERCENTAGE MAY DROP SHARPLY. THE 
1 NATURE * " 
1290 PRINT"OF THE TIMES FOR THIS SIMULATION ARE DETERMINED PARTL 

Y BY" 

1300 PRINT"THE PROGRAMMER (PESSIMISTIC ON THURSDAYS AND OPTIMISTI 

C ON" 

1310 PR I NT "MONDAYS) AND IN PART BY THE NEWS HEADLINES WHICH ARE 

SELECTED" 

1320 PRINT "BY A RANDOM NUMBER GENERATOR." 

1330 PRINT@715,"(I)NCUMBENT OR (C) HALLENGER?" ; :GOSUB2140 

1340 P0$=Z$:IFP0$O"I"ANDP0$O"C"THENGOTO1250 

1350 IFP0$="I"CLS:PRINTCHR$(23) :PRINT@260, "PLAYING IT SAFE MAY 

R MAY NOT":PRINT@346,"HELP":PRINT@530,"GOOD LUCK ! " :GOTO1370 

1360 CLS:PRINTCHR$(23) :PRINT@260 , "AN UPHILL STRUGGLE. GOOD LUCK! 

1370 GOSUB2130: RETURN 

1380 ' 

13 90 CLS:PRINT"YOU WILL NOW SELECT POSITIONS ON FIVE POLITICAL I 

Listing continues 
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headlines, the relevant portion of line 
30 would say FOR Z = 1 TO 40:. 

PS represents the total effect of the 
positions selected. The program sums 
the numbers of the student's policy 
choices. The low-end choices, 1 and 2, 
tend to be conservative, and the high- 
end choices, 4 and 5, tend to be liberal. 
The appropriate party is incremented 
or decremented in lines 440 and 450. 

The size of the turnout, VP, is di- 
rectly tied to the degree of controversy 
injected into the campaign by these 
choices. The constants that control this 
are found in lines 340-370. The issues 
can be changed, and different weights 
can be assigned to the policy choices. 
In lines 440-450, the effect of ideology 
could be increased as a whole by lower- 
ing the constant 10 by a small amount, 
or you can use a particular issue as a 
key issue by adding to these lines. For 
example, if issue 2 were given extra 
weight or effect, these lines could 
become: 

440 IF C$ = "D" THEN 
DP = DP-(ABS(15 - PS)/10)-ABS(3 - P2): 
RP = 100-UP-DP 

450IFC$ = "R"THEN 

RP = RP-(ABS(15 - PS)/10)-ABS(3-P2): 

DP = 100-UP-RP 

If this technique is selected, you should 
adjust the content of the news head- 
lines to reflect the increased impor- 
tance of the selected issue. 

The ideological range of each issue 
can best be adjusted at the point in the 
program where the choices are made — 
lines 1610, 1730, 1850, 1970, and 2100. 
The position value is set equal to the 
value of Z$. At this point, you could 
alter the range by adding or subtracting 
an appropriate amount, for example: 

1610 GOSUB 2150:P1 = VAL(Z$)-2: IFP1 
<50RP1> 1GOTO1510 

This has the effect of moving the re- 
sponses on issue 1 well toward the li- 
beral side; adding 2 to P 1 would move 
them toward the conservative side. The 
program is structured to accept a re- 
sponse of 3 to each position to indicate 
roughly the ideological center of the 
constituency. You should change the 
text of the positions, instead of the 
arithmetic of the program, since nu- 
merical changes, if too large, will have 
distorting effects that are multiplied 
over the 10 weeks of the campaign. ■ 

Robert Jacobs (Central Washington 
University, E/lensburg, WA 98926) is 
a professor of political science. 
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Listing continued 

SSUES. THESE" 

1400 PRINT" ARE SOCIAL WELFARE, THE ECONOMY, BUSING, WOMEN'S RIGH 

TS AND FOREIGN POLICY. IN SELECTING YOUR PUBLIC POSITIONS YOU S 

HOULD BE" 

1410 PRINT"AWARE THAT YOU WILL BE EVALUATED BY THE VOTERS IN TER 

MS OF YOUR" 

1420 PRINT"CONSISTENCY AS WELL AS THE EXTENT TO WHICH YOUR POLIC 

Y CHOICES" 

1430 PRINT"ARE IN AGREEMENT WITH THEIRS. AS THE CAMPAIGN PROGRES 

SES YOU" 

1440 PRINT"MAY BE ASKED TO DISCUSS THESE ISSUES FURTHER, PERHAPS 

IN THE" 
1450' PRINT"LIGHT OF ANY NEWS WHICH MAY DEVELOP." 

146 PRINT: PRINT: PRINT"FOUR OR FIVE POLICY POSITIONS ARE SUGGEST 
ED TO YOU BY" 

1470 PRINT"YOUR STAFF ON EACH OF THE ISSUES. CHOOSE YOUR STAND B 
Y" 

1480 PRINT"ENTERING THE NUMBER OF THE POSITION YOU PREFER." 
1490 GOSUB2130:GOSUB1510:GOSUB1630:GOSUB1750:GOSUB1870:GOTO1990 
1500 RETURN 
1510 ' 
1520 CLS: PRINT" HERE ARE THE PROPOSED POSITIONS ON SOCIAL WELFARE 

1530 :PRINT:PRINT" (1) I THINK THAT THE ONLY PRACTICAL WAY TO DE 

AL WITH THE" 

1540 PRINTTAB( 5) "WELFARE SYSTEM IS TO IMPOSE SEVERE BUDGET CUTS. 

1550 PRINT:PRINT" (2) WE SHOULD DO EVERYTHING WE CAN TO END WELF 

ARE FRAUD . " 

1560 PRINT: PRINT" (3) WE MUST CONTINUE TO CARE FOR DEPENDENT CHI 

LDREN, THE SICK" 

1570 PRINTTAB(5) "AND THE ELDERLY IN A CONTEXT OF FISCAL RESPONSI 

BILITY" 

1580 PRINT: PRINT" (4) WE MUST INCREASE THE SERVICES WE OFFER THE 

POOR." 
1590 PRINT:PRINT"(5) THE POOR ARE THE VICTIMS OF AN UNFEELING S 
YSTEM; THEY MUST" 

1600 PRINTTAB(5) "BE AIDED TO THE MAXIMUM POSSIBLE EXTENT." 
1610 GOSUB2150:P1=VAL(Z$) : IFPl>5ORPl<lGOTO1510 
1620 RETURN 
1630 ■ 

1640 CLS: PRINT" HERE ARE THE PROPOSED POSITIONS ON THE ECONOMY:" 
1650 PRINT:PRINT" (1) IMMEDIATE REDUCTION OF TAXES, BOTH CORPORA 
TE AND PERSONAL; 

1660 PRINTTAB( 5) "ADDITIONAL TAX INCENTIVES TO BUSINESS." 
1670 PRINT: PRINT" (2) BALANCED BUDGET EVEN IF SOME PROGRAMS HAVE 

TO BE CUT." 

16 80 PRINT: PRINT" (3) SAME LEVEL OF EXPENDITURE AS LAST YEAR; NO 
ADDED TAXES." 

1690 PRINT: PRINT" (4) SOME NEW PROGRAMS TO HELP COPE WITH UNEMPL 
OYMENT;" 

17 00 PRINTTAB(5) "NO NEW TAXES." 

1710 PRINT: PRINT" (5) MAJOR PROGRAMS TO END UNEMPLOYMENT FINANCE 

D BY NEW TAXES; " 

1720 PRINTTAB(5) "LOWER CEILING ON INTEREST RATES." 

1730 GOSUB2150:P2=VAL(Z$) : IFP2>5ORP2<1GOTO1630 

17 40 RETURN 

1750 ' 

1760 CLS:PRINT"HERE ARE SOME PROPOSALS ON THE BUSING ISSUE:" 

1770 PRINT : PRINT" (1) FAVOR AN ANTI-BUSING CONSTITUTIONAL AMENDM 

ENT" 

1780 PRINT: PRINT" (2) NO FEDERAL FUNDS TO BE USED FOR BUSING. A 

RIDER 

1790 PRINTTAB( 5) "SHOULD BE ATTACHED TO THE APPROPRIATIONS BILL." 

1800 PRINT: PRINT" (3) BUSING IS A LOCAL ISSUE; THE STATES CAN DE 

AL WITH" 

1810 PRINTTAB(5) "THE COURTS AND WORK IT OUT." 

1820 PRINT: PRINT" (4) BUSING IS CONSTITUTIONALLY MANDATED AND IS 

PART" 
1830 PRINTTAB(5) "OF THE LAW OF THE LAND. THE FEDERAL GOVERNMENT 
MUST" 

1840 PRINTTAB( 5) "CONTINUE TO SUPPORT IT." 
1850 GOSUB2150:P3=VAL(Z$) : IFP3>4ORP3<1GOTO1750 
1860 RETURN 
1870 ' 

1880 CLS:PRINT"HERE ARE POSITIONS ON WOMEN'S RIGHTS:" 
1890 PRINT:PRINT" (1) SUPPORT ANTI-ABORTION AMENDMENT, DEFEAT ER 
A." 

1900 PRINT:PRINT" (2) CONTINUE THE BAN ON FEDERAL FUNDING OF ABO 
RTIONS;" 

1910 PRINTTAB( 5) "DEFEAT THE ERA" 

1920 PRINT:PRINT"(3) ATTEMPT TO PRESERVE TRADITIONAL FAMILY STR 
UCTURE." 
1930 PRINT:PRINT" (4) ERA IS EFFECTIVELY LOST ANYWAY, BUT LEGAL 

Listing continues 



Listing continued 

BARRIERS TO" 

1940 PRINTTAB(5) "EQUAL RIGHTS FOR WOMEN SHOULD BE ABOLISHED." 

1950 PRINT: PRINT" (5) SUPPORT ERA AND RESTORE FEDERAL MEDICAL AS 

SISTANCE FOR" 

1960 PRINTTAB( 5) "ABORTIONS FOR THOSE WOMEN WHO CAN'T OTHERWISE A 

FFORD THEM." 

1970 GOSUB2150:P4=VAL(Z$) : IFP4>5ORP4<1GOTO1870 

1980 RETURN 

1990 ' 

20 00 CLS:PRINT"THESE ARE THE FOREIGN POLICY POSITIONS:" 

2010 PRINT:PRINT"(1) ECONOMIC SANCTIONS AGAINST THE U.S.S.R; AB 

ANDON SALT" 

2020 PRINTTAB(5) "AND GIVE MORE SUPPORT TO ANTI-COMMUNIST REGIMES 

2030 PRINT: PRINT" (2) CUT GRAIN AND HIGH-TECHNOLOGY EXPORTS TO T 

HE SOVIET UNION;" 

2040 PRINTTAB(5) "ADOPT A TOUGHER STANCE TOWARDS SALT." 

2050 PRINT:PRINT"(3) TRADE WITH THE SOVIET UNION UNION TO CONTI 

NUE AT PRESENT" 

2060 PRINTTAB( 5) "LEVELS; MAINTAIN EXISTING SALT AGREEMENTS AND S 

UPPORT" 

2070 PRINTTAB( 5) "FURTHER DISARMAMENT AGREEMENTS." 

2080 PRINT: PRINT" (4) ABANDON SUPPORT FOR AUTHORITARIAN REGIMES; 

CUT MILITARY 
2090 PRINTTAB( 5) "SPENDING AND ADOPT STRONG HUMAN RIGHTS POLICY." 

2100 GOSUB2150:P5=VAL(Z$) : IFP5>4ORP5<1GOTO1990 

2110 RETURN 

2120 END 

2130 PRINT@900, "PRESS <ENTER> TO CONTINUE"; 

2140 Z$="":Z$=INKEY$:IFZ$=""THEN2140ELSERETURN 

2150 PRINT"WHICH DO YOU CHOOSE?" ; :GOSUB2140 :RETURN 

2160 ' 

2170 CLS: PRINT, "WEEK" ;WE+1; "OF THE CAMPAIGN" 

2180 PRINT: PRINT" NOW YOU SHOULD DECIDE HOW MUCH OF YOUR WAR C 

HEST TO" 

2190 PRINT"SPEND ON EACH CAMPAIGN ACTIVITY FOR THIS WEEK. yOUR B 

ALANCE IS"; : PRINTUSINGP$;F; : PRINT"." 

2200 PRINT"THUS FAR YOU HAVE SPENT" ; :PRINTUSINGP$; TV; : PRINT" ON 

TELEVISION,"; : PRINTUSINGP$; RA 

2210 PRINT"ON RADIO,"; :PRINTUSINGP$;NE; :PRINT" ON NEWSPAPER ADVE 

RTISING,"; : PRINTUSINGP$; SO; : PRINT" FOR" 

2220 PRINT"SOUVENIRS, AND" ;: PRINTUSINGP$;FR; : PRINT" ON FUND RAIS 

ING.":GOSUB2240 

2230 GOTO280 

2240 PRINT : PRINT: PRINTTAB( 7) "ENTER EXPENDITURE FOR FUND-RAISING" 

; : INPUTE1 

2250 PRINTTAB(7) "ENTER EXPENDITURE FOR TELEVISION" ;: INPUTE2 

2260 PRINTTAB(7) "ENTER EXPENDITURE FOR RADIO" ;: INPUTE3 

2270 PRINTTAB(7) "ENTER EXPENDITURE FOR NEWSPAPERS" ;: INPUTE4 

2280 PRINTTAB(7) "ENTER EXPENDITURE FOR SOUVENIRS" ;: INPUTE5 

2290 CLS: :PRINT"YOU HAVE SPENT YOUR CAMPAIGN MONEY AS FOLLOWS:" 

2300 PRINT:PRINT:PRINTTAB(15) "FUND-RAISING:"; :PRINTUSINGP$;E1 



:PRINTUSINGP$;E2 
:PRINTUSINGP$;E3 
:PRINTUSINGP$;E4 
:PRINTUSINGP$;E5 



2310 PRINTTAB( 15) "TELEVISION: 

2320 PRINTTAB( 15) "RADIO: 

2330 PRINTTAB( 15) "NEWSPAPERS: 

2340 PRINTTAB( 15) "SOUVENIRS: 

2350 FORZ=30TO79:SET(Z,25) :NEXT: ET=E1+E2+E3+E4+E5 

2360 PRINT :PRINTTAB( 15 ) " TOTAL: "; :PRINTUSINGP$;ET 

2370 PRINT: PRINT: IFET>FTHENPRINT"SORRY; YOU HAVE ONLY";F;" DOLLA 

RS IN THE TREASURY" ELSEGOT023 90 

23 80 INPUT"HIT <ENTER> TO REDO YOUR BUDGET" ; Z :CLS:PRINT"TOTAL AV 

AILABLE IS"; : PRINTUSINGP$;F :GOTO2240 

23 90 F4=F-ET:PRINT"THESE EXPENDITURES WILL LEAVE" ;F4; "DOLLARS" 

2400 PRINT" IN YOUR CAMPAIGN TREASURY. IS THIS WHAT YOU WISH(Y/N) 

"; :GOSUB2140 

2410 IFZ$O"Y"THENCLS:PRINT"T0TAL FUNDS AVAILABLE" ; :PRINTUSINGP$ 

;F:GOTO2240 

2420 F=F4 : Fl=Fl+ET: FR=FR+E1 : TV=TV+E2 : RA=RA+E3 : NE=NE+E4 : SO=SO+E5 : 

RETURN 

2430 ' 

2440 CLS:PRINT"HERE ARE THE RESULTS OF THE ELECTION:" 

2450 XC=100*DP/(DP+RP) :QC=100*RP/ (RP+DP) :VO=CO*VP/100 

2460 PRINT: PRINT: PRINTTAB( 5) "REPUBLICAN: " ,INT(VO*QC/100) ,:PRINTU 

SINGQ$;QC 

2470 PRINT:PRINTTAB(5) "DEMOCRATIC: " ,INT(VO*XC/100) , :PRINTUSINGQ$ 

;XC 

2480 PRINT:PRINTTAB(5) "TOTAL VOTE: " ,VO, :PRINTUSINGQ$;VP 

2490 IFXOQCANDC$="D"ORC$="d"GOTO2510 

2500 IFQOXCANDC$="R"THENGOTO2510ELSE2540 

2510 PRINT:PRINT"YOU'VE WON! CONGRATULATIONS ON YOUR ELECTION. T 

HE" 

2520 PRINT"CHANCES ARE THAT YOUR PROBLEMS ARE ONLY BEGINNING. PR 

ESS" 

253 PRINT" <ENTER> TO SEE A SUMMARY OF YOUR CAMPAIGN. " .-GOSUB2140 

Listing continues 




This Special limited Edition Package will be in high 
demand as only 500 copies will be made They will be 
numbered 1 300 and will be personally signed by the 
author. Kim Watt. YOUR name will be embedded in the 
program as the serial number The following is included 
with this SPECIAL LIMITED PACKAGE 

1) SUPER UTILITY PLUS S/E in CMD File Format 
Both MOD I and III versions are included, and your 
NAME will be the serial number This will MOT be a 
protected disk, and you may make as many BACKUPS 
as you wish. The serial number is MOT changeable 

2) TWO attractive SU'SE binders 
Binder " I will include: 

Three manuals in LARGE format (8 I 2 x I I '> 

(a) SUPER UTILITY I Manual 

(b) IMSIDER SUPER UTILITY by Paul Wiener 
foreward by Kim Watt 

(c) SUPER UTILITY TECH Manual by Kim Watt & 
Pete Carr 

31 Binder "2 will include THE SOURCF CODE for 

SUPER UTILITY PLUS 
Yes.. .the SOURCE CODE to this MAJOR program will 
be available to 500 programmers. This is FUl LY 
commented by the author. Kim Watt, and is a machine 
language programmers dream come true 1 After 
reading this, your machine language programming skill 
should increase tremendously. All of Kims knowledge 
in OME book! All at your disposal and for YOUR use " 

4) The license to USE. Kim Watt's sub routines 

will be granted to those 500 registered owners! These 
500 ONLY will be able to apply all of Kim's magic to 
THEIR programs No royalty fee necessary. In other 
words, IMPROVE YOUR PROGRAMS! 1 ake Kirn s ideas 
and expand on them! Never has anything EVER been 
done like this before These 500 ONLY have the right to 
use our sub-routines. Tins information is NOT being put 
in the public domain We are allowing these 500 to use 
our routines by buying our special package All copy- 
rights and trademarks are retained by Breeze QSD. Inc 

5) SCJVSE is NOT available from any dealer, but only 
directly through Breeze QSD. Inc. Customers will be 
handled on a one-on-one basis Confirmed orders will 
be pre-registered and a matching card must be returned 
by purchaser for full support from Breeze. QSD. Inc We 
will know who each and every owner is. so full support 
can be given. We DO want you to sign and return our 
registration card for this support to commence, 
however. Mo exceptions will be made 

6) This is a very important step that we are taking, and 
only a select group can appreciate the value in a 
package like this. This is MOT for the general mass 
market It is a college education in machine language 
written by a recognized expert It IS SU' in CMD file 
form. It is a license to use Kim Watt's subroutines. It is an 
opportunity to vastly improve your product. It is a 
collector's item. also. Limited. Indeed Last but not least 
it is expensive. On the surface only, however, as this 
product will make you an expert programmer if that is 
what you want You can literally write a DOS from 
studying the code! It will also make you a member of an 
elite group that has access to Kim's knowledge and can 
USE that knowledge to YOUR benefit 

Source Code is FULLY Commented. 

Price for the Super Utility Plus- 
Special Edition is 
$500 

Available later this year 
Call or write for more information 

•Credit to Kim Watt and Breeze.-QSD must be given in the 
program and in the documentation for subroutines used 
There is NO royafty fee to pay however 



A Division of Bree.sc QSD. Inc. 
1 ] 500 Stemmons Fwy., Dallas. Texas 75229 
To order call toll free 1 800 527 7432 

For product information (214) 484-2976 ^-61 



^See List oi Advertisers on Page 563 
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TAS Adventure Series 
Package I 

By: Gary Heimburger and Gary Robinson 

(This adventure package is the first to be marketed 
that was created by The Adventure System! Look for 
more fantastic adventures coming soon! Each TAS 
adventure package includes TWO complete 
adventures for one low price!) 

Adventure 1: Isles of Doom - Part I 

The Scenario: A small South-sea island chain. 
Unfortunate navigation left you stranded on one 
island. 

The Mission: (if you can get through the shark- 
infested waters to the island!) The island was a 
scene of activity during WWII. Scattered over the 
island are components that will allow you to fix an 
old radio transmitter. Can you fix it and tap out your 
SOS before falling prey to the elements of doom? 

Adventure 2: Lost City of Gold 

The Scenario: You're on a mountain climbing 
expedition in South America (in Peru, near Lake 
Titicaca). After straying from the beaten path, you 
discover a cave that eventually leads to a forgotten 
part of the lost Incan city. Grab your pitons. 
The Mission: There are plenty of treasures if you 
can safely collect them and retrace your steps to the 
simple mountain hut. Be forwarned that most Incan 
cities contain many perils, especially for the 
uninitiated. ..seems Incan priests were rather 
paranoid. Requires 32K. 

TAS Adventure Packages are $15.95 on tape 
and $1 9.95 on disk. All media is unprotected! 
TAS Adventures allow you to SAVE up to 10 
versions of the game in progress! Please 
specify Model I or III. 

Get in on the action! The Adventure System 
editor is now completely in Z80 and allows 
easy interactive debugging. Requires 48K. 
Specify Tape or Disk, please. Only $39.95 for 
the complete system AND three adventures! 






STOPPER! 

The BASIC Breakpointer 

By Roxton Baker 
Author of "TRAKCESS" 

Stopper is a unique machine language utility 
that allows interactive program debugging 
when using Level II or Disk BASIC on the 
Model I and III. Stopper was designed by 
Roxton to help debug a new version of 
TRAKCESS that will be announced shortly, 
because there wasn't anything on the 
market that would provide the features 
needed. 

Some of Stopper's commands: Set a 
breakpoint with a "hit" count, either when a 
line has been executed "n" times or a 
variable is equal a certain value; or not equal 
a certain value; breakpoints and variables 
may be viewed and modified at any time; 
selective execution of program statements 
and lines; display only the portion of the line 
where the error occurred; TRON functions 
are improved and may be routed to printer; 
set a "tolerance" on single and double 
precision numbers (to accommodate the 
inaccurate ROM routines and more. 
Naturally single stepping is fully supported. 
With STOPPER you will know exactly where 
the error is and why it occurred. Program 
execution is under YOUR control! 
A special offer from the author and TAS: 
Stopper is $20 on tape or disk, BUT you are 
licensed to make up to four additional 
copies, making the cost for this valuable 
utility only $4. Support co-op purchases by 
ordering today. BASIC debugging will never 
be easier, nor a better utility any cheaper. 
Extra manuals and Z80 source code are 
available. 



LDOS Users! | : or AND NEWI = 

I utility package just for YOU: - - DllMIlL/ llL.1I i - 



A special utility package just for YOU: 

DRIVE-S 
Four drives not enough? ORIVE-5 is a memory 
based disk emulator which allows you to configure a 
fifth drive IN MEMORY! No moving parts, so access 
is FAST! In a two drive system, FORMAT and 
BACKUP can be placed on DRIVE-S (with /SYS 
modules) to allow multiple backups with less disk 
swapping. 

LOWDUMP 

LOWOUMP allows you to DUMP files from 
anywhere in memory, including ROM and video 
RAM! LOWDUMP allows all parameters as the 
LDOS DUMP command, including ASCII, tor 
dumping files without loader information present. 

SYSGEN 

SYSGEN/CMD allows you to save one or more 
SYSGEN files as normal /CMD files. Keep several 
configurations on the same disk and reload as 
necessary by simply typing the filename. Especially 
useful when the preferred configuration consumes 
so much memory that large programs will not 
execute properly. SYSGEN/CMD may also be 
executed from a running BASIC program. When the 
resultant /CMD file is executed, the BASIC program 
will continue with the next statement, all program 
variables intact! 

UNREPAIR 

Model I TRSDOS cannot read LDOS disks due to 
the F8 DAM used for directory sectors. UNREPAIR 
will rewrite the directory track of a single density 
disk using the FA DAM that will be recognized by 
Model I TRSDOS. UNREPAIR should run with any 
Model I DOS and the Radio Shack E/l. 

An extra BONUS! The TAS LDOS Utility pack 
includes Z80 source code (on disk) of most of the 
above utilities (the most informative). The LDOS 
Utility Pak is $49.95. This package was written by 
I Les Mikesell. Gj 

"" 

S#URCE 



EFFECTIVE 
COMMUNICATION 



is easy with Modem80. There is absolutely no need 
to pay any more for a top-quality communication 
package. Modem80 can help your TRS-80 Model I 
and III talk to a wide variety of machines. The 
Modem80 translation table is easily modified to 
accommodate unusual protocol. Modem80 allows 
file uploading and downloading. XON and XOFF are 
supported to allow transmission of files larger than 
memory. A special protocol (compatible with the 
CP/M public domain program MODEM) allows 
I error-free transmission without converting to 
J ASCII. XMODEM, a special version of MODEM is 

■ included so that you may give your friends a copy to 
^ take advantage of faster error-free transmission. A 
L host program is included at no extra charge to allow 
I accessing your unattended TRS-80 from a remote 
£ location. All "local" parameters (baud rate, stop 
I bits, parity, duplex and more) can be changed 
Jl quickly and easily with a minimum of keystrokes. 

■ For specialized applications, one file may be 
™ transmitted while a different file is simultaneously 
k being received. DOS commands may be executed 

■ while within Modem80. Special patches insure 
J compatibility with all popular Model I and III 
1 operating systems. The previous screen is restored 
J after DOS commands. Modem80 also allows 
m disabling screen scroll to permit transmission 
^ speeds at up to 9600 baud (under direct connect 
k situations). A special patch sheet is available for 
I people wanting to use the Micronet Dow Jones 
^ service. Also available, on request, is a LYNX 

■ modem version that allows operation on a Model III 
J even il RS-232 is installed. All this and many more 
m features are what's making Modem80 one of our 
^ most popular programs! Oh, yes, the price helps 
k too: $39.95 complete including documentation in a 
8 three-ring binder. Modem80 is authored by Les 
£ Mikesell. 
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By Bruce Z 
Hansen 5 



An exciting new arcade game! Threshold-Nine is 
easy, but only the experienced reach Threshold- 
Zero. As you progress to the faster levels, the 
playing field decreases! Excellent graphics and 
sound, joystick compatible, all Z80 programming! 
Supplied In a "back-uppable" format (disk users will 
need to copy to a TRSDOS system diskette). High 
scores are saved on the disk version. Includes a 
special "pause" feature (for nature calls and other 
interrupt processing). Works on Models I and III 
cassette ($15.95) and disk ($19.95). 

FREE to the first 100 customers who order 
Threshold-Zero: A mini-poster of the Threshold- 
Zero Cover Art! Order today and find out why 
Threshold-Zero is already one of our best selling 
games! 



Order Form 

Please send me the following: 

D TAS Adventure Package I (tape) $15.95 
O TAS Adventure Package I (disk) $19.95 
D The Adventure System (tape) $39.95 

□ The Adventure System (disk) $39.95 
D LDOS Enhancement Package $49.95 
D Threshold-Zero (tape) $15.95 

□ Threshold-Zero (disk) $19.95 

□ Stopper $20.00 

D ModemBO $39.95 



□ 



TAS Subscription $24.00 



Please add $3 to your total order for 
shipping (except TAS subscribers). 
We ship UPS unless you specify 
otherwise. 



Name: 



Address: . 
Address: . 

City: 

State, Zip: 



Mail order to: 

The Alternate Source 

704 N. Pennsylvania Ave. 

Lansing, Michigan 48906 

Ph. (800) 248-0284 

Ph.(517)482-8270 

Master Card, visa and COD ($1.75 extra) are welcome! 
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Listing continued 

:GOTO2580 

2540 PRINT: PRINT" YOU'VE LOST; PLEASE ACCEPT OUR REGRETS. PERHAPS 

2550 PRINT" IT WILL CONSOLE YOU TO KNOW THAT YOUR OPPONENT'S TROU 

BLES" 

2560 PRINT"ARE JUST BEGINNING. PRESS <ENTER> TO SEE A SUMMARY" 

2570 PRINT"OF THE CAMPAIGN. " :GOSUB2140 

2980 DATA-TWELVE ARRESTED IN WELFARE FRAUD RING", -2 

29 90 DATA" STUDY SHOWS SCHOOLCHILDREN IN BUSES MORE THAN TWO HOUR 

S DAILY ON AVERAGE", -3 

3000 DATA" STUDY SHOWS NEW BUS ROUTES CUT AVERAGE TRIP TO SCHOOL 

BY FIFTEEN PERCENT", 1 

3010 DATA"YOUR OPPONENT TO MAKE THREE MAJOR TELEVISION ADDRESSES 

THIS WEEK",0 
3020 DATA"YOUR OPPONENT BEGINS PRINT MEDIA SATURATION CAMPAIGN", 


3030 DATA"YOUR OPPONENT TAKES MIDDLE GROUND ON BUSING ISSUE", -1 
3040 DATA" YOUR OPPONENT USING DOZENS OF RADIO SPOTS THIS WEEK",0 

3050 DATA" INFLUENTIAL COLUMNIST SAYS YOU LOOK 'TIRED; ' YOUR OPPO 

NENT HIKES FORTY MILES", 

3 060 DATA"WELL-KNOWN NEWSMAN REPORTS THAT YOUR OPPONENT IS FALLI 

NG OFF IN THE POLLS ",0 

307 DATA"OLD CHARGES OF TAX IRREGULARITIES SURFACE AGAINST YOU" 

,0 

2580 CLS:PRINTTAB(30) ; "SUMMARY" :FORZ=60TO74:SET(Z,3) :NEXT 

2590 PRINT: PRINT" DURING THE COURSE OF THIS ELECTION CAMPAIGN" 

2600 PRINT"YOU INCURRED EXPENDITURES AS FOLLOWS:" 

2610 PRINT: PRINT"TELEVISION: "; :PRINTUSINGP$;TV; : PRINT, "RADIO: 

"; :PRINTUSINGP$;RA 
2620 PRINT"NEWSPAPERS:"; : PRINTUSINGP$;NE; : PRINT, "SOUVENIRS: " ; :PR 
INTUSINGP$;SO 

2630 PRINT: PRINT"YOU RAISED" ;F8; "DOLLARS AT THE COST OF";FR;"DOL 
LARS. THE" 

26 40 PRINT"BEST RATIO YOU COULD HAVE ACHIEVED IS ABOUT 5 TO 1." 
2650 IFNB>0THEND$="DEMOCRATIC"ELSED$="REPUBLICAN n 

2670 IFNB=kJPRINT"DURING THIS RUN OF THE SIMULATION THE NEWS WAS 
NEUTRAL. " :GOTO2710 

26 80 PRINT"THE NEWS DURING THIS RUN OF THE SIMULATION FAVORED TH 
E" 

2690 PRINTD$;" SIDE BY" ; ABS (NB) ; "PER CENT." 
2700 Z$="":IFTC>1THENZ$="S" 

2710 IFTC=0GOTO2730ELSEPRINT"YOU CHANGED YOUR POSITION" ;TC; "TIME 
";Z$;", THUS LAYING YOURSELF" 

2720 PRINT"OPEN TO THE CHARGE OF INCONSISTENCY. " :GOTO2750 
2730 PRINT"YOU DID NOT CHANGE YOUR POSITIONS AT ALL DURING THIS 
RUN" 

2740 PRINT"OF THE SIMULATION, THUS AVOIDING IMPUTATIONS OF INCON 
SISTENCY." 

2750 PRINT@900, "ANOTHER TRY? ( Y/N) " ; :GOSUB2140 
2760 IFZ$="Y"RUNELSEEND 
2770 ' 

2780 DATA"SOVIETS INCREASE MILITARY FORCES IN AFGHANISTAN" ,-2 
2790 DATA"SOVIETS INVADE POLAND, CRUSH FREE LABOR MOVEMENT", -4 
2800 DATA"SOVIET UNION WITHDRAWS FROM AFGHANISTAN" , 2 
2810 DATA" U.S. SUPPORTED REGIME IN EL SALVADOR IMPRISONS TWO AME 
RICAN BISHOPS", 2 

2820 DATA"DISSIDENTS TORTURED BY U.S. SUPPORTED GOVERNMENT IN GU 
ATEMALA" , 1 

2 830 DATA"OIL COMPANIES RAISE GASOLINE PRICES BY 4%",2 
2840 DATA"DEPARTMENT OF ENERGY ANNOUNCES NEW FINDS OF NATURAL GA 
S",l 

2850 DATA" UNEMPLOYMENT RISES TO EIGHT PERCENT", 2 
286 DATA" INFLATION RATE INCREASES TO 1.2% FOR LAST MONTH", 2 
2870 DATA" INFLATION RATE SAID TO DECREASE TO .4% LAST MONTH", -1 
2880 DATA" JOBLESS RATE DROPS TO FIVE PERCENT", -2 
2890 DATA"YOUR CAMPAIGN MANAGER ACCUSED OF HAVING A MERETRICIOUS 

RELATIONSHIP WITH HIS SECRETARY", 
2900 DATA"YOU ARE ACCUSED OF SPENDING CAMPAIGN FUNDS FOR PERSONA 
L PURPOSES ",0 

2910 DATA"YOUR OPPONENT'S SON ARRESTED FOR DRIVING WHILE INTOXIC 
ATED" ,0 

2920 DATA"YOUR OPPONENT FOUND TO BE RECEIVING ILLEGAL CAMPAIGN 
DONATIONS ",0 

2930 DATA" SOME OF THE DONATIONS YOU HAVE RECEIVED ARE FOUND TO B 
E ILLEGAL",0 

2940 DATA"YOUR OPPONENT ANNOUNCES THAT HIS POLLS SHOW HIM LEADIN 
G BY TEN PERCENT" ,0 

2950 DATA"PRO-CHOICE AND PRO-LIFE DEMONSTRATORS CLASH AT COURTHO 
USE",0 

2960 DATA"TAX RELIEF PETITION SIGNED BY 34,000; DEMAND ACTION RI 
GHT AW AY ",-2 

2970 DATA"WELFARE MOTHERS DEMAND HIGHER BENEFITS; CLAIM CHILDREN 
STARVING",! 




THE MOST POWERFUL, FLEXIBLE 
DISK MAILING SYSTEM FOR THE TRS80 

•SUPPORTS 65,000 NAMES* 

PowerMAIL is a highly sophisticated 
mass mailing system designed to run 
under all of the popular DOS's currently 
available for the Mod I or HI. The program 
is written entirely in machine language for 
maximum operation speed, and occupies 
only 4K of the available RAM in your 
computer. There are no slow' periods 
when PowerMAIL is running. New 
features have been added to the program 
that others have always lacked. You now 
have the ability to keep track of mailings 
using the 24 'flags' that are incorporated 
into the PowerMAIL program. The 
PowerMAIL system will handle a file up to 
8 megabytes, or 65535 names, whichever 
is smaller. The program will run in as little 
as 32K and one disk drive, although 48K 
and 2 drives are desirable. The program 
will also sort the entire maximum file size 
and open up to 1 68 files simultaneously 
during the process. Author Kim Watt. 

For MOD I/II1...$ 99.95 

Hundreds of Satisfied 
Users... Scriplus 3.0 

Scriplus is a modification to 
Scripsit*'" which enables you to take 
advantage of the special functions, 
features, and print formats of your 
printer while your document is being 
printed. Allows you to: 

Chang* bm p«nri»d prtnt 
chang* no. o* c*k«c(»t» pmr inch 

or yndprlin« In ■id-linf 1 

Features: 

• Compatible with all current DOS's (I or III). 

• Modifies ALL versions of SCRIPSIT'". 

• Allows usage of MOD I version on MOD III. 

• Allows MOD III versions to be BACKED UP for your 
protectioa 

• Files can be killed, loaded, merged, or chained from 
the Scriplus directory. 

• Scriplus supplies an ALPHABETIZED directory with 
FREE space shown. 

• "END" returns to DOS READY instead of rebooting. 

• Printer can be stopped for insertion of text or forms 
alignment Inserted text can be edited prior to 
resumption of printing. 

• Specifically written for the MX-80 but will work with 
any printer that accepts CHR$ codes for control. 

• Optionally select line feed after carriage return. 

For MOD I/HI . . . $39.95 




■ See List ol Advertisers on 
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HOBBY 



LOAD 80 



To Boldly Go 



by Joey Robichaux 



A 



unique application for your microcomputer, 
this menu-driven, Basic package will help 
amateur astronomers and other stargazers. 



Program Listing 

1 CLS:DEFDBLO-Z:DEFINTI-K,M,N:RA=.017 45329:RE=23.43*RA:IDl=0 

2 DIMT1(8) ,T2(8) ,T3(8) ,T4(8) ,T5(8) ,T6(8) ,T7(8) ,T8(8) ,T9(8) ,P$(8) 
,UB(25) : UA=. 065709 :UC=1. 0027 43 :UD=. 997257 

3 GOSUB7050 
8 CLS 

10 PRINT@20 f "STAR TRACK / MASTER MENU" 

25 PRINT@266,"1. Determine planet coordinates" 

27 PRINT@330,"2. Determine SUN information" 

28 PRINT@394,"3. Determine MOON information" 

30 PRINT@458, "4 . Determine precession / rise and set" 

32 PRINT@522,"5. Time system conversions" 

34 PRINT@586,"6. Terminate program" 

50 PRINT@138, "Please select an option" 

55 QQ$=INKEY$:IFQQ$<"l"ORQQ$>"6"THEN55 

57 I=VAL(QQ$) 

60 IFK1THEN50 

65 IFI>6THEN50 

70 ONIGOTO10 0,190,3 00,400,500,17 

100 CLS :PRINT@20, "STAR TRACK / PLANET TRACKER" 

105 PRINT@276,"1. MERCURY" : PRINT@340 ," 2. VENUS" : PRINT@404 , "3 . EA 

RTH" 

110 PRINT@468,"4. 

URN" 

115 PRINT@660,"7. 

LUTO" 

117 PRINT@852,"A. Return to main menu" 

120 PRINT@138, "Please select an option" 

125 QQ$=INKEY$:IFQQ$="A"THENIP=10:GOTO130:ELSEIFQQ$<"1"ORQQ$>"9" 

THEN125ELSEIP=VAL(QQ$) 

130 IFIP<1ORIP>10THEN120 

132 IFIP=10THENCLS:GOTO10 

133 IP=IP-1 

134 PRINT@138,""; 

135 INPUT" Enter the desired date <MMDDYY>";D 

136 GOSUB40 00:IFNO=1THENGOTO13 4:ELSEIFIP=2THENGOTO180 

137 S$=P$(IP) 
140 ID=IM 

145 GOSUB2200:GOSUB2300 

150 IFIP<3THENGOSUB240 0:ELSEGOSUB250 

160 GOSUB3000 

165 GOSUB3500 

166 PRINT@448," pressREl> to return to last menu" : PRINT" 

else press <SPACE BAR> for angular size" :PRINTTAB(29) "dista 
nee from earth" :PRINTTAB( 29) "phase of planet"; 

167 QQ$=INKEY$:IFQQS="l"THENl00:ELSEIFQQ$=CHR$(32)THENGOSUB26 40: 
ELSEGOT0167 

168 GOSUB7025:CLS:GOTO100 
170 CLS 

Listing continues 



MARS" : PRINT9532 , "5 . 
URANUS" : PRINT@724 , ' 



JUPITER" :PRINT@596, "6. SAT 
. NEPTUNE" :PRINT@7 88, "9. P 



With Star Track, you can determine 
the position (right ascension and decli- 
nation), the distance from Earth, an- 
gular size, and phase of any planet in 
the solar system. You can determine 
the positions of the sun and moon, 
their angular sizes and distances, and 
their rise and set times. You can calcu- 
late precession from the three most 
common epochs (1950, 1975, 2000), 
and determine rise and set times for 
any celestial object. You can also use 
Star Track to convert mean standard 
time to sidereal time, and vice versa. 

Even though Star Track doesn't 
consider refraction or planetary per- 
turbations when computing positions, 
the results are usually within a few per- 
centage points of the actual figures. 
This is fine for amateur purposes, 
where the emphasis is on locating and 
observing objects. 

Dictionary of Terms 

Star Track introduces terms foreign 
to a beginner: right ascension (RA), 
declination (DEC), precession and 
epoch. The concepts involved are sim- 
ple; understanding them allows you to 
locate any celestial object with star 
charts. 

RA and DEC are terms concerned 
with locating objects in the sky (similar 
to latitude and longitude). 

Latitude refers to how far up or 
down a point is from the equator, and 
ranges from 0-90 degrees. Zero de- 
grees is a point on the equator, while 90 
degrees north or south is either of the 
two poles. Latitude is expressed in de- 
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grees, minutes and seconds; 60 seconds 
equal one minute and 60 minutes equal 
one degree. 

Longitude refers to how far around 
a point is on the Earth's surface. 
The key question is how far around 
from what, as there is no physical 
north-south circle to measure longi- 
tude from. 

Greenwich, England is designated as 
degrees longitude. Points west of this 
line are west longitude and points to 
the east are east longitude. 

Longitude ranges east and west from 
0-180 degrees; the 180-degree longi- 
tude line completes the circle begun by 
the 0-degree longitude line. Longitude 
is also expressed in degrees, minutes 
and seconds. 

Declination is similar to latitude and 
uses the same reference point as lati- 
tude, the equator. 

For example, if the Earth is a spin- 
ning ball in the center of a giant sphere 
and the circle formed by the Earth's 
equator were to expand until it touched 
this celestial sphere, it would trace a 
great celestial equator. Declination is 
measured in degrees north or south of 
this imaginary equator. 

Right ascension is similar to longi- 
tude; both have an arbitrarily assigned 
reference point. 

RA's reference point is the vernal 
equinox (or the first point of Aries). 
You don't have to locate the vernal 
equinox to use RA. A reference point 
has been established, and star charts 
and positions can be computed using 
this reference point. 

Until now, RA and DEC have been 
almost identical to longitude and lati- 
tude. Now RA is expressed in hours, 
minutes and seconds instead of de- 
grees, minutes and seconds. 

The idea of measuring locations 
with a unit of time is slippery, but 
hours isn't a unit of time, it's a unit of 
measurement equal to 15 degrees. 
There are 24 hours in a circle, just as 
there are 360 degrees in a circle 
(24*15 = 360). 

Right ascension is measured as you 
travel west from the vernal equinox. 
The vernal equinox is at RA 0h 0m 0s; 
if you travel 90 degrees to the west 
you're at RA 6h 0m 0s; 180 degrees to 
the west is RA 12h 0m 0s; 270 degrees is 
RA 18h 0m 0s. When you complete the 
circle, you're back at RA 0h 0m 0s (RA 
24h = RA0h). 

Figure 1 shows RA and DEC on the 
star chart. Note that the celestial equa- 
tor — the DEC line — runs through the 
belt of Orion. 

NowfindRA03h43m,DEC23°43 'N 
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Listing continued 

17 5 END 

180 FORI=1TO300:NEXTI 

185 CLS: PRINT: PRINT" On";D;", the EARTH was located 

187 PRINT: PRINT"DIRECTLY UNDER YOUR FEET" 

188 GOSUB7025 

189 CLS:GOTO100 

190 CLS :PRINT@20, "STAR TRACK / SUN MENU" 
195 PRINT@266,"1. Determine coordinates of SUN" :PRINT@330, "2. De 
termine distance and angular size" :PRINT@394,"3 
se/sunset":PRINT@458,"4. Return to main menu" 
200 PRINT@138,"Please press number of function"; 
210 QQ$=INKEY$:IFQQ$<"1"ORQQ$>"4"THEN210:ELSEIP=VAL(QQ$ 

231 IFIP=4THENCLS:GOTO10 

232 PRINT@138,""; :INPUT"Please enter the desired date 
D 

233 GOSUB40 00 : IFNO=lTHENGOT0232 : ELSEID=IM 
235 ONIPGOTO260,265,275 

260 GOSUB2600:GOSUB3000:S$="the SUN" :GOSUB3500 

261 GOSUB7025:CLS:GOTO190 
265 GOSUB2600:GOSUB2620:GOSUB7010:CLS:PRINT@64,"On";D; 

will have: ":PRINT:PRINT"anqular size of " ; IX;CHR$(130) 
" ' '":PRINT:PRINT"at a distance of "; SR; "kilometers" 
270 GOSUB7025:CLS:GOTO190 

275 CLS:KH=0 

276 GOSUB2630 

27 8 TG=TR:GOSUB7 20:TM=TG:GOSUB7 010:I1=IX:I2=IY:I3=IZ:TG=TS:GOSU 

B7020:TM=TG:GOSUB7010:I4=IX:I5=IY:I6=IZ 

280 PRINT:PRINT"The SUN will rise at approximately" ; II; ":"; 12; "a 

m" 

290 PRINT" and will set at approximately" ; 14; ":"; 15; "pm" 

295 GOSUB7025:CLS:GOTO190 

300 CLS :PRINT@20, "STAR TRACK / MOON MENU" 

305 PRINT@266,"1. Determine coordinates of MOON" : PRINT0330 , "2, 



, the SUN 
IY; n '";IZ 



D 



etermine distance, angular size, and phase" :PRINT@394 , "3. Determ 
ine rise/set times" :PRINT@458, "4. Return to main menu" 
310 PRINT@138, "Please press number of function"; 

320 QQ$=INKEY$:IFQQ$<"1"ORQQ$>"4"THEN320:ELSEIP=VAL(QQS) 

321 IFIP=4THENCLS:GOTO10 

322 PRINT@138,""; : INPUT"Please enter the desired date (MMDDYY)"; 
D 

323 GOSUB4000:IFNO=1THENGOTO322:ELSEID=IM 

324 IFIP=3THEN330:ELSEPRINT@176," " : PRINT@138 , " " ; 
:INPUT"Please enter the desired time (HHMM)";C 

325 CH!=INT(C/100) :CM=C-CH*100 :CM=CM/6 :CH= (CH+CM) /24 : ID!=ID+CH 
330 ONIPGOTO340,350,375 

340 GOSUB2600:GOSUB2700:GOSUB3000:S$="the MOON" :GOSUB3 500 

345 GOSUB7025:CLS:GOTO300 

350 GOSUB2600:GOSUB2700:D1 = 180-X6+VL:IFDK0THEND1=D1+360:ELSEIFD 

l>36 0THENDl=Dl-360 

355 F=(1+C0S(D1*RA) )/2: IFF> . 99THENF=1 .0 

360 P=(l-.0549[2)/(l+.0549*COS( (VM+VC) *RA) ) :TH=. 5181/P: P=P*38440 
1 

361 P=INT(P) :TM=TH:GOSUB7010 

365 CLS:PRINT:PRINT:PRINT"The distance from earth is" ; P; "kilomet 

ers" 

367 PRINT"The angular diameter is";IX;CHR$(130) ;IY; " ' " ; IZ" ' '" :PR 

INT"The phase is";F 

370 GOSUB7025:CLS:GOTO300 

375 CLS:PRINT:INPUT"Please enter your approximate latitude" ;TH:I 

FTH<0ORTH>90THEN375 

Listing continues 
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on the star chart. You should see a few 
dots north and east of Orion. If you lo- 
cate Orion in the night sky, look east 
and north and you'll see a tiny smudge 
of light. If the night is dark, you might 
see what looks like a tiny Big Dipper. If 
you look through a pair of binoculars, 
you'll see one of the most beautiful 
sights in the sky, the Pleiades (play-uh- 
deez), or the Seven Sisters. 

To explain precession and epoch, 
use the latitude and longitude exam- 
ples again. Suppose there's an island 
located at 50° north latitude, 40° west 



". . .you'll see 
one of the most 
beautiful sights 



in the sky. " 



longitude. Unfortunately, it's a float- 
ing island, moving one degree west 
every year. In 1982, its coordinates 
might be 50° west, 40° north; in 1983, 
its coordinates would be 51° west, 
40° north; in 1984, 52°W 40°N; and 
so on. The island has a steady preces- 
sion; its location or coordinates are 
always changing. 

If you look at a map of the island, 
you want to know the year the map is 
good for. So, on a 1982 map, Won't- 
Stay-Still Island is at 50 °W 40 °N. The 
epoch of the map is 1982, which is the 
year that the map's coordinates are 
correct. 

Star coordinates aren't the same 
every year. The Earth's axis tilts; it 
wobbles in its rotation. The effect is 
small; the Earth completes one wobble 
every 25,800 years. Over the years, 
though, the precession (change) is 
enough to change star coordinates. 

Star charts are written for particular 
epochs, currently either epoch 1950 or 
epoch 2000. Neither is exactly correct 
now, but the error is slight and doesn't 
affect amateur observing. 

Star Track uses epoch 1975 for its 
coordinates as a compromise between 
1950 star charts and 2000 star charts. 
Star Track can refigure coordinates to 
new epochs. 

Using the Program 

Load and run the program; three ti- 
tle pages appear. Each remains on the 
screen for several seconds. Star Track 
uses this slack time to load the vari- 
ables that it needs. 

After the title pages, Star Track dis- 
plays the master menu. 

Press 1 through 6 to select any op- 
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Listing continued 

377 CH=0:GOSUB2600:GOSUB2700:GOSUB3000:DB=.05*COS( (VL-VN) *RA) :DA 
=.55+.06*COS(VM*RA) :XG=XI :XH=XU:XA=XA+ (12*DA) :XB=XB+ (12*DB) :GOSU 
B3000 

378 GOSUB3000 

379 YB=XG:YA=XH:G0SUB26 31:A1=TR:A2=TS:YB=XI:YA=XU:G0SUB2631:B1=T 
R:B2=TS 

380 TR=(12*A1)/(12+A1-B1) :TS= (12*A2) / (12+A2-B2) 

3 81 TG=TR:GOSUB7020:TM=TG:GOSUB7010:I1=IX:I2=IY:I3=IZ:TG=TS:GOSU 

B7 020:TM=TG:GOSUB7010:I4=IX:I5=IY:I6=IZ 

383 PRINT: PRINT" The MOON will rise at approximately"; 11; ": "; 

I2;":";I3: PRINT" and will set at approximately" ; 14; 

":";I5;":";I6:GOSUB7025:CLS:GOTO300 

400 CLS :PRINT@20, "STAR TRACK / PRECESSION & RISE/SET" 

405 PRINT@266 f "1. Determine precession from 1950" :PRINT@330,"2. 

Determine precession from 1975" :PRINT@394, "3. Determine precessi 

on from 2000" :PRINT@458, n 4. Determine rise and set times" :PRINT@ 

522 f "5. Return to main menu" 

410 PRINT@138, "Please press number of function"; 

420 QQ$=INKEY$:IFQQ$<"1"ORQQ$>"5"THEN420:ELSEIP=VAL(QQ$) 

421 IFIP=5THENCLS:GOTO10 

425 IFIP=4THENGOTO460 

426 IFIP=1THENE1=1 950 :MS=3. 07327 :NS=1. 33617 :AS=20. 0426 :GOTO430 

427 IFIP=2THENE1=1975:MS=3.07374:NS=1.33603:AS=20.040 5:GOTO430 

428 E1=2000:MS=3. 07 420 :NS=1. 33589 :AS=20. 0383 :GOTO430 

430 CLS:PRINT@138,""; : INPUT"Please enter desired epoch (ex. 1981 
.8) ";E:IFE<1950THEN430 



432 CLS:PRINT@138,"" 
) n ;A:II=INT(A/10000) 
434 CLS:PRINT@138," n 



:INPUT"Please enter RIGHT ASCENSION (HHMMSS 

IFIK0ORII>24THEN432 

:INPUT"Please enter DECLINATION (DDMMSS)";B 



(A-IX*10000)/100) 
(B-IX*10000)/100) 



-I 



IZ=INT(A-IX*1 
IZ=INT(B-IX*1 
*(E-E1) :SW=SW/3600: 



-I 



;A 



I-I 



J-I 



435 IX=INT(A/10000) : IY=INT 

Y*100) :GOSUB7 000:A1=TM 

437 IX=INT(B/10000) :IY=INT 

Y*100) :GOSUB7000:B1=TM 

43 9 AD=A1*15:SW=(HS+NS*SIN(AD*RA) *TAN(B1*RA 

TM=A1+SW:GOSUB7 010:I1=IX:I2=IY:I3=IZ:S2=AS*COS(AD*RA) *(E-E1) :S2= 

S2/3600:TM=S2+B1:GOSUB7010:I4=IX:I5=IY:I6=IZ 

441 PRINT@330, "The adjusted values for epoch" ; E; "are : " 

443 PRINT@404, "RIGHT ASCENSION" ; II; "h" ; 12; "m" ; 13 ; "s" 

445 PRINT@46 8, "DECLINATION " ; 14; CHR$ (131) ; 15 ; " ' " ; 16 ; "' ' " 

447 GOSUB7025:CLS:GOTO400 

460 PRINT@138,""; : INPUT"Please enter the desired date (MMDDYY)"; 
D:GOSUB4000:IFNO=lTHENGOTO232:ELSEID=IM:CLS:PRINT@138,""; : INPUT" 
Please enter your approximate latitude";TH: IFTH<0ORTH>90GOTO460 

461 KH=0:CLS 

462 PRINT@138,""; :INPUT"Please enter RIGHT ASCENSION (HHMMSS 
:II = INT( A/10 000) :IFIK0ORII>24THEN462 

463 CLS 

464 PRINT@138 f ""; :INPUT"Please enter DECLINATION (DDMMSS)";B 

465 IX=INT(A/10000) :IY=INT( ( A-IX*10000) /100) : IZ=IMT(A-IX*100 
Y*100) :GOSUB7000:A1=TM 

467 IX=INT(B/10000) :IY=INT( (B-IX*10000) /100) : IZ=INT(B-IX*100 
Y*100) :GOSUB7000:B1=TM 

46 8 YB=B1:YA=A1:TW=(-TAN(TH*RA) *TAN(YB*RA) ) : IFABS (TW) MTHENGOT04 
69:ELSEGOSUB2631:GOTO470 

469 PRINT@394," The object either does not rise above the horiz 
on, " :PRINT@458," or it is circumpolar. It does not rise and se 
t.":GOT0477 

470 TG=TR:GOSUB7 020:TM=TG:GOSUB7010:I1=IX+KH:I2=IY:I3=IZ:TG=TS:G 
OSUB7 020 :TM=TG:G0SUB7 010 :I4=IX+KH:I5=IY: 16=1 Z 
473 PRINT@394," The object will rise at" ; II; " : " ; 12; 
475 PRINT@458," and will set at"; 14; " : ";I5; 
477 GOSUB7025:CLS:GOTO400 

500 CLS :PRINT@20, "STAR TRACK / TIME AND COORDINATES" 

505 PRINT@266,"1. Convert mean time to sidereal time" 

506 PRINT@330,"2. Convert sidereal time to mean time" 
508 PRINT@394,"3. Return to main menu" 

520 PRINT@138, "Please press number of function"; 

530 QQ$=INKEY$:IFQQ$<"1"ORQQ$>"3"THEN530:ELSEIP=VAL(QQ$) 

532 IFIP=3THENCLS:GOTO10 

550 PRINT@138, ""; :INPUT"Enter the desired date <MMDDYY>" ;D:G0SU 
B4000:IFNO=1THENGOTO550 

551 YY=D-(INT(D/100) *100) : IFYY>0ANDYY<74THEN550 

552 PRINT@168," " :PRINT@138 f ""; : INPUT"Enter t 
he desired time <HHMMSS>";T 

553 CH=INT(T/1000 0) :CM=INT( (T- (CH*10000) )/10 0) :CS=T- (CH*10000) -( 
CM*100) 

554 IFCH<0ORCH>24THEN552 : ELSEIFCM>59ORCM<0THEN552 : ELSEIFCM>590RC 
M<0THEN552 

555 IX=CH:IY=CM:IZ=CS:GOSUB700 0:IFYY=00THENYY=25:ELSEYY=YY-7 5 

556 ONIPGOTO560,557 

557 UT=UA*KM-UB(YY) : IFUT<0THENUT=UT+24 

558 TM=TM-UT: IFTM<0THENTM= (TM+24) *UD: GOT0562 : ELSETM=TM*UD: GOT056 

2 

Listing continues 
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• FREE SHIPPING • 

WITHIN CONTINENTAL 48 STATES 




ARE YOU A DREAMER? 

IMAGINE THIS ... 



TRY 
US! 



You place your order and it arrives when expected. "What do 
you know, they did ship that day!" You open your package and 
SURPRISE, it's what you ordered, not last year's version six times re- 
moved. "Wait a minute, I must have paid full retail to get this kind of 
service. H'mm, that's not it. These prices are among the lowest. What's 
the catch? I've got it! They charged me large shipping and handling charges 
No, not that either. It says here 'Free shipping within the Continental 48 States 
via UPS ground.' Only the differential is charged for UPS Blue or 1st Class. Now 
I've got it, it's only a dream!!!" 

At Micro Images your dreams become reality! How do we do it? Simple, we tell the truth. If 
the item you order is not in stock — we tell you. If we can't ship that day — we tell you. 
Which version? We tell you. Why are we telling you this? The answer is easy. This is what we 
do best and what separates us from the competition, AND WE WANT YOU TO KNOW. 



LAZYWRITER 

Latest Version Mod l/l 1 1 s 1 59.95 

See Below For New Options 



MAXI MANAGER 

Manager with Utility -$119.95 
Maxi Utility Only -$44.95 



SUPERUTILITY + 

Mod l/lll -Limited Time Onlv- $ 4655 
SEE NEW BOOK BELOW 



MZAL - Ver. 2 
Mdl lor III —$134.95 



MAXI CRAS 

Mdl l/lll —$84.95 

MAIL S84.95 STAT $179.95 



LDOS 5 1 



MDL I or 



$114.95 



GEAP $42.95 

with Dot Writer - $69.95 



NEW SCRIPT- 7.0- $114.95 

with Mailing Label Opt. -$124.95 
Mailing Label Opt. Only - $27.95 



New Random House Version 

Proofreader by Aspen Mod l/lll $49.00 

Proof-Edit by Aspen Mod l/lll $25.00 

Grammatik by Aspen Mod l/lll $49.00 

SPECIAL . . . All 3 FOR ONLY $110.00 



MULTIDOS $74.95 

Specify Mdl III or Mdl I 
Single or Double Density 



DOSPLUS 



Version 3.4S/3.4D/3.4III 
Version II For Model II 



$119.95 
$199.95 



UNITERM Modi/in $74.95 

UNITERM/80 Mod l/lll $84.95 



MICROSOFT 

Fortran 80 or A.L.D.S $89.95 

Basic Compiler $179.95 

Editor/Assembler + Taoe$27.95 Disk$45.95 



HEXSPELL 2 Mod l/lll $94.95 



POSTMAN MASS MAILING SYS. 
Standard Ver. Mod l/l 1 1 $118.95 

with Postwriter Mod l/lll $159.95 



DATA-WRITER Mod i/n$l 14.95 



SFINKS 3.0 Disk Mod l/lll $36.95 
SFINKS Chess Tutor Mod i/lll $17.95 



EDAS 



Mod I 
Mod I, 



4.0 $74.95 

III. 3.5 $69.95 



LAZYWRITER OPTIONS 

LAZYDOC $54.95 

LAZY TAB $13.95 

LAZYCALC $27.95 

LAZYDRAW + DO $18.95 

Tab, Calc, Draw + Do All 4 $37.95 



BOOKS 

Disk + Other Mysteries - ijg . . . . $20.95 

Basic Decoded - ijg $27.95 

Custom TRS-80 - ijg $27.95 

Basic Faster & Better - ijg $27.95 

Mdl 11/16 VisicalC - W.C. Brown $16.95 

Mdl l/lll VisicalC - W.C. Brown $16.95 

Copyriqht Kit $11-95 

Inside Suoerutility Plus $17.95 



LNW-Doubler 5/8 $205.95 

Includes Dosplus 3.4D 



SOOPER SPOOLER -byCompulink 

16K Parallel I/O Unit $334.95 

46K Memory Opt ■ $149.95 Serial I/O Opt. - $89.95 
Complete Unit - All Options $549.95 



LYNX auto dial/answer Mod. l/lll .$239.95 



• • PRINTER STANDS* * 





SPACE AGE NO FRILLS 

MX 80 Clear $27.50 MX 80 Clear $13.50 

MX 80 Bronze .... $29.95 MX 80 Bronze .... $1 5.95 
Microline 82A Space Age Bronze $29.95 



* VISION FRIENDLY • 

Vision Friendly is an eye exercise package for the Model III which 
comes with a Green, Blue, and Amber screen and a short graphic 
program. The package combines color & graphics to relax your 
eyes and ease eye strain. Each screen is a full grade quality 
screen which needs no glue, tape, etc. to attach and can be 
removed without a trace. The three plexiglass screens are more 
than worth the price. We are so sure you will like this package we 
are offering a 10 day money back guarantee. $29 95 



FREEDOM TECHNOLOGY INT'L 

Freedom Option $199.95 

Freedom Plus $399.95 



MICROBUFFER - Practical Peripherals 
Parallel or Serial (Epson) $149.95 



Dz. 
42.00 
52.00 
32.00 

32.00 



ZIP BOX RELOADS Vi Dz. 

Epson MX 70/80-20 Yds. . . 24.00 

Epson MX 100-30 Yds 30.00 

LP-l/ll/IV-16 Yds 18.00 

Centronics 730/737/739 

and 779-16 Yds 18.00 

All ZIP BOXES are individually sealed black nylon 
and require no rewinding 

CARTRIDGES Each Dozen 

Epson MX70/80 8.95 90.00 

LP-III/V 6.50 70.00 

Centronic 702/03/04/53 . . .11.00 120.00 
RS DSY WHL II Muiti strike. . . 6.50 70.00 
Diablo Hytype II Muiti strike. .6.50 70.00 
Qume-300,000 chr Muiti strike 6.50 70.00 
Nee SPIN H-Yield Muiti sthke.7.00 75.00 
MICRLNE 80/82A/83A Spl . . N/A 24.00 
Minimum order 3 cartridges - any mix. For smaller 
quantities add $1.50 per'order. All our reloads and 
cartridges are manufactured by one ol the oldest and 
most reputable ribbon Mfg's. in the country. 
***** QUALITY GUARANTEED ***** 

GAMES Tape Disk 

Sea Dragon 17.95 22.45 

Penetrator 22.45 22.45 

Defiance 22.45 

Panik 17.95 22.45 

Armored Patrol 17.95 22.45 

Eliminator 17.95 22.45 

Starfighter 22.45 26.95 

Forbidden Planet or City 34.95 

Strike Force 14.50 17.95 

Voyage of Valkyrie 31.95 34.95 

Bounceoids or Sp. Castle. 14.50 17.95 

The Institute 17.95 20.95 

Fortress or Alien Def 14.50 17.95 

Any Big 5 Program 14.50 17.95 



TO ORDER 

CALL OR 

WRITE TO: 



MICRO IMAGES 

146-03 25th Road 
Flushing, N.Y. 11354 
(212)445-7124 . 



PHONE HOURS: 

Mon.-Fri. 

10 AM-9 PM 

Sat. 

157 10 AM-5 PM 



ORDERING INFORMATION 

No credit cards at these low prices. Add $2.00 on all COD orders. Certified Ck/MO/COD 
shipped immediately. Please allow 2 weeks for personal checks. For extra fast service 
phone in your COD order. Free shipping within Continental 48 states via UPS ground. For 
Canada. Hawaii, Alaska, applicable shipping and insurance charges apply. Prices subject to 
change without notice. New York State residents please add appropriate sales tax. 

The items listed above are a cross-section of our product line. We carry the full line of most 
companies listed in this ad, plus much more. SEND FOR YOUR FREE CATALOG. 



■See Lisl ol Advertisers on Page 563 
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Listing continued 

560 UT=UA*KM-UB(YY) : TM=TM*UC+UT: IFTM>24THENTM=TM-24 : ELSEIFTM<0TH 

ENTM=TM+24 

562 GOSUB7010:IFIP=lTHENGOTO564:ELSECLS:PRINT:PRINT"The mean tim 

e is"; IX;": " ; J.Y; " : " ; IZ :GOSUB7025:CLS:GOTO500 

564 CLS:PRINT:PRINT"The sidereal time is" ; IX; " : " ; IY; " : n ; IZ :GOSUB 

7025:CLS:GOTO500 

2200 OP=(36 0/365.25) *(ID/Tl(IP) ) :OP=OP- (INT (OP/360) *360) 

2205 Xl=OP+(360/3.1415 927)*T4(IP)*SIN( (0P+T2 ( IP) -T3 ( IP) )*RA)+T2( 

IP) 

2210 IFXl>360THENXl=Xl-360:ELSEIFXK0THENXl=Xl + 36 

2215 VP=X1-T3(IP) 

2220 XR=(T5(IP)*(1-T4(IP) [2) ) / ( 1+T4 ( IP) *COS ( (VP*RA) ) ) 

2225 X2=SIN( (X1-T7(IP) ) *RA) *SIN(T6(IP) *RA) 

2227 X2=ATN(X2/SQR(-X2*X2+1) ) 

2230 X2=X2*57. 29578 

2235 X3=ATN(TAN( (Xl-T7(IP) ) *RA) *C0S(T6(IP) *RA) ) *57 . 29578+T7 ( IP) 

2236 GOSUB2350 

2237 X4=XR*C0S(X2*RA) 
2240 RETURN 

2300 PN=(360/365.25) *(ID/T1(2) ) 

2305 PN=PN-(INT(PN/360) *360) 

2310 PL=PN+( 360/3. 1415 927) *T4(2) *SIN( (PN+T2(2)-T3 (2) ) *RA)+T2(2) 

2315 IFPL>360THENPL=PL-360:ELSEIFPL<0THENPL=PL+360 

2320 PV=PL-T3(2) 

2325 PR=(1-T4(2) [ 2) / (1+T4 ( 2) *COS (PV*RA) ) 

23 40 RETURN 

2350 XZ=X1*.05 

2360 FORJJ=-360TO360STEP180 

2365 XQ=X3+JJ 

2370 IFABS(XQ-Xl) <XZTHENX3=XQ: RETURN 

2375 NEXTJJ 

2380 PRINT n ERROR":END 

2400 XA=ATN( (X4*SIN( (PL-X3) *RA) ) / ( PR-X4*C0S ( (PL-X3) *RA) ) ) 

2410 XA=(XA*57. 29578) +PL+180 

2415 IFXA>360THENXA=XA-360:ELSEIFXA<0THENXA=XA+360 

2420 XB=ATN( (X4*TAN (X2*RA) *SIN( (XA-X3) *RA) ) / (PR*SIN( (X3-PL) *RA) ) 

) 

2425 XB=XB*57. 29578 

2430 RETURN 

2500 XA=ATN( (PR*SIN( (X3-PL) *RA) ) / (X4-PR*C0S ( (X3-PL) *RA) ) ) 

2505 XA=(XA*57. 29578) +X3 

2510 IFXA>360THENXA=XA-360:ELSEIFXA<0THENXA=XA+360 

2515 XB=(ATN( (X4*TAN (X2*RA) *SIN( (XA-X3) *RA) )/(PR*SIN( (X3-PL) *RA) 

))) 

2520 XB=XB*57. 29578 

2530 RETURN 

2600 SN=(360/365.25) *ID: SN=SN-(INT(SN/360) *360) :SM=SN+279. 041470 

-282.5103 96: IFSM<0THENSM=SM+360 

260 5 SE=( 360/3. 141 5 927) * . 01672*SIN(SM*RA) :XA=SN+SE+27 9. 04147 : IFX 

A>360THENXA=XA-360 

2610 XB=0:RETURN 

2620 SV=SM+SE:SF=(1+(.01672*COS(SV*RA) ) ) / (1-.0167 2 [ 2) :SR=149595 8 

50 0/SF:S0=SF*. 533128 :TM=S0:SR=INT(SR) : RETURN 

2630 CLS:INPUT"Please enter your approximate latitude" ;TH :G0SUB2 
600:GOSUB3000:IX=I1+KH:IY=I2:IZ=I3:GOSUB7 00 0:YA=TM:IX=I4+KH:IY=I 
5:IZ=I6:GOSUB700 0:YB=TM 

2631 TW=(-TAN(TH*RA) *TAN(YB*RA) ) : TW=-ATN (TW/SQR(-TW*TW+1) )+1.570 
8:TW=TW*57.2957 8/15 

2632 TR=24+YA-TW: IFTR>24THENTR=TR-24 

2633 TS=YA+TW: IFTS>24THENTS=TS-24 

2634 RETURN 

2640 P2=PR[2+XR[2-(2*PR*XR*COS( (Xl-PL) *RA) ) :AU=SQR(P2) :AT=T8(IP) 

/AU : WD=XA-X1 : AF= ( 1+COS ( WD*RA) ) /2 : IFAF> . 99THENAF=1 . 

2642 PRINT@448,"The distance from earth is";AU;"AU ":PRINT@512 

,"The angular diameter is"; AT; " ' ' " :PRINT@576 ,"The phase is";AF:R 

ETURN 

2700 VL=(360/27.3217) *ID!+124 . 8756 :VL=VL- (INT(VL/360) *360) :VM=VL 
-(36 0/365.25) * (ID1/8. 85) -145 .96 01 : VM=VM- ( INT( VM/3 6 0) *36 0) :VN=24 8 
.6 441- (36 0/36 5. 25) *( ID 1/18.61) : VN=VN- ( INT(VN/36 0) *360) 

2701 X6=XA 

27 05 VE=1.27 4*SIN( (2*(VL-XA) -VM) *RA) :VA=0 .186*SIN (SM*RA) :V3=0.37 

*SIN(SM*RA) :VM=VM+VE-VA-V3:VC=6.289*SIN(VM*RA) : VL=VL+VE-VA-VC 

2710 W=.658*SIN(2* (VL-XA) *RA) : VL=VL+W:VN=VN- ,16*SIN(SM*RA) :XA= 

ATN( (TAN( (VL-VN) *RA) *COS ( 5 . 1453*RA) ) ) *57 .2957 8: XA=XA+VN:X1=VL:X3 

=XA : GOSUB23 5 : XA=X3 

2715 XB=SIN( (VL-VN) *RA) *SIN( 5. 1453*RA) :XB=ATN(XB/SQR(-XB*XB+1) ) * 

57.29578 

2720 RETURN 

3000 XB=XB*RA:XA=XA*RA 

3005 XT=SIN(XB) *COS(RE) +COS(XB) *SIN(RE) *SIN(XA) 

3010 XT=ATN(XT/SQR(-XT*XT+1) ) 

3011 XT=XT*57. 29578 

3015 X9=(TAN(XA) *COS(RE) )-( (TAN(XB) *SIN(RE) )/COS(XA) ) 

3020 X9=ATN(X9)*57.29578:XA=XA/RA 

Listing continues 



tion. The menu for option 1 looks 
like this: 

Star Track/Planet Tracker 
Please select an option 

1. Mercury 

2. Venus 

3. Earth 

4. Mars 

5. Jupiter 

6. Saturn 

7. Uranus 

8. Neptune 

9. Pluto 

A. Return to main menu 

Press 1 through 9, or A to return to_ 
menu. If you select a planet, you're 
asked to enter a date. Enter the date 
in MMDDYY format and press en- 
ter; you can use any date from 1950 
to 2000. 

Star Track then displays the RA 
and DEC of your planet. It asks you 
to press 1 to see the angular size, 
phase and distance from Earth in AU 
or to press the space bar to return to 
the last menu. 

The menu for option 2 looks like 
this: 

Star Track/Sun Menu 
Please press number of function 

1 . Determine coordinates of sun 

2. Determine distance and angular size 

3. Determine sunrise/sunset 

4. Return to main menu 

If you select option 3 (sunrise and 
sunset) you are prompted for your ap- 
proximate latitude. If you live north of 
the equator, enter a positive value; if 
you live south of the equator, enter a 
negative value. 

The menu for option 3 looks like 
this: 

Star Track/Moon Menu 
Please press number of function 

1 . Determine coordinates of moon 

2. Determine distance, angular size and phase 

3. Determine rise/set times 

4. Return to main menu 

Since the moon has such a high ap- 
parent motion, you're prompted for 
the time as well as the date. Enter the 
time in an HHMM format using mili- 
tary time (i.e., 1800 = 6 p.m.). 

For rise/set times, you're not asked 
to enter the time, but you must enter 
your approximate latitude. 

The menu for option 4 is below: 

Star Track/Precession and Rise/Set 
Please press number of function 

1. Determine precession from 1950 

2. Determine precession from 1975 

3. Determine precession from 2000 

4. Determine rise and set times 

5. Return to main menu 
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If you select 1, 2 or 3, Star Track 
prompts you for the epoch you wish to 
convert to. If you select function 1, 
you have a set of 1950 coordinates to 
convert to a new epoch. 

This epoch is a four-digit year with 
an additional decimal digit denoting 
parts of a year for a total of five digits. 
For example, June 1979 is halfway 
through 1979. Six months is .5 of a 
year, so the proper epoch for June 
1979 is 1979.5. October of 1986 is 10 
months into 1986. 10 months is about 
% of a year, so the epoch is 1986.8. 



"Star coordinates 

aren 't the same 

every year." 



You can enter any epoch between 
1975 and 2000. Once you enter the ep- 
och you want to convert to, you're 
asked for right ascension and declina- 
tion. Enter RA in HHMMSS format 
and enter DEC in DDMMSS format. 
Declinations north of the celestial 
equator are positive; those south of the 
equator are negative. 

For example: 

(RA= 12h 18m 03s) Please enter right ascension 
(HHMMSS)? 121803. (DEC 16°S, 14' 08") 
Please enter declination (DDMMSS)? - 161408. 

If you select function 4, you're 
prompted for the date, your approxi- 
mate latitude, and the RA and DEC of 
the desired object. 

Option 5's menu looks like this: 

Star Track/Time 
Please press number of function 

1. Convert mean time to sidereal time 

2. Convert sidereal time to mean time 

3. Return to main menu 

Functions 1 and 2 prompt you for 
the time and the date. 

Hints 

• All rise and set computations require 
your approximate latitude. 

• Daylight-saving time is not used. 

• When you respond to a request for a 
date, the program remembers that 
date. Pressing enter to the next prompt 
for a date results in the original date 
being used. This is handy when you 
want to determine several different 
functions for the same date, for exam- 
ple, positions of the planets, and 
rise/set of the sun and moon.B 



Listing continued 



)THENIQ=2:ELSEIFXA<=270THENIQ= 



3 021 IFXA<=90THENIQ=1:ELSEIFXA<=1! 
3:ELSEIQ=4 

3022 IFX9<0THENX9=X9+90:GOTO3022 

3023 IFX9>360THENX9=X9-90:GOTO3 023 

3024 IFX9<=90THENJQ=1:ELSEIFX9<=180THENJQ=2:ELSEIFX9<=270THENJQ= 
3:ELSEJQ=4 

3025 X9=X9+( (IQ-JQ)*90) 

3029 X9=X9/15 

3030 IFX9<0THENX9=X9+24 

3031 XU=X9:XI=XT 

3035 I1=INT(X9) :X9=X9-I1 

3040 I2=INT(X9*60) :X9= (X9*60) -12 

3045 I3=INT(X9*60) 

3050 I4=INT(XT) :XT=XT-I4 

3055 I5=INT(XT*60) :XT= (XT*60) -15 

3060 I6=INT(XT*60) 

3 06 5 RETURN 

3500 CLS 

3510 PRINT@128," On";D;", ";S$; n will be at : " 

3515 PRINT@256 , "RIGHT ASCENSION = " ; II ; "h" ; 12; "m"; 13 ; "s" 



= ";I4;CHR$(130) ;I5;" ,n ;I6; 



3520 PRINT@320, "DECLINATION 

35 40 RETURN 

4000 IM=INT(D/10000) 

4005 ID=INT( (D-IM*10000)/100) 

4010 IY=(D-(IM*1000 0) -(ID* 100) ) :KY=IY 

4011 IFIM<10RIM>12THENNO=l: RETURN : ELSEIFID<10RID>31THENN0=1 : RETU 
RN 

4012 NO=0 

4015 IL=INT(IY/4) *4 

40 20 IFIL=0THENLL=0 : ELSEIFIL=IYTHENLL=1 : ELSELL=0 

4025 IFIM>2THEN4040 

4030 IM=(IM-1)*(63-LL) :IM=IM/2 

4035 GOTO4050 

4040 IM=INT( (IM+1) *30.6) 

4045 IM=IM-63-LL 

4050 IM=IM+ID 

4053 IFIY<75THENIY=IY+100 

4054 KM=IM 

4055 IY=IY-75: IFIY=0THENRETURN: ELSEIH=1 
4057 KM=IM 

4060 F0RI=1T0IY 

4065 IFI=IHTHENIM=IM+366:IH=IH+4:ELSEIM=IM+365 

4070 IFIH=25ANDI=IHTHENIM=IM-1 

4075 NEXTI 

40 85 RETURN 

4100 DATA"MERCURY", .240 85, 320. 66305, 77. 06645, 

0427, 48. 034 93, 6. 74,1. 91 8E-6 

4105 DATA"VENUS",. 61521, 310. 97 453, 131. 21928,. I 

428,76.4547 5,16.92,1.721E-5 

4110 DATA"EARTH", 1.00004, 99. 53431, 102. 51044,. I 

4115 DATA"MARS",1.880 89,249.62919,335.5 9881,.! 

49 83, 4 9. 36 466, 9. 36, 4. 53 9E-6 

4120 DATA" JUPITER", 11. 86224, 355. 2141 4, 13. 91 992, 

.3045,100.1960 8,196.7 4,1.994E-4 

4125 DATA"SATURN", 29. 45771, 104. 1727 8, 92. 55833,. 05563, 9. 53 8844, 2. 

4 8933,113.43 842,165.6,1.74E-4 

4130 DATA"URANUS",84.01247,205.7 8286,170.2547 2,.I 

.77316, 73. 87 283, 6 5. 8, 7. 76 8E-5 

413 5 DATA"NEPTUNE", 164. 7 9558, 249. 91462, 44. 40592, 

, 1.7723 6, 131. 50 506, 6 2. 2, 7. 5 97E-5 

4140 DATA"PLUTO", 2 46. 37 8, 202. 3345, 224. 2580,. 246 115, 39. 29976, 17.1 

4451, 109. 996 5, 8. 20, 4. 07 3E-6 

4150 DATA. 3 97221,. 413525,. 363611,. 37 9644,. 395588,. 411473,. 36167 8 

,.377 595,. 3 93506,. 409421,. 359625,. 37554,. 391454,. 40736 8,. 357 573, 

.3734 87,. 3 8940 2,. 405316,. 355521,. 371435,. 387349,. 40326 4,. 353 46 8, 

.36 93 83,. 3 85297,. 401211 

7000 TM=( ( (IZ/60)+IY)/60)+IX:RETURN 

7010 IX=INT(TM) :TM=TM-IX:IY=INT(TM*60) :TM= (TM*60) -IY: IZ=INT(TM*6 

0) : RETURN 

7020 Wl=KM*UA-UB(KY-75) : IFWl<0THENWl=Wl+24 

7022 TG=TG-W1: IFTG<0THENTG=(TG+24) *UD: ELSETG=TG*UD 

7024 RETURN 

7025 PRINT0900, "Press <SPACE BAR> to return to last menu" 
7027 QQ$ = INKEY$:IFQQ$OCHR$(32)THEN7 027:ELSERETURN 

7050 PRINTCHR$(23) 

7055 PRINT@27 8,"STAR TRACK" 

706 FORI=0TO2:READP$(I) :READT1(I) :READT2(I) :READT3(I) :READT4(I) 

: READT5 ( I ) : READT6 ( I ) : READT7 ( I ) : READT8 ( I ) : READT9 ( I ) : NEXTI 

7065 PRINT@398,"AN ASTRONOMY GUIDE" 

7070 FORI=3T08:READP$(I) :READT1(I) :READT2(I) :READT3(I) :READT4(I) 

: READT5 ( I ) : READT6 ( I ) : READT7 ( I ) : READT8 ( I ) : READT9 ( I ) : NEXTI 

7075 CLS:PRINT@281,"An aid for the" :PRINT@407 , "amateur astronome 

r":PRINT@539, "written by: " :PRINT@667 , "Joey Robichaux" 

7080 FORI=0TO25:READUB(I) :UB(I) =UB(I) +17 :NEXTI 
7085 RETURN 



,205629, .387099,7.0 

(06785, .723332,3.39 

116720,1,0,0,0,0 
193382,1.523691, 1.8 

14846 ,5.202804,1 



14725,19.181854, 
.008586,30.05796 
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ENCYCLOPEDIA FOR THE TRS-80* 



AND 

ENCYCLOPEDIA 

LOADER 
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ENCYCLOPEDIA LOADER 



• 
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What is ENCYCLOPEDIA LOADER™? It is a 
dump, on 30 minute cassettes, of most of the 
programs contained in the ENCYCLOPEDIA 
FOR THE TRS-80. It gives you the ability to 
load those programs quickly and easily, 
saving you hours of keying in programs 
and correcting keyboard errors. ENCY- 
CLOPEDIA LOADER helps you realize 
the full potential of your computing 
time. Individual cassettes are priced 



at $14.95. The entire ten volume set is only 
$119.97. That's a $149.50 value! And again, 
we pay the shipping and handling charges. 

So push your TRS-80 to its limits and 
maximize your computing time with ENCY- 
CLOPEDIA FOR THE TRS-80 and ENCYCLO- 
PEDIA LOADER. Use the attached card for 
ordering, or fill in the coupon and mail today 
to: Wayne Green Books, Sales Dept., Peter- 
borough, NH 03458 




CALL TOLL FREE 
1-800-258-5473 for credit card orders. 




*TRS-80 is a trademark of the Radio 
Shack division of Tandy Corp. 

The ENCYCLOPEDIA FOR THE TRS-80* 
is a Wayne Green publication. 

ENCYCLOPEDIA LOADER™ is manu- 
factured by Instant Software, a division 
of Wayne Green Inc. 

Dealer Inquiries Invited. 



Wayne Green Books, 

A division of Wayne Green Inc. 

Pine St., Peterborough, NH 03458 



ENCYCLOPEDIA FOR THE TRS-80* & ENCYCLOPEDIA LOADER™ 






To Order Complete Sets (and lave an extra SI 5.00)' 
. Encyclopedia for (he TRS-80- . Volume* I -10, 

plu* FREE Volume I of Encyclopedia Loader ™ 

Hard Cover Kdilion EN81MI. 
. ] Encyclopedia Tor the TRS-80'. Volume* I 10, 

plus FREE Volume I of Encyclopedia Loader ' 

Soft Cover Edition EN8080I. 
. . SPECIAL OFFER! 

Encyclopedia Loader™ Volumes I-1OEUO00 S1I9.97 

a $149.50 value 
•Save SI 5.00 shipping and handling charge. When you order a 
complete sci of Encyclopedias oi Loaders. WE PAY THE 
SHIPPING! 



SIW.SU 



SI09.50 



To Order Single Volumes 
Please indicate the Volume Nos. and which edition you prcfe 
I Hard Cover edition ® S19.95 per vol. 
Volume!*) * ____^^__^_ 
. Soil Cover edition <& S10.95 per vol. 
Volumes) * 



Encyclopedia Loader 
Volumes) K 



', S 14.95 prr cassette 



Shipping and handling: SI. 50 per volume for single volumes of 
books and cassettes. SI0.00 per item foreign air mail. 
All Encyclopedias shipped UPS with complete street address, 
all Loaders shipped 1st class mail. 



LJ Payment enclosed D MasterCard D VISA CI AmEx 



Card It 

Signature 
Name _ 
Address_ 
City 



IntcrBank #_ 
Xard Expires- 



.State. 



-Zip, 



WAYNE GREEN BOOKS* SALES DEPT. 



PETERBOROUGH, NH 03458 

EN11A 
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PUSH YOUR TRS-80* TO ITS LIMITS 



Volume 1 

Down the Road 

After the Goldrush 

Business Forms: The Invoice 

How Much Interest?— The Rule ot 78 

Computer Education 

Measuring Instructional Effectiveness 

with the TRS-80 
Using a TRS-80 to Tabulate Student Ratings 
Swords ant) Sorcery II 
The President Decides 
Babe Ruth Is Alive and Well 

and Hitting Home Runs on My TRS-80 
Four Graphics Methods 
TRSpirograph 
Adventures in Roseland 
Punch Out Your Disks 
Build a Snooper/Snubber 
Car Pool 

Doctor Your Records 
Computacar 

Bio-Bars: Biorhythms in Bar Graph Form 
TTY Interlace 
Why Bother to Interlace 
Into the 80's, Part I, Part II, Part III 
Printer Calibration 
Delay Loop 



How? 

You don't have to add on peripherals 
You don't have to add on memory 
You just have to add on information with 
ENCYCLOPEDIA FOR THE TRS-80* 



Volume 2 
The Name and Address File 
Expense Report 
Story Math 

Smile- TRS-80 Loves You 
Keno 
Tie Attack 
Worksheet 
Curve Plotter 
Chip Tester 
Build a Light Pen 
BASIC Word Processor 
States Worked: 

A Program for Radio Amateurs 
Personal Property Inventory 
Testing 1, 2, 3 
Decode CW Directly 

Irom the Cassette Earplug 
Into the 80s. Part IV, Part V 
EDTASM lor Model III 
Put Some Flash into Your Menus 
FILEX: A Communication Package fc 

File Exchange 



Volume 4 
Mailing List lor a Small Business 
Business Forms— The Statement 
Grade Calculator 
Classroom Doodles 
Asteroid Adventure 
Compukala 
Puzzler 

On Your Mark, Get Set, and Go 
Program an EPROM 
Pari-Mutuel 

Income Tax Withholding 
An Automatic Cassette Tape Interface 
Send and Receive RTTY in BASIC 
A Better Way 
Don't Be a Slow POKE. 

Take a PEEK at Your Computer 
Hairy Bi-Nary and Hexy-Decimal 
Instant Indexer: Programming in Disk BASIC 
Uni-Key lor the Model I 
BREAK Disable 
• Z-80 Disassembler 



Flex/Form 

Inventory 

Algebra Tutor 

Supermaze 

Micro Basketball 

Images 

Regulate Your Video Monitor 

CTR-80 Modifications 

The Great Girl Scout Cookie Caper 

Two Energy Savers 

Listen To Your Keyboard 

A Deluxe Expansion Interface 

Interlacing the TRS-80 

to the Heath H14 Printer 
Saving Machine Language Below BASIC 
CISA8— 8ackwards BASIC 
Into the 80's, Part VI, Part VII 
Spool and Despool 
Renumbering Made Easy 



Volume 5 
Hi Ho Silver! 
Accountant's Aid 
Vocabulary Builder 
Numerical Expression Input in Level II 
Pre-School Math 
A Day at the Races 
Star Dreck 
Slide Show 
Graphs, Plus 
Interrupt Mode 1.5 

Reverse Video Hardware Modification 
Team Stats 
Loans— Do You Really 

Know the Cost ol Yours? 
A Home-Brew Interface 
A Handle on Programming: Store and F 
Prime Up Your 80 
The Z-80's Hidden Abilities 
KBFIX Your BASIC Programs 
File Name 
Macros: Let Your Micro Do the Work 



The Encyclopedia for the TRS-80* is the largest single 
source of TRS-80 information in the world. All ten vol- 
umes are loaded with practical programs and articles 
designed to take you and your computer beyond the lim- 
its of the manufacturer's documentation into a new and 
exciting world. 

Each volume contains between 15 and 20 articles ac- 
companied by diagrams and program listings. Virtually 
all of the articles are totally new and cover such topics 
as utility, tutorial, business, word processing, educa- 
tion, hardware, graphics, games and more. If you were 
to purchase individually all the programs contained in a 
single volume, it would cost you more than the $109.50 

price of an of an entire ten 
volume soft-cover edition. 
Think of it — over 150 pro- 
grams for $109.50. That's 
less than 73c per pro- 
gram! And, when you buy 
a complete set, soft or 
hardcover edition, we pay 
the $15.00 shipping and 
handling charges. PLUS 
you get Volume 1 of EN- 
CYCLOPEDIA LOADER™ 
absolutely free— A $14.95 
value. 



6 



Volume 6 

Exponential Smoothing 

• Voter Registration 
" Keeping Track- 
Student Scheduling and Attendance 

Parti 
Part II 

• Space Mission 
Slot Machine 
Level II Graphics Code 
New Compu-Sketch 
As You Like It With the PR-80 

• Add PROM Capability to Your TRS-80 
Magazine Index 

• Money Minder 
Groupies: A Strategy to Group Like Objects 
Stick With It 

• Easy Selectric(TM) Output for the TRS-80: 

Take Me to Your Solenoids 
On Toward Better Sorts ol Things 
Random Distribution Graphics 
Using LMOFFSET 
Extractor: An Ace in the Hole! 
Page Print Your Listings 
Let Your TRS-80 Do Ihe Typing 



"Programs contained on Encyclopedia Loader 
Book is needed to use Loader. 



Volume 7 

Point and Figure Charting 
lor Stocks and Commodities 

Dividend Reinvestment Plan 

Keeping Track- 
Student Scheduling and Attendan 
Part III 
Part IV 

Roulette 

Five Short Games 

Rubik's Cube(TM) Manipulator 

Easy CHR$ Graphics and Animation 

Memory Size— 20K! 

Disk BASIC Word Processor 

The Big Game 

Using the Useful UART 

String Problems in the TRS-80 

Hex. Octal, and Binary 
, to Decimal Conversions 

EMOD- EDTASM Modifications 
(or the Model III 

Renumber One 

Command 



Volume 8 

Business Predictions Irom the TRS-80 
Stock Valuation 
Practical Applications ol 

Classroom Programs 
Super Curve Fit 
Queen Rama's Cave 
TRS-80 Jukebox 
Instant Graphics lor Everyone 
Screen Editor lor Graphics Creations 
Lowercase Driver for the TRS-80 
Minor Monitor Maintenance 
Can You Find that Slide? 
Controlling Your Home with Your TRS-80 
Speak for Yourself: 

A Speech Synthesizer for Ihe TRS-80 
Computer Number Systems and 

Arithmetic Operations— Part I 
Down in the Dumps: Examining Memory 
New Disk Owners' Delight 
Generate 
Prolessional Looking Listings 

with a TeletypefTM) 
More Patches to EDTASM 



8 



Getting Your Bearings 

Do-lt-Yourseil Maze Package 

Munch 

Left'Righi for Ihe Color Computer 

Super Fast Graphics in BASIC 

Recreating Graphics 

Dynamic Graphics with Pool Ball 

EPROM Programmer 

Autocost 

Your Personal Expense Account 

Celestial Software 

Model III I/O Port 

A Bit of Precision 

Computer Number Systems and Arithmetic 

Operations - Part II 
Slow Scroll 

TRSDOS Multiple Command Processor 
Dandyzap 



! 10 



10 



• Plan Ahead — A Program for Project Planning 

• Check Siorage Program 
' Loan Amortization 

■ Physics in Motion— Exploring Ihe Projectile 

Problem 
Another Magic Trick 
Satan's Sguare 
Card Playing 
Unlocking the Color Computer Graphics 

Character Code 

■ SBLOCK 

Graphics and ZBASIC. Part I, Part II. Part III 

Heart/BAS Heart'CIM 
' Planning Your Retirement 

Low Resolution Voice for the Color Computer 

Atari Joystick to TRS-80 Interlace 

Screen Status Byte 

TRS-80— Cryptographer 
' Lazy Logic Trainer 

• Modilying Scripsit to Send Control 

Characters to Printers 

• Shortstulf 

COMPLETE INDEX FOR ALL 10 VOLUMES 
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UTILITY 



Datascope 



by Dennis Ridgway 



LOAD 80 



L 



ike an oscilloscope for software, Datascope 
reads data bit by bit, letting you recover 
data from glitched tapes or see data on tape. 



Have you ever needed to retrieve a 
key piece of data from an unreadable 
tape, or wondered about the speed of 
your cassette recorder, wanted to know 
the format of some cassette file, or 
wished you could visually inspect the 
recorded image on a tape? This Level 
II 16K analyzer program addresses 
these problems. 

This program is sort of a software 
oscilloscope for viewing pulses and 
gaps, those most fundamental particles 
of recorded data. Or it might be called 
a data microscope, allowing you to 
focus on recorded data at different 
levels of magnification, ranging from 
pulses and gaps, through bits and 
bytes, to Basic token words and two- 
byte pair values. 

The Program 

The program performs four distinct 
operations. The first, the load opera- 
tion, reads data from a tape and stores 
it in an area of memory called the buf- 
fer. The next three operations work 
with the stored data. The analyzer 
operation observes the pulse and gap 

164 • 80 Micro, Anniversary 1983 



patterns to determine the clock pulse 
alignment necessary for data bit inter- 
pretation. The search operation de- 
termines the bit alignment necessary 
for data byte interpretation. The 
translate operation changes data 
bytes into meaningful data forms. 

The program is written in Basic and 
uses two Assembly-language subrou- 
tines. One subroutine is used in the 
load operation to read data from the 
cassette; the other is used by the search 
and translate operations for converting 
pulse and gap data into logical bits. 

Load Operation 

This operation loads data from any 
cassette tape into a 7000-byte buffer. It 
is not a read routine as no logical inter- 
pretation of the data is made, but is a 
transfer of pulse and gap sensings. The 
sensings, called peeps, are taken at pre- 
cise time intervals. Each peep detects 
whether the read head of the recorder 
is positioned over a pulse or a gap and 
the result is stored in the buffer as a 
one bit or a zero bit, respectively. 

The time interval between peeps is 



operator selectable and can range from 
58.5 microseconds to more than 1700 
microseconds. Since both pulses and 
gaps usually last longer than 100 
microseconds (at the 500-baud rate), 
multiple peeps are possible during the 
span of a single pulse or gap. For the 
interpreting operations to work prop- 
erly, multiple peeps are desirable. Nor- 
mally, intervals greater than 143 mi- 
croseconds produce data that cannot 
be interpreted reliably by the other rou- 
tines and intervals greater than 214 
microseconds produce unintelligible 
data; whole pulses or gaps may be 
bridged between peeps. 

Because the peeps are at precise time 
intervals, it is possible to make ob- 
servations regarding your cassette 
player's running speed, acceleration 
time, and pulse width to gap width re- 
lationships for different volume set- 
tings. This information can be useful in 
diagnosing problems. The load opera- 
tion does not perform an interpretive 
read like your familiar load com- 
mands; it can, therefore, be used to 



The Key Box 

Model I 
16KRAM 
Level II 



load data from any tape and from any 
point on a tape. This makes it useful 
for identifying unlabeled tapes and 
files and for recovering partially over- 
written files. 

Analyze Operation 

This operation performs the initial 
steps of interpreting the raw data cap- 
tured by the load operation. The oper- 
ator is allowed to view the peeps in two 
different formats. 

The first format, shown in Fig. 1, 
presents the peeps in a straight vertical 
line. Peeps are printed as # for pulses 
and — for gaps. A waveform and no- 
tations have been added to Fig. 1 to 
visualize pulse and gap patterns. 



"You can view 

the peeps 

in two different formats. " 



In the second format, shown in Fig. 
2, the same peeps are being displayed. 
Here they have been separated into 
groups, with a group on each line rep- 
resenting one logical bit of informa- 
tion. Each print line starts with # peeps 
which it considers to be a clock pulse. 
These are followed by — peeps (a gap). 
Another series of # peeps indicates this 
is a one bit or a string of — peeps con- 
tinue indicating this is a zero bit. 

This vertical alignment of clock 
pulses is accomplished by the operator 
trying different bit widths during the 
analyze operation. The bit width is the 
average number of peeps from the start 
of one clock pulse to the start of the 
next. The routine starts at a clock pulse 
and skips across a number of peeps 
equivalent to .874 of the test bit width. 
At this time, the routine starts looking 
for the next pulse. When one is found 
it is considered to be the next clock 
pulse and a new line is started. 

The T16 on the first line of Fig. 2 in- 
dicates the test bit width was 16. The 
whole number result of multiplying 16 
by .874 is 13; the search for the next 
clock pulse was started after 13 peeps 
were printed. 

Each line indicates the buffer ad- 
dress AD of the first peep on that line. 
Notice the print line with address 
AD2213:6 in Fig. 2. This shows that 
peep six of byte number 2213 was the 
location of the first peep on this line. 
(Buffer addresses run from 1-7000 and 
peep numbers run from 1-8.) 

The T16 shows the test bit width and 

sSee List ol Advertisers on Page 563 
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Figure I 



ATAMA M * 

Data Manager 



MULTI-PURPOSE FILE HANDLER 

BUILD FILE IN MINUTES 

UNLIMITED BACKUP 

AUTO SCREEN FORMAT 

AUTO TOTALS & SUBTOTALS 

HANDLES NEARLY 3000 RECORDS 

FIELD TESTED OVER 1 YR 

MODEL I OR III 

FORM LETTER WRITER/ADDRESS MERGE 

SYSTEM REQ: 2 DRIVES, 48K 

ABSOLUTELY NO PROGRAMMING 

MULTIPLE FILES ON 1 DISK 

COMPLETELY USER FRIENDLY 

AUTO PRINT FORMAT 

MENU DRIVEN 




SORTS IN MINUTES-NOT HOURS 

USERS GUIDE ON DISK 

SUPPORTS EPSON, OKIDATA, RS PRINTERS 

AUTOMATIC COLUMN AVERAGING 

STATE MODEL & PRINTER WHEN ORDERING 

INFO/INQUIRY 305-351-0428 

ORDERS ONLY 800-327-6590 

VISA OR M/C ACCEPTED 

$69.95 

FLORIDA RESIDENTS ADD 5% 



A String Systems " 443 

1446 HAGEN LN, ROCKLEDGE, FL 32955 
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MICROSETTE 



DISKETTES CASSETTES 




We now offer 5' 4 -inch single sided. 
soft sector, single or double density 
diskettes, in addition to our quality 
short length cassettes. 

Our Prices Include 
Boxes and Shipping 



CASSETTES 


Item J 10 Pack 


50 Pack 


C-10 $ 7.50 


$ 32.50 


C-20 


9.00 


39.00 


C-60 


11.00 


50.00 


C-90 


15.00 


70.00 


DISKETTES 5V4-inch 


MD 5 i $25.00 


$110.00 



UPS shipment in continental 

U.S.A. only. 

We cannot ship to P. (). Boxes. 



Item 


Qty. 


Price 


Total 


















SUBTOTAL 




Calif. Cust. add Sales Tax 




TOTAL 





Shipping address enclosed 

Check or money order enclosed H 

Charge to: Visa I ! MasterCard '...! 

Account No. 

Expiration Date 



Signature 



MICROSETTE CO. 

475 Ellis St., Mt. View, 
CA 94043 (415)968-1604 



166 • 80 Micro, Anniversary 1983 



the 15 at the right shows the actual bit 
width of this bit line. The pulse/gap 

pattern of #### #### 

shows this to be a one bit. You may no- 
tice this same pattern in Fig. 1, run- 
ning vertically from line AD2213:6 to 
AD2215:4. This one bit happens to be 
the first one bit of the synchronization 
bit pattern of 10100101 at the begin- 



ning of data on a tape file. 

While the analyze operation was run- 
ning, the right-arrow key (a delta in 
Fig. 2) and the left-arrow key (printed 
as a right bracket) increase or decrease 
the test bit width by one. Note line 
AD2270:8 of Fig. 2. The delta shows 
that a right arrow was invoked increas- 
ing the T value from 16 to 17. The right 
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Figure 3 
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Word Processing 

Software 

for TRS-80* 

Model I 




World's most popular word 
processing package. Fully 
proven Electric Pencil* now 
enhanced and offered in 16K 
cassette version only. 

• Easiest to learn 

• Simple to operate 

• Full screen editing 

• Global search & replace 

• Powerful insert/delete 

• Dynamic print formatting 

• No control key mod. 

Send check or MO for $24.00 
plus sales tax for Calif, 
cust. UPS shipping in USA 
prepaid. 



$ 24.00 

$10.00 for manual only 

'Electric Pencil licensed to PMC 
Software by Michael Shrayer. 
TRS-80 trademark of Tandy Corp. 



PMC SOFTWARE 

475 Ellis St. Orders (415) 962-0318 

Mtn. View, 

CA 94043 Info (415)962-0220 



J>MG 



SOFTWARE- 



Proven Software Solutions 

for the TRS-80, PMC-80 & 81 User 

At VERY Special Prices 
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Advanced Operating Systems 
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+ VOYAGE OF THE VALKYRI E 




SCOTT ADAMS ADV. 


#1. #2 8 #3 




ATTACK FORCE 






D32K I & III 


39.95 


32 00 


D32KI8 III 


39.95 


31.00 


D 32K I 8 III 


19.95 
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T 16K I 8 III . . .. 


29.95 


24.00 
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D32K 1 8 III 
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D32KI8 III 


19.95 


15.00 


T 16K 1 8 III 


14.95 


11.00 


D32K IS III 


20 95 


16.00 


T 16KISIII 


19.95 


15.00 


LABYRINTH 






T 16K 1 8 III 


19.95 


15.00 


DUNJONQUEST 






D32K 18 III 


17.95 


14.00 


OTHER VENTURE #3 






SORCERER OF SIVA 






T 16K 1 8 III 


14.95 


11.00 


ESCAPE FROM TRAAM 




D32K I 8 III 


29 95 


23.00 


WARRIOR OF RAS — 


DUNZHIN 




D32KI 8 III . ... 


20.95 


16.00 


T 16K I 8 III 


29.95 


23.00 


D48K 1 8 III 


29.95 


23.00 


T 16K I & III . . . . 


19.95 


15.00 


DUNJONQUEST— 






T48K 1 8 III 


29.95 


23.00 


OTHER VENTURE Mi 






TEMPLE OF APSHAI 






WARRIORS OF RAS - 


KAIV 




FARTHOUAKESF1906 




D32K IS III 


39.95 


30.00 


D48KI& III 


29.95 


23.00 


1 D32K 1 & III ... . 


20.95 


16.00 


T 16K 1 8 III 


39.95 


30.00 


T48KI8 III 


29.95 ; 


23.00 


T 16K 1 & III 


19.95 


15.00 


DUNJONQUEST- 






WARRIORS OF RAS- 


THEWYLDE 


OTHER VENTURE #5 






UPPER REACHES OF APSHAI 




D48K 1 8 III 


29 95 


23.00 


* DEATH PLANET 






D32K 1 8 111 


19.95 


15.00 


T48K 1 8 III 


29.95 


23.00 


T I6K 1 8 III 


19.95 


15.00 


T 16K 1 8 111 .... 


19.95 


15.00 


Melbourne House Software 




PLANETOIDS 






+ RICHOCHET 






PENETRATOR 






^ D32KISIII 


20.95 


16.00 


D32K 18 III 


19.95 


15.00 


D32K 1 8 III 


24.95 


20.00 


iS T 16K 1 & III . 


19.95 


15.00 


T 16K I 8 III 


19.95 


15.00 


T 16K I 8 III 


24.95 


20.00 



Now Twice As Many Programs! 



EDUCATION 



Advanced Operating Systems 
MOSTLY BASIC 
EDUCATIONAL PKG. 7 PRG. 

T 16K I 8 III 24.95 

MOSTLY BASIC 
SCIENTIFIC PKG. 7 PRG. 

T 16KI SHI 24.95 

TIME DUNGEON 
AMERICAN HISTORY 

T 16K I 8 III 24.95 

TIME DUNGEON— 
-WORLD HISTORY 

T 16K I 8 III 24.95 

Automated Simulations (EPYX) 
JABBERTALKY 

D 32K I & III 29.95 

T 16K I 8. Ill 29.95 



BUSINESS 

Small Business Systems Grou 
ACCOUNTS PAYABLE 

D48K I 8 III 195.00 

ACCOUNTS RECEIVABLE 

D48K I 8 III 195.00 

GENERAL LEDGER 

D48K I 8 III 195.00 

INVENTORY CONTROL 

D48K I 8 III 195.00 

PAYROLL 

D48K I 8 III 195.00 



20.00 
20.00 
20.00 



WORD PROCESSING 

Aspen Software 

GRAMMATIK 

D 32K I 59.00 46.00 

PROOF EDIT 

O 32K I 30.00 23.00 

PROOFREADER 

D32K I 54.00 42.00 

SOFT-SCREEN 

D48K I 69.00 54.00 

SOFT-TEXT 

D 48K I 69.00 54.00 

Michael Shrayer Software 
ELECTRIC PENCIL 

T16KI 100.00 24.00 

INFO. PROCESSING 



Adv 



! Inte 



99.95 79.00 



155.00 
155.00 
155.00 
155 00 
155.00 



*-MAXI CRAS 

D 48K I 8 III . . . 
MAXI MANAGER 

D48K I 8 III 99.95 79.00 

+ MAXI MANAGER UTILITY PACK #1 

D 48K I 8 III 49.95 39.00 

+ MAXI STAT 

D48K I 8 III 199.95 147. 0C 

Auk's 
+ COMPUTER FILING SYSTEM (CFS) 

D 32K I 8 III 69.00 55.00 

Dan Haney Associates 
ELECTRIC SPREADSHEET 

D32KI 8 III . . . . 69.95 65.00 

T 16K I 8 III 34.95 30.00 



OPERATING SYS. 

Micro Systems Software 
DOS PLUS V3.3S 

D 32K I 100.00 80.00 

UTILITIES 

Adventure International 

DIRECTORY INFO. MGT II (DIM II) 

D32K I 8 III 24.95 19.00 

Howe Software 
MON3 

T16KI 39.95 31.00 

MON4 

D 32K I 49.95 39.00 

STERM 

T16KI 69.95 55.00 

SYSTEM DIAGNOSTIC 

D 32K I 8 III 99.95 79.00 

MISCELLANEOUS 

Adventure International 

HINT SHEET for single 

Adventure #1 thru #12 
1.00 1.00 

Software Affair 

ORCHESTRA-85 

T16KI 99.95 95.00 

D 16KI 99.95 95 00 



NEW 



PMC SOFTWARE 

475 Ellis St., Mt. View, CA 94043 
Orders: (415) 962-0318 Information: (415) 962-0220 



Terms FOR FAST DELIVERY, send certified checks, money orders. VISA or MasterCard number and expiration date. Personal checks require 3 weeks. 
US A sales only. PRICES INCLUDE UPS continental delivery (do not use P Box) CALIFORNIA customers add 6V4W tax. Prices suoiect to cnange 



■ See List of Advertisers on Page 563 
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Figure 3 conn 


wed 




SEARCH 


"STARTED AT BYTE- 2211 PEEP#- 6 WIDTH- 16 




0101 0010 1110 1001 1110 1001 1110 1001 1010 oooo 


1000 1110 


32H 


E9H E9H E9H AOH 


8EH 


82 


233 233 233 160 


142 


R 


EOF EOF EOF OUT 


RUN 




-3806 -3653 -3655 -24343 


29024 


**«*t*tt**tS**«t*t***ttftt*f ************************* «***«**«*«* 


KEY 163 






SEARCH 


1 STARTED AT BYTE- 2209 PEEP»- 6 WIDTH- 16 




0010 10O1 0111 OlOO 1111 OlOO 1111 0100 1101 OOOO 


0100 0111 


29H 


74H F4H F4H DOH 


47H 


41 


116 244 244 20B 


71 


) 


t 8TR» STR* / 


G 




29737 -2956 -2828 -12044 


18384 


XS*X*»*XXXXXXXX*XXXX«X«*X****«XXXXX*XXXXXXXXXXXXXX*XXt*XXXXXXXXX 


KEY 163 






SEARCH 


3 STARTED AT BYTE- 2207 PEEP#- 7 WIDTH- 16 




0001 OlOO 1011 1010 0111 1010 0111 1010 0110 1OO0 


0010 OOll 


14H 


BAH 7AH 7AH 68H 


23H 


20 


186 122 122 104 


35 




C8AVE z z h 


« 




-17900 31418 31354 26746 


9064 


XtX*t«X*XX****tX*XX*«***tX**XX*XXX*X*XXX*XX**XX*«(*XXXX**XXX*XXX 


KEY 163 






SEARCH 


-STARTED AT BYTE- 2209 PEEP«- 6 WIDTH- 16 




0010 1001 0111 0100 1111 0100 1111 OlOO 1101 0000 


0100 0111 


29H 


74H F4H F4H DOH 


47H 


41 


116 244 244 208 


71 


) 


t STR* STR» / 


G 




29737 -2956 -2828 -12044 


18384 


XX«*XX«X**XXXXXXXXXXX**X*XXX*XX(XX«*(XXXXXXXXXXXXX*XXXXXXXXXXXXX 


KEY 163 






SEARCH 


"STARTED AT BYTE- 2211 PEEP#- 6 WIDTH- 16 




0101 OOIO 1110 1001 1110 1001 1110 1001 1010 OOOO 


1000 1110 


32H 


E9H E9H E9H AOH 


8EH 


82 


233 233 233 160 


142 


R 


EOF EOF EOF OUT 


RUN 




-5B06 -5655 -5655 -24343 


29024 


********* ****tttttt*tt*t****t****t*»*t*tttt*«**»*«t ************* 


KEY 163 






SEARCH "STARTED AT BYTE- 2213 PEEP#- 6 WIDTH- 16 




1010 0101 1101 0011 1101 OOll 1101 OOll 0100 0O01 


OOOl 1100 


ASH 


D3H D3H D3H 41H 


1CH 


165 


211 211 211 65 


28 


PUT 


OR OR OR A 






-11355 -11309 -11309 16B51 


7233 


***************************** *********************************** 


MATCH 







KEY 80 69 69 80 69 82 
SEARCH "STARTED AT BYTE- 575 PEEP#- 2 WIDTH- 16 

1010 1010 OOOO 10O0 1010 1000 1010 1010 OOOO 1O00 1010 1010 

AAH 08H A8H AAH 08H AAH 

170 8 168 170 8 170 

KILL MERGE KILL KILL 

2218 -22520 -21848 2218 -22008 

tut************************************************************ 

KEY 80 69 69 80 69 82 
SEARCH -STARTED AT BYTE- 576 PEEP#- 7 WIDTH- 16 

0101 OlOO 0001 0001 OlOl OOOl 0101 0100 0001 OOOl 0101 0100 
54H 11H 51H 54H 11H 54H 
B4 17 81 84 17 84 

T Q T T 

4436 20753 21585 4436 21521 
X«XXXfXXXX*XXXX$*X«XXXXXXXXX«Xf*XXXXXXXXXtXXXXXXXX*XSX(****XXXXX 
KEY 80 69 69 80 69 82 
SEARCH "-STARTED AT BYTE- 579 PEEP#- 2 WIDTH- 16 

1010 1000 0010 OOIO 1010 OOIO 1010 1000 0010 OOIO 1010 lOOl 
ABH 22H A2H A8H 22H A9H 
168 34 162 168 34 169 

MERGE " OPEN MERGE " NAME 

8872 -24030 -22366 8872 -22238 
XXXXX»XXXXXXXXX«XXXXXXXXXIXXXXXXXXXXXXXXXXtXtXXXXX*XXXX«XXt***t« 
KEY 80 69 69 80 69 82 
SEARCH "STARTED AT BYTE- 581 PEEP#- 2 WIDTH- 16 

0101 OOOO OlOO 0101 0100 0101 OlOl OOOO 0100 0101 OlOl 0010 
SOH 45H 45H SOH 45H 52H 
80 69 69 80 69 82 

PEEPER 
17744 17733 20549 17744 21061 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XX*X*XX*X*XXXX*XX*X*«X> 
MATCH 

Figure 4 



bracket on line AD2278:6 indicates the 
left arrow was invoked to decrement 
the T value back to 16. 

The down and up-arrow keys in- 
crease and decrease the buffer byte ad- 
dress by 100. Line AD2386:4 shows the 
down-arrow key (printed as backward 
slash) was used to increase the byte ad- 
dress by 100. Line AD2295:4 indicates 
the up-arrow key (left bracket) was in- 
voked. Any time the up or down arrow 
is used, the clock pulse may be thrown 
out of proper alignment for a few lines. 
(The arrows display properly on the 
CRT and may print properly on your 
printer.) 

Any other keys cause the analysis to 
stop, at which time you can go back to 
the main menu to select another opera- 
tion or continue the analysis. 

Search Operation 

The bit width determined in the 
analyze operation allows the raw data 
to be further interpreted by this search 
operation. This operation scans across 
the bits to determine byte alignment. A 
frame 48 bits wide is passed over the 
data. The 48 bits in the current frame 
position are treated as six bytes and are 
converted into hexadecimal, decimal, 
character, and Basic token word 
forms; pairs of bytes are converted into 
16-bit binary values. 

The frame is then shifted one logical 
bit to the right (or left) and the 48 bits 
found in the frame are converted. This 
is repeated until stopped by the oper- 
ator or the data is exhausted. The left 
and right-arrow keys change the direc- 
tion of the shift. Normally, when rec- 
ognizable bytes are found the operator 
would stop the operation, note the byte 
alignment address, and proceed to the 
translate operation. When a left-shift- 
ing search is used, bits followed by ex- 
ceptionally long gaps will not be inter- 
preted correctly. Usually two bits will 
be wrong before alignment is restored. 

A search key, one to six bytes long, 
can be entered for automatically stop- 
ping the search when a match is found. 
Figure 3 is an example of a one-byte 
search key, with decimal value 165, 
used to stop the search when the syn- 
chronization byte was found. Notice 
the address of 2213:6 near the bottom. 
This is the same data we were observ- 
ing on Figs. 1 and 2. Figure 4 is an ex- 
ample of a six-byte search key of 80, 
69, 69, 80, 69, and 82, which was used 
to find the name Peeper on the As- 
sembler-language program tape. All 
search keys are entered in decimal 
form. 

If this utility program is used to 
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identify an unlabeled file, the search 
operation might be as far as you need 
to go. However, if you are trying to 
recover some otherwise unreadable 
data, want to convert a short Assembly 
routine into decimal for string pack- 
ing, or want to study the format of 
some file, note the byte and bit address 
where alignment occurred and proceed 
to the translate operation. 

Translate Operation 

The output of the translate opera- 
tion (Figs. 5 and 6) is the same format 
as the output of the search operation. 
Again, a frame 48 bits wide is passed 
over the data. In the translate mode, 
after 48 bits are translated, the frame is 
shifted to the next 48 bits to the right. 
The translate operation runs until 
stopped by the operator or the data is 
exhausted. 

Search and 

Translate Output Format 

The output of both the search and 
translate operations consists of six lines 
of information for each 48 bits inter- 
preted. Line 1 names the operation 
(search or translate); shows the direc- 
tion of the frame shift, if in the search 
mode (again, right arrows appear as 
deltas and left arrows as right 
brackets); shows the byte and peep ad- 
dress of where this line group started; 
and finally, shows what bit width was 
being used. 

Line 2 shows the 48 bits as zeros and 
ones. Line 3 contains the hexadecimal 
values; line 4 shows the decimal values; 
and line 5 contains the characters or 
Basic token words. Line 6 has the 
16-bit binary values derived by treating 
the paired bytes in the sequence of least 
significant byte followed by most sig- 
nificant byte. When operating in the 
translate mode, the first byte of each 
line group is paired with the last byte of 
the preceding line group. 

Figure 5 (as well as Fig. 4) was pre- 
pared using a cassette that contained a 
copy of the Assembly object program 
in Listing 2. The first line group di- 
vulges the program name of Peeper. 
The second line group divulges the hex- 
adecimal 3C program section identi- 
fier, the decimal 128 (the number of 
bytes in the program section), the 
16-bit binary value of "32512" (the 
ORG memory address for the pro- 
gram), and finally the hex 1158 (the 
first two bytes of the program code). 
The remaining lines on this figure show 
a continuation of the hexadecimal ob- 
ject code. The decimal values right 
below each hexadecimal value could 



be used for string packing in a Basic 
program. 

Figure 6 (also Figs. 1, 2, and 3) was 
prepared using a cassette containing a 
copy of the Basic Program Listing 1 . 
The fifth line of the first line group 
on Fig. 6 shows "5 = VARPTR(E5" 



from line 50 of the program. The re- 
mainder of line 50 can be read in line 
groups 2 and 3 of Fig. 6. In line group 3 
following the (E6) we see the decimal 
value zero, which is the indicator for 
the end of a program line. Line group 4 
starts with the 16-bit binary program 



TRANSLATE 


STARTED AT BYTE- 381 PEEP#- 2 WIDTH- 16 




0101 OOOO 


OlOO OlOl O1O0 OlOl 0101 0000 0100 0101 


0101 0010 


50H 


43H 45H BOH 43H 


52H 


80 


69 69 80 69 


82 


P 


E E P E 


R 


20362 


17744 17733 20349 17744 


21061 


*«*s*s«t**«*****«««**««*t*>tt******s«**««««««******** 


t**«t*S«**« 


TRANSLATE 


STARTED AT BYTE- 673 PEEP#- 8 WIDTH- 16 




0011 llOO 


lOOO 0000 0000 0000 0111 1111 OOOl 0001 


0101 1000 


3CH 


BOH OOH 7FH 11H 


5BH 


60 


128 127 17 


88 


< 


END 


X 


13442 - 


32708 128 32312 4479 


22545 


****«**ts**«***t*«*««t*****t********t*ttt*t*****k**«t****t**(*t* 


TRANSLATE 


STARTED AT BYTE- 1384 PEEP#- 3 WIDTH- 16 




0001 1011 


OOIO 0001 1010 1000 OHO 0011 0011 1110 


0000 OOOl 


1BH 


21 H A8H 63H 3EH 


01H 


27 


33 168 99 62 

! MERGE c > 


1 


7000 


3475 -22495 25512 15971 


318 


****«t***tt**««*****s>«*««s*«t**«*»ss****«***t**t*«**«*a*tttt*** 


TRANSLATE 


STARTED AT BYTE- 1677 PEEP#- 6 WIDTH- 16 




0111 0111 


0010 0011 OOOl 1011 0111 1010 1011 0011 


0010 0000 


77H 


23H 1BH 7AH B3H 


20H 


119 


35 27 122 179 


32 


w 


# z CONT 




30463 9079 6947 31239 -19390 


B371 


<ttt*******t***t»*tt*«t***t«*t*t**t**«t*«*****tt*«*«*ttt$3***$*t 


TRANSLATE 


STARTED AT BYTE- 1771 PEEP#- 2 WIDTH- 16 




1111 0111 


OOIO OOOl 1010 1000 0110 0011 OOOl OOOl 


0101 1000 


F7H 


21H A8H 63H 11H 


58H 


247 


33 168 99 17 


88 


CHR» 


! MERGE c 


X 


-2272 8693 -22493 23312 4431 


22545 


*(**>*« S(St***t**>tt**t«**>t«> ******************** «* *«««>****««( 


TRANSLATE 


STARTED AT BYTE- 1864 PEEP#- 5 WIDTH- 16 




0001 1011 


0011 1110 0000 0100 1101 0011 1111 1111 


1101 1011 


1BH 


3EH 04H D3H FFH 


DBH 


27 


62 4 211 255 


219 




> OR 


INP 


7000 13099 1086 -11516 -43 -9217 


***t****t*«***t*******?$9«t**«*t**t*»**S*tttt«**S*t***«*t****«*t 


TRANSLATE 


STARTED AT BYTE- 1957 PEEP#- 8 WIDTH- 16 




1111 1111 


OOOl 0111 0011 0000 1111 1011 0111 1110 


OOOl 0111 


FFH 


17H 30H FBH 7EH 


17H 


233 


23 48 251 126 


23 


-37 6143 12311 -1232 32507 


6014 


«sts«*«*s«tst****t«*******«t*****tt***s««*ttt«s***»«*****««*tst* 




Figure 5 





Figure 6 




TRANSLATE STARTED AT BYTE- 6325 PEEP#- 8 WIDTH- 16 




0011 0101 HOI OlOl 1100 0000 0010 lOOO 0100 0101 


OOH 0101 


35H D5H COH 28H 45H 


35H 


53 213 192 40 69 


53 


5 - VARPTR ( E 


5 


13823 -10955 -16171 10432 17704 


13637 


*****tt*«t*«***«t»**;t**t«t«t**t**tit*t*ttt****»*(**«**«tt**«*tt« 


TRANSLATE STARTED AT BYTE- 6419 PEEP#- 5 WIDTH- 16 




0010 lOOl OOH 1010 OlOO OHO OOH 0110 1101 0101 


1100 0000 


29H 3AH 46H 36H D5H 


COH 


41 58 70 54 213 


192 


) t F 6 


VARPTR 


10549 14889 17978 13894 -10954 


16171 


***»*t*«*»t(t****«t***t*«*t*t****>*t««****««******tt«*««*»tf*«*t 


TRANSLATE STARTED AT BYTE- 6513 PEEP#- 1 WIDTH- 16 




0010 1000 OlOO 0101 0011 OHO 0010 1001 0000 0000 


0011 0110 


28H 45H 36H 29H OOH 


36H 


40 69 54 41 


54 




Figure 6 continues 
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Figure 6 continued 




( E 6 ) 


6 


10432 17704 13B93 10330 41 


13824 


**>***«*S***»*t«*****t*««***«***************«****«**«********««* 


TRANSLATE STARTED AT BYTE- 6606 PEEP*- 3 WIDTH- 16 




0100 0100 OlOl 0000 OOOO OOOO 0101 OlOO 0011 0O10 


1101 OlOl 


44H 30H OOH 34H 32H 


D5H 


68 80 84 30 


213 


DP T 2 


■ 


17462 20348 80 21304 12884 


10958 


«**«tt«****t******t*$*******«**«*t**tt*ts:t*»ttt***t************* 


TRANSLATE STARTED AT BYTE- 6699 PEEP#- 8 WIDTH- 16 




0011 OlOO OOll OOOO OO-ll 1010 0101 0111 0100 1100 


0010 0100 


34H 30H 3AH 37H 4CH 


24H 


32 48 38 87 76 


36 


4 : W L 


• 


13323 12340 14896 22330 19343 


9292 


«$******««******«S***«***«****««ttt******t**********t*tt**t»*t** 


TRANSLATE STARTED AT BYTE- 6793 PEEP#- 3 WIDTH- 16 




1101 0101 OOIO 0010 OOll 0001 0011 0010 0011 OOll 


OOll OlOO 


D5H 22H 31H 32H 33H 


34H 


213 34 49 30 31 


32 


-"123 


4 


-10972 8917 12578 12849 13106 


13363 


****««««**«**«** tttt«*t**«S*«*Stt**>*t*«t *«****«*****«* tt *«**««* 


TRANSLATE STARTED AT BYTE- 6886 PEEP#- 7 WIDTH- 16 




OOll 0101 OOll 0110 OOll 0111 OOll 1000 OOll lOOl 


OOll OOOO 


33H 36H 37H 38H 39H 


30H 


53 54 55 56 37 


48 


5 6 7 8 9 





13620 13877 14134 14391 14648 


12345 


«t***S***t3««***«*$*««t**«*t*«***«**t*********«**«************** 


TRANSLATE STARTED AT BYTE- 6980 PEEP#- 2 WIDTH- 16 




OOll OOOl OOll 1101 1111 1111 1111 1111 1011 1111 


1111 1111 


31H 3DH FFH FFH BFH 


FFH 


49 61 255 255 191 


255 


1 - USING 




12592 15665 -195 -1 -16385 


65 


***«**************«*t*****t*********«t«**«tt*******************> 


END OF DATA 





line address of 17462 followed by the 
16-bit binary program line number of 
80 and continues with the program 
code of T2 = . The program code then 
continues in line group 5. 

The operating instructions are 
shown on Table 1 . Be sure to position 
the cassette tape as close as possible in 
front of the portion of the tape to be 
loaded. Only a small portion of a tape 
can be loaded into the buffer with each 
load. 

For example, these tables were pre- 
pared using a default time factor of 10, 
which yields a clock pulse to clock 
pulse width of about 16 peeps. These 
16 peeps represent one logical bit of 
information, but require two bytes of 
the buffer for storage. Since there are 
eight logical bits to a logical byte, 16 
storage bytes are used for one logical 
byte of information. In this manner, 
the 7,000-byte buffer only holds about 
437 logical bytes of information. By in- 
creasing the time factor during the 
load, a moderately higher yield can be 
obtained, but a time factor beyond 14 
distorts the data. 

The program modules are described 
in Table 2. 

Datascope is certainly not a simple 



Program Listing 1 



10 CLEAR360:DEFINTA-Z:M1$="STARTED AT BYTE-" :M$="MICROSEC" 

30 PM$=STRING$(10,"*") :PM=VARPTR(PM$) :PM=PEEK (PM+2) *256+PEEK (PH+ 

1) 

35 CF=0:PE=0:BI=0:B=0:DIMDC(6) :DIMDD(6) :DIMDP(6) 

40 V1=VARPTR(CF) : V2=VARPTR( PE) : V3=VARPTR(BI) :V4=VARPTR(B) 

50 E1=0:E2=0:E3=0:E4=0:E5=0:E6=0:F1=VARPTR(E1) :F2=VARPTR(E2) :F3= 

VARPTR(E3) :F4=VARPTR(E4) :F5=VARPTR( E5) :F6=VARPTR(E6) 

80 T2=40:WL$=STRING$(40,"*") :BP$=STRING$ ( 48, "*") 

83 VP=VARPTR(WL$) : VP=PEEK ( VP+2) *256+PEEK (VP+1) -1 

84 BV=VARPTR(BP$) : BP=PEEK (BV+2) *256+PEEK (BV+1) 

90 B2=6999:BS=25511:YS=35:NO=95:EN$="END OF DATA" :AR1=32:F=5712 

95 OP$="OUTPUT 1-CRT ONLY 2-CTR & PTR" 

100 FA$="FACTOR":H$="H ":Q$="HIT M-HENU C-CONT " 

110 DATA128,64,32,16,8,4,2,1:DIMV5(8) :F0RX=1T08:READV5 (X) :NEXT 

135 HX$=STRING$(12,"*") . HX=VARPTR(HX$) :HX=PEEK (HX+2) *256+PEEK (HX 

+D 

140 DATA0, 3, 6, 11, 14 ,17, 20, 26, 3 0,34, 39, 42, 46, 49, 53, 56 

145 DATA5 8, 65, 70, 76, 79, 83, 87, 91, 96, 102, 108, 114, 120, 124, 128, 133 

150 DATA139, 142, 14 4, 148, 153, 156, 159, 164, 168, 173, 177, 181, 185, 189, 

193,199 

155 DATA205, 208, 21 2, 217, 221, 225, 23 0,236, 240, 245, 250, 255, 258, 262, 

264,266 

160 DATA271, 277, 280, 283, 286, 293, 298, 303, 308, 3 11, 317, 321, 324, 328, 

329,330 

165 DATA331, 332, 333, 336, 338, 339, 340, 341, 344, 347, 350, 353, 356, 359, 

362,365 

170 DATA36 8, 3 71, 3 74, 3 77, 3 80, 3 83, 3 87, 3 90, 3 93, 3 96, 3 99, 4 02, 40 5, 40 9, 

413,417 

175 DATA421, 425, 429, 432, 435, 439, 442, 445, 449, 454, 460, 464, 46 8 

180 DIMTK(125) :FORX=0TO124 : READTK (X) -NEXT 

900 INPUT-ENTER 1-LOAD 2-ANALYZE 3-SEARCH 4-TRANSLATE" -M 

910 ONHGOTO1000, 2000, 3000, 3001 ""' '" 

920 GOTO900 

1000 X=PEEK(32557) :PRINT"TIME ";FA$;" =";X 

1020 PRINTFA$;X;"* 6.5";M$;"+ 52.0" , -MS; " = " ;X*6 .5+52 .0;HS 

1030 INPUT'ENTER G-GOOD OR N-NO" ; I $: IFI $="G"1090 

1050 INPUT'NEW FACTOR 1-255", -X 

1070 IFX<1ORX>255THEN1050ELSEPOKE32557,X:GOTO1000 

1090 INPUT'READY CASSETTE";I$ 

1100 PRINT'NOW LOADING":POKE16526,0:POKE16527,127:X=USR(0) 

1120 PRINT"LOADING COMPLETE" :GOTO900 

2000 PRINT'ANALYZE ROUTINE" 

2010 PRINTOP$;:INPUTP:IFP<1ORP>2GOTO2010 

2020 PRINT'START ADDR 1 TO" ; B2; : INPUTB: IFB<1ORB>B2GOTO2020 

2040 INPUT'TEST BIT WIDTH 0-NO TEST/ONE PEEP PER LINE 

2T0 40 - TEST BIT WIDTH" ;T 
2050 IFT<0ORT>40THEN2040ELSECLS:LA=T2 

2060 PRINT'CTL KEYS " ;CHR$ ( 92) ; "=AD+100 " ; CHRS ( 91) ; "=AD-100 
";CHR$(94) ;"=T+1 ";CHR$(93) • "=T-1 S=STOP" 
2070 PRINT'LOOKING FOR FIRST PULSE" 
2080 Y=B+BS:Z=B2+BS 

2085 FORX=YTOZ:IFPEEK(X)O0GOTO2095 
2090 NEXT:GOTO2900 
2095 B=X-BS 
2100 T8=INT(.874*T) 



2110 BI=1:IFB>B2GOTO2900 

2200 IF(PEEK(B+BS)ANDV5(BI))=0THENC=NOELSEC=YS 

2210 IFT=0THEN23 00ELSEIFC=YSGOTO2300 

2230 BI=BI+1:IFBK9THEN2200ELSEB=B+1:GOTO2110 

2300 F0RX=1T0LA:P0KEVP+X,32:NEXT 

2320 LA=1:PRINT"AD";B;TAB(8) " : " ;CHR$(BI+48) ; " *;CHR$(AR1) 



T";T 



2330 IFP=2THENLPRINT"AD";B;TAB(8) " : " ;CHR$ ( BI+48) ; " ";CHR$(AR1) ;" 

T";T; 
2340 AR1=32 

2400 POKEVP+LA,C:BI=BI+1:IFBK9GOTO2480 
2450 BI=1:B=B+1:IFB>B2GOTO2500 

2480 IF(PEEK(B+BS)ANDV5(BI) ) =0THENC=NOELSEC=YS 
2490 IFT=0GOTO2500 
2492 IFLA>T8THENIFC=YSGOTO2500 
2494 IFLA=T2THEN2500ELSELA=LA+1:GOTO2400 
2500 PRINTTAB(18)WL$;LA:IFP=2THENLPRINTTAB(18)WL$;LA 
2530 IFB>B2GOTO2900 

2600 I$=INKEY$:IFI$=""THEN2300ELSEX=ASC(I$) 
2635 IFX=9THEN2660ELSEIFX=8THEN26 40ELSE2700 
2640 T=T-1:IFT<0THEN2660ELSEAR1=93:GOTO2080 
2660 T=T+1:IFT>T2THEN26 40ELSEAR1=94:GOTO2080 
2700 IFX=10THEN27 40ELSEIFX=91THEN2720ELSE27 45 
2720 B=B-100:IFB<1THEN2740ELSEAR1=91:GOTO2300 
2740 B=B+100:IFB>B2THEN2720ELSEAR1=92:GOTO2300 
2745 PRINTQS 

2750 I$=INKEY$:IFI$=""GOTO2750 
2760 IFIS="M"THEN900ELSE2300 

2900 PRINT"END OF ANALYSIS" : IFP=2THENLPRINT"END OF ANALYSIS" 
2920 GOTO900 

3000 PRINT'SEARCH ROUTINE" :AR1=94 : GOTO3005 

3001 PRINT'TRANSLATE ROUTINE" 

3005 PRINTOPS; :INPUTP:IFP<1ORP>2GOTO3005 

3020 INPUT"* OF PEEPS BETWEEN CLOCK PULSES 4-40";LC 

3030 IFLC<4ORLO40GOTO3 020 

3040 INPUT" STARTING BYTE 1-6999" ;BA: IFBA<1ORBA>6999THEN3040ELSE 

BA=BA-1 

3053 INPUT'STARTING PEEP 1-8" ;BB: IFBB<1ORBB>8GOTO3053 

3060 IFH=3THEN3070ELSECLS:GOTO3600 

3070 INPUT"* BYTES IN SEARCH KEY 0-6 ( 0=NO KEY)";NB 

3080 IFNB<0ORNB>6GOTO3070 

3090 IFNB=0GOTO3190 

3110 PRINT"ENTER DEC VAL 0-255 FOR" ;NB; "BYTES" 

3120 F0RX=1T0NB 

3130 PRINT"BYTE";X;:INPUTY 

3140 IFY<0ORY>255THEN3130ELSEDP(X)=Y 

3150 NEXT 

3190 CLS:PRINT"CTL KEYS " ; CHR$ ( 93) ; "=LEFT SHIFT ";CHRS(94); 

"=RIGHT SHIFT" 

3200 IFNB=0GOTO3600 

3210 PRINT"KEY";:F0RX=1T0NB:PRINTDP(X) ;" "; :NEXT: PRINT 

3220 IFP=2THENLPRINT"KEY"; :F0RX=1T0NB:LPRINTDP(X) ;" ";:NEXT 

:LPRINT 

3600 B=BA:BI=BB:GOSUB5000 

Listing I continues 
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Listing I am i i niicd 

3620 IFM=4ORNB=0GOTO4570 

3640 FORX=1TONB:IFDP(X)ODC(X-1)GOTO4570 
3670 NEXT:IFP=2LPRINT"MATCH" 

3680 INPUT-MATCH FOUND HIT C-CONT SEARCH 
3690 IFI$="M"GOTO900 
4570 IFB>B2GOTO4 810 
4580 IS=INKEYS:IFIS=""THEN4610 
4582 IFM=4THEN4588ELSEX=ASC(I$) 
4584 IFX=9THENAR1=94:GOTO4610 
4586 IFX=8THENAR1=93:GOTO4610 
4588 PRINTQS 

4590 IS=INKEY$:IFIS=""THEN4590 
4600 IFIS="M"THEN900 
4610 IFM=4THENBA=B:BB=BI:GOTO3600 
4620 Y=INT(LC*.874) : IFAR1=93GOTO4700 
463 FORX=lTOY:BB=BB+l:IFBB=9THENBB=l:BA=BA+l 
4660 NEXT 

4670 IFBA>B2GOTO4810 

4680 IF(PEEK(BA+1+BS) ANDV5(BB) ) =V5 (BB) GOTO3200 
4690 BB=BB+1:IFBB<9THEN46 80ELSEBB=1:BA=BA+1:GOTO4670 
4700 FORX=1TOY:BB=BB-1:IFBB=0THENBB=8:BA=BA-1 
4710 NEXT 

4720 IFBA<1GOTO4810 

4730 IF (PEEK (BA+l+BS) ANDV5 (BB) ) =V5 ( BB) GOTO4750 
4740 BB=BB-1:IFBB>0THEN4730ELSEBB=8:BA=BA-1:GOTO4720 
4750 BB=BB-1 : IFBB>0THEN4770ELSEBB=8: BA=BA-1 : IFBA<1GOTO4810 
4770 IF(PEEK(BA+1+BS)ANDV5(BB))=V5(BB)THEN4750 
4780 BB=BB+1:IPBB<9THEN3200ELSEBB=1:BA=BA+1:GOTO3200 
4810 PRINTEN$:IFP=2LPRINTENS 
4820 GOTO900 

5000 CF=INT(LC*.499) :PE=INT(LC*.374) 
5010 FORX=0TO47:POKEBP+X,48:NEXT 

5020 IFM=3THENPRINT"SEARCH " ; CHR$ (AR1) ; ELSEPRINT'TRANSLATE 
5030 PRINTMl$;B+l;"PEEPf-";BI; "WIDTH-" ;LC 
5040 IFP=1THEN5050ELSEIFM=3THENLPRINT"SEARCH 
I NT "TRANSLATE "; 
5045 LPRINTM1 $;B+1;" PEEPS- ";BI; "WIDTH-" ;LC 
5050 POKEPH,PEEK(BV+l) : POKEPM+1 ,PEEK (BV+2) 
5060 POKEPH+2,PEEK(Vl) : POKEPH+3 , PEEK (Vl+1) 
5070 POKEPM+4,PEEK(V2) :POKEPM+5 ,PEEK (V2+1) 
5080 POKEPM+6,PEEK(V3) :POKEPM+7 ,PEEK (V3+1) 
5090 POKEPM+8,PEEK(V4) : POKEPM+9 , PEEK (V4+1) 
5100 POKE16526,64:POKE16527,127:X=USR(PM) 
5110 POKEV3,PEEK(PM+6) : POKEV3+1 ,PEEK (PH+7) 
5120 POKEV4,PEEK(PH+8) :POKEV4+l ,PEEK(PM+9) 

6000 PL$=MID$(BP$,1,4)+" "+HID$(BP$,5 r 4)+" "+HIDS (BP$,9 ,4) +" "+ 
MID$(BP$,13,4)+" "+HID$(BP$,17,4)+" "+MIDS (BP$,21 ,4) +" "+MID$( 
BP$,25,4)+" "+MID$(BPS,29,4)+" "+MID$(BPS,33 ,4) +" "+MIDS(BPS,37 
,4)+" "+MID$(BP$,41,4)+" "+MIDS(BP$,45,4) 
6010 PRINTPLS; 
6020 IFP=2LPRINTPLS 



';CHRS(AR1) ; ELSELPR 



6100 FORX=0TO11:Z=0 

6110 F0RY=1T04 

6120 IFMID$(BPS,X*4+Y,1) ="1"THENZ=Z+V5 ( Y+4) 

6130 NEXT: IFZ<10THENZ=Z+48ELSEZ=Z+55 

6140 POKEHX+X,Z 

6150 NEXT 

6200 PL$=" "+MIDS(HXS,1,2)+HS+MIDS(HX$,3,2)+HS+HID$(HXS,5,2)+H 

S+HIDS(HXS,7,2)+HS+HIDS(HXS,9,2)+H$+MID$(HXS,11,2)+"H 

6220 PRINTPLS; :IFP=2LPRINTPL? 

6300 FORX=0TO5:A=ASC(MID$(HX$,X*2+2,1)) : IFA<58THENA=A-48ELSEA=A- 

6310 Z=ASC(MID$(HXS,X*2+1,1)) :IFZ<58THENZ=Z-48ELSEZ=Z-55 

6320 DC(X)=Z*16+A:NEXT 

6400 PRINT" ";DC(0);TAB(13)DC(1);TAB(24)DC(2) ;TAB( 35) DC (3) ;TAB( 

46)DC(4) f TAB(57)DC(5) 

6410 IFP=2THENLPRINT" " ;DC ( 0) ; TAB<13) DC( 1) ;TAB ( 24) DC( 2) ;TAB(35) 

DC(3) ;TAB(46)DC(4) ;TAB( 57) DC( 5) 

6600 FORX=0TO5:IFDC(X)<32ORDC(X)>250THENSTS=" ":GOT06729 

6610 IFDC(X)<128THENST$=CHR$(DC(X) )+" ":GOT06729 

6620 Il$=" ":I2$=" ":I3$=" ":I4$=" ":I5S=" ":I6S=" ":I7$=" * 

6630 Y=DC(X)-128:Z=TK(Y) : I1$=CHR$(PEEK (F+Z) -128) 

6640 J=TK(Y+1)-Z-1:IFJ=0GOTO6720 



J=J-1:IFJ=0GOTO6720 
J=J-1 : IFJ=0GOTO6720 
J=J-1 : IFJ=0GOTO6720 
J=J-1:IFJ=0GOTO6720 
J=J-1 : IFJ=0GOTO6720 



6660 I2?=CHR?(PEEK(F+Z+1) ) 

6670 I3$=CHR$(PEEK(F+Z+2) ) \ 

6680 I4$=CHR$(PEEK(F+Z+3) ! 

6690 I5$=CHR$(PEEK(F+Z+4) 

6700 I6$=CHR$(PEEK(F+Z+5): 

6710 I7$=CHRS(PEEK(F+Z+6)) 

6720 ST$=I1S+I2S+I3$+I4$+I5$+I6$+I7$ 

6729 ONXGOT06731,6732,6733,6734,6735 

6730 S1$=ST$:GOTO6740 

6731 S2?=ST$iGOTO6740 

6732 S3$=STS:GOTO6740 

6733 S4$=STS:GOTO6740 

6734 S5$=ST$:GOTO6740 

6735 S6$=ST$ 
6740 NEXT 

6750 PL$=" "+S1S+" "+S2S+" "+S3$+" "+S4$+" "+S5$+" 

"+S6S 
6760 PRINTPLS; : IFP=2LPRINTPL$ 
6780 CF=DC(0) :IFM=3GOTO6800 

6790 POKEF6+l,PEEK(Vl) :PRINTE6( : IFP=2LPRINTE6( 
6800 P0KEF1,PEEK(V1) :CF=DC(1) :POKEFl+l ,PEEK (VI) 
6810 POKEF2,PEEK(Vl) :CF=DC(2) :POKEF2+l r PEEK(Vl) 
6820 POKEF3,PEEK(Vl) :CF=DC(3) :POKEF3+l ,PEEK(V1) 
6850 POKEF4,PEEK(Vl) :CF=DC(4) :POKEF4+l ,PEEK(V1) 
6860 POKEF5,PEEK(Vl) :CF=DC(5) :POKEF5+l ,PEEK(V1) 
6870 POKEF6,PEEK(Vl) 

6 880 PRINTTAB(8)E1;TAB(19)E2;TAB(30)E3;TAB(41)E4;TAB(52)E5 
6 890 IFP=2THENLPRINTTAB(8)E1;TAB(19)E2;TAB(30)E3;TAB(41)E4;TAB(5 
2)E5 

6910 PRINTSTRINGSI64,"*") ; : IFP=2THENLPRINTSTRINGS ( 64 ,"*") 
7000 RETURN 











Program Listing 2 










7F00 

7F00 11581B 

ET STORAGE 


00100 

00110 BEGIN 


ORG 
LD 


7F00H 
DE,SIZE 


,-=32512 
;PREP TO PRES 


PEEP TO CARRY 
7F37 C31E7F 
OTAL=58.5 


00430 


JP 


LOOP 


;5.0 LOOP T 


7F03 21A863 


00120 


LD 


HL,BUFF 




7F3A 3E00 


00440 DONE 


LD 


A,00H 


MICROSEC 


7F06 3E01 


00130 INIT 


LD 


A,01H 


.•CONSTANT OF 


WHEN TIME=1 










0000 0001 
7F08 77 
NSTANT 










7F3C D3FF 


00450 


OUT 


(0FFH) ,A 




00140 


LD 


(HL) r A 


; STORE THE CO 


7F3E C9 

000A 

10 


00460 
00470 TIME 


RET 

EQU 


0AH 


; DEFAULT OF 


7F09 23 


00150 


INC 


HL 


(ADD 1 TO ADD 










RESS 
7F0A IB 
SPACE 
7F0B 7A 
7F0C B3 


00160 

00170 
00180 


DEC 
LD 

OR 


DE 

A,D 
E 


;SUB 1 FROM 


1B58 

OF SPACE 

63A8 

R AT 25512 

7F3F 00 

TER 

7F40 CD7F0A 

H ARGUMENT 

7F43 E5 


00480 SIZE 
00490 BUFF 
00500 CTR 


EQU 
EQU 
DEFB 


1B58H 
63A8H 
0H 


;7000 BYTES 
; START BUFFE 
;48 BIT COUN 


7F0D 20F7 

SPACE 
7F0F 21A863 


00190 
00200 


JR 
LD 


NZ,INIT 
HL,BUFF 


;JUMP IF MORE 
;1ST STORAGE 


00510 
00520 


CALL 
PUSH 


2687 

HL 


;LOAD HL WIT 


ADDRESS TO 


HL 








7F44 DDE1 


00530 


POP 


IX 


(SET PARM AD 


7F12 11581B 


00210 


LD 


DE,SIZE 


; SPACE AVAI 


DR IN IX 










LABLE IN DE 










7F46 DD6601 


00540 


LD 


H,(IX+1) 


;MSB OF STRI 


7F15 3E04 


00220 


LD 


A,04H 


(CASSETTE 


NG ADDR 










N 










7F49 DD6E00 


00550 


LD 


L,(IX+0) 


;LSB 


7F17 D3FF 


00230 


OUT 


(0FFH) r A 




7F4C E5 


00560 


PUSH 


HL 




7F19 DBFF 


00240 WAIT 


IN 


A, (0FFH) 


;WAIT FOR 1ST P 


7F4D FDEl 


00570 


POP 


IY 


;ADDR OF BIT 


ULSE 
7F1B 17 


00250 


RLA 






LINE 
7F4F DD4606 


00580 


LD 


B, (IX+6) 


;LOAD B WITH ' 


7F1C 30FB 


00260 


JR 


NC,WAIT 




PEEP # 










7F1E 7E 


00270 LOOP 


LD 


A, (HL) 


;3.5 LOAD BY 


7F52 DD6609 


00590 


LD 


H, (IX+9) 


;MSB OF BUFF 


TE 










ER OFFSET 










7F1F 17 


00280 


RLA 




;2.0 ROTATE 


7F55 DD6E08 


00600 


LD 


L,(IX+8) 


;LSB 


PEEP INTO BYTE 








7F58 11A863 


00610 


LD 


DE,BUFF 


;LOAD BUFFER 


7F20 77 


00290 


LD 


(HL) ,A 


;3.5 STORE B 


START ADDRESS 








YTE 










7F5B 19 


00620 


ADD 


HL,DE 


;DEVELOPE BY 


7F21 DA267F 


00300 


JP 


CBUMP 


;5.0 JUMP IF 


TE ADDRESS 










FULL BYTE 










7F5C 3E00 


00630 


LD 


A,0H 




7F24 1802 


00310 


JR 


FLIP 


;6.0 


7F5E 323F7F 


00640 


LD 


(CTR) ,A 


PRESET 48 BIT COUNT 


7F26 23 


00320 BUMP 


INC 


HL 


; ADVANCE STO 


ER 










RAGE ADD 3.0 










7F61 CDBE7F 


00650 


CALL 


XI 


(CHECK FOR C 


7F27 IB 


00330 


DEC 


DE 


.•REDUCE AVAI 


LOCK PULSE 










LABLE SPACE 


3.0 








7F64 2005 


00660 


JR 


NZ.F1 


;JUMP IF FOU 


7F28 3E04 


00340 FLIP 


LD 


A,04H 


;3.5 CASSETT 


ND 










E FLIP FLOP 










7F66 CDB47F 


00670 FIND 


CALL 


PEEPS 


;FIND THE CL 


7F2A D3FF 


00350 


OUT 


(0FFH) ,A 


;5.5 


OCK PULSE 










7F2C 060A 


00360 


LD 


B,TIME 


;3.5 LOAD DE 


7F69 28FB 


00680 


JR 


Z,FIND 


(LOOP TILL F 


LAY FACTOR 










OUND 










7F2E 10FE 
>1*6.5 


00370 


DJNZ 


$ 


;4.0 TIME 


7F6B DD4E02 


00690 Fl 


LD 


C,(IX+2) 


;LOAD CLOCK 










FADE VALUE 










7F30 7A 


00380 


LD 


A,D 


;2.0 


7F6E 79 


00700 WAITF 


LD 


A,C 


;LOAD A WITH 


7F31 B3 


00390 


OR 


E 


;4.0 


FADE VALUE 










7F32 2806 


00400 


JR 


Z,DONE ;3 


5 JUMP IF NO SPAC 


7F6F A7 


00710 


AND 


A 


(SET Z/NZ FL 


E AVAILABLE 










AG 

7F70 CA7A7F 










7F3 4 DBFF 


00410 


IN 


A, (0FFH) 


;5.5 TAKE A 


00720 


JP 


Z, DIGIT 


(JUMP IF FAD 


PEEP 
7F36 17 


00420 


RLA 




;2.0 ROTATE 


E = ZERO 








Listing 2 continues 
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program, but a complete understand- 
ing is not necessary for its useful opera- 
tion. As stated in the beginning of this 
article, it can be used to retrieve data 
from an otherwise unreadable tape; to 
check the tape passing speed of a 
recorder; to learn the format of an un- 
familiar tape file; and to observe what 



1- Answer Memory-Size prompt with 25512. 

2. Load the Basic program A. 

3. Load the Assembly program Peeper. 

4. Press break and type run. 

5. Many different cassettes can be loaded and 
studied without the need to reload these pro- 
grams. 

6. From the main menu of "Enter 1-Load 
2-Analyze 3-Search 4-Translate" any of the 
four operations can be selected at any time. 

7. Select the load operation to read from a cas- 
sette into the buffer. 

a. Select the time interval. 

b. Carefully position the cassette about one 
counter position in front of the segment 
of tape to be studied. 

c. Press Play /Press enter. 

8. Select the analyze operation to visually in- 
spect peeps and determine logical bit align- 
ment. 

a. Specify the output media. 

b. Specify the starting byte address, 
c- Specify the starting test bit width. 

d. While the analyze is running 

.1) Use the down-arrow and up-arrow 
keys to inspect different areas of the 
buffer. 

2) Use the right-arrow and left-arrow 
keys to try different test bit widths. 

3) Use any other keys to stop the opera- 
tion. 

e. Note the byte and peep addresses of in- 
teresting areas of data. 

f. Note the actual average bit width. 

9. Select the search operation to scan inter- 
preted data to determine logical byte align- 
ment. 

a. Specify the output media. 

b. Specify the bit width. 

c. Specify the starting byte address. 

d. Specify the starting peep address. 

e. Specify the search key. 

f. While the search is running 

1) Use the left or right-arrow keys to 
change the direction of the search. 

2) Use any other key to stop the routine. 

g. Note the byte and peep addresses where 
byte alignment is achieved. 

10. Select the translate operation to interpret the 
data. 

a. Specify the output media. 

b. Specify the bit width. 

C. Specify the starting byte address. 

d. Specify the starting peep address. 

e. While the translate is running use any key 
to stop the routine. 

1 1 . When any of the routines reach the end of 
the buffer it automatically stops and returns 
to the main menu. 

Table I. Operator Guidelines 



Listing 2 continut 


(1 








7F73 CDB47F 


00730 




CALL 


PEEPS 


NEXT PEEP 










7F76 0D 


00740 




DEC 


C 


ADE VALUE 










7F77 C36E7F 


00750 




JP 


WAITF 


ADE = ZERO 










7F7A 1630 


00760 


DIGIT 


LD 


D,30H 


ASCII "0" 










7F7C DD4E04 


00770 




LD 


C,(IX+4) 


IN C 










7F7F 79 
C 


00780 


DIG2 


LD 


A,C 


7F80 A7 


00790 




AND 


A 


FLAG 










7F81 CA907F 


00800 




JP 


Z , STASH 


AST PERIOD 










7F84 CDB47F 


00810 




CALL 


PEEPS 


EP 










7F87 CA8C7F 


00820 




JP 


Z,DECR 


(NO PULSE) 










7F8A 1631 


00830 




LD 


D,31H 


ON PULSE 










7F8C 3D 


00840 


DECR 


DEC 


C 


ERIOD 










7F8D C37F7F 


00850 




JP 


DIG2 


AST PERIOD 










7F90 FD7200 


00860 


STASH 


LD 


(IY+0) ,D 


1 FROM D 










7F93 FD23 


00870 




INC 


IY 


ELD ADDRESS 










7F95 3A3F7F 


00880 




LD 


A,(CTR) 


BIT COUNTER 










7F98 3C 


00890 




INC 


A 


UNTER 










7F99 323F7F 


00900 




LD 


(CTR) ,A 


T COUNTER 










7F9C FE30 


00910 




CP 


30H 


BIT LIMIT 48 










7F9E CAA47F 


00920 




JP 


Z, RSTOR 


IT REACHED 










7FA1 C3667F 


00930 




JP 


FIND 


D NEXT CLOCK 










7FA4 11A863 


00940 


RSTOR 


LD 


DE,BUFF 


H BUFFER START 








7FA7 B7 


00950 




OR 


A 


RRY FLAG 










7FA8 ED52 


00960 




SBC 


HL,DE 


FFSET 










7FAA DD7006 


00970 




LD 


(IX+6) ,B 


P t 










7FAD DD7409 


00980 




LD 


(IX+9) ,H 


BUFFER ADD 










7FB0 DD7508 


00990 




LD 


(IX+8) ,L 


7FB3 C9 


01000 




RET 




7FB4 04 


01010 


PEEPS 


INC 


B 


UMBER 










7FB5 3E09 


01020 




LD 


A,09H 


LIMIT 










7FB7 B8 


01030 




CP 


B 


LIMIT 










7FB8 C2BE7F 


01040 




JP 


NZ,X1 


LIMIT 










7FBB 0601 


01050 




LD 


B,01H 


H PEEP 1 










7FBD 23 


01060 




INC 


HL 


7FBE 78 


01070 


XI 


LD 


A,B 


N A 










7FBF FE01 


01080 




CP 


01H 


7FC1 C2C77F 

1 
7FC4 CB7E 
1 
7FC6 C9 


01090 




JP 


NZ.TWO 


01100 




BIT 


7,(HL) 


01110 




RET 




7FC7 FE02 


01120 


TWO 


CP 


02H 


7FC9 C2CF7F 


01130 




JP 


NZ, THREE 


TWO 










7FCC CB76 

2 

7FCE C9 


01140 




BIT 


6,(HL) 


01150 




RET 




7FCF FE03 


01160 


THREE 


CP 


03H 


7FD1 C2D77F 


01170 




JP 


NZ,FOUR 


THREE 










7FD4 CB6E 

3 

7FD6 C9 


01180 




BIT 


5,(HL). 


01190 




RET 




7FD7 FE04 


01200 


FOUR 


CP 


04H 


7FD9 C2DF7F 


01210 




JP 


NZ,FIVE 


FOUR 










7FDC --CB66 

4 

7FDE C9 


01220 




BIT 


4,(HL) 


01230 




RET 




7FDF FE05 


01240 


FIVE 


CP 


05H 


7FE1 C2E77F 

5 
7FE4 CB5E 
5 
7FE6 C9 


01250 




JP 


NZ,SIX 


01260 




BIT 


3,(HL) 


01270 




RET 




7FE7 FE06 


01280 


SIX 


CP 


06H 


7FE9 C2EF7F 


01290 




JP 


NZ, SEVEN 


SIX 










7FEC CB56 

6 

7FEE C9 


01300 




BIT 


2, (HI,) 


01310 




RET 




7FEF FE07 


01320 


SEVEN 


CP 


07H 


7FF1 C2F77F 

7 
7FF4 CB4E 
7 
7FF.6 C9 


01330 




JP 


NZ, EIGHT 


01340 




BIT 


1» (HL) 


01350 




RET 




7FF7 CB46 

8 

7FF9 C9 


01360 


EIGHT 


BIT 


0,(HL) 


01370 




RET 




0000 


01380 




END 




00000 TOTAL ERRORS 









INCREMENT T 
DECREMENT F 
LOOP TILL F 
LOAD D WITH 
LOAD PERIOD 
LOAD A WITH 

TO SET Z/NZ 

>JUMP WHEN P 

;GET NEXT PE 

;Z=ZERO PEEP 

LD ASCII"1" 

DECREMENT P 

LOOP TILL P 

STASH OR 

BUMP BIT FI 

LOAD A WITH 

BUMP BIT CO 

PUT AWAY BI 

COMPARE TO 

JUMP IF LIM 

LOOP TO FIN 

LOAD DE WIT 

TO CLEAR CA 

CALC BYTE 

RET NEW PEE 

RET NEW MSB 

RET NEW LSB 

RETURN 
BUMP PEEP N 

LOAD A WITH 

COMPARE TO 

JUMP IF NOT 

RESTART WIT 

BUMP BYTE t 

PUT PEEP# I 

PEEPt 1 ? 
JUMP IF NOT 

TEST PEEPS 



PEEP! 2 ? 
JUMP IF NOT 



TEST PEEP# 



PEEP* 3 ? 
JUMP IF NOT 



TEST PEEPt 



PEEP* 4 ? 
JUMP IF NOT 



TEST PEEPt 



PEEP* 5 ? 
JUMP IF NOT 



TEST PEEP* 



PEEP* 6 ? 
JUMP IF NOT 



TEST PEEP* 



PEEP* 7 ? 
JUMP IF NOT 



TEST PEEP* 



•TEST PEEP* 
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Bugs in your software sales? 
GOTO The Software Guild 



5 



SOFrt^T/sf, 



IQ 






"-:>-l:U 




-: im ■ 




:■:-.. ;';";.= .• 1 ;-■, 
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■ 4 %"& ."TTyjvt*!-.-.-. '. ,TjT 


BB^^^S^'' ■ 


Bli 


$Tb 


/'" '■ '■ "' ■•• "'■- •'■:■■»;■:, ■■: 




'•' ' '■ 
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The Software Guild has been de-bugging the marketing program. It's designed to represent you, the 
microcomputer software developer. 

The Guild diligently guides your program through our program. This starts with a comprehensive evalua- 
tion. We'll let you know if your program is appropriate, and if its marketable. If need be, we'll even 
assist you in rewriting the documentation. Next comes professional packaging and an innovative mer- 
chandising system to put your product in the hands of the consumer. We'll back that up with respon- 
sive customer service. You can sit at home, collect royalties, and maybe write more software. 

We've set high standards for ourselves and the software products we market. The consumer will 
recognize that a Guild product means quality and reliability. Call us, we've de-bugged the program 
for you! 




The Software Guild' 



Contact: Regina LaRocca 
(415) 887-6699 ^ 

24213 CLAWITER ROAD • HAYWARD, CALIFORNIA 94545 



■ 1982 The Software Guild 



-See List of Advertisers on Page 563 
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effect different volume settings have 
on the pulse and gap width, allowing 
you to determine the optimum setting 



for a particular tape. 

If you find other uses, I would ap- 
preciate hearing about them.B 



Dennis Ridgway lives at 2160 
Frisco Avenue, Terre Haute, IN 
47805. 



Basic Program 




5000-5120 


Call Assembly Routine To Convert Peeps to Bits 


Mainline Module 


6000-6020 


Print Bit Line 


10-180 


Initialize Variables 


6100-6220 


Convert Bits to Hex And Print 


900-920 


Main Operations Menu 


6300-6320 


Convert Hex to Decimal 


Load Module 




6400-6410 


Print Decimal Line 


1000-1070 


Select Parameters 


6600-6610 


Convert Decimal to Character 


1090-1120 


Call Assembler Load Routine 


6620-6720 


Convert Decimal to Token Words 


Analyze Module 




6729-6760 


Print Character and Token Line 


2000-2050 


Select Parameters 


6780-6870 


Convert Decimal to Integer Values 


2060-2090 


Look for First Byte With Pulses 


6880-6890 


Print Integer Values 


2095-2230 


Find First Pulse 


6910-7000 


Prim Separator Line and Return 


2300-2340 


Prepare Printline 


Assembly Program 


2400-2494 


Fill Printline Until Next Clock Pulse Is Found 


Load Subroutine 


2500-2760 


Print Line And Test Control Keys 


100-190 


Initialize Buffer to Hex 01s 


2900-2920 


End of Analysis 


200-260 


Wait for First Pulse 


Search And Translate Module 


270-430 


Load Buffer 


3000-3150 


Select Parameters 


440-450 


Cassette Off and Return 


3190-3220 


Print The Control And Key Lines 


Peep To Bit Conversion Subroutine 


3600-3620 


GOSUB 5000 "The Interpretation Subroutine" 


500-640 


Initialize Registers 


3640-3690 


Test For Match 


650-680 


Find Clock Pulse 


4570-4600 


Test Control Keys 


690-750 


Wait Past Clock Fade 


4610 


Prepare for Next Translation 


760-850 


Check If or 1 Bit 


4620-4690 


Shift Right for Next Search 


860-930 


Store Digit and Test For Done 


4700-4780 


Shift Left for Next Search 


940-1000 


Prepare for Return And Return 


4810-4820 


End of Data 


1010-1060 


Bump to Next Peep 


Interpretation Module 


1070-1380 


Determine if Bit On or Off 




Table 2. 


Program Overview 





0000 © 

An exciting new game from the com- 
pany that is setting the standards. 
Colorful, high scoring, fast action play 
with arcade quality sound effects. 
High resolution, multi-colored charac- 
ters on a black background. Smooth 
accurate joystick control. Demonstra- 
tion mode. Pause feature. 1 or 2 
players. 100% machine language. 
Requires 16K color computer with 
joysticks. 

Cassete— $29.95 Disc— $34.95 

Add $1 .50 for shipping; $3 outside U.S.; 4% tax 
in Mich. VISA, Mastercard or Money order. 
Please allow 2 weeks for checks. 

I DEALER INQUIRIES INVITED 

^ifrtracolor 

T COMMUNICATIONS 

SETTING THE STANDARDS 

6048 Horizon Drive, East Lansing, Ml 48823 



TRS 80 Color Computer is TM of Tandy Corp 
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The Easy MANHATTAN Way To Handle 
EXPENSES, LISTS & MAILINGS 

EXPENSE LEDGER — Files entries and generates 
reports on business or personal expenses. Sorts by date, 
finds and displays on-screen or prints out all expenses, 
month summary, or selection by payee, purpose or 
category. 1 5 categories assigned by user, displayed on 
screen when entering, editing or deleting. 48K version 
holds 470 entries, 32K holds 200 — use for year, 
quarter or month. $35. 

MAIL LIST MANAGER — Holds 1 ,000 names and 
addresses in 48K two-disk version or 400 in one-disk 
32K version. Sorts by zip code or name [lightning fast in 
machine code], prints labels one-up or two-up, selectable 
by any combination of user-entered Print Key or 
geographic area. Prints full list in notebook format. Two- 
disk version $50, one-disk $45. 

DISK LISTMAKER — User-friendly simple database, 
holds 1 ,000 names or items plus 5-digit codes in 48K, 
500 in 32K. Displays on-screen and prints out lists and 
sub-lists. Full editing, sorts by name. Disk version of 
original cassette program in use by schools, real estate 
firms, many individuals. $20. 

For Models I or III [with DOS conversion] 

Write for full catalog of disk S. cassette programs 

California residents add 6% tax 

MANHATTAN SOFTWARE 

Box 1 063, Woodland Hills, CA 91 365 ^ 259 
24-hour Visa/MC Order Line [213] 704-8495 
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GEMINI- 

FOR PRINTER VALUE THAT'S 
OUT OF THIS WORLD 




Over thirty years of down-to-earth experi- 
ence as a precision parts manufacturer has 
enabled Star to produce the Gemini series 
of dot matrix printers — a stellar combina- 
tion of printer quality, flexibility, and reliabil- 
ity. And for a list price of nearly 25% less 
than the best selling competitor. 

The Gemini 10 has a 10" carriage and 
the Gemini 15 a 15 1 /2" carriage. Plus, the 
Gemini 15 has the added capability of a bot- 
tom paper feed. In both models, Gemini 
quality means a print speed of 100 cps, high- 
resolution bit image and block graphics, 
and extra fast forms feed. 

Gemini's flexibility is embodied in 
its diverse specialized printing 
capabilities such as super/ " 

sub script, underlining, back- 
spacing, double strike mode 
and emphasized print mode. An- 
other extraordinary standard micron 



m 



feature is a 2.3K buffer. An additional 4K 
is optional. That's twice the memory of lead- 
ing, comparable printers. And Gemini is 
compatible with most software packages 
that support the leading printers. 

Gemini reliability is more than just a 
promise. It's as concrete as a 180 day war- 
ranty (90 days for ribbon and print head), a 
mean time between failure rate of 5 million 
lines, a print head life of over 100 million 
characters, and a 100% duty cycle that 
allows the Gemini to print continuously. 
Plus, prompt, nationwide service is readily 
available. 

So if you're looking for an incredibly 

a high-quality, low-cost printer 
~ $ that's out of this world, look 
r ^\ to the manufacturer with its 
feet on the ground — Star and 
® the Gemini 10, Gemini 15 dot 



iinary standard micronic s • inc - 4 matrix printers. 

MAKING A NAME FOR OURSELVES 

1120 Empire Central Place, Suite 216, Dallas, TX 75247 
For more information, please call Bob Hazzard, Vice President, at (214) 631-8560. 



GAME 



Pick a Card 



by Norman Efroymson 



"Pick any number up to 255." This 
line begins a magic trick where the sub- 
ject picks a number within a given 
range, without revealing his choice to 
the magician. The magician displays 
several cards filled with rows of 
numbers and asks the subject to point 
out which cards contain his secret 
number. The magician looks at these 
cards for a moment, performs some 
hand waving and incantations, and 
reveals the number that the subject 
picked. 

The solution is simple; the numbers 
on the cards are arranged from 
smallest to largest. The magician adds 
the numbers in the upper left corner of 
each card on which the subject says his 
number appears. That sum equals the 
number picked by the subject. In dis- 
cussing how the trick works, see Fig. 1 . 

The cards are constructed in the 
following manner: All numbers that 
have bit set (equal to 1) appear on 
card 0. All numbers that have bit 1 set 
appear on card 1 and so on. The bit 
position values are 1, 2, 4, 8, 16, . . . 
(from right to left) and these are the 
smallest numbers to appear on cards 0, 
1, 2, 3, 4, ... respectively. 

If the subject chooses number 13, 
whose binary representation is 



This program won't 
pull a rabbit out of 
a hat, but it will amaze 
and puzzle your friends. 



00001101, the 13 is displayed on cards 
0, 2, and 3. The first numbers on 
these cards are 1, 4, and 8, which add 
up to 13. 

For the computer to play the magi- 
cian's part, it must be able to construct 
the series of cards. Fortunately, the 
logical operator, AND, allows the 
computer to test the bit positions of 
each number. For example, should 5 
be printed on card 2? Card 2 holds all 
numbers with bit 2 set. The value of bit 
2 is 2 2 , or 4. We need to test bit 2 of the 
number 5 to see if it is set. This is deter- 
mined by the Basic operation: 4 AND 
5. If 5 has bit 2 set, the operation 
returns a true (-1). If not, it returns a 
false (0). If X represents the number in 
question and Y the value of the bit 
position then IF X AND Y THEN 
PRINT X will print X on the card. 

We are now ready to prepare a pro- 



Number 








Binan 












7 


6 


5 


4 


3 


2 


1 





= bit 


1 























1 


positions 
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1 
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4 
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1 
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1 





1 







15 
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1 


1 


1 




20 











1 





1 
















Figure 1 









gram that will play magician. Two 
loops are needed, one to count the 
cards and one to print the numbers on 
the cards. If N cards are used, the outer 
loop must range from 2° to 2 N-1 . The in- 
ner loop ranges from 1 to 2 N_1 . 

Lines 50 and 1 30 form the loop that 
counts the number of cards to be 
printed. Lines 70 and 90 count the 
number of numbers to be tested, and if 
possible, to be printed on each card. 
Line 80 tests the bit position and prints 
the number if the bit position is set. 
Line 1 20 adds the value of the bit posi- 
tion (which is also the first number on 
the screen) to the total. The drawback 
to this system is that it's slow for sever- 
al cards. You could take care of this by 
writing the program in machine code. 
Program Listing 2 contains the source 
and object codes for Magic Card. 

Lines 180-200 give introductory in- 
formation. Line 260 puts a one in the B 
and C registers. The B register is the 
equivalent to the variable Y in the 
Basic program, and holds the value of 
the bit position. The C register is 
equivalent to X and cycles through all 
the numbers in the range. Lines 
270-290 clear the screen before print- 
ing each card. Lines 300-320 do the 
equivalent of the X AND Y operation 
in the Basic program. Line 330 routes a 
false answer to line 490. If true, the 
number is printed on the screen, so line 
340 transfers the binary number from 
the C register to the L register to make 
use of the ROM subroutine that con- 



The Key Box 

Model I 
16KRAM 

Basic Level II 



176 • 80 Micro, Anniversary 1983 



10 CLS 

20 INPUT "PICK THE NUMBER OF CARDS TO BE USED (UP TO 

30 PRINT "PICK A NUMBER BETWEEN AND";2[N-1 

40 INPUT "PRESS <ENTER> WHEN READY" ;A$ 

50 FORY = 0TON-l 

60 CLS: PRINT "CARD #";Y 

70 FORX=l T0 2[N-1 

80 IF X AND 2[Y THEN PRINT X; 

90 NEXTX 
100 PRINT 

110 INPUT "IS YOUR NUMBER ON THE SCREEN";A$ 
120 IFLEFT$(A$,1) = "Y" THEN T = T + 2[Y 
130 NEXTY 
140 PRINT "YOUR NUMBER WAS";T 

Program Listing 1 



8)";N 



"Prepare a program that 
will play magician. " 



verts binary numbers in the HL pair 
into their ASCII decimal equivalents. 
Line 350 calls the subroutine which 
does this. 

Upon return, lines 360-450 make 
sure the number printed to the screen 
won't overrun the end of a line. Since 
the range of numbers used in this pro- 
gram is 255, the greatest number of 
digits a number can have is three. In 
addition, every number has a trailing 
space. So allow for four characters. If 
a number is set to be printed in the last 
four print positions of a line, it is 
shifted to the start of the next line. Line 
360 gets the cursor position and puts it 
into the DE register pair for manipula- 
tion. Line 370 puts the LSB of the cur- 
sor location (a number between and 
63) into the A register. Lines 380 and 
390 test to see if the position is less than 
60. If so, the program jumps to line 
460; otherwise lines 400-450 start a 
new line. 

Lines 590-630 ask the user if his 
number appeared on the screen. If the 
number was on the screen, lines 
640-660 add the value of the position 
to the total. Line 670 checks to see if all 
the cards have been printed. If so, the 
program jumps to the closing routine 
at line 720; if not, line 690 advances B 
to the next bit position. Line 700 sets C 
equal to B because the lowest number 
placed on a card is the value of the bit 
position. Line 710 loops the program 
to print the next card. 

Lines 850-900 contain the ROM 
subroutine to convert a binary number 
to.its ASCII equivalent. Line 910 con- 



tains the tally buffer. Lines 930-1050 
contain the various messages to be 
printed. 

You may alter the program to allow 
the user to pick the number of cards, 
and the number range. ■ 

Norman Efroymson can be reached 
at 2976 Chadbourne Road, Shaker 
Heights, OH 44120. 







00100 


;*****« 


******* 


a******************** 






00110 


1 ** 


MAGIC 


CARD PROGRAM 


• * 






00120 


»** 


BY NORMAN EFROYMSON 


** 






00130 


;** 


2976 


CHADBOURNE RD 


** 






00140 


J** SHAKER IITS., OHIO 4412B 


** 






00150 


• ** 


JULY 9, 1981 


** 






00160 


. ****** 


******* 


********************* 


7D00 




00170 




ORG 


7D00H 


; ENTRY ■ 32B8B 


7D00 


CDC901 


00180 


START 


CALL 


01C9H 


; CLEAR SCREEN 


7D03 


219A7D 


00190 




LD 


HL,MSG 


;GET ADDRESS OF MSG 


7D06 


CDA728 


0B200 




CALL 


28A7H 


; PRINT IT 


7D89 


CD4900 


00210 


WAIT 


CALL 


49H 


;WAIT UNTIL KEY PRESSED 


7D0C 


FE01 


00220 




CP 


01H 


;IS IT <BREAK>7 


7D0E 


CA191A 


00230 




JP 


Z,1A19H 


;IF YES, JP TO BASIC 


7D11 


FE0D 


00240 




CP 


0DH 


,-IS IT <ENTER>7 


7D13 


2BF4 


00250 




JR 


NZ,WAIT 


;IF NOT, TRY AGAIN 


7D15 
RS 

7D18 


010101 


00260 




LD 


BC,0101H 


; INITIALIZE LOOP COUNTS 


C5 


B027B 


L00P1 


PUSH 


BC 


;SAVE LOOP COUNTERS 


7D19 


CDC901 


00280 




CALL 


01C9H 


; CLEAR SCREEN 


7D1C 


CI 


00290 




POP 


BC 


; RESTORE LOOP COUNTERS 


7D1D 

B 

7D1E 


78 


0B3BB 


LOOP 2 


LD 


A,B 


;PUT 2[N IN 'A' REGISTE 


Al 


00310 




AND 


c 


;MASK OUT OTHER BITS 


7D1F 


B8 


00320 




CP 


B 


;WAS BIT SET? 


7D20 

R 

7D22 


201E 


0B33B 




JR 


NZ,CONT 


J IF SET, GET NEXT NUMBE 


69 


0B340 




LD 


L,C 


; READY FOR CONVERT 


7D23 


CD8E7D 


00350 




CALL 


DECMAL 


[CONVERT HEX TO DECIMAL 


7D26 


ED5B2B4B 


00360 




LD 


DE, (4020H) 


jGET CURSOR POSITION 


7D2A 


7B 


00370 




LD 


A,E 


jGET LSB 


7D2B 


E63F 


00380 




AND 


3FH 


;MASK OUT HIGH BITS 


7D2D 


FE3C 


00390 




CP 


3CH 


;ROOM FOR LAST NUMBER? 


7D2F 


FA3B7D 


00400 




JP 


M,NEXT 


;JP IF ROOM 


7D32 


F63F 


0B41B 




OR 


3FH 


;LSB * END OF LINE 


7D34 


B3 


00420 




OR 


E 


;RESTORE HIGH BITS 


7D35 


5F 


00430 




LD 


E,A 


;DE NOW AT END OF LINE 


7D36 

NE 
7D37 


13 


00440 




INC 


DE 


;DE AT START OF NEXT LI 


ED532046 


00450 




LD 


(4020H) ,DE 


;SAVE TO CURSOR 


7D3B 


C5 


00460 


NEXT 


PUSH 


BC 


;SAVE LOOP COUNTERS 


7D3C 


CDA7 28 


00470 




CALL 


28A7H 


1 PRINT THE NUMBER 


7D3F 


CI 


00480 




POP 


BC 


;RESTORE LOOP COUNTERS 


7D48 
BR 

7D41 


0C 


0049B 


CONT 


INC 


C 


;INC LOOP FOR NEXT NUMB 


AF 


00500 




XOR 


A 


;ZERO 'A' REGISTER 


7D42 


B9 


00510 




CP 


C 


;IS 'C REG = B? 


7D43 
P2 

7D45 


20D8 


00520 




JR 


NZ,L00P2 


J IF NOT, JP BACK TO LOO 


21C03F 


00530 




LD 


HL,3FC0H 


jHL => TO LAST LINE 


7D48 


222040 


00543 




LD 


(4020H) ,HL 


; CURSOR ON LAST LINE 


7D4B 


21037E 


00550 




LD 


HL,MSG2 


;GET MESSAGE 


7D4E 


C5 


00560 




PUSH 


BC 


;SAVE LOOP COUNTERS 


7D4F 


CDA728 


00570 




CALL 


28A7H 


; PRINT IT 


7D52 


CI 


00580 




POP 


BC 


; RESTORE LOOP COUNTERS 


7D53 


CD4900 


00590 


YESRNO 


CALL 


49H 


jWAIT FOR KEY INPUT 


7D56 


FE4E 


00600 




CP 


•N' 


;IS IT 'N'? 


7D58 
D 


280B 


00610 




JR 


Z, NXTCRD 


;IF NOT, JP TO NEXT CAR 


7D5A 


FE59 


00620 




CP 


■ yi 


(WAS KEY 'Y'? 


7D5C 


20F5 


B0630 




JR 


NZ, YESRNO 


,• IF NOT, TRY AGAIN 


7D5E 


3A997D 


00640 




LD 


A, (TOTAL) 


;GET SUBTOTAL 


7D61 
OB 

7D62 


80 


00650 




ADD 


A,B 


jADD BIT POSITION'S VAL 


32997D 


00660 




LD 


(TOTAL) ,A 


J SAVE TO TOTAL 


7D65 
7D67 


CB7 8 


00670 


NXTCRD 


BIT 


7,B 


jALL CARDS BEEN PRINTER 


2005 


00680 




JR 


NZ, FINAL 


j GO IF YES 


7D69 


CB20 


0B69B 




SLA 


B 


; SHI FT FOR NEXT CARD 


7D6B 


48 


00700 




LD 


C,B 


; BEGIN COUNTER AT B 


7D6C 


18AA 


00710 




JR 


LOOP1 


;BACK TO PRINT CARD 


7D6E 


CDC901 


00720 


FINAL 


CALL 


01C9H 


; CLEAR SCREEN 


7D71 


21267E 


00730 




LD 


HL.MSG3 


;GET MESSAGE 


7D74 


CDA728 


00740 




CALL 


28A7H 


; PRINT IT 


7D77 


3A997D . 


00750 




LD 


A, (TOTAL) 


jGET THE ANSWER 


7D7A 


6F 


00760 




LD 


L,A 


J READY FOR CONVERT 


7D7B 


CD8E7D 


00770 




CALL 


DECMAL 


.•CONVERT IT TO DECIMAL 


7D7E 


CDft7 28 


007 80 




CALL 


28A7H 


.•PRINT THE ANSWER 


7D81 


AF 


00790 




XOR 


A 


.•ZERO 'A' REGISTER 


7D82 


32997D 


00800 
00810 




LD 


(TOTAL) ,A 


;ZERO TOTAL BUFFER FOR 
.-NEXT GAME 


7D85 


21B27D 


00820 




LD 


HL.MSGl 


;GET MESSAGE 


7DB8 


CDA728 


00830 




CALL 


28A7H 


; PRINT IT 


7D8B 


C3097D 


00840 




JP 


WAIT 


; RESTART GAME 


7D8E 


C5 


B0850 


DECHAL 


PUSH 


BC 


; CONVERT ROUTINE 


7D8F 


2600 


00860 




LD 


H,0 


;HL HAS HEX NUMBER 


7D91 


CD9A0A 


00870 




CALL 


BA9AH 


;SAVE AS INTEGER 


7D94 


CDBD0F 


00880 




CALL 


BFBDH 


; CONVERT IT TO DECIMAL 


7D97 


CI 


00890 




POP 


BC 


; RESTORE LOOP COUNTERS 


7D98 


C9 


00900 




RET 






7D99 


00 


BB91B 


TOTAL 


DEFB 







7D9A 


17 


00920 


MSG 


DEFB 


23 


;32 CHAR/LINE MODE 


7D9B 


20 


00930 




DEFM 


1 MAGIC GUESS' 


7DB2 


0A0A 


00940 


HSG1 


DEFW 


BA0AH 


;2 LINE FEEDS 


7DB4 


54 


BB950 




DEFM 


'THINK OF A NUMBER (0-255) ' 


7DCD 


8A 


0B96B 




DEFB 


10 




7DCE 


50 


00970 




DEFM 


'PRESS <ENTER> WHEN READY.' 


7DE7 


0A 


00980 




DEFB 


10 


;FOR BASIC 


7DE8 


4F 


00990 




DEFM 


'OR PRESS <BREAK> FOR BASIC' 


7E02 


00 


01000 




DEFB 







7E03 


49 


01010 


MSG2 


DEFM 


'IS YOUR NUMBER 


IN THIS LIST (Y/N)?' 


7E25 


00 


01020 




DEFB 







7E26 


17 


01030 


MSG 3 


DEFB 


23 




7E27 


54 


B104B 




DEFM 


'THE NUMBER YOU 


PICKED WAS ' 


7E40 


00 


01050 




DEFB 







7D0B 




B1B6B 




END 


START 




00000 TOTAL ERRORS 











Program Listing 2. Source and Object Codes. 
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TUTORIAL 



AND... OR. ..NOT 



by Jeffrey Myers 



D 



o you feel comfortable using Boolean logic? 

Or do the words AND, OR, and NOT scare you? 

This article explains just how they are used. 



Just beyond beginner's Basic at the 
heart of your TRS-80's architecture 
and its machine language lurk crea- 
tures with which you should become 
familiar. They populate a branch of 
the mathematics family tree which 
belongs to the logic family. These basic 
beasts are named AND, OR and NOT. 

Fortunately, AND, OR and NOT 
are about as fearsome as they look — 
harmless words that we English 
speakers have long since mastered. In 
logic (as in mathematics or computer 
science) they have precise definitions 
which distinguish them from the every- 
day AND, OR and NOT. 

Perhaps you have seen them in your 
Basic manual or in someone else's pro- 
grams. One such usage is very 
straightforward. 

100IFA = 5ANDB= -6THEN111 

This Basic statement transfers pro- 
gram control to line 111 if A is 5 and B 
is —6. If either equation is false or if 
both are false, the program flows to 
the statement below line 100. Here, 



10 INPUT X 

20 IF X THEN 50 

30 PRINT"DROPPED THROUGH' 

40 GOTO 10 

50 PRINT"BRANCHED" 

60 GOTO 10 

Program Listing I 



AND functions as you might guess. 
But what about the statement 

200 IF A AND (B AND C) THEN 222 

in which there are no relation symbols 
such as " = " or " < "? The answer will 
have to wait a bit, but it will reveal a 
fascinating world of programming 
techniques. 

OR appears much as the ANDs 
above and AND and OR can appear 
together in statements with predictable 
consequences such as: 

300IF(A = 1 AND B = 10) OR (A = 10 AND 
B = 1) THEN 333 

This statement can send you to line 
number 333 in two ways: A and B 
equal 1 and 10 respectively, or vice ver- 
sa. In mastering these logical operators 
one of the challenges is determining 
which if any parentheses to eliminate in 
line 300. This is beginning to sound like 
algebra, and for a good reason. 

Anywhere they occur, AND and OR 
are binary operations. (This is not base 
two numeration.) It means that they 
must operate on two things at a time 
and the things are called operands. In 



The Key Box 

Basic Level II 
Model I or III 
4KRAM 



ordinary arithmetic, addition, subtrac- 
tion, multiplication and division are 
binary operations. Procedures exist for 
adding columns of numbers at once, 
but fundamentally these techniques 
still add two numbers at a time. (Add- 
ing columns in various directions and 
combinations is reliable because addi- 
tion has two special properties called 
commutativity and associativity. Sub- 
traction has neither of these properties.) 

By contrast, unary operations such 
as taking the square root of a number 
require only one operand. The term 
unary also refers to our third logical 
operator, NOT, which is performed 
only on single operands. The results 
can look mysterious at first. 

Experiment with NOTing numbers 
by entering commands like PRINT 
NOT 2 or PRINT NOT 10000 and so 
forth. Try enough numbers to allow a 
pattern to emerge and note what num- 
bers are out of bounds for the opera- 
tion NOT. 

For legal values, a simple pattern 
emerges quickly, although the reason 
for calling this operation NOT is prob- 
ably still obscure. NOT 3 is -4. NOT 
- 4 brings you back to 3 . Although this 
alone hardly proves the fact, this does 
work in general: If NOT A is B then 
NOT B is always A. Mathematically, 
NOT is said to be its own inverse. 

NOT treats decimal inputs as if the 
Basic INT function had been per- 
formed first. Instead of operating on 
the decimal value, NOT uses the 
largest integer less than or equal to it. 
This is a clue to the nature of NOT. 

The lowest positive integer which 
produces an error message is 32678. 
The integer 32767 works and produces 
a -32768. The lowest acceptable in- 
teger is -32768 and when NOTed, it 
produces 32767. These are the exact 
limits placed on integer variables in 
Basic. You declare integer variables by 
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NEWDOS/80 Version 2.0 
The Support Keeps Coming. 




Apparat's newest 
disk operat- 
ing system for 
the TRS-80* 

NEWDOS/80 Version 2.0, has 
added many new enhancements 
and features to make your Model I 
or III computer more powerful. 
We've kept one thing the same. 
Our support. 
Version 2.0 is our second 
upgrade of our original NEWDOS 
for the TRS-80. Each version 
builds and improves on the 
capabilities of the preceeding 
versions. Just as important, 
Apparat's commitment to 
supporting our products makes a 
good product even better. By 
providing our customers with 
zaps on an ongoing basis, we're 
continually making NEWDOS/80 
Version 2.0 a more powerful tool. 



Version 2.0... 

High Performance DOS 

NEWDOS/80 Version 2.0 
builds even more performance 
into NEWDOS/80. The versatility 
and sophistication of Version 2.0 
includes features like: 

• Double density support on the 
Model I 

• Enhanced compatability 
between Model I and III 

• Triples directory size 

• Dynamically merge in basic 
(also allows merging of non 
ASC II format files) 

• Selective variable clearing 

• Can display basic listings page 
by page 



• Automatic 
repeat function key 
Routing for 
peripheral handling 

• Enhanced disassembler 

• Command chaining 

• Superzap to scan files 

• Fast sort function in basic 

These new features, added 
to the existing capabilities of 
NEWDOS/80, makes it one of the 
most powerful additions you can 
make to your system. And 
Apparat's commitment to support 
assures that you've purchased a 
superior product, both today and 
tomorrow. At just $149.00 it could 
be the best investment you will 
make for your TRS-80. 

If you're thinking about 
upgrading your system, call 
Apparat today. Dealer inquiries 
welcome. 

303-741-1778 

TRS-80 Is a registered trademark of Tandy Corp. 
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DEFINTor "%". 

In Basic, integer variables can be 
stored internally in two. bytes (16 bina- 
ry digits) and most commonly, the 
highest digit shows the sign of the num- 
ber with zero and one representing 
positive and negative respectively. The 
number 32767 is simply binary 
0111111111111111, the highest num- 
ber that fits this numeration scheme. In 
this context, binary means base two. 

Two's Complement 

Negatives are tricky since Basic 
stores them in a special form called 
two's complement. Briefly, the one's 
complement of a binary number has all 
bits (binary digits) opposite to those of 
the original number. This form is inef- 
ficient for operating with negatives, 
however. More popular is two's com- 
plement which is the one's complement 
plus one. 

In binary form, the number one 
(0000000000000001) has a one's com- 
plement of 1111111111111110. Com- 
puters could use this internally to store 
negative one, but if the binary forms of 
1 and -1 are added, 1111111 
111111111 results. This would equal 
- 32767 under this plan. To use one's 
complement and the common addition 
algorithm, we would have to agree that 
1 + (-1) = -32767! 

Using two's complement, negative 
one is one added to the one's comple- 
ment, giving 1111111111111111. This, 
when added to one (0000000000 
000001) gives 0000000000000000 with, 
a carry of 1 . Ignore the carry and the 
rest of the answer is always correct! 
This type of operation is at the heart of 
integer arithmetic and is the reason 
computers can perform at high speed. 

In light of the preceding infor- 
mation, NOT is one's complementer. 
It alters every bit of the binary form 
from to 1 or 1 to 0. 

AND and OR also perform bit-by- 
bit operations on the binary represen- 
tations of numbers. This will open the 
door to conditional statements such as 

400 IF P AND Q THEN 444 

To understand this powerful program- 



ming tool, the If . . . Then statement 
needs some attention. 

When interpreting Basic statements 
such as IF J = 34 THEN 55, you make a 
judgment about the mathematical sen- 
tence "J = 34". (Mathematical sen- 
tences include words like = , <, and so 
on.) In short, the computer assigns a 
truth value to it, using for false and 
- 1 for true. The flow of the program 
hinges on whether the hypothesis has 
a value of 0. If the truth value is zero, 
the program continues in numerical 
order. Otherwise the branch specified 
is performed. Verify this with a test 
program such as Program Listing 1. 
Only one input will cause the computer 
to print "DROPPED THROUGH". 
The key number for which the com- 
puter actually tests is zero. 

The - 1 commonly used for true is 
NOT and has all ones in its two's 
complement signed binary form. As il- 
lustrated in Listing 1, other non-zero 
values function the same within a con- 
ditional statement. 

In symbolic logic, NOT, AND, and 
OR are defined by the truth tables such 
as those shown in Table 1. Here, 
assume P and Q are statements whose 
truth can be determined and assume 
= false and 1 = true. (Letting 1 stand 
for true is more common in logic and 
in some non-TRS-80 computers.) 

By definition P AND Q is true only 
when both statements are true. P OR Q 
is true if P is true, if Q is true or if both 
are true. NOT reverses the truth value. 

Consider the following Basic state- 
ment: 

500 LET LO = - A*(A < B) - B*(A > = B) 

This statement does not produce an er- 
ror message when used in a program! 
In ordinary algebra, this might be 
meaningless, but to the Basic inter- 
preter, it makes sense. On top of that, 
it performs a useful function: LO will 
be set equal to either A or B, whichever 
is numerically less. 

If A is 1 and B is 2, the sentence in 
the first pair of parentheses is true and 
the other sentence is false. The com- 
puter will, in this type of statement, 
compute a truth value and substitute it 



p 


Q 


NOTP NOTQ 


PANDQ 


PORQ 


1 


l 





1 


1 


1 





1 





1 





1 


1 





1 








1 1 
Table 1. Truth table definitions 









for each expression. In this example, it 
will assign LO a value equal to 
-A*(-1)-B*(0) which equals A. If 
B is the smaller number, the first ex- 
pression is false and the second is true. 
If A and B are equal, LO is assigned 
B's value (although this is arbitrary). 

Altering line 500 to print the max- 
imum of two numbers requires only 
slight changes. What about the max- 
imum of three numbers? Try this as a 
programming challenge. A clue will 
emerge later. 

Basic Mathematics 

Basic's method of dealing with 
mathematical sentences explains why 
an incorrectly typed statement like 

600LETX = Y = Z 
(where you meant LET X = Y - Z) 

produces no error message, but assigns 
or - 1 to X depending upon whether 
Y and Z are unequal or equal. By the 
nature of a Let statement, the X must 
be the storage place for the computed 
variable. The computer then tries to 
compute Y = Z. Because this is a 
sentence rather than just an expres- 
sion, it assigns a truth value to it. When 
the algebra of real numbers fails, 
TRS-80 Basic just shifts gears into the 
algebra of logic. 

The Basic statements IF X < > 
THEN 99 and IF X THEN 99 perform 
the same task. The main difference is 
in execution speed. The speed advan- 
tage is important inside loops that are 
executed many times in a program. 

Earlier, I gave a Basic statement 
that appears as line 20 in Program 
Listing 2. Read the program and 
predict the results before you read on. 

This program ANDs according to 
the truth table definition as if the ones 
and zeros of the binary number were 
trues and falses. If you entered 1, 2 and 
3 when running Listing 2, first the 
AND in parentheses is performed as 
shown in Fig. 1 . This is then ANDed 
with one resulting in zero. It is inter- 
preted as false and program control 
passes to line 30. To force the program 
to line 40, all three numbers must have 
ones in the same bit somewhere to 
make the answer non-zero. Three 
equal numbers do this. Inputs 2, 3, and 
6 also make the conditional true 
because they are 10, 11 and 110 in 
binary and ANDing them results in 
010. Like addition, you can AND by 
columns: If a column contains all ones 
write one, otherwise write zero. 

Once again, remember that all non- 
zero truth values are treated as true. 
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During the processing of an If . . . 
Then statement, the real question is "Is 
the truth value of the hypothesis zero 
or not?" If any bit of the truth value is 
one, it is treated as true. 

The binary nature of ANDing helps 
explain such curiosities as PRINT 6 
AND 5 producing the seemingly non- 
sensical answer of 4. PRINT 6 OR 5 
produces a 7 on the screen, the result of 
ORing binary 1 10 with binary 101. Try 
to predict the result of PRINT 4 AND 



decimal 

2 

3 

2 AND 3 
1 



binary 
0010 
0011 

0010 
0001 

0000 



1 AND (2 AND 3) 
Fig. I. ANDing in binary 



5 OR 6, then test it. Your Basic manual 
will show that AND has priority over 
OR just as multiplication is performed 
before addition. This allows simpler 
expressions by eliminating some paren- 
theses. Mastering the NOT-AND-OR 
hierarchy is an important step in sym- 
bolic logic. 

AND, OR and NOT reveal some of 
what goes on at the machine level. 
Basic and other higher-level languages 
go to great lengths to accommodate 
base-10 numeration but meanwhile, 
the Z80 microprocessor hums along in 
base two. When a friend says "Hey, I 



xxxx 1 xxx 

AND 00 00 1000 



00001000 
Figure 2 



10 INPUT A,B,C 

20 IF A AND ( B OR C ) THEN 40 

30 PRINT"DROPPED THROUGH":GOTO10 

40 PRINT"BRANCHED":GOTO10 

Program Listing 2 



thought computers did everything in 
base two but it looks decimal to me!" 
type 71AND2 and explain why 1 AND 
2 equals zero. 

Logical Operators 

One of the powerful uses of logical 
operators is exemplified by the state- 
ment 

700 IF PEEK( 14400) AND 8 THEN 777 

Each byte of memory consists of eight 
bits. If the highest bit is not a sign bit, 
decimal numbers from to 255 can be 
stored in one byte. Commonly, the 
eight bits are numbered 0-7 from least 
to most significant. 

The statement above helps spot 
whether the up-arrow key is pressed. 
This key sets bit 3 (to become 1) in the 
contents of memory location 14400. 
The effect of the AND is shown in Fig. 
2. At the top are the eight bits of mem- 
ory location 14400 with bit 3 set. Below 
is the number 8 in binary. The Xs may 
be set or reset (0) by other keys at the 
moment, but none of them will matter 
because each will be ANDed with the 
zero below it. In the example shown, 
the result of ANDing is 00001000 
which (since it is not zero) will be inter- 



COMPUTER KITS- FROM $69.95 




LNW SEMI-KITS can save you hundreds of dollars. By obtaining your own parts at the lowest 
possible cost and assembling the LNW SEMI-KITS, you can have the most highly acclaimed 
microcomputer in the industry - the LNW80. The LNW SEMI-KITS are affordable modules. You 
can start with a modest cassette system and expand to a full 4Mhz TRS-80 compatible system with 
5 or 8 inch double density disks and color at any time. 

A. LNW80 CPU - Made of high quality FR4 glass epoxy double sided circuit material, with plated- 
through holes and gold edge connector. It is fully solder-masked and silk screened. Here are just 
some of the outstanding features you will have when your . LNW80 CPU board is fully assembled: 
• 16K RAM • Color and black and white video • 480 x 192 high resolution graphics • 64 and 80 
column video • 4 Mhz Z80ACPU • Upper and lowercase display • 500 and 1000 baud cassette 
I/O -$89.95 

B. SYSTEM EXPANSION- Expand the LNW80 computer board, TRS-80and PMC-80 computer 
with the following features: • 32K memory • Serial RS232C and 20Ma port • Real time clock • 
Parallel printer port • 5 inch single density disk controller • Expansion bus (screen printer port) • 
Onboard power supply • Solder- masked and silk screened legend -$69. 95 (tin plated contacts) - 
$84.95 (gold plated contacts) 

C KEYBOARD- 74 key expanded professional keyboard- includes 1 2 key numeric keypad. Fully 
assembled and tested. - $99.95 

D. COMPUTER CASE -This stylish instrument-quality solid steel case and hardware kit gives your 
LNW80 that professional factory-built appearance. - $84.95 Add $12.00 for shipping. 

E. SYSTEM EXPANSION CASE- This stylish instrument-quality solid steel case and hardware kit 
gives your SYSTEM EXPANSION interface that professional factory-built appearance. - $59.95 
Add $10.00 for shipping. 

F. LNW80 CPU- HARD TO FIND PARTS KIT- $82.00 

G. LNW80 VIDEO - HARD TO FIND PARTS KIT - $31 .00 

H. SYSTEM EXPANSION - HARD TO FIND PARTS KIT - $27.50 
I. LEVEL II ROM set. (6 chip set) - $1 20.00 

VISA and MasterCard accepted. Add $3.00 for shipping plus $1.00 for each additional item. All 
shipments via UPS surface. Add $2.00 for U.S. Mail. Shipments outside continental U.S.: funds must 
be U.S. dollars. Sufficient shipping costs must be included with payment. 

ORDERS & INFORMATION - (714) 544-5744 
SERVICE - (71 4) 641 -8850 



LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 
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preted as true. If the up-arrow key is 
not pressed, the upper 1 will be zero 
and the AND operation produces 
00000000 or false. 

The statement IF PEEK( 14400) = 8 
THEN 777 is not equivalent to line 
700. Any of the eight keys that affect 
memory location 14400 will make the 
hypothesis false whether or not the up 
arrow is pressed. In situations like this, 
AND is a great time-saver in Basic pro- 
gramming. 

The technique above is called mask- 
ing. The effect of AND 8 was to hide 
(mask) all bits except bit 3. You can 
mask with AND to tell if an integer is 
even or odd (IF X AND 1 . . .) or to 
find the remainder after division by 16 
(IF X AND 15 . . .). Masking is espe- 
cially useful in lower-level languages 
that are more concerned with binary 
numbers than decimal. This will be in- 
vestigated later. 

If you consider AND, OR and NOT 
as the building blocks of the algebra of 
logic, you can derive other operations 
from them. Table 2 is a truth table 
definition of the exclusive-or operation 
for which the symbol XOR is used. 

As its name implies, P XOR Q is true 
only when one or the other statement is 
true, but not both. By contrast, regular 
OR can be called inclusive-or since it 
includes the possibility that both state- 
ments are true. 

Basic has no symbol for XOR, but 
you can define it in this way: 

800 X = (A AND NOT B) OR (B AND NOT A) 

This could be a short subroutine, or if 



Verbatim 
Diskettes 



Top-quality Verbatim® Diskettes 
from Tech "Data, your complete 
word and data processing supply 
center. Dealer inquiries invited. 

Call Toll Free 

1-800-237-8931. 

In Florida, call 

813-577-2794. 
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Tech* Data Corporation 

325 1 Tech Drive North 
St. Petersburg. FL 33702 



your Basic includes user-defined func- 
tions, you could make the above the 
definition of FNX(A,B). X in line 800 
will be A XOR B. If you are not con- 
cerned about readability, 

800 X = AANDNOTBORBANDNOTA 

is equivalent since the operations order 
matches the existing parentheses. 

Another way to accomplish ex- 
clusive-or is 

800 X = (A OR B) AND NOT (A AND B) 

You can prove that this always 
matches the output of the earlier line 
800. In this formula of logic, dropping 
the parentheses radically alters its 
function. NOT A would then be the 
first operation performed, then the 
ANDs (left to right) and lastly the OR. 

Exclusive-or has some interesting 
and useful properties. One technique 
for encoding a message involves this 
operation in a very straightforward 
way. Program Listing 3 shows this 
method at work. 

In this program, you will code the 
message M$ and you must supply a 
coding word C$. Once the message is 
coded, this coding word alone will 
decode the message. The coding pro- 
duces N$. The program will print N$ 
on the screen, but the coding may pro- 



duce non-alphanumeric characters and 
the printout is unpredictable, so the 
ASCII codes of N$'s characters are 
also shown. 

The scheme is as follows: First, 
pointers CP and MP (for C$ and M$) 
are set to one. Second, the ASCII 
codes of the CPth letter of C$ and the 
MPth letter of M$ are XORed and N$ 
gets an MPth character which has this 
result as its ASCII code. Third, CP and 
MP are incremented by one. If MP 
gets beyond the end of M$, the task is 
completed. If not, then CP is checked 
to see if it is beyond C$'s end. If it is, 
CP is set to one. Fourth, go to step two. 

This leaves a string variable N$ 
equal in length to M$. How is the 
decoding done? 

Decoding 

Decoding is the same process with 
the same coding word. Once the pro- 
gram has shown N$, it waits for a 
dummy input. Press enter and Listing 
3 then decodes N$ by setting M$ = N$ 



P Q 


P XOR Q 


1 1 





1 


1 


1 


1 








Table 2. Definition of XOR 



5 CLEAR 100 

10 INPUT"CODING WORD";C$ 

20 INPUT"MESSAGE TO BE CODED";M$ 

30 CP=0:MP=0:N$ = "" 

40 MP = MP + 1:IFMP > LEN(MS) THEN 100 

50 CP = CP + 1 :IF CP > LEN (C$) THEN CP = 1 

60 A=ASC(MID$(M$,MP,1)) 

70 B = ASC(MID$(C$,CP,1)) 

80 X =( A AND NOT B ) OR ( B AND NOT A ) 

90 L=L + l:N$ = N$ + CHR$(X):GOTO40 
100 PRINT N$ 

1 10 PRINT:FORI = 1 TO LEN(N$):PRINT ASC(MID$,N$,1)); 
120 NEXT:PRINT 
130 INPUT Q$:M$ = N$:GOTO30 

Program Listing 3 



10 INPUT P,Q,R 

20 A = P:B = Q:GOSUB80 

30 A = X:B = R:GOSUB80:PRINTX 

40 A = Q:B = R:GOSUB80 

50 A = X:B = P:GOSUB80:PRINTX 

60 GOTO 10 

80 X = (A AND NOT B) OR (B AND NOT A) 

Program Listing 4 
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and jumping back to the beginning. 
The new N$ turns out to be the original 
message! This trick works because of a 
curious property of the exclusive-or 
operation. 

You can prove in symbolic logic that 
if C = A XOR B then A = C XOR B. 
In other words, XORing with B takes 
you back and forth from A to C. The 
coding program applies this letter-by- 
letter. It produces a code that is not 
trivial to break, even if it is known that 
XOR is the method. 

Related to this coding technique is a 
method for swapping the contents of 
two variables without involving a 
third. This is mostly a curiosity to the 
Basic programmer, but of more impor- 
tance to Assembly-language program- 
mers who have only a few easily acces- 
sible registers. 

Here's the swapping procedure: Ex- 
clusive-or A with B and store in A; Ex- 
clusive-or this new A with B and store 
in B; Exclusive-or the current A and B 
and store in A. As if by magic, A and B 



have exchanged their original contents. 
Work through some examples by hand 
(with binary numbers) and watch it 
happen. 

Exclusive-or is like AND and OR in 
that the order of its operands does not 
matter; this property is called com- 
mutativity. Another property of in- 
terest in algebra is associativity. If an 
operation "o" is associative, then 
(AoB)oC = Ao(BoC). In other words, 
if an operation is associative, paren- 
theses are not necessary in a series of 
these operations. Both AND and OR 
are associative, so 15 OR 71 OR 85 OR 
123 gives consistent results no matter 
which numbers you OR first. What 
does 23 AND 147 AND 92 AND 
AND 44 equal, and how can the ques- 
tion be answered quickly? 

Is XOR an associative operation? 
Will 1 XOR 2 XOR 3 depend on which 
pair is done first? If it is associative, 
could you perform a "column exclu- 
sive-orV You can use Program List- 
ing 4 or one like it to investigate. The 



A AND = 


LAWS OF 


A OR 1 = 1 


OPERATIONS 


A AND 1 = A 


WITH 


A OR = A 


OAND 1 


A AND A = A 


1DEMPOTENT 


A OR A = A 


LAWS 


NOT (NOT A) = A 


LAW OF DOUBLE NEGATION 


A OR NOT A = 1 


LAWS OF 


A AND NOT A = 


COMPLEMENTARITY 


A OR B = B OR A 


COMMUTATIVE 


AANDB = BAND A 


LAWS 


(A OR B) OR C = A OR (B OR C) 


ASSOCIATIVE 


(A AND B) AND C = A AND (B AND C) 


LAWS 


A OR (B AND C) = (A OR B) AND (A OR C) 


DISTRIBUTIVE 


A AND (B OR C) = (A AND B) OR (A AND C) 


LAWS 


NOT (A OR B) - NOT A AND NOT B 


DeMORGAN'S 


NOT (A AND B) .= NOT A OR NOT B 


LAWS 


In any valid logical equation, if all ones and zeros are exchanged and all ANDs and ORs are 


exchanged, the resulting sentence will also be valid. 




Table 3. Fundamental Principles 


of Boolean Algebra 



A 


B 


AORB 


NOT A 


NOTB NOT (A ORB) 


(NOT A) AND (NOTB) 


1 


1 


1 











1 





1 





1 








1 


1 


1 

















1 


1 1 
Table 4 


1 



more you try it, the more associative 
XOR seems to be. How long should 
you run the program to guarantee that 
it is associative? 

Proving that (A XOR B) XOR C = 
A XOR (B XOR C) is mathematically 
valid falls into the realm of algebraic 
logic. The foundation laid down so far 
qualifies symbolic logic to be called a 
Boolean Algebra or a Boolean Ring. 
Within this framework, you can prove 
certain simplification techniques and 
use XOR, AND, OR, and NOT to 
fuller advantage. 

A Boolean Ring is an abstract math- 
ematical entity within which many 
theorems have been proven. These 
laws are then applied in many ways: to 
symbolic logic (of interest here), to set 
theory (with intersection instead of 
AND, complements instead of NOT, 
and so on), to switching theory (where 
one and zero are closed and open 
switches, AND is two switches in 
series, and so on), and to many other 
applications. The fundamental rules for 
all these areas are precisely the same. 

Basic Laws 

Table 3 lists some of the basic laws 
of symbolic logic. You can prove these 
using truth tables since the variables 
can only stand for zero or one. With 
these same rules, circuit designers have 
laid out and simplified the Z80 chip. 
Here is a facet appearing in computer 
hardware and software alike — Bool- 
ean Algebra! 

Especially notice the powerful Prin- 
ciple of Duality and how it relates to 
the pairing of entries in this table. Each 
logical statement has a dual in which 
all ANDs are changed to ORs, all ORs 
to ANDs, all ones to zeros and all zeros 
to ones. One of the classic techniques 
of simplifying electronic circuits is to 
form the dual of its Boolean expres- 
sion, simplify it using the various laws, 
then form its dual, which will be 
equivalent to the original circuit. 

You can prove theorems such as 
NOT(A OR B) = (NOT A) AND (NOT 
B) by a truth table (see Table 4) which 
considers all combinations of truth 
values for A and B. Moving to the 
right, you fill in the columns on the 
basis of earlier columns and in accor- 
dance with the definitions of the opera- 
tions. The fact that the final two col- 
umns are equivalent proves this 
theorem. 

The theorem above relates to every- 
day logic in a simple way. The left side 
of the equation indicates that we are 
negating (making negative) an OR 
statement, like "It is not true that I will 

80 Micro, Anniversary 1983 • 183 



either go hiking or swimming." You 
can simplify this cumbersome state- 
ment by forming an AND composed 
of negations of the inner statements: 
"I will not go hiking and I will not go 
swimming." To differing degrees the 
various theorems can apply to logical 
reasoning patterns. 

In truth-table proofs, eight rows are 
necessary if three variables are involved; 
16 are required for four variables, and 
so on. This makes the truth-table meth- 
od tedious for large numbers of vari- 
ables. Algebraic techniques therefore 
have their place in simplifying logical 
expressions (or electronic circuits). 

Earlier, I gave two different logical 
expressions that performed the exclu- 
sive-or operation on A and B. Table 5 
shows a truth-table proof of this. 
Again, the last two columns are the 
crux of this proof. The codes 1-9 make 
the table hard to read, but printing full 
headings over the columns wastes space. 

An alternative to the truth table is to 
apply various theorems of Boolean 
Algebra to transform one expression 
into the other. Table 6 shows one such 
sequence of steps and justifications 
which proves the equivalence of (A 
AND NOT B) OR (B AND NOT A) 
with (A OR B) AND NOT (A AND B). 
In the proof, the terms in parentheses 
indicate how that statement was de- 
rived from the statement preceding it. 

Every step in the algebraic proof is 
logically equivalent to every other step, 



so in writing a Basic program involving 
exclusive-or, you may choose the one 
that executes fastest or is easiest to type 
or easiest to comprehend, depending 
on your priorities. In electronics where 
each AND, OR and NOT is accom- 
plished by transistors, diodes, and so 
on, the decision would probably fall 
between speed of execution and cost. 
At the heart of TRS-80 Models I, II 
and III lies a Z80 microprocessor. In 
Z80 Assembly language, the tech- 
niques mentioned in this article 
become all the more useful because of 
the data's binary nature. Below are 
some simple illustrations. 

• The commands AND, OR, XOR 
exist. 

• The command CPL does the job of 
NOT or one's complementing and 
NEG does two's complementing. 

• Most computations are performed 
in the accumulator, a one-byte register. 
The carry flag is one bit which is set to 
one if the last operation generated a 
carry (or a borrow). The commands 
AND A and OR A are famous tricks 
for resetting the carry flag to zero 
without changing A's contents (each 
command has A operating on itself). 
XOR A is a quick way to zero A. 

• The blinking asterisk during cassette 
loads on Models I and III is accom- 
plished by getting the contents of mem- 
ory location 15423, XORing with 10, 
storing the result back in 15423, then 
repeating. (This is another use for 



A 

1 

1 






B 1 2 
1 

1 

1 1 
1 1 


3 

1 
1 
1 



4 5 6 7 
10 
10 1 
11 
1 


8 

1 
1 




9 

1 
1 






1 = 

2 = 

3 = 


= NOTA 
= NOTB 
= AORB 




4 = AANDB 

5 = AANDNOTB 
6=BANDNOTA 




7 = NOT (A AND B) 

8 = (A AND NOT B) OR (B AND NOT A) 

9 = (A OR B) AND NOT (A AND B) 








Table 5. Truth table proof of two XOR formulas 



1. 


(A& -B)OR(B& -A) 








2. 


((A & - B)OR B)&((A & - B)OR 


-A) 




(distributive law of OR over AND) 


3. 


((A OR B)&( - B OR B))&((A OR 


-A)&(- 


-AOR 


-B)) 

(distr. law of OR over AND, twice) 


4. 


((A OR B)& 1 ) & ( 1 & ( - A OR - 


-B)) 




(law of complementarity) 


5. 


(AORB)&(-AOR -B) 






(law of AN Ding with 1) 


6. 


(A OR B) & NOT( A AND B ) 






(DeMorgan's Law) 






Table 6 





XOR: to toggle or flip-flop bits. 

• AND, OR, and NOT and related 
functions are mainstays of the ma- 
chine-language routines that make 
Basic work. In general, a thorough 
knowledge of logical algebra is a pre- 
requisite for succeeding in Assembly- 
language programming. 

Perhaps this article has inspired you 
to do some further investigations into 
the algebra of logic. If so, your com- 
puter can teach you a lot. Also, books 
about Boolean Algebra, switching cir- 
cuits, logic, or set theory might help. 
The game WFF 'N PROOF is based on 
these concepts. (A wff is a well-formed 
formula composed of the type of ingre- 
dients mentioned above.) 

Here are some suggested areas of ex- 
ploration: 

• In graphics, PEEKing at one of the 
video memory locations, then ANDing 
or ORing with various powers of two 
and POKEing it back will set and reset 
individual pixels. 

• The NAND function is an AND fol- 
lowed by a NOT. It has been proven 
that any logical formula can be rewrit- 
ten using only NANDS! 

• Ditto for NOR. 

• The listing of laws of symbolic logic 
only scratches the surface. Develop 
further formulas. Example: How can 
you safely remove the parentheses 
from A XOR (B AND Q? 

• If you need to define a function 
which for an input of X gives SQR(X) 
if X is above four but which gives 
5*X-18 for other Xs, try Y = 

-(X>4)*(SQR(X)) - (X<=4)* 
(5*X- 18). This type of technique ex- 
ecutes more quickly than a lot of 
If. . .Thens. You can transplant this 
technique into many programming 
situations. 

• Here's a partial answer to the chal- 
lenge question of having the computer 
determine the highest of three numbers 
A,B, and C: 

M = -A*(A>BANDA>C) -B*(B>AAND 
B>C) -C*(C>A ANDC>B). 

This works unless all three inputs 
match. Fix the formula without us- 
ing If. 

• As a final challenge, use logical 
algebra to prove that (A XOR B) XOR 
B = A by using the formulas given for 
XOR and simplifying the left side until 
it equals A. ■ 



Jeffrey Myers (210 Park Ave., 
Hillsboro, OH 45133) has taught high 
school mathematics for 12 years. 
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WE WILL NOT BE UNDERSOLD 



SOFTWARE 



APPLE SOFTWARE 



COMPUTERS 



MICROPRO 




MICROPRO 


Wordstar 


$239.00 


Wordstar 


Mailmerge 


$89.00 


Mailmerge 


Customization Notes 


$359.00 


Spellstar 


Spellstar 


$239.00 


DataStar 


Datastar 


$199.00 


CalcStar 


Calcstar 


$199.00 


VISICORP 


MICROSOFT 




VisiCalc 


Basic Interpreter 


$349.00 


VisiTerm 


Basic Compiler 


$389.00 


VisiDex 


Fortran 80 


$499.00 


VisiPlot 


C000I8O 


$695.00 


VisiFile 


DATA BASE 




VisiSchedule 


FMS80 


$595.00 


VisiTrend/Plot 


dBase II 


$599.00 


MISCELLANEOUS 
Micro Courier 
Screen Director 


NEW! IBM PC SOFTWARE 


NEW! 






Executive Briefing System 


INFORMATION UNLIMITED 




Supercalc 


Easy Writer 


$289.00 


Personal Filing System 


Easy Speller 


$149.00 


PFS Report Writer 


Easy Filer 


$319.00 


Word Handler 


VISICORP 




ENTERTAINMENT 


Visicalc 256K 


$1 99.00 


Beer Run 


VisiDex 


$199.00 


Zork I, II 


VisiFile 


$229.00 


Deadline 


VisiTrend/VisiPlot 


$229.00 


Chop Lifter 


MICROPRO 




Cannonball Blitz 


Wordstar 


$239.00 


Knights of Diamonds 


MISCELLANEOUS 




Midnight Magic 


Supercalc by Sorcim 


$229.00 


Wizardry 


Superwriter by Sorcim 


$289.00 


Tuesday Morning Quarterback 


Home Accountant Plus 


$139.00 


Crush, Crumble & Chomp 


ENTERTAINMENT 




Datestones of Ryn 


Deadline 


$39.00 


Morloc's Tower 


Temple of Apshai 


$29.00 


Snack Attack 


Curse of Ra 


$15.99 


Star Blazer 


Call For More IBM Software And Accessories 





DISK DRIVES 



CCI 100 for the TRS-80 Model 1 

5'A 40 track $299.00 
CCI 189 for the Zenith Z-89 

5'A 40 track $379.00 

CORVUS 5M with Mirror $3089.00 

CORVUS 10M with Mirror $4489.00 

CORVUS 20M with Mirror $5389.00 

CORVUS Interlaces CALL 
RANA SYSTEMS add-on Disc Drive for the Apple II 

Elite One 40 Track CALL 

Elite Controller CALL 

Elite Two 80 Track CALL 

Elite Three 80 Track double-sided CALL 



DISKETTES 



Maxell 5'/4 single side 
Maxell 8 single side 
Maxell 5'A double side 
Maxell 8 double side 
BASF 5'A 
BASF 8 
Verbatim 5'A 
Verbatim 8 
Wabash 5'A 



$39.00 
$49.00 
$45.00 
$55.00 
$26.95 
$36.00 
$26.95 
$36.00 
$21.95 



IBM PC ACCESSORIES 



64K Card by Microsoft 

Joystick by T & G 

1 28 K Card 

192K Card 

256K Card 

Combo Card by Apparat 

Call for more IBM PC add-ons 



$435.00 
$49.00 
$579.00 
$629.00 
$699.00 
$249.00 



For fast delivery, send certified checks, money 
orders, or call to arrange direct bank wire 
transfers. Personal or company checks require 
one to three weeks to clear. All prices are 
mail order only and are subject to change 
without notice. Call for shipping charges. 



$199.00 
$89.00 
$149.00 
$199.00 
$189.00 

$199.00 
$79.00 
$199.00 
$169.00 
$199.00 
$259.00 
$239.00 

$219.00 
$1 29.00 
$169.00 
$199.00 
$115.00 
$75.00 
$169.00 

$28.00 
$26.95 
$39.00 
$24.95 
$29.95 
$29.95 
$32.00 
$45.00 
$24.95 
$24.95 
$15.99 
$15.99 
$23.95 
$24.95 



APPLE ACCESORIES 



ADVANCED LOGIC 

Add-Ram 1 6K Card 

Z-Card CP/M for the Apple II 

Smarterm 80 Column Board w/Softswitch 

Z-80 Card by Microsoft 

16K Card by Microsoft 

32K Card by Saturn 

Keyboard Enhancer II by Videx 

Videoterm by Videx 

Game Paddles by TG 

Joystick by TG 

Numeric Keypad by Keyboard Co. 

ALF 9 Voice Board 

ALF 3 Voice Board 

System Saver by Kensington 

Versacard by Prometheus 

Microbuffer II 16K w/graphics 

Microbuffer II 32K w/graphics 

APPLE INTERFACE CARDS BY CCS 

Serial Asynch. #7710 

Centronics #7729 

Call for other CCS cards 



$99.00 
$225.00 
$249.00 
$319.00 
$159.00 
$199.00 
$125.00 
$259.00 

$49.00 

$49.00 
$139.00 
$159.00 
$229.00 

$75.00 
$229.00 
$259.00 
$299.00 

$139.00 
$149.00 



RAM 



16K Ram Kit for Apple II; TRS80 
200 nano seconds, 41 16 chips 



$17.50 



Dealer (National/Interna- 
tional) Inquiries Invited. 

Send for FREE catalogue 



$485.00 
$265.00 
$569.00 
$359.00 



CALIFORNIA COMPUTER SYSTEM 

Mainframe 2200a 

Z-80 CPU 2810a 

64K RAM 2065 

Floppy Controller 2422a 

ZENITH 

Z-89 48K CALL 

Z-90 64K CALL 

Z-100 CALL 

Call For Prices On The Complete Zenith Line 

CASIO FX702P Pocket Computer $1 79.00 

Sanyo MBC 1 000 64K CALL 

Call For Prices On Complete Sanyo Computer Line 

PRINTERS 



NEC 7710 Serial 

NEC 7720 KSR 

NEC 7730 Parallel 

NEC 3510 Serial 

NEC 3520 

NEC 3530 Parallel 

NEC 8023 Dot Matrix 100cps 

Epson MX-80 

Epson MX-80FT 

Epson MX-100 

IDS Micro Prism 

IDS Prism 80 

IDS Prism 132 

Okidata Microline 80 

Okidata Microline 82A 

Okidata Microline 83A 

Okidata Microline 84 

Datasouth 180 cps 



$2395.00 

$2749.00 

$2395.00 

$1850.00 

$2099.00 

$1850.00 

$539.00 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



MONITORS 



Amdek 13" Color 
Sanyo 9" B & W 
Sanyo 9" Green 
Sanyo 12" B&W 
Sanyo 1 2" Green 
Sanyo 13" Color 
Zenith 1 2" Green 
Zenith 13" Color 
Electrohome 13" HI-RES 

Color Monitor 
Electrohome 13" Color 
Electrohome 1 2" B&W 
Electrohome 1 2" Green 
Electrohome 9" B&W 
Electrohome 9" Green 



$329.00 
$135.00 
$140.00 
$179.00 
$189.00 
$359.00 
$105.00 
$339.00 

$829.00 
$349.00 
$179.00 
$1 89.00 
$149.00 
$1 59.00 



SPECIAL OF THE MONTH 

IDS MICRO PRISM 

Dot Matrix - correspondence 

quality 110 CPS 
Dot Plot Graphics CALL 



TERMINALS 



ADDS Viewpoint 
Zenith Z-1 9 
Televideo 910 
Televideo 925 
Televideo 950 



$495.00 
$679.00 
$595.00 
$779.00 
$969.00 



TELECOMMUNICATIONS 



Prentice Star Modem 
Novation Cat Modem 
Novation D-CAT 
Novation AUTO-CAT 
Novation APPLE CAT 
Hayes Smart Modem 
Smart Modem 1200 
Hayes Micro-Modem 
Hayes Chronograph 
Signalman Mark I 



$1 29.00 
$139.00 
$149.00 
$199.00 
$299.00 
$249.00 
CALL 
$295.00 
$225.00 
$85.00 




The CPU Shop 

TO ORDER CALL TOLL FREE 1 -800-343-6522 * 

420-438 Rutherford Ave., Dept. M1A, Charlestown, Massachusetts 02129 



VISA' 



Hours 9 AM - 9 PM (EST) Mon.-Fri. (Sat. till 6) 
Technical information call 617/242-3361 

^See List ot Advertisers on Page 563 



TWX- 710-348-1796 



Massachusetts Residents call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
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HARDWARE 



Permanent Soun 



by Richard C. McGarvey 



u 



ntil Richard put a permanent audio amplifier 
into his CRT case, his desk was a tangle of 
wires. Now you can be more organized, too. 



With two TRS-80s on one desk and 
all the associated clutter, I was getting 
tired of having the jumble of wires 
needed to hook up my amplifier for the 
sound effects that come with many of 
my games and other programs. It was 
only after opening my CRT that I 
realized there is more than enough 
room inside the computer's casing for a 



SWITCH / 29 9 94V- 

WIRE 



SWITCH 
WIRE 




Fig. 1. Wire Set-up Between Pot and PC Board 
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permanent audio amplifier. 

The modification should take only 30 
minutes or so. Even the inexperienced 
hobbyist can easily make the installa- 
tion. Read the instructions before start- 
ing and be sure you have all the parts 
and tools ready before you begin. 

On Being Careful 

The CRT casing is made of soft 
plastic. Drilling into plastic can be 
troublesome, so make a pilot hole us- 
ing a very fine drill bit. Increase bit 
sizes in small increments until you get 
the correct hole size. It would be better 
to use a hand drill or a drill bit held in a 
pair of vise-grip pliers rather than a 
power drill. 

Be sure you have correctly located 
all holes to be drilled before drilling. 
Check and double check before you 
drill. You cannot undrill a hole. 

You will be working inside a tv set. 
High-voltage residue can cause serious 
electric shock. Picture tubes are fragile 
and can cause serious injury if they im- 
plode. Be careful! 

Assembly 

Assemble the potentiometer and 
potentiometer switch as indicated on 
the package backs. These components 
will be your remote on/off and volume 
controls. Color coding is important at 



this stage. You will need at least four 
colors of light-gauge wire. 

On the rear of the completed poten- 
tiometer are two connection points 
(Fig. 1). These are the on/off switch 
connections. Cut two lengths of red 
wire long enough to reach from the pot 
to the amplifier board; 10 inches 
should be long enough. Connect one 
wire to each of the rear connect points 
and solder. 

Next, cut three wires of different 
colors the same length as the red switch 
wires. Attach one of these wires to each 
contact on the pot and solder. Twist or 
braid these wires into a cable for neat- 
ness. Leave an inch or so unbr aided on 
each wire; strip the insulation from 
their ends and set it aside. 

Now open the amplifier case. The 
PC board is small and can be removed 
by removing one screw, the volume 
knob, and the jack nuts on the outside 
of the case. Save the parts for later use. 
Remove the speaker also. It is fastened 
with a screw and gum-type glue. 
Remove the screw and carefully pry 
away the speaker. 

For the next step, the power hook 
up, you have two options. To use a 
9-volt battery, extend the power wires 
through a hole in the back of the CRT 
and mount a battery clip to hold the 
battery. This will make battery chang- 
ing simple. 



The Key Box 
Model I 



I use a power supply. The amplifier 
is designed to handle 9 volts dc. I can 
handle up to 15 volts without burning 
or as little as 5 volts dc. In either case, 
you will have to extend the wires. 

Extending the Wires 

You will have to extend the wires at 
two locations: between the PC board 
and power connect point and between 
the PC board and speaker. It is better 
to replace the wires rather than to 
splice on extra. 

To do this, cut wires long enough to 
reach from the intended PC board 
location to the speaker and power con- 
nect. Next, unsolder one end of a wire 
to be extended and solder the longer 
wire in its place. Then unsolder the 
other end of the short wire and solder 
the other end of the replacement wire 
in its place. Do this until all four wires 
have been extended. Again, twist the 
wires for neatness. If you remove all 
the wires at once, you will most likely 
forget where they belong. 

Installation 

The easiest location for the pot 
on/off switch is on the same side of the 
CRT casing as the amplifier. This re- 
quires drilling one hole. 

To install the pot with the knbb on 
the front of the CRT (Photo 1), open 
the CRT back carefully. Don't worry if 
the inside of your TRS-80 looks dif- 
ferent than mine (Photo 2); there are 
different versions. 

First, drill the pilot hole for the pot 
shaft from the outside. Drill exactly 
between the S and the - in TRS-80. This 
will neatly center the control knob. 
Continue to enlarge the hole until the 
pot shaft fits through. 

Now cut a rectangular piece of 
plastic from the amplifier casing that 
will span the hole on the inside of the 
CRT. This piece will be used to mount 
the pot (Fig. 2). Drill a hole in the piece 
large enough to fit the pot shaft and 
thread. Put the washer and nut on the 
pot and mount it securely to the plastic 
piece. 

Insert the pot shaft through the CRT 
casing hole so the plastic mounting 
piece is flush with the inside of the cas- 
ing. Using a small drill bit, drill a hole 
through one side of the mounting piece 
and into the casing. Be sure the drilled 
hole is slightly smaller than the screws 
you removed from the PC board and 
speaker. You will use these screws to 
mount the pot to the casing. 

Screw the mounting piece and pot in 
place. Make sure the pot shaft is 
centered, and then drill the hole 



through the other side of the mounting 
bracket. Do not install the screw yet. 
Extend the pot far enough away from 
the front of the CRT so the knob does 
not scrape when turned. Mark this spot 
on the pot shaft. Remove the pot and 
cut the shaft at the mark. Be sure to 



clamp the pot by the shaft for cutting 
and not by the pot itself. 

Decide where you want to connect 
the amplifier PC board, and drill a 
small pilot hole for one of the jacks. 
On the outside of the CRT, place the 
PC board on the side of the CRT 




Photo 1. Completed installation. Notice the centered control knob directly below the Radio Shack 
logo; the black speaker grating for covering speaker holes; and the marked audio and power jacks on 
the casing 's right side. 




Photo 2. Opened casing. PC board is located at lower-left with the power jack just below that. The 
speaker is to the left of the video tube with the partially mounted pot above. 
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Photo 3. Close-up of Labeled Jacks 

casing so the jacks are pointing down 
with one jack centered over the pilot 
hole. Mark the location of the center of 
the second jack and drill that pilot 
hole. Enlarge the holes until the jacks 
fit through. Do not install the PC 
board yet. 

If you are going to use an external 
power supply, decide on a location for 
the jack that will prevent confusion 
between jacks. I placed mine centered 
below the PC jacks (Photos 2 and 3). 
Drill this hole as the others. Be certain it 
is not too close to the PC board. 

Now select the location for the 
speaker and drill four holes from the 
inside for sound to pass through. In- 
side the CRT, just below the installed 
pot, is a good location for the speaker 
(Photo 2). The holes can be covered in 
front with a black or silver grating 
(Photo 1). Do not mount the speaker at 



271-1714 


$1.09 


271-1740 


$0.69 


277-1008 


$11.95 


274-414 


$1.39 



— 5K-ohm potentiometer 

— Potentiometer switch 

—Amplifier 200m W 

—Knob (sold two per pack) 

— Phone jack. Size is dependent on power input plug. Check with your local RS store for the 
proper jack . If you use a 9-volt battery instead of the power supply you can get a battery clip in- 
stead of the jack. Note the installation instructions for the particulars. 

Table I. The parts listed are Radio Shack, but may be substituted with any brand. 



1 — 1/4 inch nut driver to remove rear of video 

Assorted drill bits ranging from very fine to 1/2 inch 

Hand drill or locking pliers 

1 — Small common screwdriver 

1 — Very small cross point screwdriver 

Light gauge wire (four colors): Shielded wire is not necessary 

Pencil-style soldering iron (low watt) 

Solder 

Table 2. Tool List 



this time. 

Once you are certain everything fits, 
remove the parts and prepare to con- 
nect the pot. Set the PC board so its 
soldered connections are facing you 
(Fig. 1). Solder one of the red switch 
wires to the first point. Solder the other 
red switch wire to the fifth point. Make 
sure the installed pot is in the off posi- 
tion. If you want, carefully bend back 
the switch contact to prevent acciden- 
tally turning the power on. Solder the 
remaining three wires from the remote 
pot to their corresponding points on 
the installed pot. 

Now for the test. Connect power 
and audio input, and run a sound pro- 
gram. Turn the remote pot on and in- 



crease the volume. If the volume starts 
out loud and decreases or stays at one 
level, switch the second and fourth 
wires. The center wire should always 
be the center wire. If all checks out, in- 
stall the system in the CRT casing and 
put on your finishing touches, such as 
jack labels. 

That's all there is to it. Now you 
have sound in your unit where it 
belongs. 

Oh, Something Else 

People have asked how to get clear 
photos from the video display (Photo 
1). The procedure uses a flash and un- 
timed shutter speed. 

Set the camera on a tripod angled 



C & S Electronics Mart Ltd 



32 E. Main Street. Milan, Michigan 48160 



26-1061 Model III 4K Lev. 1 




$650.00 


26- 1062 Model 111 16KLev.H 




805.00 


26-1065 Model III 48K 1 disk 




1660.00 


26-1066 Mod. Ill 48K 2 disk/RS-232 


2050.00 


26-4002 64K Model II 1 disk 




2995.00 


26-3001 Color Comp. 4K Lev. 




300.00 


26-1002 Color Comp. 16KLev 


Hex 


. 450.00 


26-3003 Color Comp. 32K Lev 


Ilext. 590.00 


26-3022 O- Drive for C.C. 




520.00 


26-3023 1-3 Drives for C.C. 




340.00 


26-5000 Videotext 4K 




320.00 


26-5001 Videotext 16K 




420.00 


26-3501 Pocket Comp. 




135.00 


26-3503 Interface 




26.00 


26-3505 Printer/Interface 




1 1 5.00 




We will match or beat any price in the United States. 



Prices can change without notification. All prices are cash prices: thee will be a 4% handling charge for credit card i 



mul k. m^tm^Mm 


Dealer R 491 


439-1400 — 439-1508 




Colter 




48 K 2 disk drive 40 track 


$1800.00 


48K2disk/RS-232 


1875.00 


48 K 2 disk/80 track 


1950.00 


48 K 2 disk/80 track/RS-2 32 


2025.00 


Printers 




Comet Printer 


340.00 


Smith Corona TP- 1 


695.00 


Line Printer V 


1595.00 


CItoh8510 


700.00 


Line Printer VI 


950.00 


Line Printer Vll 


280.00 


Line Printer VIII 


670.00 


Daisy Wheel II 


1675.00 


Quick Printer 


275.00 


Quick Printer 11 


170.00 


Plotter 


1320.00 
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against flash rebounding on the CRT. 
Shoot as you would a normal flash 
shot, but hold the shutter open for 10, 
20, and 30 seconds. The flash exposes 
the casing while the extended exposure 
burns in the screen contents without 
significantly darkening the rest of the 
photo. 

Use a cable release when taking long 
exposures to prevent accidental move- 



[ 



ment. 

I also use a green screen and a Radio 
Shack anti-glare screen. The screens 
prevent room light reflection. ■ 



Richard McGarvey is a police offi- 
cer with a degree in psychology. He 
lives at 221 Hirschfield Drive, Wil- 
liamsville, NY 14221. 
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EXISTING 
DIAL OPENING 




MOUNT 

SCREW 



POT MOUNT 
MADE FROM 
AMP. CASE 




AUDIO JACK 



AMPLIFIER 
> PC BOARD 
PC BOARD INSTALLED 



PICTURE TUBE 
(CRT) 



Fig. 2. CRT Casing with Back Removed 



CRT 

CASING 

FRONT- 



EXTERIOR OF 
CRT CASING 
(RIGHT SIDE) 




«>• 



AUDIO JACKS 

FIRST PILOT HOLE 
SECOND PILOT HOLE 



■HOLE FOR OPTIONAL 
POWER INPUT 



Fig. 3. CRT Casing Right Side Exterior 



TRS-80 MODEL II 
SCRIPSIT USERS 

KEY WORD INDEX 

(KWIX) 

Alphabetically lists every KEY WORD from 
the SCRIPSIT document(s) you select. Up 
to 100 documents from multiple diskettes 
may be indexed together. 

KWIX uses a "Non-Key-Word" dictionary 
file to eliminate common words, then 
produces a sorted listing of KEY WORDS, 
with document and page reference 
numbers. 

KWIX also has a "Key Word in Context" 
capability. Key Words may be listed alone, 
or centered in 80 or 132 characters of 
context. 

KWIX is FAST and EASY TO USE. All disk 
output files are "packed" to provide max- 
imum indexing capacity and speed. 

Requires a 2-disk Model II and SCRIPSIT. 

Complete documentation included 

$40.00 



TRS-80 MODEL II USERS 
TRSDOS REVEALED! 

TRSDOS 2.0 MEMORY MAP 

Complete address/function map of 
Model II TRSDOS (0000-27FF). Identi- 
fies system subroutines, tables and 
status indicators. Many useful patches 
included $15.00 

MOD II DISASSEMBLER 

Produces an assembly language source 
code listing, with LABELS and CROSS- 
REFERENCE, from any machine code 
program in memory. ASCII data areas 
translated, NOT listed as instructions! 
Contains a "search" mode and many 
other special features. 

Requires a 1-disk Model II (64K) 

Complete documentation included 

$45.00 

SPECIAL OFFER 

Use the TRSDOS Memory Map, Dis- 
assembler, and your own ideas to 
"customize" your operating system. 
TRSDOS Map and Disassembler 

$50.00 

SKYLINE SOFTWARE 

Suite 2411 South 

3705 S. George Mason Dr. 

Falls Church, Va. 22041 

^279 
TRS-80, TRSDOS and SCRIPSIT are trademarks of Tandy Corp. 
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GAME 



LOAD 80 



Android Picture Gallery 



by M. K. Cook 



H 



ere's a new game for you! It seems that there 
are no humanoids left on the planet Rehabul. 
Who will take over dusting the art gallery? 



Long ago the planet of Rehabul was 
inhabited by a humanoid species that, 
as it grew in sophistication, developed 
androids to help with the more mun- 
dane tasks. But once they had enough 
androids for the mundane tasks, a lot of 
android engineers were out of work. 

This so alarmed the government that 
it gave large grants to the industry to 
keep it going and help it develop even 
better andriods to perform more inter- 
esting tasks. 

Then, as more and more of the civili- 
zation's tasks were taken over by the an- 
driods the humanoid species went into a 
decline. Robbed of all the interesting 
tasks, they lost their zest for life and did 
nothing. So a million years of evolution 
came to naught, and the humanoids be- 
came extinct. 

Unfortunately, nobody notified the 
androids, who continued mechanically 
about their daily duties: composing son- 
nets, acting in plays, and painting. 
Where there are painters there must be 
galleries and exhibitions, the National 
Android Gallery being one of the most 
famous. 

As a legacy of the long-since extinct 
humanoid species, things are not always 



The Key Box 

Model I or HI 
16K, 32K RAM 
Cassette or Disk Basic 



as simple as they could be. An example 
is the anti-android duster used to clean 
the frames for the next exhibition. The 
duster removes the old android picture 
from the frame but has the annoying 




side-effect of reversing the nearby 
frames. The curator of the android gal- 
lery, therefore, has a puzzling task when 
he comes to clear the gallery to make 
way for the next exhibition. 

Also, all the android portraits must 
be in frames, not suspended in space as 
the duster sometimes leaves them, be- 
fore a new exhibition can be opened. 
The problematic duster means an ex- 
tended training period is needed for an- 
droid curators. To save on dusters, a 
computer simulation was written and 
has been mysteriously transferred to 





M 



CLEAR THE GALLERY 



CAN BE COMPLETED IN 6 



TURN NUMBER 



ENTER NUMBER 



Figure 1 




ANDROID GALLERY 



CAN BE COMPLETED IN 10 



TURN NUMBER 



ENTER NUMBER 



Figure 2 
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earth via a crossed telephone line. So, 
you have the opportunity to train as an 
android curator as you play Android 
Gallery. 

Android Gallery was written for a 
TRS-80 Model I computer using cas- 
sette or Disk Basic. It is two games in 
one — the clearing of the gallery and the 
setting up of an exhibition. In either 
mode you can let the computer set up 
your starting positions, in which case 
you are told the minimum number of 
duster applications needed to complete 
the task. Or you can set up the positions 
yourself. 

To use the duster on a frame, press 
the key corresponding to that frame. It 
is the same layout as the numeric key- 
board, but you can only use the duster 
on a frame, or a space, that is occupied 
with an android portrait. 

Once you've sorted this out, you are 
left with the puzzle of organizing the 
gallery. The appearance and disappear- 
ance of the androids is accompanied by 
audio tones whose frequency corre- 
sponds to the frame number and dura- 
tion, depending on whether the android 
portrait is appearing or disappearing. 
This allows the more adventurous read- 
er to play the game blindfolded. (You 
could create a position where you could 
not possibly win, in which case you will 
be told.) 

You might like to work out exactly 
how the program works and add more 
starting positions, not forgetting to in- 
clude the minimum number of turns in 
which the puzzle can be completed. You 
might also like to tackle a program to 
solve the puzzle. 

To test the program, enter the follow- 
ing initial conditions: For the simple 
game, set the Androids at 2, 5, 7, 8, 9 
and play 5, 7, 9 to win. 

For the full game, set the Androids at 
4, 5, 6 and set frames at 1, 2, 3, 4, 6, 7, 
8, 9; then play 6, 4, 5 to win. 

Only try this if you're having trouble 
getting the program entered, since it 
might tell you something about the op- 
eration of the anti-android duster. 

To adjust the program for Disk 
Basic, change the value in line 50. The 
accompanying diagrams are screen 
dumps of the game made by an MX-80 
printer. One illustrates the simple game 
Clear the Gallery, and the other, the 
more complex, full game of Android 
Gallery. ■ 



M. K. Cook's address is 8 Fairhill, 

Helmshore Rossenda/e, Lancaster, BB4 
45 Y, England. 



Program Listing 

5 "ANDROID PICTURE GALLERY BY M.K.COOK G8HBR 

10 CLS 

20 CLEAR 1000 

30 DEFINT A-Z 

40 DIM PA(9,4),FG$(1,31) ,SG$(15) 

50 BA=0 '0 FOR DISK BASIC 1 FOR LEVEL ii 

60 RANDOM 

70 FOR A=l TO 9 

80 READ FT (A) 

90 NEXT 

100 PRINTCHR$(23) : PRINT: PRINTSTRING$ (32 , 42) ; 

110 FOR A=l TO 9 

120 READ RT(A) 

130 NEXT 

140 PRINT"** ANDROID PICTURE GALLERY **"; 

150 PRINTSTRING$(32,42) 

160 PRINT: PRINT :PRINT"DO YOU WANT THE RULES ? " ; 

170 FOR A=l TO 31 

180 READ FG$(0,A) ,FG$(1,A) 

190 NEXT 

200 FOR A=l TO 15 

210 READ SG$(A) 

220 NEXT 

230 A$=INKEY$:IF A$= nn THEN 230 

240 PRINTA$ 

250 IF A$<>"Y" THEN 390 

260 PRINTCHR$(28) 

270 PRINT@256, 

280 PRINT"YOU ARE THE CURATOR OF THE ANDROID GALLERY" 

290 PRINT"IN THE SIMPLE GAME YOU HAVE TO - " 

300 PRINT"CLEAR THE GALLERY READY FOR THE EXHIBITION" 

310 PRINT"YOU DO THIS BY USING YOUR ANTI-ANDROID DUSTER" 

320 PRINT"THIS WILL CLEAR AN OCCUPIED FRAME BUT UNFORTUNATELY" 

330 PRINT"FRAMES NEAR BY WILL BE REVERSED" 

340 PRINT"CORNER - CENTER - MIDDLE OF ROW EACH PRODUCE A 

350 PRINT"DIFFERENT (BUT CONSISTENT) PATTERN OF CHANGE AND SOUND 

360 PRINT" IN THE FULL GAME YOU HAVE TO GET ALL THE GIVEN FRAMES 

OCCUPIED" 

370 PRINT"BY HAPPY ANDROIDS (THEY'RE NOT HAPPY OUT OF A FRAME)." 

380 PRINT"TYPING A 'Q' WILL QUIT THE CURRENT GAME AND START A NE 

W ONE" 

390 PRINT"TYPE S FOR THE SIMPLE GAME ":PRINT"ANY KEY FOR THE FUL 

L VERSION "; 

400 G$=INKEY$:IF G$="" THEN 400 

410 PRINTG$ 

420 IF A$="Y" THEN 460 

430 PRINT"DO YOU WANT TO ENTER YOUR OWN " : PRINT"STARTING POSITIO 

NS ? "; 

440 DA$=INKEY$:IF DA$="" THEN 440 

450 PRINTDA$; 

460 'SET UP FACE STRING 

470 PRINT" OK" 

480 FOR N=0 TO 7 

490 F$(N)="" 

500 FOR Nl=l TO 8 

510 READ T 

520 F$(N)=F$(N)+CHR$(T) 

530 NEXT Nl,N 

540 FOR N=l TO 9 

550 FOR Nl=l TO 4 

560 READ PA(N,N1) 

570 NEXT Nl f N 

580 BL$=STRING$(35,"A") 

590 A=PEEK(VARPTR(BL$)+2) :B=PEEK (VARPTR(BL$) +1) 

600 ADl=A*256+B 

610 IF ADI>32768 THEN C9=AD!-65536 ELSE C9=ADI 

620 IF BA=0 THEN DEFUSR1=C9 :CMD"T" ELSE POKE 16527, A: POKE 16526, 

B 

630 FOR A=C9 TO C9+29 

640 READ T: POKh (A) ,T 

650 NEXT 

660 CLS 

670 IF DA$<>"Y" THEN 860 

680 FOR N=l TO 9 :BC (N) =0 : NEXT 

690 PRINTCHR$(23) ; "TYPE IN ANDROID POSITIONS" 

700 PRINT"TYPE X WHEN FINISHED" 

710 PRINT:PRINT:PRINT"ANDROIDS AT -"; 

720 GOSUB 2130 

730 IF A$="X" THEN 750 

740 BC(N)=1: GOTO 720 

750 FOR N=l TO 9 



Listing continues 
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FREE SHIPPING 




fiM'llll 



W/48K, 2 TANDON 

5 1 / 4 " DISK DRIVES 

INCLUDES TRS DOS 



RS232 



$1725 



TRS-80 MOD III Disk Controller 



Includes Disk Controller, Switching 
Power Supply, Mounting 
Hardware, Cables and 
Instruction Manuals 



$269 

COMPLETE 




ADD COLOR to your Model I & III - $169 

TRS80 MOD III Disk Controller w/514" & 8 Capability, RS232 and COLOR — $345 



PRINTERS 



MX80 

MX80F/T 

MX100 



Call 

$535 

685 



SMITH-CORONA TP-1 585 

(Letter Quality Daisy Wheel Printer) 

Printer Cable $26.95 ($20 w/purchase of printer) 



TM100-1 Single 40 Track Drive $199 

With Cabinet & Power Supply $249 

TM100-2 Double 40 Track Drive $289 

TM 100-3 Single 80 Track Drive $289 
TM100-4 Double 80 Track Drive $399 



8" Dual Slim Line Drive Power Supply 8i Cabinet $249 
514" External Drive Power Supply & Cabinet 49 




VISA, MASTERCARD (S100 Min. Add 2 

Or Certified Check 

90 Day Warranty (Parts & Labor) 

TRS80isaRegisteredTrademark,TandyCorp. 
Prices Subject to Change Without Notice 



DATA— MAIL 

P.O. Box81 8, Reseda, CA91 335 



FREE SHIPPING IN CONTINENTAL U.S. 
(TRS-80 MOD III EXCEPTED) 

(213) 993-4804 
Toll Free (800) 635-5555 
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** 3 in '83! ~\ 

nd to celebrate we've published a special 
ANNIVERSARY ISSUE, 




# 



containing 

all new articles & programs. 

over 500 pages of the same high 80 MICRO quality. 

dozens of games and programs for your computer. 

exclusive articles by well-known authors. 

the most in-depth coverage of the Color Computer yet. 

tutorials on having peripherals and software. 

page after page of Christmas specials from 80's advertisers. 

a 3-year 80 MICRO index — annotated and cross-referenced 

PLUS 



THE FIRST 3D 

STEREOSCOPIC COLOR 

COMPUTER GRAPHIC 



That's 

That number again 

That's 



This amazingly versatile Anniversary Issue can go anywhere* with 
you. Fits easily in your briefcase or your purse. Lies flat in your 
knapsack. Rolls up to fit snugly in your glove compartment. Stores 
on any bookshelf. Looks great on any coffee table. 

You can also get the amazing Special Edition LOAD 80 Companion to 
the Anniversary Issue. All those games and programs, just waiting for 
you to load. No more keyboarding. No more debugging. No more 
hassles. 

You'd expect special editions of this quality to cost you hundreds of 
dollars. (Well, maybe dozens.) But for a limited time only, you can get 
the 80 MICRO ANNIVERSARY ISSUE for only $5.95. That's 
right— $5.95. And the LOAD 80 Companion is just $9.95 for cassette 
$19.95 for floppy disk. 

Note: This is an extra issue and will not be included as part of your 
regular subscription. So call today and order your very own 
Anniversary Issue and LOAD 80 Companion. Or give them as gifts. 
Just fill in the attached reply cards and drop them in the mail. Or call 
toll free— 1-800-258-5473. 







Operators are standing by (during business hours, of course). 
MasterCard and Visa accepted. (American Express, too.) 

Please allow 6-8 weeks lor delivery. 

Use of this product in the shower is not recommended by the publisher 




TECHNIQUE 



Using DEFFN 



by Ralph Rideout 



T 



he DEFFN statement lets you create your own 
functions. Using the DEFFN statement sim- 
plifies your programming and saves memory. 



The DEFFN function is a powerful 
Disk Basic statement. The TRSDOS 
Disk Basic manual defines the DEFFN 
statement as "(It) lets you create your 
own implicit functions." Don't look for 
your tattered calculus text yet! An im- 
plicit function is a variable defined by 
an equation or set of equations. For ex- 
ample, consider the following equation: 

f(X) = a + B 

The variable X is defined as the sum 
of A and B. Since A and B can take on 



any values in determining the value of 
X, the equation is an implicit function 
of X (f[X]). If the above equation read 
X = 1 + 2, it is obvious that the value 
of X must be three. In this case, X is 
defined by the explicit function 1 + 2. 
The expression following the DEFFN 
is implicit because it is in a general 
algebraic form. For example, the above 
equation in the DEFFN expression 
would appear as follows: 

DEFFNX(A,B) = A + B 



TBS = "TITLE NAME" : TB% = FNTB°7o(TB$) : PRINTTAB(TB%);TB$ 
TN$ = "TITLE NAME" : TN% =FNTB c 7o(TN$) : PRINTTAB(TN<7o);TN$ 
TN$ = "TITLE NAME" : PRINTTAB(FNTB%(TN$));TN$ 
TN$ = "TITLE NAME" : PRINT@0 + FNTB°7o(TN$),TN$ 

Figure 1 



100 


MN$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC r 






110 


DEFFNDT$(M%,D%,Y%) =MID$ (MN$,M%+( (M%- 


-D*2) 


3)+CHR$(47)+STRING 


$(3- 


-LEN(STR$(D%) ) r 48)+RIGHT$(STR$(D%) ,LEN(STR$ (D%) ) 


-1)+CHR$(47)+ 


RIGHT$(STR$(Y%) ,2) 








120 


INPUT-ENTER MONTH NUMBER " ; M% 








130 


IF M%<1 OR M%>12 THEN 120 








140 


INPUT" ENTER DAY NUMBER ";D% 








150 


IF D%<1 OR D%>31 THEN 140 








160 


INPUT-ENTER YEAR NUMBER ";Y% 








170 


IF Y%<10 OR Y%>=100 THEN 160 








180 


DATE$=FNDT$ (M% ,D% ,Y%) 

Program Listing 









Here the X variable is defined as the 
sum of A and B. In mathematical 
terms, X is the dependent variable 
while A and B are the independent 
variables. Since A and B occur within 
the parentheses, they are called argu- 
ments. Once the DEFFN expression is 
coded within a program, it can be 
evoked (called) by the statement 
FNX(A,B). 

The expression is evaluated based on 
the current values of the arguments (A 
and B) within the program at the mo- 
ment the function is initiated. For ex- 
ample, if A and B were 1.24 and 2.34, 
respectively, the FNX(A,B) would re- 
turn the value 3.58, the sum of the 
arguments. The variable names (A and 
B) used as arguments are not assigned 
exclusively to the function; you don't 
have to use the same variables in call- 
ing the DEFFN statement. To add the 
variables X2 and HH together using 
the DEFFN expression, simply insert 
them as the arguments. For example, 
the statement FNX(X2,HH) returns 
the sum of X2 and HH. The arguments 
serve only as a means of passing values 
to the expression for evaluation. 

Using the DEFFN statement in nu- 
merical expressions can simplify your 
programming by eliminating repeti- 
tious equations, thereby saving pre- 
cious memory. There are other ap- 
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Model I or III 
16KRAM 
One disk drive 
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plications of the DEFFN function. The 
statement can be used for string ma- 
nipulation as well. 

DEFFN Strings 

My first application of the DEFFN 
statement for string operations was a 
rather simple one: centering titles on 
the video display. The following state- 
ment computes the print tab position 
at which a title is centered. 



DEFFNTB%(X$) = 32 - LEN(X$)/2 

In the above statement variable 
TB% is the integer tab position to be 
computed from the string variable X$ 
(the title). The LEN statement returns 
the length of the string. The length is 
then divided by two and subtracted 
from 32. For example, if a title has 40 
characters, the above function returns 
a tab position of 12 where the title 
(when printed) is centered on the video 
screen. Any valid Basic string variable 
name can be passed to the function via 
the X$ argument. 

There are several methods to center a 
title. I use the four samples shown in 
Fig. 1. All four samples produce the 
same result. The choice is a matter of in- 
dividual style or specific application. 
The above example is only one of the 
many uses I've found for the DEFFN 
function in string manipulations. The 
extent of its uses depends on your 
specific program requirements, but the 
following example may give you better 
insight into its power. 

Formatting a Date 

Many programs require date entries 
as part of filing information. The 
DEFFN function lets you create a date 
format with little programming effort. 
This is very important if you are work- 
ing with random direct access files 
where a proper format is required by a 
specific number of bytes for a disk buf- 
fer. A date format may be defined for 
eight bytes of storage: MM/DD/YY. 
This numerical date format is very 
popular. Oftentimes, however, you 
need to have a date in a format that in- 
cludes the name of the month 
(AUG/05/82) instead of its numerical 
counterpart. Although this is a more 
readable format, entering the month 
name and slashes many times can 
become tedious. The Program Listing 
shows how the DEFFN function can 
solve the problem. 

Variable MN$ (line 100) is assigned 
the first three letters of each month. 
The DEFFN statement in line 110 uses 



this string for converting the numerical 
month entry into its alphabetic name. 
The final date format we seek is 
MMM/DD/YY. The string operations 
defining the final date (DT$) are com- 
puted based on the desired format 
from left to right, starting with the 
month. The formatting is accom- 
plished with the use of several impor- 
tant Basic string statements: MID$, 
CHR$, STRINGS, LEN, STR$, and 
RIGHTS. In the DEFFN statement, I 
have chosen the arguments M'Vo (in- 
teger month number), D°7o (integer day 
number), and Y°/o (integer year num- 
ber last two digits). 

Take note of the data-entry lines 
(120-170). I have inserted validation 
checks on the month number, day 
number, and year number that are 
entered. This is a precaution to avoid 
an error message. It is also a good pro- 
gramming technique. 

To see how the DEFFN function 
works, let's take ai example through 
the process. Let'; choose the date 
8/5/82 or AUG/05/82. Since the 
desired final date format is MMM/ 
DD/YY, the first DEFFN statement 
operation converts the numerical 



month input to the appropriate month 
name. This is accomplished through 
the MIDS statement. Here, the month 
number (M%) must be used to cal- 
culate the proper character position in 
the MNS. The computation is done in 
the expression M% + ((M%-1)*2). For 
example, if the month number is eight 
(AUG) the result of the calculation 
would be 8 + ((8 - 1 )*2) or 22. The 22nd 
position of MNS is where the month 
letters AUG begin. The third argument 
of the MIDS statement (numeral 3) 
returns the three characters beginning 
with the 22nd position, namely AUG, 
the desired month name. 

Once the month name has been eval- 
uated, the next step is to get the slash 
mark separating the month name from 
the day number. The program con- 
catenates (links together) the month 
letters with CHR$(47), the character 
code for a slash. The result is AUG/. 

Since the desired format (MMM/ 
DD/YY) requires a day number with 
two characters, a single digit, such as 5, 
must become 05. A two-digit day re- 
mains unchanged. The Basic state- 
ments STRINGS, LEN, STRS, and 
RIGHTS perform the day evaluation. 




PRINTER GRAPHICS FOR EPSON 

A picture is worth a thousand words. 
AUTOPLOT can tell your story with strik- 
ing graphics. Plot functions or tabulated 
data automatically in minutes. A few 
keystrokes select from many options, 
such as plot size, grid overlay, continuous 
curves and/or separate marks, multiple 
curves, linear or log plots, numeric 
integration or differentiation, . . . 
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From the review in INFOWORLD (7/12/82, p. 41) 



"SUMMARY: All in all, AUTOPLOT is a superlative 
program in its advertised form. It is extremely easy to 
use and well documented and provides Model I or III 
owners with capabilities they only dreamt of before . . . 



AUTOPLOT will work with: 

• TRSDOS, DOSPLUS. NEWDOS, NEWDOS80 or LDOS 

• EPSON MX-80 or MX-100 with GRAPFTRAX-80 or 
GRAFTRAX-Plus 

AUTOPLOT for TRS-80 

(Model I or III with 48k, 1 disk drive) 

on disk with 40 page manual $79.50 

AUTOPLOT for LNW-80 

(+ Hi-Res video graphics) $99.50 

NEW: AUTOPLOT for CGP-115 

Color Graphics Printer $69.50 

Please add $3.00 for shipping and handling 

CA residents please add 6% sales tax 

Phone orders, VISA and MASTERCARD welcome 

TRS-80: CGP-115: TM o< Tandy Corp. MX-80. GRAFTRAX: TM of EPSON Inc. ■'-'24 



InfoWorld 

Software Report Card 



Autoplot 2.2 



Pl-rl'nrmancii 
Documentation 
Eunv it! Vac 
Krror Handling 



." 3 & s 
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D □ □ 
D D D 
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nana 



Copyright ;982 by Popular Computing. 
Inc. a subsidiary of CW Communications. 
Inc., Frammgham. MA—Raprlnted from 
Intoworid. 



MENLO SYSTEMS 

3790 El Camino Real, Suite 221 
Palo Alto, CA 94306, Tel. (415) 856-0727 



^See List ol Advertisers on 
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In the STRINGS statement the numeri- 
cal day (D%) is converted to a string 
(STR$[D%]) so it can be manipulated. 
Then subtract the length of the day 
string (LEN[STR[D°7o]]) from three to 
determine whether to insert a zero be- 
fore a single-digit day (05). The value 
48 in the last STRINGS position is the 
character code for a zero. 

Subtract the length of the day string 
from three because, under the condi- 
tions of the program, the maximum 
length of any string day number is 
three. All numbers in the computer 
have a space preceding the actual value 
that is reserved for a negative sign, if 
the number is negative. Therefore, a 
single-digit number is actually two 
characters long when converted to a 
string by the STRS statement, while a 
two-digit number is three characters 
long. 

For the single-digit day, the 
STRINGS statement returns one zero. 
For the two-digit day, the number of 
zeros returned is zero or a null string, 
so no zeros will be placed before the 
day string. 

The next statement, RIGHTS [STRS 
[D%],LEN[STR$[D%]]-1], links the 



day number to the date. The statement 
returns a one-character string of a 
single-digit day and a two-character 
string of a two-digit day, beginning 
with the rightmost character. Starting 
at the right character position elim- 
inates the first left position, which is 
reserved for the sign. A slash character 
(CHR$[47]) is then added before the 
year is concatenated. The date format 
at this point is AUG/05/. 

The last statement converts the year 
number to a string and links the last two 
characters from the right (the year 
number) to the date. As stated above, 
the right characters are taken because the 
first blank position is reserved for the 
sign. After the year is added the final 
result is AUG/05/82. 

Line 180 is where the DEFFN is 
evoked, passing the numerical date en- 
tries (M°/o,D°7o, and Y%) to the func- 
tion, and assigning the formatted date 
(MMM/DD/YY) to the string variable 
DATES. 

DEFFN Function Advantages 

Although the date format DEFFN 
statement is complicated, it dem- 
onstrates what you can do with one line 



of code that would otherwise require 
many lines of program statements to 
achieve the same objective. In the dem- 
onstration program presented here, 
only three numerical entries are re- 
quired for inputting a date. Without 
the DEFFN statement, the same date 
format took 15 lines of code in my old 
program. I saved nearly 500 bytes of 
memory! 

Another important advantage is pro- 
gram documentation. Defining fre- 
quently used variable routines in the 
DEFFN statement allows you and others 
to follow your program's logic flow with 
greater understanding. This is important 
when you are writing programs for 
others. Written instructions are clearer 
because the DEFFN functions are 
almost self-explanatory. You need not 
use as many remark statements within 
the program, thus avoiding longer execu- 
tion times. Using DEFFN functions also 
improves your programming technique 
and gives your final work a professional 
appearance. ■ 

Ralph Rideout (3101 Morningside 
Drive, Raleigh, NC 27601) is a self- 
employed chemist. 






SOMETHING FOR EVERYONE: 



(MODEL I/III) 



SUPREME RULER 



X 



jgsnsB 






YOU HAVE JUST BEEN ELECTED TO 
OFFICE IN YOUR COUNTRY. NOW YOU 
MUST KEEP YOUR ECONOMY AFLOAT, 
WHILE TRYING TO AVOID YOUR NASTY 
NEIGHBOURS. YOUR MAIN TASK IS TO 
RUN YOUR COUNTRY ANO BUILD YOUR 
ARMY TO TAKE OVER ALL THE OTHER 
NATIONS WITHOUT KILLING OFF YOUR 
POPULATION OR GOING BANKRUPT. 
CAN YOU DO IT?? 
FOR 1-4 PLAYERS , WITH 0-4 
COMPUTER-CONTROLLED COUNTRIES. 
A CHALLENGING PROGRAM !! —418.50 



THE BATTLE OF 

ZEIGHTY 




YOU HAVE BECOME THE GENERAL OF A 
STRUGGLING ARMY. YOU HAVE TO SET 
UP AN ATTACKING FORCE AND TAKE 
ZEIGHTY PASS. THE COMPUTER HAS 
CONTROL OF ALL ASPECTS OF THE 
DEFENDERS, ANO PROVIDES QUITE A 
CHALLENGE. YOU'LL HAVE TO THINK 
TO WIN !! •18.50 



ORDER FROHj 



0R> 



EXTERMINATE! ! 




EXTERMINATE IS A NEW IDEA IN AN 
ARCADE GAME, NOT A COPY OF SOME- 
ONE ELSE'S. YOU ARE UP AGAINST 
A HORDE OF ALIEN "BUGS", AND YOU 
HAVE TO GET RIO OF THEM BEFORE 
THEY GET OUT OF CONTROL. USE 
YOUR SUPERIOR SPEED AND WEAPONS, 
BUT WATCH OUT! THEY BREED QUICK! 
MACHINE LANGUAGE, OF COURSE, ANO 
ITS FAST, WITH GOOD CRAPHICS. 
«14. 50 






P.O. BQX59B 
FALLS STATION 
NIAGARA FALLS. NY 
US. A. 1*303-1598 



710 UPPER JANES ST. 
HAMILTON, ONTARIO 
CANADA, L9C-2ZB 
PHONEi 415-399-6096 



DEALER ENQUIRIES INVITED. 



NO SHIPPING CHARGE FOR 2 OR NORE GANES 



VISA ANO MASTERCARD ACCEPTED 
ALL PRICES IN US. FUNDS 
DISK VERSIONS. $2.00 EXTRA 
PLEASE ADD $2.00 FOR SHIPPING 
ALLOW 2 1IEEKS FOR PERSONAL CHEQUES 
PLEASE ADD $1.50 FOR C.O. D. 
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A new super hi-res space game. 
Wave after wave of alien attackers, 
each one a different and unique challenge 
to your skills. 
CASSETTE (16K) . . . $24.95 
DISC (32K; 



COLOR 




CASSETTE (16K) $24.95 

DISK (32K) . ...$29.95 

^^#\P^ ~ Outsmart the 

)H^J^ creatures that pursue 

you as you hunt for 

treasure in a maze of 

cave passages. Lots of 

colors and sounds! 

CASSETTE (16K) . . . $24. 

DISC (32K) . . .$29.95 




n occasional 

There's a treasure waiting to be discovered! 

CASSETTE (16K) . . .$19.95 



CUlie Hack Sanctum 

For the player who enjoys suspense. . 
You'll encounter the forces of black 
magic in this spooky adventure. 

CASSETTE (16K) . . . $19.95 



MARK DATA PRODUCTS 

23802 BARQUILLA, MISSION VIEJO, CA 92691 • (714) 768-1551 

We pay shipping on all orders in the continental U.S. and Canada. Overseas add $3.00. California residents 
please add 6% sales tax. We are always looking for quality machine language programs. Contact us for details. 

MASTER CHARGE OR VISA ACCEPTED " 241 



■See List of Advertisers on Page 563 
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GAMES 



CATEGORIES 



by Glenn Collura 



I 



f you're tired of fighting space creatures, 
Categories may be for you. You can play it 
without your 80, but this program adds spice. 



Caution! This game may be habit 
forming. No, it's not the latest offering 
from Atari. In fact it's not an arcade- 
type game. You don't even need a 
computer to play this game. 

What Is It? 

Categories can be played by any 
number of people. All you need is a 
pencil and a piece of paper for each 



player. To start off, each player di- 
vides his paper into 20 squares as 
shown in Fig. 1. There are four col- 
umns and five rows. Each player then 
chooses a category (or categories, de- 
pending on the number of players) to 
enter onto the game sheet. 

For example, you could use types of 
automobiles or the names of cities. 
Ente-- the categories on the left side of 



the game sheet corresponding to the 
five rows. After the categories have 
been chosen, four letters are chosen, 
one for each column on the game 
sheet. Once this is done you are ready 
to play the game. 

How to Play 

The object of the game is to find four 
words for each category, one word 
starting with each of the four different 



The Key Box 

Models I & III 
16K or 32K RAM 
Cassette or Disk Basic 



Variable Name 


Description 


A$ 


Alphabet 


B$ 


Categories 


CI 


Category 1 


C2 


Category 2 


C3 


Category 3 


C4 


Category 4 


C5 


Category 5 


E$ 


Input Variable 


1$ 


Input Variable 


M 


Minutes 


N 


One-Second Timer 


P 


Print Flag 


Q 


Print Loop Counter 


Rl 


First Letter 


R2 


Second Letter 


R3 


Third Letter 


R4 


Fourth Letter 


S 


Seconds 


T 


Misc. For. . . Next Loop 


X 


Graphics Variable 


Y 


Graphics Variable 


Z 


Number of Game Sheets 


Table I 


. Variable List 
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= 
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1 
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= 
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CANDIES 


= 


= 




= 
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= 
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= 
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= 




= 
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= 
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= 




— 
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= 
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TREES 
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= 
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= 
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II II II 
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EXPLORERS 
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= 
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= 
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= 
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= 




= 


= 




= 



TV SHOWS 



GAMES 



Figure I 
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You Are Being Attacked by 



llifil 



A 



B&* 



mkjb 



■ A ■ 



1982 Soft Sector Marketing. Inc 
Written by Larry Ashmun 




M i ll m 



*TT** 



fclHI 






1 ©(hW ©@©tT®[=) G^3^1^rJ3^TraCW]Csb 

(RATI 

P.O. Box34Q« Garden City, Ml 481 35 • BOO-5S 1-6504/(31 3) 4S5-4QSD 

Prices per Game: TRS-80* 16K Level II Mod I/Mod III Cassette $15.95 Talking and sound effects are playable through 

TRS-80' 32K Level II Mod I/Mod III Diskette $19.95 the cassette AUX plug. High scores are auto- 
matically saved after each game on disk 
10% discount for 2 items. 15% for 3 or more. Please add $2.50 per order for postage & version. Joystick co mpatible , 
handling. Michigan residents add 4% sales tax. Outside USA (except Canada) please Call or write for our .-. .] ■■■■ fv 

add S 10.00 per order for postage & handing complete catalog. 
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Defend Planet from 

6 Different Types of Alien Attacks 

1982 Soft Sector Marketing, Inc. 
Written by Larry Ashmun 



letters, in an allotted time period. If one 
of your categories was names of cities, 
you would enter the names of four cities 
each starting with the corresponding let- 



ter for that column. Refer to Fig. 2 for a 
completed game sheet. 

Each player continues to fill in his 
game sheet until the five-minute time 



CITIES 



BOSTON 



DENVER _ 



OKLAHOMA 
CITY 



- KALAMAZOO - 



limit is reached, or until one player fills 
in his entire sheet before the five 
minutes is up. There will be times when 
there is no answer for a particular 
category/letter combination. 

Scoring is very simple. Each correct 
answer scores one point. Any wrong 
answer or empty square counts as no 
point. The person receiving the highest 
score is the winner for that round. Since 
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AL 
DIMEOLA 



SHUGGIE 
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KING 



HOBBIES 



_ BASEBALL 



DRAG 
RACING 



KNITTING _ 



"The object of the game is 
to find four words for each 
category, one word starting 

with each of the four 

different letters. 



CARTOON CHARACTERS 
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Figure 2 
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214 North Main St.. Natick. Massachusetts 01760 U.S.A. 
(Lake wood Office Paik; Junction of Routes 9 & 27) 



I Im^p 



(gg)CONTRpLDATA 



'S 



/ r ~\Dnp Quality L eader in Flexib le Disks 

^Cr^JL Limited Period Offer: 12 Disks/Pack 

5'/4"SS/SD $21.50 

5'/2"SS/DD $28.00 

8" SS/DD $28.50 

8" SS/DD $34.50 

IN COMPUTER SYSTEMS Dealers Inquiries Invited 

1-800-343^090 In Massachusetts : Call collect (617) 655-6415 
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PARENTS! 



Want to STIMULATE your 
child's LEARNING? 



LIT T.C.E. SHOW YOU HOW! 



ALL PROGRAMS HAVE BEEN 'KID*. PARENT, AND EDUCATOR TESTEDI 



PERSONALIZED A.B.C. (COMPUTE SIT ONLY ON DISK) 

A.LPHaBET: Child respond* to HI. RES. GRAPHICS 

B.ASIC MATH: learning to ADD A SUBTRACT through counting 

Counting: u»«» graphics to r.p„„ni M nbin 
SEE a SPELL- IT 

Display, GRAPHICS lo r.pr.i.ni a word, child 

•ypoi In tho word; If wrong tho co r roc t tool ling flaihoi 

TEACHING CLOCK 

Tho fun way to LEARN Tim. 



CASSETTE ULRSION 



1*19.95 



DISK VERSION 



BASIC HATH 1*14.95 



,B.C. fSETl *34.95 



ENCLOSE. rOUR CHILD'S NAI1E S CQC*. 

HAUE AN EDUCATIONAL NEED URI'E J3 ~lArBh 
ulE CAN HEi P 5 

trs-80 COLOR COMPUTER EDUCATOR 

^389 
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"CUB" 

add 
$1.50 



TRS-80 

iiaTMol 

Tandy Corp. 



CLOCK 1*19.95 

»»q- 16k I.l.nd.d Color totk ■.;*» 



T.C.E. PROGRAMS INC. 
RO Box 2477 

Gcither»burg,MD. 20879 
(301) 9633S4S 



there can be many correct answers for 
certain category/letter combinations, it 
is up to the players to check all answers 
and decide whether or not they are cor- 
rect. The easiest way to do this is to start 
with the first category and the first letter 
and read the answer out loud. When all 
players have read their answers for that 
row, you can continue to the next, and 
so on through the entire game sheet. A 
game may consist of as many rounds as 
the players decide upon. 

Why Use a Computer? 

My wife and I have played this game 
for hours on end. It seems that after a 
few games we have a hard time thinking 
of categories to use. The microcomput- 
er solves this problem quite easily. 

I put as many categories as we could 
think of into the computer and then let 
the program generate five random cate- 
gories and four random letters for each 
game. This also solves the problem of 
people choosing categories that they are 
more familiar with than are the other 
players. By randomly picking four let- 
ters of the alphabet, the computer 
prevents players from choosing letters 
that they know can be used with certain 
categories. 

The computer also acts as a time 
keeper, notifying you when the time 
limit has expired. The last feature I add- 
ed was the game-sheet printout option. 
The computer generates the game sheets 
for you if you have a printer. The pro- 
gram can be used without a printer, 
however. The main advantage of the 
printout option is that you can print any 
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P.O. Box340* Garden City, Ml 481 35 • BOO-521 -6504/(31 3) 425-4020 

Prices per Game: TRS-80* 16K Level II Mod I/ Mod III Cassette $15.95 Talking and sound effectsare playable through 

TRS-80' 32K Level II Mod I/Mod III Diskette $19.95 th © cassette AUX plug. High scores are auto- 



10% discount for 2 items. 15% for 3 or more. Please add $2.50 per order for postage & 
handling. Michigan residents add 4% sales tax. Outside USA (except Canada) please 
add $10.00 per order for postage & handing 



Talking and sound effectsare playable through 
the cassette AUX plug. High scores are auto- 
matically saved after each game on disk 
version. Joystick compatible. 
Call or write for our 
complete catalog. 
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Don't Chicken Out! 

1982 Factory Programming. Inc. 
Written by J. Weaver. Jr. 



SAT 

Krell's College Board 



SAT* 

Preparation Series 



NEW FOR 
'82 



A COMPREHENSIVE PREPARATION 
PACKAGE / 30 PROGRAMS 

1 . Diagnostic analysis 

2. Prescription ot individual study plans 

3. Coverage of all SAT* skills 

4. Unlimited drill and practice 

5. SAT* Exam Question simulator 

6. All questions in SAT* format and at 
SAT* difficulty level 

7. Instantaneous answers, explanations 
and scoring for problems 

8. Worksheet generation and performance 
monitoring - (optional) 

9. A complete record management system- 
(optional) 

10. Systematic instruction in pertinent math, 
verbal & test taking skills • (optional) 

Krai's unique logical design provides personal- 
ized instruction for each student according to 
individual needs. 

Krell's College Board SAT* 81/82 Prep. 
Series has demonstrated a mean com- 
bined math and verbal score increase of 
more than 100 points by using sophis- 
ticated drill & practice techniques alone. 
This new series is much expanded and 
updated. In addition extra cost options 
are now available to provide worksheet 
generation, record management, and 
systematic instruction in all math and 
verbal areas tested by the SAT*. 

All versions of Krell College Board SAT* 
Preparation Series provide answers, 
explanations and instantaneous raw scor- 
ing. Standard package $299.95 

APPLE, ATARI. COMMODORE, CP/M, IBM. 
AND RADIO SHACK* 

ALSO AVAILABLE 

Time Traveler / Odyssey in Time 

Competency/Proficiency Series 

Pythagoras and the Dragon 

Isaac and F. G. Newton / Micro Deutsch 

Super Star Baseball / Sword of Zedek 

Krell Game Pack 

CALL FOR DETAILS AND PRICES 

S 51 



SOFTWARE CORR 

The st* otttmutm tducttonil computing 
1320 Stony Brook Road / Stony Brook NY 11790 

Telephone 516-751-5139 

Kiel! Software Corp has no official ties with the College 
Entrance E«amination Board or the Educational Testing Service 

Krell is ho*e»er a supplier of products to the E T S 
• Trademarks ol Apple Comp Corp Tandy Corp Commodore Corp 

Digital Research Corp. I B M Atari Corp 
PROGRAMS AVAILABLE FOR THE TRS-80 APPLE II PET I ATARI 
N Y S residents add sales tax lisatk.1 
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number of game sheets at your con- 
venience and have them available 
whenever you get the urge to play. 

About the Program 

The remark statements in the listing 
should point out any routines that you 
may want to modify. You may delete 
the remark statements without affecting 
program operation. 

The first section of the program 
prints the instructions. The main pro- 
gram starts at line 1000. It checks for 



duplicates after each category and let- 
ter are chosen. 

You may have to adjust line 2090 to 
ensure an accurate timer. If the five- 
minute timer seems slow, use a number 
less than 476. If it runs fast use a num- 
ber greater than 476. 

Line 4000 keeps the time display in an 
orderly format. The first statement in 
this line, PRINT® 50,M": 0," makes 
sure that four minutes and nine seconds 
appears as 4:09 rather than 4: 9. The 
TRS-80 always leaves a leading blank 



Program Listing 



1 CLEAR100:DIMA$(25) ,B$(100) 

2 RANDOM 

3 DEFINTM,P,S,T,X,Y 

10 REM ***** CATEGORIES ***** 

* BY * 

** GLENN COLLURA JR ** 
****** 03/01/80 ****** 

11 REM VERSION 2.0 03/12/82 

100 CLS:PRINT@20,"C ATEGORIES" 

110 PRINT: PRINT: INPUT n WOULD YOU LIKE INSTRUCTIONS" ; 1$ 

120 IFLEFT$(I$,1)="N"THEN600 

150 CLS: PRINT: PRINT: PRINT-CATEGORIES IS A GAME PLAYED BY TWO OR 

MORE PEOPLE. IT IS PLAYEDON A PIECE OF PAPER DIVIDED INTO 20 WQ 

UARES. YOU HAVE THE OPTIONOF LETTING YOUR TRS-80 PRINT THE GAME 

SHEET FOR YOU. 

155 PRINT:PRINT"IF YOU DO NOT HAVE A PSINTER, OR IF YOU WISH TO 

MAKE UP YOUR OWNGAME SHEETS, FOLLOW MY INSTRUCTIONS." 

160 PRINT: PRINT"YOUR SHEET OF PAPER SHOULD BE DIVIDED INTO 20 SQ 

UARES AS SHOWN : " 

170 PRINT: PRINT: INPUT" PRESS ENTER TO SEE DIAGRAM" 

• E$ 

180 GOSUB5000 

190 PRINT@256 , "CATEGORY" ;: PRINT@3 84, "CATEGORY"; :PRINT@576 , "CATEG 

ORY"; 

200 PRINT @7 04, "CATEGORY"; :PRINT@832 , "CATEGORY" ; 

210 PRINT@78, "LETTER"; : PRINT@89 , "LETTER" ; : PRINT@100 , "LETTER" ; : PR 

INTglll, "LETTER"; 

220 PRINT@0," PRESS ENTER TO CONTINUE" ;: INPUTE$; 

230 CLS: PRINT: PRINT"FOR EACH GAME THE COMPUTER WILL GENERATE 5 R 

ANDOM CATEGORIES ANDFOWR RANDOM LETTERS. THE OBJECT OF THE GAME 

IS TO PUT A WORD INEACH COLUMN STARTING WITH THE LETTER FOR THA 
T ROW. 
240 PRINT: PRINT"LETS SAY FOR EXAMPLE THAT CATEGORY #1 IS SPORTS, 

AND YOUR FOUR RANDOM LETTERS ARE B F G H . 
250 PRINT: PRINT"THE TOP ROW OF YOUR SHEET WOULD LOOK SOMETHING L 
IKE THIS:"; 
255 FORT=lTO4 50p:NEXT 
260 FORX=2TO113:FORY=33TO40STEP7 
270 SET(X,Y) :NEXTY:NEXTX 
280 FORX=25TO113STEP22:FORY=33TO40 
290 SET(X,Y) :NEXTY:NEXTX 

295 PRINT@657,"B"; :PRINT@667 , "F" ; : PRINT@678, "G" ; :PRINT@690 , "H" ; 
300 PRINT@769 , "SPORTS" ; :PRINT@782 , "BASEBALL" ; :PRINT@793 , "FOOTBAL 
L"; :PRINT@806 ,"GOLF"; :PRINT@816 , "HOCKEY" ; 
310 PRINT@980, "PRESS ENTER TO CONTIN] E" ; : INPUTE$ 

320 CLS:PRINT"THE OBJECT OF THE GAME IS TO FILL IN ALL OF THE SQ 
UARES. THERE IS A FIVE MINUTE TIME LIMIT PER GAME. IF ANY PLAYE 
R FILLS IN ALLTHE CATEGORIES BEFORE FIVE MINUTES, THE GAME IS OV 
ER. 

330 PRINT: PRINT"YOU SCORE ONE POINT FOR EACH CORRECT ANSWER. IT 
IS UP TO YOU TOCHECK FOR CORRECT ANSWERS, SINCE TLERE CAN BE M 
ANY DIFFERENT ANSWERS FOR EACH QUESTION. ANY EMPTY SQUARE COUN 
TS AS A WRONG ANSWER (NO POINTS). "; 

335 PRINT"THERE MAY BE TIMES WHEN THERE IS NO ANSWER FOR A CERT 
QIN LETTER. (EX. A COLOR WITH THE LETTER X.) 

340 PRINT :PRINT"FOR YOUR CONVENIENCE, THE TIME LEFT WILL BE-DIS 
PLAYED IN THE UPPER RIGHT HAND CORNER OF THE SCREEN. 
350 PRINT"PRESS ' 1 * TO REVIEW THE INSTRUCTIONS, 

OR ' 2 ' TO START PLAYING." 
355 I$=INKEY$:IFI$=""THEN355ELSEIFI$="1"THEN150 
360 IFI$O"2"THEN350 

600 P=0:Z=0:INPUT"WOULD YOU LIKE TO PRINT GAME SHEETS" ; 1$: IFLEFT 
$(I$,1)="Y"THENP=1 
610 IFP=1THENINPUT"H0W MANY SHEETS" ;Z 

Listing continues 



NEW BOOKS 



NEW from Larry Ashmun! 

His secrets are exposed 
in this new, super book. 

ALIEN DEFENSE 





The book contains: 

1 . COMPLETE SOURCE CODE LISTING of Alien Defense 
(Mod III tape version). 

2. Details of one approach to game writing. 

3. Explains some of the more complicated routines. 

4. You are informed of the concept behind the 
structure of the routines. 

Never Before Has Anyone 
Sold a Book Like This! 

If you write in Machine language; if you have 
thought of writing a Machine language game; if 
you ever just wondered what a Machine language 
program looked like in its uncompiled form- This is 
Your Book! 



Regularly $29.95 - INTRODUCTORY OFFER $24.95 
Save $5.00 - Order Today 



Offer Good thru Dec. 31, 1982 



Other Fine Books Sold by Soft Sector Marketing, Inc. 



Th* power oi: VisiCalc- 





IbtcUo S!tach':t o<>rr<:Ui}i; sv.sf'Vtt, 

r«si>os~ Mori as. 

with a chapter on hou- 
i» use- somt- of th<i DOS i>o&!$. 



SMpfa 



■■!, -. ,; 



pnMaraimiK-rs. 
KYF.M Mt»i III ilWM.K' 



$9.95 



$29.95 



- DEALER INQUIRIES WELCOME - 



SOFT SECTOR MARKETING,! 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 

Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 




PAYMENT- payment accepted bycharge personal check 

I or C O D only, under the following conditions Charges 
processed when shipped, usually within 48 hours Personal 
Chocks delay shipping, pending 3 weeks to clear C.O.D. 
orders are certified check or cash only, add $1 50 Ml residents must add 4% sales tax 
SHIPPING & HANDLING - Shipping Charges: Send the larger amount. 2% or $2 50. unless 
stipulated otherwise Any order received without shipping and handling will be shipped Ireight 
collect Air Mail Shipping outside of North America, please send the larger amount 10% or 
C-10 00 Overpayment will be refunded 



^See List of Advertisers on Page 563 
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Listing continued 



999 REM MAIN ROUTINE 

1000 F0RX=1T025:READA$(X) : NEXT 

1009 REM PICK FOUR LETTERS 

1010 R1=RND(25) 



10211 
1031 



:IFR2=R1THEN1020 

:IFR3=R2ORR3=R1THEN1030 

: IFR4=R3ORR4=R2ORR4=R1THEN1035 



R2=RND(25) 

R3=RND(25) 
1035 R4=RND(25) 
1037 GOSUB5000 

1040 PRINT @81,A$(R1) ; : PRINT@92 , A$ (R2) ; : PRINT@103 , A$ (R3) ; : PRINT @1 
14,A$(R4) ; 

1045 PRINT@0,"HERE ARE YOUR LETTERS FOR THIS ROUND"; 
1050 F0RX=1T088:READB$(X) :NEXT 

1059 REM PICK FIVE CATEGORIES 

1060 C1=RND(80) 



107 
108 



C2=RND(8( 
C3=RND(8l 
1090 C4=RND(8t 
1095 C5=RND(8( 



:IFC2=C1THEN1070 

: IFC3=C2ORC3=C1THEN1080 

: IFC4=C3ORC4=C2ORC4=C1THEN1090 

: IFC5=C4ORC5=C3ORC5=C2ORC5=C1THEN1095 
1097 FORT=1TO2000:NEXT 

1099 PRINT@0,"HERE ARE YOUR CATEGORIES " ; 

2000 PRINT@256,B$(C1) ; :PRINT@384 ,B$ (C2) ; :PRINT@576 ,B$(C3) ;: PRINT 
@704,B$(C4) ;:PRINT@832,B$(C5) ; 
2005 IFP=1THENGOSUB6000 

2010 FORX=lTO3000:NEXT:PRINT@0, "PRESS ANY KEY TO START "; 
2015 PRINT@50,"5:00"; 
2020 I$=INKEY$:RESUMEI$=""THEN2020 

2059 REM FIVE MINUTE TIMER 

2060 FORM=4TO0STEP-1 
2070 FORS=59TO0STEP-1 
2075 IFS<10GOTO4000 
2080 PRINT@50,M" :";S; 

2090 F0RN=1T0476:NEXT: REM 1 SECOND TIMER 

3000 NEXTS 

3010 NEXTM 

3020 FORX=1TO10:PRINT@0," TIME'S UP "; 

3030 FORY=1TO600:NEXTY:PRINT@0," " ; 

3040 FORY=lTO3 00zNEXTY:NEXTX 

3050 PRINT@0, "WOULD YOU LIKE TO PLAY ANOTHER GAME" ; : INPUTI$ 

3060 IFLEFT$(I$,1) ="Y"THENRESTORE:GOTO600 

3999 END 

4000 PRINT@50,M": 0"RIGHT$(STR$ (S) r l) ; :GOTO2090 
4990 END 

4999 REM DRAW BOARD 

5000 CLS:FORX=25T0113STEP22:FORY=3T044 
5010 SET(X,Y) :NEXTY:NEXTX 

5020 F0RX=2T0113:F0RY=9T044STEP7 
5030 SET(X,Y) :NEXTY:NEXTXQDEFRETURN 

5999 REM PRINT GAME SHEETS 

6000 IFPEEK(14312) <>63PRINT@960 , "* 
:GOTO2010 
6005 FORQ=lTOZ 
6010 LPRINTSTRING$(71,"=") :LPRINTTAB( 22) 

n ;A$(R2) ; n = n ;A$(R3); n 
LPRINTINSTR(71,"=") :GOSUB6500 
6020 LPRINTB$(C1)TAB(22) "= 

= " :GOSUB6500 :LPRINTSTRING$ (71 , ' 
6030 LPRINTB$(C2)TAB(22) "= 

=":GOSUB6500:LPRINTSTRING$(71,' 
6040 LPRINTB$(C3)TAB(22) "= = 

=":GOSUB6 500:LPRINTSTRING$(71, n =") :GOSUB6500 
6050 LPRINTB$(C4)TAB(22) "= = 

= " : GOSUB6500 : LPRINTSTRING$ ( 71 , "=" ) : GOSUB6500 
6060 LPRINTB$(C5)TAB(22) "= = 

=":GOSUB6500:LPRINTSTRING$(71,"=") :LPRINTCHR$ (1CONT8) :N 
EXTQ: RETURN 
6500 FORT=1T02:LPRINTTAB(22) "= = = OUT 

=":NEXTT: RETURN 
10000 DATA A,B,C,D,E,F,G,H f I , J,K,L,M, N,0,P,Q,R, S,T,U,V,W,Y, Z 
10010 DATA ATHLETES, OCCUPATIONS PRESIDENTS , COLOGNES f COLORS , TV SH 
OWS, MOVIES, MAGAZINES, SONG TITLES, APPLIANCES ,ACVORS, CITIES ,MUSICA 
L INSTRUMENTS , TOOLS , CAPITOL CITIES , COUNTRIES , STATES , PLANTS , FLOWE 
RS, TREES 

10020 DATA DOGS, FABRICS, ANIMALS, INVENTIONS, COMEDIANS, VEGETABLES, 
FRUITS, CARS, MIXED DRINKS, TV DETECTIVES, HOBBIES, CANDIES, ICE CREAM 
FLAVORS, BOOK TITLES , AUTHORS, MUSICIANS, LQKES , FICTIONAL HEROES, SP 
ORTS, INSECTS 

10030 DATA ACTRESSES, COSMETICS, CIGARETTES, NATIONALITIES, BIRDS, AN 
ATOMY, TRANSPORTATION, KITCHEN UTENSILS, GAMES , SNAKES , SEX SYMBOLS ( 
M&F) , MICROCOMPUTERS, CLOTHES, DRUGS, MOUNTAINS, MUSICAL GROUPS, RIVER 
S, TRAFFIC SIGNS, PASTRIES, DONUTS 

10040 DATA AUTO PARTS , STREETS , CARTOON CHARACTERS , GEMS, NEWSCASTER 
S, DEODORANTS, EXPLORERS, SPICES, BOYS NAMES, GIRLS NAMES , TOYS , DISC J 
OCKEYS , FOOTBALL PLAYERS , BASEBALL PLAYERS , BOXERS , POETS , POLITICIAN 
S , ELECTRONIC COMPONENTS , BRIDGES , MINERALS 



PRINTER NOT READY 



";a$(ri; 

";A$(R4); 



') :GOSUB6500 
')CSAVEGOSUB6500 



for the sign of a number (+ or -). 
RIGHTS and STR$ suppress the lead- 
ing blank. 

Line 6000 checks to see if the printer 
is ready and prints an error message if it 
is not. Lines 6005-6500 are the actual 
print routine for the game sheets. 

Line 10000 contains the data for each 
letter of the alphabet. Lines 10010 and 
up are the data statements containing 
the categories. 

Modifications 

The routine to print the game sheets 
may be changed to suit your particular 
printer. Another modification would 
be an audible alert to signal the end of 
a game. 

In its present form the program con- 
tains 80 categories. These may be 
changed if you have some categories 
that you would like to use instead of the 
ones already contained in the program. 
If you add any categories to the ones 



"In its present form 

the program 

contains 80 categories. " 



already present, be sure to change line 
1050 to correspond to the total number 
of categories you have. If you go over 
100 categories, be sure to change the 
DIMB$ statement in line 1. 

The method used to select the cate- 
gories is the RND function. There have 
been numerous articles published deal- 
ing with generating "truly" random 
numbers. Any of these methods could 
be employed if you feel the selection of 
categories is not random enough. 

I am not really sure when or where 
this game originated. 1 have heard that 
President John F. Kennedy used to play 
this game quite often when he was in of- 
fice. I would appreciate hearing from 
any readers who could give me some 
background on this game. 

This game is a lot of fun to play and 
has become quite addictive for more 
than a few people I know. If you miss 
your favorite tv show because you just 
had to play one more round of Catego- 
ries, don't blame me! ■ 

Glenn Collura, a Field Service En- 
gineer, enjoys fishing and playing the 
guitar. He can be reached at 9615 
Seminole Trail, Streetsboro, OH 
44240. 
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BUSINESS 



^j4\ The Ultimate in Mailing Packages 

*° POSTMAN MASS MAILING SYSTEM 

®1982 Alger Software, Distributed exclusively by Soft Sector Marketing, Inc. 

For the serious businessman who has as little as 1 00 name mailing list or200,000 names, 
THERE IS ONLY ONE SYSTEM FOR YOU! 

FEATURES OF THE NEW POSTMAN MASS MAILING SYSTEM 

The Postman system (version 2) is an almost COMPLETE rewrite, rethink, redesign of the original POSTMAN. The many features of the 
new POSTMAN system are quickly outlined below. 



MULTI-DRIVE - True multi-drive operation is possible POSTMAN will search ail drives tor 
address files and connect them together into one large file for the duration of that session 
Once POSTMAN has found the data files on the disks, the operator "sees" just ONE 
CONTIGUOUS sorted list of addresses The operator does not need to tell POSTMAN when to 
"switch" drives or manually "swap" sections of the data file in and out of the computer's 
memory This is the foremost among the list of features because of its relative uniqueness 
among mail list handlers written for the TRS-80. 

LARGE LIST SUPPORT- The multi-drive operation allows the user to access data files on ALL 
configured drives CONCURRENTLY (at the SAME time) for truly large mailing lists Files need 
not be sectioned into smaller "byte size" chunks to fit into memory. 
HARD DISK SUPPORT - (HARD DISK POSTMAN only) The FULL utilization of the space and 
speed of the new hard disk drives is possible with POSTMAN. For example, a 7 5 megabyte 
drive can be configured to hold almost 60.000 labels. Multiple hard drives can be accessea 
CONCURRENTLY allowing 200.000++ entry mailing lists. 

FORM LETTER CAPABILITY- With the purchase of the separate POSTRITE program, the user is 
provided with an easy to use form letter generator which will merge a generalized letter 
produced from a word processing system(i.e LAZY WRITER, etc.). with the nameand address 

information from the POSTMAN MASS MAILER data base POSTWRITER allows the user to 

insert any field from a POSTMAN label entry anywhere in the letter. 

MENU OPERATION - As you would in a restaurant, choose your dinner from a list (or MENU). 
POSTMAN will allow you to direct its actions by selecting from various menus that it will 
display A complete discussion of each menu is presented in the manual 
INSERT - New names can be quickly added to your list at any time. The new addresses are 
placed into the file in their proper sorted order eliminating the need for a separate sort 
operation after entering a stack of new names POSTMAN will allow the operator to enter a 
"batch" of labels without returning to the control menu between each label insertion, thus 
speeding entry and reducing the aggravation of extra menu control keystrokes. 
DELETE - Names can be removed at ony time when they are no longer needed. 
EDIT- information in any name entry can be quickly changed at will with "word processor' 
ease A" transparent" cursor simply is moved to the label displayed on the computer screen 
and corrections are )ust typed over the existing label. If you happen to change a field which 
is also used as a sort key, POSTMAN will automatically move the changed label to its correct 
position in the list to maintain the sorted arrangement of the labels. 
OVERLAY- When identical chongesare needed on many addresses, the OVERLAY feature 
can make them with one keystroke. The needed changes which are common to many 
labels are entered into the "overlay mask" . When you wish to apply these common cha nges 
to any label, one command will do it. 

SORT - Arrange your list in any alphabetic or numeric order The ordering may use one or 
more fields to control the sort. A machine language heap sort assures fast execution The sort 
need only be performed once, the sorted list will stay sorted through all subsequent 
insertions, deletions, and changes to existing labels NO NEED to leave the POSTMAN 
program to use a separate program to sort your data. Your data is sorted quickly and after 
sort completion. POSTMAN is ready for your next command 1 



SPECIAL STREET ADDRESS SORT - For the user with many addresses on the same street, 
POSTMAN will sort your entries by the house NUMBER after grouping those on the same street 
together. Local city lists can be quickly sorted to aid post office dispatching 

PURGE - Unwanted duplicate addresses can be removed from your list automatically or 
unaer operator control 

SEARCH - Any address in your list can be quickly found with fast search and positioning 
commands Three different types of secrches are provided A "fast" search which uses a 
hashing technique, a "selective sequential" search for labels with common fields, and 
"quick" positioning using the first or major sort field to get vou into the general" ball park" of 
a label or sequence of labels. 

LABEL PRINTING - One, a few or all addresses in your list can be printed on standard or non- 
standard label stock. Up to 6 labels across can oe printed with a format YOU can easily 
control. TWO user definable ATTN' lines are provided for any use. Labels can be printed from 
many of POSTMAN'S menus, search, edit, or during label insertion 

EFFICIENCY - POSTMAN is written in the machine's native language to gain the full 
advantage of the microcomputers speed Extensive use of program segmentation 
reduces the amount of use RAM needed to hola the program, allowing a greater number 
labels to be kept m core, resulting in faster operation Little used routines need only be 
brought into memory when they are needed and once through with their task, release their 
space back to POSTMAN. 

REPORT LISTINGS- A special program to produce columnar listings of address data from 
your label data base is provided. You can easily specify the information to be printed. 
DATA DISK MERGING- Labels can be quickly transferred from one disk to another with the 
PSTMERGE program callable from the main POSTMAN SYSTEM menu. Source and destination 
drives needed not be separate d'ives. prompts to excnange diskettes if the same drive is 
used, are provided 

DATA DISK PREPARATION UTILITY - Provided with POSTMAN is the DPREP program which 
allows the user to prepare a floppy/hard disk for use with POSTMAN This easy to use utility can 
be told to prepare any portion ot the available space on a disk 

DATA INTEGRITY- ai data transfers to the disk filesare made using special write commands 
which instructs the operating system to chock the validity of EACH write to the disk. 
DATA GUARD' - is c special programming technique only offered by Soft Sector 
Marketing, inc. If by chance your machine resets while writing information to the disk, you 
only lose the information that you were writing Your files are always protected from the 
danger of losing all the work that you have put in that day. NO OTHER PROGRAM ON THE 
MARKET OFFERS THIS PROTECTION If you reset with ANYBODY'S MAILING PACKAGE DURING 
WRITING you would destroy your ENTIRE data disk We can't slop your machine from failing 
but we can protect your data. 



Length 


Name 


10 


Code 


15 


Last Name 


15 


First Name 


26 


Company 


26 


Address 



Description of Label Record Fields: 
Description 

User defined printable field 
Last name of addressee 
First name of addressee 
Name of company 
Street address 



Length 

15 
5 


Name 

City 
State 


9 
2 

5 


Zip 

Data 1 
Data 2 



Description 

City, township, village 
State, province, territory 
Zip code, zone, route 
User definable field 
User definable field 



IDEAL SYSTEM 



Mod III 48K 1-40 Track Drive • 2-80 Track Dual Headed Drives • Dosplus or LDOS Operating Systems 
Gives space for over 1 1,000 names - 5 second average name insertion - time sorts all 1 1,000 names in less than 4 minutes 

'Special version to work on Dosplus 4.0 Hard Disk operating system 



-I 



Standard Version 
Only $125.00 



- Overview Available - 
The POSTMAN system requires Mod I or Mod III, 48K, 2 disk drives minimum. 

Standard Version with For DOSPLUS Hard Disk4.0 Operating System 

POSTWRITER form letter writer & Radio Shacks Hard Drive System 

$175.00 $225.00 



- DEALER INQUIRIES WELCOME - 



SOFT SECTOR MARKETING/ 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 



PAYMENT- payment accepted by charge, personal check 
I or' COD only, under the following conditions Charges 
_ "I processed when shipped usually within 48 nours Personal 
Checks delay shipping, pending 3 weeks to cleat C.O.D. 
orders are certified check or cash only, add $1 5C Ml residents must add 4% sales tax 
SHIPPING & HANDLING - Shipping Charges: Send the larger amount. 2% ot $2 50 unless 
stipulated otherwise Any order received without shipping and handling will be shipped freight 
collect Air Mail Shipping outside of North America please send the larger amount 10% or 
S10 00 Overpayment will be refunded 



c^See List of Advertisers on 
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UTILITY 



Number Your Program Listings 



by Joe Edwards 



H 



ere's a utility that will come in handy for 

you Basic programmers — a machine-code routine 

that numbers pages of multi-page listings. 



This routine numbers pages of 
multi-page Basic program listings. I 
have used it with several utility pro- 
grams; by relocating the program and 



changing the jump instruction in line 
250 to a halt instruction, you could use 
it in smaller systems without disk. (The 
expansion interface or some type of 











Program Listing 






00 1 00 


; PAQE 


NUMBERING 


FOR BASIC CFILESPEC: PAGE-'CMD> 






00110 


;BV ,Ti 


IE EDWARDS 


- 7130 BROHNER CIRCLE 






00 1 20 


SLOUISUILLE, KV 


. — AUGUST \, 1981 






00130 












00 1 40 


; FORM 


FEED '.:CHR*C12> IN BASIC* REINITIALIZES PROGRAM 






08150 


; WITHOUT RE-LOADING. RESET PAPER WITH PRINT HEAD 






00 1 60 


; APPROXIMATELY 


BIX LINES DOWN FROM PERFORATION. 






00 1 70 


% PAGE 


NUMBER 01 


IS NOT NUMBERED. 






00 1 80 


; TH I S 


PROGRAM ALSO WORKS WITH NEWDOS EDTASM, DISASSEM, 






00190 


SAND RSM MONITOR 






00208 








FDO0 




00210 




ORG 


0FDO0H 


FD08 


2124FD 


00220 


START 


LD 


HL, PRNTR 5 LOAD DRIUER ADR. 


FD03 


222640 


00230 




LD 


<4026H>,HL ; STORE DOR ADDRESS 


FD06 


CD0CFD 


00240 




CALL 


INIZ ; INITIALIZE COUNTERS 


FD09 


C32D40 


00250 




JP 


482DH ; RETURN TO DOS 


FD0C 


3E4F 


00260 


INIZ 


LD 


A,79D 5SET CHARACTER COUNT 


FD0E 


3296FD 


08270 




LD 


CCHCNT^A 5 STORE IT 


FDli 


3E30 


00288 




LD 


A,30H ;1ST ASCII DIGIT OF NBR. 


FD13 


3297FD 


00290 




LD 


'sPGNBRi:>,A 5 STORE IT 


FD16 


3E32 


00300 




LD 


A,32H 5 2ND ASCII DIGIT OF NBR. 


FD18 


3298FD 


00310 




LD 


<PGNBR2> ? A ; STORE IT 


FD1B 


DD2 12540 


00328 




LD 


IX.-4025H 5 INIZ DCB POINTER 


FD1F 


DD360400 


00330 




LD 


<IX+4>,0 ; CLEAR LINE COUNTER 


FD23 


C9 


00340 
00350 




RET 




FD24 


ED7394FD 


00360 


PRNTR 


LD 


< STACK >,SP ?SAUE STACK PNTR. 


FD28 


DD2 12540 


00370 




LD 


IX,4025H5 INIZ DCB POINTER 


FD2C 


79 


00380 




LD 


A,C ; RETURN IF 8 


FD2D 


B7 


00390 




OR 


A 


FD2E 


C8 


00400 




RET 


z 


FD2F 


FE0C 


004 1 




CP 


0CH 5 SEE IF FORM FEED 


FD31 


28D9 


80420 




JR 


Z,INIZ 5VES, REINITIALIZE 


FD33 


FE0D 


00430 




CP 


0DH ? CHECK FOR CR 


FD33 


282B 


00440 




JR 


z,carret;ves, DO IT 


FD37 


F5 


00450 


COUNT 


PUSH 


AF 5 SAME ACCUM. 

Listing continues 



parallel interface for the printer is still 
necessary.) 

Here's the Plan 

Using EDTASM, type the source 
code and dump the program to disk. 
Now, load the program in memory. 
When control returns to DOS, enter 
Basic. Use 65279 for memory size. 
With the printer on, set the print head 
six lines down from the top perfora- 
tion. Now, run the following test 
program: 

10 FOR 1 = 1 TO 70 
20 LPR1NT I 
30 NEXT 
40 END 

The program should print digits 
1-54 down the left m rgin of the page, 
skip to the top of the next page, print 
PAGE 02 in the upper right corner, 
and then digits 55-70 down the left 
margin. 

To reinitialize the page counter with- 
out reloading from disk, type LPRINT 
CHR$(12). This feature is useful when 
running several copies of multi-page 
data.B 

Joe Edwards, 7130 Bronner Circle, 
Louisville, KY 40218, is retired. His 
hobbies are ham radio and flying. 



The Key Box 

Basic Level II 
Model I 
48K RAM 
Disk System 
Parallel Printer 
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COLOR COMPUTER 



MASTER CONTROL 

®1981 Soft Sector Marketing, Inc. 
Written by A. Schwartz 

Requires 16-32K 



1. 50 preprogrammed command keys. Standard and 
Extended command. 

2. Direct control of motor, trace, and audio from 
keyboard. 

3. Automatic line numbering. 

4. Programming line numbering. 

5. Direct Run Button. 

6. Keyboard overlay for easy program use. 

7. Easy entry of entire commands into computer. 

Load Master Control into your machine then either type 
in a BASIC program or load one in from tape to edit. 
Cuts programming time by 50% or more. 



$24.95 



OR *&•#* 





For The Radio Shack 
Color Computer* 



Written by E.R. 



50 PROGRAMS 
IN ONE PACKAGE 

$49.95 

'The Color Computer is a product of Radio Shack, division of the Tandv Corp 




GHOST GOBBLER 

16K- Machine Language 
Joystick Compatible 



TAPE DIRECTORY 

Copyright ®1982 Soft Sector Marketing, Inc. 




$21.95 



- For 4K Color Users- 

COLOR SCARFMAN 

GREAT GRAPHICS 
Machine Language 

Only$19.95 






Creates index 

or your 

programs 

for each tape. 
To screen 
or printer. 



A MUST FOR ALL 

COLOR COMPUTER 

USERS! 







v-See List ol Advertisers on Page 563 
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SBflEEl 
NIEEn. 

PUTS THE 

POWER IN 

YOUR HAND 

TO REMOVE 

MPLfrER 




• Printer paper dust 

• Dust data processing equipment 

• Dust your computer room 
"Clean Room" clean 

2 CLOTHS FOR $ 2 95 ppd 

VISA • MASTER • CHECK 

MWB INDUSTRIES, INC. 

2013 FRANKLIN STREET 

DETROIT, MICHIGAN 48207 

(313)259-1104 

DEALERS INQUIRIES INVITED " m 



DOUBLE YOUR MONEY 
EVERY MONTH??? HA! 



F HE TOLD YOU YOU COULD DOUBLE YOUR MONEY 

EVERY MONTH, YOU WOULD CALL US LIARS. 

IF HE TOLD YOU YOU COULD DOUBLE YOUR HONEY 

EVERY THREE MONTHS, YOU WOULD PROBABLY CALL 

US LIARS AGAIN. 

SO WE'LL JUST TELL YOU THAT YOU CAN MAKE MORE 

MONEY IN THE STOCK MARKET THAN YOU ARE MAKING NOW, 

ASTUTE STOCK MARKET INVESTORS MAKE MONEY IN 

THE STOCK MARKET BY BUYING WHEN THE PRICE OF 

STOCK IS LOW AND SELLING WHEN IT IS HIGH. 

EVEN WISER INVESTORS UNDERSTAND THAT NO CAPITAL 

GAINS NEED BE PAID ON STOCK DIVIDENDS UNTIL 

THEY ARE SOLD. 

STOCKDIV ASSISTS THE SMARTEST INVESTOR 
IN REAPING THE BENEFITS OF BOTH PHILOSOPHIES. 
EVEN IF YOU KNOW NOTHING ABOUT THE MARKET. 

LET YOUR TRS 80 PAY FOR ITSELF ! ! ! 

STOCKDIV HAS A DATA BANK OF OVER 
1000 COMPANIES THAT HAVE EITHER SPLIT OR PAID 
STOCK DIVIDENDS MORE THAN TWICE SINCE 1977 

YOU PICK THE MONTH, THE MINIMUM DIVIDENDS, THE 
COMPANY YOU ARE INTERESTED IN, OR THE NUMBER OF 
YEARS YOU WISH TO RESEARCH FOR PAST PERFORMANCES. 
YOU BUY WHEN THE STOCK IS LOW AND SELL WHEN THE 
STOCK IS HIGH 

THE INITIAL PRICE OF STOCKDIV IS $31.95 
ANNUAL UPDATES ARE 19.95 
FULLY TAX DEDUCTABLE 

STOCKDIV IS AVAILABLE ON DISC FOR 
TRS-80 MOO KLEVEL 2), AND MOD HI, 24K 
FULLY TAX DEDUCTABLE 

ORDER STOCKDIV FROM 

DIGFORENSICS 
P.O. BOX 1733 
ORANGE PARK, FL 32073 ^403 



Listing 


continued 










FD38 


2196FD 


00460 




LD 


HL, CHCNT SGET CHAR. COUNT 


FD3B 


35 


80470 




DEC 


<HL> 5 DECREMENT IT 


FD3C 


2003 


88480 




JR 


NZ, COUNT 1 SNOT ZERO, JUMP 


FD3E 


CD62FD 


80490 




CALL 


CARRET 5 DO CAR. RETURN 


FD41 


Fl 


00508 


COUNT 1 


POP 


AF 5 RESTORE ACCUM. 


FD42 


1833 


00510 

80520 




JR 


PRINT SPRINT CHARACTER 


FD44 


C5 


O053O 


TAB 


PUSH 


BC SSAUE REGISTER 


FD45 


F5 


08548 




PUSH 


AF ;SAUE ACCUM. 


FD46 


3EOA 


00550 




LD 


A, 10D SSET COUNT 


FD48 


F5 


80560 


TAB1 


PUSH 


AF 5 SAME COUNT 


FD49 


0E8D 


00578 




LD 


C,8DH SLOAD OR CODE 


FD4B 


CD24FD 


80588 




CALL 


PRNTR -PRINT IT 


FD4E 


Fi 


80598 




POP 


AF ;GET COUNT 


FD4F 


3D 


00600 




DEC 


A ; DECREMENT I T 


FD58 


20F8 


806 1 




JR 


NZ,TAB1 SLOOP IF NOT DONE 


FD52 


CD99FD 


00620 




CALL 


PAGE ; PRINT PAGE NO. 


FD55 


CD62FD 


08630 




CALL 


CARRET SPRINT CR 


FD58 


CD62FD 


00640 




CALL 


CARRET SPRINT CR 


FD5B 


DD360400 


00650 




LD 


<: I X+4 ).e . S CLEAR L I NE CNTR . 


FD5F 


Fl 


80660 




POP 


AF 5 RESTORE ACCUM. 


FD68 


CI 


00670 




POP 


BC 5 RESTORE REGISTER 


FD61 


C9 


00688 
00690 




RET 




FD62 


3E4F 


00780 


CARRET 


LD 


A,79D ;SET CHAR. COUNT 


FD64 


3296FD 


00710 




LD 


<chcnt:',a s store it 


FD67 


DD3404 


80720 




INC 


<IX+4> SlNCR. LINE CNT. 


FD6A 


DD7E84 


08730 




LD 


A , < I X+4 :> t COMPARE 


FD6D 


FE37 


80740 




CP 


55D ; IP 55 LINES 


FD6F 


28D3 


00750 




JR 


2, TAB 3 DO UERTICAL TAB 


FD71 


3E0D 


00760 




LD 


H,ODH ;LOAD CR 


FD73 


CD77FD 


80770 




CALL 


PRINT SPRINT IT 


FD76 


C9 


00788 
00790 




RET 




FD77 


4F 


80800 


PRINT 


LD 


C,A SSAUE A COPY 


FD78 


3AE837 


003 1 


PR I NT 1 


LD 


A,<37E8H.) S CHECK LP STATUS 


FD7B 


CB7F 


08820 




BIT 


7, A 5 CHECK BUSV BIT 


FD7D 


20F9 


80830 




JR 


NZ,PRINT1 SLOOP IF HIGH 


FD7F 


79 


0O840 




LD 


A,C s GET A CHARACTER 


FD88 


32ES37 


0085O 




LD 


'^^ESH/^A SSEND IT TO PRINTER 


FD83 


79 


00860 




LD 


A,C SGET CHARACTER AGAIN 


FD84 


CD33O0 


88878 




CALL 


33H s PUT ON SCREEN 


FD87 


3A4038 


80888 


BREAK 


LD 


A,<3S48H> 5 CHECK FOR BREAK KEV 


FD8A 


FE04 


80390 




CP 


4 


FD8C 


28B1 


00908 




JR 


Z, BREAK 1 


FDSE 


C9 


80'? 10 




RET 




FD8F 


ED7B94FD 


00320 


BREAK 1 


LD 


SP, < STACK* s RESTORE ORIG STACK 


FD93 


C9 


08930 
80948 




RET 




0002 




00950 


STACK 


DEFS 


2 s STACK PTR. STORAGE 


FD96 


4F 


00968 


CHCNT 


DEFB 


79D SCHAR. COUNTER 


FD97 


30 


00970 


PGNBR1 


DEFB 


30H S 1ST DIGIT OF NUMBER 


FD98 


32 


80988 
80990 


PGNBR2 


DEFB 


32H s 2ND DIGIT OF NUMBER 


FD99 


F5 


8 1 888 


PA6E 


PUSH 


AF SSAUE ACCUM. 


FD9A 


3E43 


81810 




LD 


A-67D 5 SET SPACE CNTR. 


FD9C 


F5 


01820 


PAGE1 


PUSH 


AF SSAUE COUNT 


FD9D 


OE20 


01830 




LD 


C-26H SLOAD SPACE CODE 


FD9F 


CD24FD 


01840 




CALL 


PRNTR SPRINT A SPACE 


FDA2 


Fl 


1 850 




POP 


AF SGET COUNT BACK 


FDA3 


3D 


I860 




DEC 


A 5 DECREMENT COUNT 


FDA4 


28F6 


01870 




JR 


NZ,PAGE1 SLOOP IF NOT ZERO 


FDA6 


Fl 


01888 




POP 


AF 5 RESTORE ACCUM. 


FDA7 


21D9FD 


01098 




LD 


HL, STRING 5 POINT TO TEXT 


FDAA 


E5 


1 1 00 


LOOP 


PUSH 


HL SSAUE ADDRESS 


FDAB 


4E 


01110 




LD 


cchl:* sload a character 


FDAC 


CD24FD 


01120 




CALL 


PRNTR SPRINT IT 


FDAF 


El 


1 1 30 




POP 


HL 5 RESTORE REGISTER 


FDB8 


23 


01140 




INC 


HL s LOOK AT NEXT ADDRESS 


FDB1 


7E 


1 1 58 




LD 


A,<HL:> SPUT CHAR. IN ACCUM. 


FDB2 


FEO0 


01160 




CP 


SSEE IF ZERO 


PDB4 


28F4 


01170 




JR 


NZ,LOOP ? IF NOT, DO MORE 


FDB6 


3A97FD 


01180 




LD 


A,<PGNBRl.v SLOAD 1ST DIGIT 


FDB9 


4F 


01190 




LD 


C,A SPUT IT IN C REG. 


FDBA 


CD24FD 


01200 




CALL 


PRNTR SPRINT IT 


FDBD 


3A93FD 


01210 




LD 


A , '■ PGNBR2 > 5 LOAD 2ND DIGIT 


FDCB 


4F 


81220 




LD 


C,A SPUT IT IN C REG. 


FDC1 


CD24FD 


01230 




CALL 


PRNTR SPRINT IT 


FDC4 


3A9SFD 


01248 




LD 


A,<PGNBR2> SPUT 2ND DIGIT IN ACCUM. 


FDC7 


3C 


01250 




INC 


A 5 INCREMENT IT 


FDC8 


FE3A 


81260 




CP 


3 AH SIS IT MORE THAN NINE 


FDCA 


2089 


81278 




JR 


NZ, AHEAD SIF NOT, JUMP AHEAD 


FDCC 


3A97FD 


81288 




LD 


A , < PGNBR 1 > 5 LOAD 1 ST DIGIT 


FDCF 


30 


81290 




INC 


A 5 INCREMENT IT 


FDDO 


3297FD 


01300 




LD 


<PGHBRi:v,A s STORE IT 


FDD 3 


3E30 


01310 




LD 


H,30H SLOAD HEW 2ND DIGIT 


FDD5 


3298FD 


01320 


AHEAD 


LD 


■;PGNBR2>,A 5 STORE IT 


FDDS 


09 


81330 




RET 




FDD9 


58 


81348 


STRING 


DEFM 


'PAGE ' 


FDDE 


00 


01350 




DEFB 


00 


FD00 




81360 




END 


START 


00000 TOTAL ERRORS 
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TV 




HARDWARE SPECIALS 

LYNX MODEM 

Auto Answer - Auto Dial 



Mod I & III 
No RS-232 
Board Required 

Shipping 
trom Stock 

$218.00 




RIBBONS 



MX-80 Replacement Cartridges 

2 for $15.00 
MX-100 Replacement Cartridges 

2 for $20.00 

Offer Good thru Dec. 31, 1982 




ORCHESTRA 85/90 



Stereo music synthesizer with 
percussion tor your Mod I or I 

Was $149.95 



SPECIAL $99.95 



Please state Mod I or II & Cass, or Disk version 
Offer Good thru Dec. 31, 1982 




Our Catalog 

is Now 
Available! 



There Are Only 2 Ways to Increase the 
Processing Speed of Your Model III 



Holmes Board 



Other Brand 




They both list tor $99.95 assembled and 

Tested. 

They both speed up your machine. 




The Right Way The Wrong Way 

We Offer Only The Quality Product 
But the Choice is Yours 



Holmes 


Other 


Board 


Brand 


Installation Time .... 15 min. 


4 hrs. 


Requires Soldering NO 


YES 


Requires Cutting Traces . . . NO 


YES 


Easily Removed if Logic 
Board Requires Repair . . . YES 


NO 


cJS^rs List $99.95 





^ oP Only $89.95 

Plus Shipping 

Offer Good Until Dec. 31, 1982 



SI 



- DEALER INQUIRIES WELCOME - 




SOFT SECTOR MARKETING, 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 



PAYMENT- payment accepted py charge personal check 

I or C O D only under the following conj tons Charges 
processed when shipped usually withmdS hours Personal 
Checks delay shipping, pending j weeks to dear C.O.D. 
orders ate certified check or cash only, add J1 50 Mi residents must add 4% sdies tax 
SHIPPING & HANDLING - Shipping Charges: Sena the lorger amount 2% or $2 50 unless 
stipulated otherwise Any order received without shipp.ng and'hanaimg will Pe shipped freight 
collect Air Mail Shipping outside of North America please send the larger amount 10% or 
$1000 Overpayment will Pe refunded 



■See List ol Advertisers on 
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Wayne Westmoreland and Terry Gilman have done it AGAIN! 

The reviews are saying what the fans have known all along: "The Eliminator" and "Armored 
Patrol" are nothing short of fantastic. Read for yourself. 

Byte Magazine (on Armored Patrol): "A real super job with the graphics." 

Byte Magazine (on The Eliminator): "The best thing to happen to the TRS-80 in a long 
time." 

80 Microcomputing (on both): "This is state-of-the-art stuff." 

80 U.S. (on The Eliminator): "The graphics are vastly superior to that of any game 
currently available ... it is slick, professional, and, without qualification, a blast." 

And now, two new releases — and both are incredible arcade-style games. The TRS-80 
is almost transformed into an arcade machine, performing Arcade Action Graphics(tm) like never 
before. Rear Guard and Sea Dragon are great fun and will provide you with hours of enjoyment. 
Both programs are available now, and all four are compatible with the Alpha Joystick! 




PATROL: You're in the command seat ol an 
armored assault tank. Your mission: to search out and 
destroy an attack torce ol deadly tanks and lethal robots. 
Will your skill and advanced technology give you the 
edge to overcome the odds? 
Armored Patrol Failures: Simulated 3-D perspective, 
multiple player option, real time, sound and Arcade Ac- 
tion Graphics(tm) second to none. 




THE ELIMINATOR: You're the pilot ol The Eliminator, an 
attack class lighter that's squared oil against hordes ol 
attacking alien spaceships. It's your speed and 
weaponry versus their seemingly endless numbers. Can 
you possibly survive? 

Eliminator Failures: True Arcade Action Graphics(tm) 
and sound, "look ahead" radar lunclion, real time, ad- 
vancingplaylevels^iyperspac^n^isrupto^^ 



SEA DRAGON: You're the captain ol the 
US S Sea Dragon, a submarine ol (he 
Skate class. Your mission is to infiltrate a 
dangerous enemy-controlled channel. 
You must destroy rising underwater 
mines while avoiding wave alter wave ol 
additional dangers, including depth 
charges dropped by battleships, 
automatic lasers, and deadly enemy at- 
tack bases. You must successfully light 
an unyielding enemy and an unknown 

undersea channel — and the only options are total victory or a salty 

grave. 

Sai Dngon Failures: Arcade Action Graphics(lm) and sound. 

29 (!!!) screens ol horizontally scrolling seascape, advancing skill 

levels and Iwo player option. Early reviews are outstanding! 




REAR GUARD: 
Waves ol Cyborg ships are at- 
tempting to attack your lleet's 
crew pods. II they penetrate 
your defenses, they'll kami- 
kaze your Heel. The enemy is 
relentless, your crew pods 
weaponless, your lirepower 
endless. Are you made ol the 
right stuff lo successfully 
delend your Heel?! FIND OUT NOW! 
Rair Guard Features: Incredible 3-D scrolling planet- 
scape, sound. Arcade Action Graphics(lm). nearly two 
dozen types of enemy cralt. two player option and run- 
ning high score. 





Prices subject to change without notice 



dventutS 

INTERNATIONAL .19 

a subsidiary of Scott Adams, Inc. 



To order, see your local dealer. If he does not have the program you want, then 
call 1-800-327-7172 (orders only) or write for our free catalog. 

Published by ADVENTURE INTERNATIONAL 

a subsidiary ol Scott Adams, Inc. 
BOX 3435 • LONGWOOD. FL 32750 • (305) 830-8194 



GAMES 



Brainstorm 



by Richard Ramella 



I 



f you like figuring out how to complete num- 
ber sequences like those in IQ tests, you'll 
love Brainstorm. Just don't ask how it works. 



It's 1955 and I'm sitting in a chalk- 
dusty, steam-heated classroom at 
Rockenroehl High School driving my- 
self nuts over whether to choose A, B, 
C, D, or none of the above. 

It's IQ test day. 

Despite the frustrations, I loved IQ 
tests. I always hoped my many hare- 
brained guesses might by some miracle 
all be correct, producing a flood of 
scholarship offers. It never happened. 

The type of question that most often 
led to my wild guesses was the number 
sequence. I wrote the program Brain- 
storm somewhat as a game for my chil- 
dren, but also to check whether my 
shortcoming in number sequences was 
a genetic flaw. Brainstorm generates 
number sequences like the ones in IQ 
tests. 

Although the program was written 
in Level II, it will work in Level I with 
two line changes, which I will give later. 

Brainstorm is simply written, but 



don't let that lull you into a false sense 
of security. The problems range from 
the simple to some real brainbusters. 

The classic number sequence of an 
IQ test is usually made up of a list of 
five numbers followed by four mul- 
tiple-choice answers, one of which is 
correct. The elusive sixth number con- 
tinues a logical pattern that can be 
understood by comparing the relation- 
ships of the first five numbers. 

Brainstorm uses random number 
selections to branch to and set up 10 
different logic schemes. Some of these 
10 can go into subschemes. The result 
is that the variety of problems is limit- 
less, though I think you'll fall by the 
wayside with brain fever or figure out 
all the patterns long before the number 
orders become repetitively boring. 

At the start of the program, the 
computer randomly chooses one of the 
10 logic schemes, branches to it, and 
prints a sequence of five numbers. It 





Program Listing 


100 


REM * BRAINSTORM; IQ NUMBER SEQUENCES * 


110 


CLS 


120 


A=RND(10) 


130 


ON A GOTO 140,210,320,420,530,640,740,830,960,1100 


140 


F=RND(10) 


150 


S=RND(10) 


160 


FOR L=l TO 5 


170 


PRINT F; 


180 


F=F+S 


190 


IF L=5 GOTO 1210 


200 


NEXT L 


210 


G=RND(8) 


220 


S=RND(12) 


230 


IF S<=G GOTO 220 


240 


PRINT G;S; 


250 


FOR L=l TO 4 


260 


F=G+S 




Listing continues 



prompts, "Next number in series?" 
and waits for your answer. Key the 
answer and tap enter. If you don't 
know the answer, just tap enter. If 
you're right, the computer says so and 
goes on to the next problem. If you're 
wrong, the computer gives you the 
answer. Then it gives you a chance to 
study the six numbers at leisure before 
tapping enter to continue. 

No score is kept. The program does 
not test your intelligence in terms of 
assigning you a neat IQ score. It's a 
game. 

The program will work in Level I 
with the following two line changes: 

1180IF(L = 5)*(A = 1) 
THEN F = F + X: GOTO 1210 

1190IF(L = 5)*(A=2) 
THEN F = F-X: GOTO 1210 

Because I felt a bit devilish when I 
wrote Brainstorm, I haven't included 
any explanations of the logic schemes. 
One could figure them out from the 
program, but it's probably more trou- 
ble than it's worth. 

If any number sequence stumps you, 
send me the sequence in a stamped, 
self-addressed envelope, and I'll reply 
with the answer and the logic involved. 
Please, send five sequences or fewer. 
I'm still no good at number sequences, 
but I did write the program and know 
how it works. 

And if I can't figure it out, my 
9-year-old daughter can. Early results 
indicate my mental deficiencies were 
not passed on to my offspring. ■ 

Richard Ramella is 80 Micro 's Fun 
House columnist. He can be reached at 
1493 Mountain View Ave., Chico, CA 
95926. 
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Basic Level II (or Level I with 

two line changes) 
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Shannon Magnetics 
Has More... 

Diskettes, Equipment and Accessories. 

To Order Call: 

800-525-8419 

Diskettes - Single Sided, 
Double Density, 5 1/4": 

Scotch, Memorex, BASF, Verbatim ... $25.95 

Shannon Plus with Hub Rings $24.95 

Shannon $22.95 

Flipsort File Box $19.95 

Diskette file box with capacity for fifty 5 1/4" 
diskettes. 

Plastic Library Case $2.95 

Holds 10 Diskettes. 

Special - Shannon Disk Drive Headcleaner 

This kit contains two cleaning disks with 

instructions to assure proper operation of 

all types of 5 1/4" disk drives. Removes 

dirt and debris which can cause read/ 

write errors and lost data. 

Buy One at $24.95, 

Get a Second Headcleaner for 1 c ! 



Printer Stilts 

Low Cost Printer Stand 



$9.95 



Tandon Disk Drives Call For Prices 

We Also Offer Repair Services on Computer 
Drives and Printers. 

We carry the line of LNW Research products, 
including: 

• computers. 

• expansion interfaces. 

• doublers. 

Call for prices on 80 Track and 
Double Sided Diskettes. 

Shannon 
Magnetics 

304 Elati Street 

Denver, Colorado 80223 

To order call toll free: 800/525-8419 
Mastercard and Visa Welcome. 
Checks & Money Orders also accepted. 
Orders shipped UPS free. 

Colorado residents add 6 1/2 per cent sales tax. 

Attractive discounts to dealers. " 16 



Listing continued 




270 


IF L=4 GOTO 1210 


280 


PRINT F; 


290 


G=S 


300 


S=F 


310 


NEXT L 


320 


F=RND(20) 


330 


S=RND(10) 


340 


T=RND(10) 


350 


FOR L=l TO 6 


360 


N=N+1 


370 


IF N=l F=F+S 


380 


IF N=2 F=F+T: N=0 


390 


IF L=6 GOTO 1210 


400 


PRINT F; 


410 


NEXT L 


420 


F=RND(10)+5 


430 


S=RND ( 6 ) 


440 


T=RND(10) 


450 


IF T=<S GOTO 440 


460 


FOR L=l TO 5 


470 


N=N+1 


480 


PRINT F; 


490 


IF N=l F=F-S 


500 


IF N=2 F=F+T: N=0 


510 


IF L=5 GOTO 1210 


520 


NEXT L 


530 


S=RND(20) 


540 


F=RND(20) 


550 


T=RND(10) 


560 


FOR L=l TO 6 


570 


N=N+1 


580 


IF N=l S=S+T 


590 


IF N=2 F=F+T 


600 


IF L=6 GOTO 1210 


610 


IF N=l PRINT S; 


620 


IF N=2 PRINT F; : N=0 


630 


NEXT L 


640 


T=RND(5) 


650 


S=RND(5) 


660 


PRINT T;S; 


670 


F=T+S 


680 


PRINT F; 


690 


FOR L=l TO 3 


700 


F=F+F 


710 


IF L=3 GOTO 1210 


720 


PRINT F; 


730 


NEXT L 


740 


F=RND(4) 


750 


T=RND(4)+1 


760 


IF T=F GOTO 750 


770 


PRINT F; 


780 


FOR L=l TO 5 


790 


p=F*T 


800 


IF L=5 GOTO 1210 


810 


PRINT F; 


820 


NEXT L 


830 


T=RND(5) 


840 


S=RND(8)+4 


850 


IF S=<T GOTO 1020 


860 


A=RND(2) 


870 


PRINT T;S; 


880 


FOR L=l TO 4 


890 


IF A=l F=T+S-1 


900 


IF A=2 F=T+S+1 


910 


IF L=4 GOTO 1210 


920 


PRINT F; 


930 


T=S 


940 


S=F 


950 


NEXT L 


960 


G=RND ( 3 ) 


970 


S=RND(7) 


980 


IF S<G GOTO 970 




Listing continues 
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Listing continued 




990 T=RND(9) 




1000 IF T<S GOTO 990 




1010 PRINT G;S;T; 




1020 FOR L=l TO 3 




1030 F=G+S+T 




1040 IF L=3 GOTO 1210 




1050 PRINT F; 




1060 G=S 




1070 S=T 




1080 T=F 




1090 NEXT L 




1100 F=RND(1000)+60 




1110 IF F/32<>INT(F/32) GOTO 1100 




1120 X=RND(3) 




1130 A=RND(2) 




1140 FOR L=l TO 6 




1150 IF A=l PRINT F+X; 




1160 IF A=2 PRINT F-X; 




1170 F=F/2 




1180 IF L=5 AND A=l THEN F=F+X: GOTO 


1210 


1190 IF L=5 AND A=2 THEN F=F-X: GOTO 


1210 


1200 NEXT L 




1210 PRINT 




1220 PRINT 




1230 INPUT "NEXT NUMBER IN SERIES", -B 




1240 PRINT 




1250 IF B=F PRINT "RIGHT": GOTO 1290 




1260 PRINT "NO, ANSWER IS";F 




1270 PRINT 




1280 INPUT "ENTER TO CONTINUE" ;X: GOTO 110 


1290 FOR T=l TO 500 




1300 NEXT T 




1310 GOTO 110 








POCKET COMPUTER USERS 

Here is what you have been looking for to protect and 
transport your complete TRS-80, PC-1 , PC-2 or Sharp PC-121 1 , 
PC-1500 Pocket Computer System. 

THE PC SYSTEM ATTACHE CASE 

A durable, handsomely molded black case with two drawbolt 
keylocks. The interior has a soft foam lining which is cut out 
to safely hold all this: 

Pocket Computer 

Printer/Interface 

Pwr Supply/Charger 

Tape Recorder* 

Printer Paper 

Spare Tape 

Cords 

PLUS: Room 
For More 

Visa, Mastercharge 

Accepted 

Send Number & Exp. 

Date 

PC-1, PC-1 211 SYSTEM CASE 54.50 

PC-2, PC-1500 SYSTEM CASE (shown) 59.50 

•Instructions Included On How To Make Cut Out For Your 
Own Small Tape Recorder 

SHALE DIVERSIFIED ENTERPRISES 

108 Ferris Ave. Chardon, Ohio 44024 " 446 




A powerful 
data base manager. 

Data-Writer can be used 

with your word processor or by 

itself as a complete stand-alone 

system for managing textual and 

numeric data. 

Use for order tracking, client billing, 
expense recordkeeping, operational 
reporting with totals and subtotals, form 
letter production to a large list or a subset, 
mailing list maintenance and other business 
and personal applications. Data-Writer's ease 
of use appeals to secretaries. 

• Data Entry program to create your data base or add 
records to an existing data base. It has error checking fea- 
tures and supports both fixed and variable length fields. 

• Machine-language File Editor lets you edit your data 
base without an independent word processor. Or, if 
you prefer, use your own word processor (Electric Pencil, 
Lazy Writer, Newscript or Scripsit) to create and edit 
your data base. 

• Field Manager that lets you add, delete, re-order or ap- 
pend fields and merge or split data bases. 

• Interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters 
using numbers you enter and your data base field labels. 
It includes an in-memory scratch pad to store temporary 
values. 

• Two-level Sort that enables you to sort on any field, with- 
out having previously designated it as a key. 

• Mailing Label program that allows you to print multiple 
labels from one to four across and to insert a fixed mes- 
sage on every label. 

• Machine-language Form Letter processor that allows 
you to insert data from your data base into a form letter 
or contract. Store the text for use later. 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtotals, and 
sophisticated formatting control. 

• Powerful Select-lf command that lets you define a subset 
of your data base. With Select-lf and Sort, you can create 
dozens of new data bases for specific purposes. 

• Statistical check on your data base to locate data 
entry errors. Stats also reports maximum entered data 
length for each defined field, a tremendous aid when 
designing a report. 

• Data-Writer is both powerful and easy to use. "Why 
hasn't someone done this before!" 

For the TRS-80 Model l/lll (48K, 2 disk drives, lowercase re- 
quired). Available from Software Options, 19 Rector Street, 
New York, N.Y. 10006. 212-785-8285. Toll-free order line: 
800-221-1624. Price: $125. (plus $3 per order shipping and 
handling). New York State residents add sales tax. Visa/ 
Mastercard accepted. .^a^^ 

SOFTWARE 




■See List of Advertisers on Page 563 
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TUTORIAL 



More Memory for Peanuts 



by James Schaefer 



A 



dding memory to your Model III is not as hard 
as it seems, so don't be intimidated. But, 
remember that you may void your warranty. 



If you dream about installing more 
memory in your Model III computer 
but haven't done it yet because you 
think it's too difficult or expensive, 
just put aside your fears and follow 
this step-by-step guide. 



First you need to buy some memory 
chips. These chips are sold in sets of 
eight for about $20 per set. Each set 
adds 16K to the computer. The Model 
III uses 4116 chips with a speed of 200 
nanoseconds. 




Photo 1 shows a single memory chip 
and an inexpensive tool ($5) that holds 
the chip. The chip has 16 connector 
pins, eight on each side. The insertion 
tool holds the pins straight as you plug 
in the chips. You can install the mem- 
ory chips without the insertion tool, 
but the tool makes the job easier. 

When you are ready to install the 
memory chips spread a soft cloth on a 
large table. This protects your com- 
puter case from scratches. Find the 
screw on the back of the case and 
remove it. Next turn the computer over 
and remove the screws from the bot- 
tom of the case. These are of different 
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Photo 1 




Photo 2 
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Photo 3 




Photo 4 



Photo 5 



lengths, so remember where each one 
came from. Hold the top and bottom 
of the computer together and turn it 
right side up. 

Look at the metal chassis at the rear 
of the bottom half of the computer in 
Photo 2. The small end of the picture 
tube fits into the narrow portion of the 
chassis on the right side. There is only 
about Vi inch of clearance between the 
picture tube and the chassis. You must 
carefully lift the top half of the com- 
puter straight up. After the picture 
tube has cleared the top of the chassis 
place the top half of the computer to 
the side as in the photo. 

Remove the metal shield (Photo 3). 
This shield helps reduce EMI radiation 
levels which cause interference in your 
home radio and tv. Some of the first 
Model III computers did not have this 
shield installed. 

Photo 4 shows the main circuit 
board. 

Photo 5 shows an enlarged view of 
the top right corner of the circuit 
board. Here you see three rows of eight 
sockets each. The top row is filled with 
memory chips. If you have a 16K com- 



puter they are filled with 4116 chips. 
Now look at the top of each chip in the 
first row. There is a small dot at the top 
of each chip. These dots help tell you 
how to plug in the chip. If the chips 
you buy do not have a marker on one 
end then put the chips in so the writing 
goes in the same direction as the chips 
in the first row. 

In Photo 6 I am using the insertion 
tool to put in a memory chip in the 
second row. If you want to add only 
16K of memory to a 16K computer, 
then fill the second row with memory 
chips. Use the third row when you want 
to add the third set of 16K memory 
chips to bring the RAM up to 48K. 

After each chip is inserted make sure 
it is fully seated in the socket by press- 
ing it with your thumb (Photo 7). Use a 
little caution! You want to seat the 
chip, not crack the main circuit board. 
Also, make sure that all pins on the 
memory chip have gone into the socket 
holes. If one pin bends under the chip 
pull it out and try again. 

When you have installed all the 
memory, plug in the computer. Turn it 
on and test the computer with ? MEM. 



It will take a little longer for the 
memory size to come back because 
there is more memory for the computer 
to look at. In a 48K Model III you 
should get 48082 and in a 32K machine 
you should get 32768. If everything 
looks correct turn off the computer 
and unplug it. 

You are now ready to put the com- 
puter back together. Start by replacing 
the metal shield. Make sure the braided 
ground strap lug goes under one of the 
screws at the top of the narrow portion 
of the chassis. Carefully lift the top 
half of the computer over the bottom 
half and gently lower it into place. 
Remember the back of the picture tube 
has a clearance of only Vi inch. Hold 
both halves together and turn the com- 
puter upside-down. Replace the screws 
that hold the two halves together. Turn 
the computer right side up. Then 
resecure the screw at the back of the 
case. ■ 



James Schaefer (33 Jackson Road, 
Berlin, NJ 08009) is a computer consul- 
tant for two schools. 




Photo 6 



Photo 7 
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UTILITY 



Fast Tape Operating System 



by Michael Pollard 



Fast Tape Operating System, FTOS, 
is an Assembly-language program that 
replaces the tape operating system in 
ROM with one in RAM that is faster 
and more powerful. 

Here's what FTOS can do: 

• Load and save an entire array with 
one command. 

• Input and output at 1,800 baud. 

• Save Assembly-language routines. 

• CLOAD Basic and Assembly-lan- 
guage programs. 

• Find the beginning of the program 
or array on the tape, so you don't have 
to position the tape on a blank spot to 
load. 

• Display the six-character file name 
of a program or array. 

• Load and run Assembly-language 
programs with a single command. 

• Allow the break key to stop the 
cassette during a load. 

FTOS completes all these tasks with 
less than IK of memory. It resides at 
the top of 16K, or anywhere you wish 
to relocate it, and uses the disk com- 
mands, making it incompatible with a 
disk system. 

The Disk Commands 

To understand how FTOS uses the 
disk commands, type save and hit 
enter. You get an L3 error. Now type 
POKE 16800,195: POKE 16801,0: 
POKE 16802,0 and hit enter. Type in 
"save" and enter again and you get the 
memory-size prompt. 

Save is a disk command and if you 
use it without a disk, you normally get 
an L3 error. When the Basic interpret- 
er in ROM sees the instruction Save, it 
calls (like a GOSUB in Basic) the ad- 
dress 16800. There is usually a jump to 
the L3 error routine there, but those 
three POKEs put a JP 00 (GOTO 00), 
which is where the power-up routine 
starts, and you get the memory-size 
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FTOS lets you use disk 
commands to increase 
the speed of storage time 
in your cassette system. 



prompt instead of an L3 error. 

FTOS has patches at Save and at the 
other disk commands it uses. These 
patches don't jump to 00 but to specific 
routines in FTOS. That is how FTOS is 
hooked up. 

Fast Input/Output 

Using ROM I/O, programs and data 
are sent to and from the cassette, one 
byte at a time. Each byte is composed of 
8 clock bits and 8 data bits. A pulse be- 
tween clock bits represents 1 , and a is 
represented by lack of a pulse. To in- 
crease I/O speed FTOS outputs (and 
inputs) 1 clock bit followed by the 8 
bits of the byte. This means that there 
are only 9 bits (1 clock, 8 data) per 
byte instead of 16 bits (8 clock, 8 
data). This creates faster code and de- 
creases loading errors, since the out- 
put is about half its usual length. 

To further increase speed, the spaces 
between pulses as well as the pulses 
themselves, are shortened. As a result of 
these modifications, the speed of I/O 
will be about 3 1/2 times faster than that 
of normal cassette I/O. 

Added Reliability 

To increase reliability, the tape for- 
mats of ROM have been replaced by 
one format (see Fig. 1). This format is 
not only more reliable, but also more 
flexible. It is similar to ROM's tape for- 
mat, but it does have two major differ- 
ences. One is the synchronization code. 



ROM uses a one-byte synchronization 
code to point to the beginning of valid 
data. Unless the tape head is positioned 
over a blank spot, ROM will probably 
find a false sync code, leading to a bad 
load. To solve this problem, FTOS has 
a two-byte sync code. The tape can be 
positioned anywhere, even in the mid- 
dle of data, and FTOS still finds the 
beginning of the next program. The 
block header code is also two bytes 
long to help recover data in the event 
of a bad read. 

The other major difference is the 
addition of a type code. A code is for 
Assembly language, a 1 code is for Ba- 
sic, and a 2 code is for arrays. This 
tells FTOS which data type is being 
loaded. The type code is necessary 
since FTOS uses only one tape 
format. 

If you get a checksum error (CE next 
to the asterisks) while loading, but load- 
ing still completes, probably only a 
small part of the program is incorrect. 
If the asterisks disappear, however, the 
program being read has an irrecover- 
able error. FTOS is looking for another 
program, so rewind the tape, adjust the 
volume, and try again. 

Array I/O Made Easy 

The most powerful statements of 
FTOS are the array commands: Open 
and Close. These commands input and 
output whole arrays to and from the 
cassette recorder. Figure 2 shows two 
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programs for outputting a 100-element 
array, one with FTOS and one without. 
The listings show how much easier it is 
to program, since the formatting is an 
automatic function. The time difference 
between the two shows how much faster 
FTOS is than the ROM system. If you 
wish to output only part of an array, it 
can be put into a smaller array and then 
output to tape. 

Tape Directory 

FTOS can read anything it puts on 
tape. If you have ever mixed System, 
Basic, and PRINT# data, as well as 
EDTASM source code on the same 
tape, you know that separating them is 
almost impossible. If a name is specified 
when loading an FTOS tape, all the pro- 
grams and arrays read before the speci- 
fied tape will have their names printed. 
This allows you to see what is stored on 
a cassette. 

Commands 

Save name: Position tape and put re- 
corder in record mode. Type save and a 
name of up to six characters. Hit enter 
and the resident Basic program will be 
stored on tape. If no name is specified, 
the name field will contain blanks. 

Put name: Position tape and put re- 
corder in record mode. Type put and a 
name of up to six characters. Press en- 
ter, and the program asks you to enter 
the four-digit hexadecimal starting ad- 
dress of the program. After the fourth 
digit is entered, enter the ending ad- 



fa) 



(b) 




DDDDD ODD 




J_J 



10 I 



256 bytes — zeros 

2 bytes — sync code (A5.A6) 

6 bytes — name field 

1 byte— type code (0,1,2) 

2 bytes — entry point 



1 or more data blocks 



1 byte — zero 

2 bytes— block header code (3C,3D) 

1 byte— block size (0 if 256 bytes) 

2 bytes — beginning memory location 
1-256 bytes — data 

1 byte — checksum 



byte — end code 

Fig. 2. FTOS Tape Format 









Program Listing 












00100 ; 


(C) 


"FTOS" - 


A 


CASSETTE ROUTINE 






00110 ; 




BY M. 


RODNEY 


POLLARD 






00120 ; 




MAY 


1982 




3C40 




00121 


ORG 


3C40E 








3C40 


46 


00123 


DEFM 


'FTOS - 


7CA3H- 


7FFFH ' 


400F 




00130 


ORG 


400FH 






;RST 3 0H 


400F 


C3037D 


00140 


JP 


CPl 








4173 




00150 


ORG 


4173H 






;CMD 


4173 


C3F37C 


00160 


JP 


CMD 








417F 




00170 


ORG 


417FH 






;GET 


417F 


C3D77E 


00180 


JP 


GET 








4182 




00190 


ORG 


4182H 






;PUT 


4182 


C3887D 


00200 


JP 


PUT 








4188 




00210 


ORG 


4188II 






;LOAD 


4188 


C3DB7E 


00220 


JP 


BR 








41A0 




00230 


ORG 


41A0H 






; SAVE 


41A0 


C3087E 


00240 


JP 


BW 








4185 




00250 


ORG 


4185H 






; CLOSE 


4185 


C3C97D 


00260 


JP 


PR 








4179 




00270 


ORG 


4179H 






;OPEN 


4179 


C3D57D 


00280 


JP 


INP 








7CA3 




00290 


ORG 


7CA3H 






; BEGINNING OF FTOS 


7CA3 


AF 


00292 CKA 


XOR 


A 








7CA4 


32D77F 


00294 


LD 


(NAME+1) 


,A 






7CA7 


E5 


00300 CK 


PUSH 


HL 






;LOAD NAME 


7CA8 


D9 


00310 


EXX 










7CA9 


El 


00320 


POP 


HL 








7CAA 


2B 


00321 


DEC 


HL 








7 CAB 


CDC77E 


00330 


CALL 


BLANK 






; BLANK NAME FIELD 


7CAE 


0606 


00335 


LD 


B,6 








7CB0 


11D67F 


00340 


LD 


DE,NAME 








7CB3 


D7 


00350 CK1 


RST 


10H 






; CHECKS CHARACTERS 


7CB4 


2809 


00360 


JR 


Z,CK2 






;EXIT 


7CB6 


FE2F 


00370 


CP 


2FH 








7CB8 


38F9 


00380 


JR 


C,CK1 








7CBA 


12 


00390 


LD 


(DE) ,A 








7CBB 


13 


00400 


INC 


DE 








7CBC 


04 


00405 


INC 


B 






Listing continues 




Fig. 1. Comparison between the ROM 
format (a) for A 5 hexadecimal and the 
FTBS formab (b) for A5H (C = clock, 
D = data) 



dress. Then enter the entry-point ad- 
dress, and the recorder will start re- 
cording. 

Load name: Position tape and put 
recorder in play mode. The tape need 
not be positioned on a blank spot to 
find the beginning of the program. If no 
name is specified, the first program read 
is loaded. If a name is specified, FTOS 
displays the names of all the programs it 
reads until the specified program is 
loaded. If the program loaded is an 
Assembly-language program, you are 
prompted to enter an entry-point ad- 
dress in hexadecimal. You can enter a 
starting-point address, or hit the break 
key, which brings you back to Ready, 
or you may hit enter, which jumps to 
the entry point specified on the tape. 

Get name: This is the same as Load. 
However, if an Assembly-language pro- 
gram is loaded, control automatically 
jumps to the program's entry point. 

CMD name: This command func- 
tions the same as CLOAD, but it also 
checks Assembly-language programs. 

Close name: This saves an entire ar- 
ray on tape. The first two characters in 
the name must match those of an exist- 
ing array in memory. 

Open name: This loads an entire ar- 
ray. The data loaded in must go into an 
array of the same type and size as that 
from which it was saved. Since Basic 
only recognizes the first two characters, 
different sets of data may be used in a 
single array by having two different 
names with the same first two char- 
acters. ■ 

Michael Pollard can be reached at 
4407 W. Walnut, Soquel, CA 95073. 



10 DIM AC(IOO) 

20 FOR J=l TO 10 

30 FOR 1 = 1 TO I0:PRINT#-1,AC(I), 

AC(I + 1 ),AC(I + 2),AC(I + 3), AC(I + 4), 

AC(I + 5), AC(I + 6), AC(I + 7),AC(I + 8), 

AC(I + 9):NEXT I 

40 NEXT J 

(TIME = 48 SECONDS) 

10 DIM AC(100) 
20 CLOSE AC 

(TIME = 4 SECONDS) 
Figure 3 
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COMPUTER BOOKS FOR BEGINNERS 

Everything you need to get started programming your own personal computer. These handy books of programs, and about 
programming, are loaded with easy-to-understand info for beginners. The books include hundreds of ready-to-type-and-run 
programs as well as hundreds of program-writing tips, tricks, hints, shortcuts, secrets, techniques. We offer books cover- 
ing the 13 most popular computers for beginners: TRS-80 Color Computer, Atari 400, Atari 800, Apple II, Sinclair ZX-81, 
Timex 1000, Micro Ace, IBM Personal Computer, Casio FX-702P pocket computer, Sharp PC-1211 and PC-1500 pocket 
computers and TRS-80 PC-1 and PC-2 pocket computers. 



TRS-80/Sharp/Casio 
Pocket Computers 

99 Tips & Tricks for the New Pocket Computers, all new programs, using 
tremendous power ot TRS-80. PC-2/Sharp PC-1500. LCD graphics, 
printer/plotter graphics, useful business and home software, includes 99 
complete type-and-run programs, learn full range of expanded BASIC. 
128 pages S7.95 

Pocket Computer Programming Made Easy, last new. easy readand- 
learn way to quickly understand the BASIC programming language, how 
to make TRS-80 PC-l/PC-2. Sharp PC- 121 1 /PC- 1 500 & Casio FX-702P 
computers work for you. 128 pages S8.95 

101 Pocket Computer Programming Tips & Tricks, secrets, hints, short- 
cuts, techniques from a master programmer, includes 101 ready-to-run 
programs, for TRS-80 PC-1 and PC-2 and Sharp PC-1211 and PC-1500. 
128 pages $7.95 

50 Programs in BASIC for Home. School & Office, useful ready-to-run 
software for PC-1/PC-2/PC-1211/PC-1500. 96 pages $9.95 

50 MORE Programs in BASIC for Home. School & Office, book ol tested 
software for PC-1 /PC-2/PC- 1 21 1 /PC- 1 500. 96 pages $9.95 

Murder In The Mansion and Other Computer Adventures, mystery, space 
adventure, games. 24 programs for PC-1/PC-2/PC-121 1/PC-1500. 96 
pages $6.95 

35 Practical Programs for the Casio Pocket Computer, useful type- and 

run software tot the FX-702P 9b pages $8.95 

Atari 400/800 Computers 

101 ATARI Computer Programming Tips & Tricks, learn -by-doing in 
slruction. hints, secrets, shortcuts, techniques for Atari 400 and 800 
computers, includes 101 ready-to-run programs. 128 pages $8.95 

31 New ATARI Computer Programs for Home. School & Office, practical 
type-and-run software for Atari 400 and 800. 96 pages S8.95 

Timex 1000/Sinclair ZX-81 

101 TIMEX 1000/Sinclair ZX-81 Programming Tips & Tricks, secrets, 
hints, shortcuts, learn-by-doing instruction, lechmques lor the ZX-81 
MicroAce and Timex 1000 computers, includes 101 ready-to-run pro- 
grams. 128 pages $7.95 

37 TIMEX 1000/Sinclair ZX-81 Computer Programs for Home. School & 
Office, practical type-and-run software for ZX-81. Timex 1000 and 
MicroAce. 96 pages $8.95 



TRS-80 Color Computer 

Color Computer Graphics, complete guide loaded with instruction, how to 
make the most of TRS-80 Color Computer video graphics, many complete 
programs. 128 pages $9.95 

The Color Computer Songbook. 40 favorite pop. folk, classical, seasonal 
songs arranged for play on TRS-80 Color Computer, type-and-run music 
programs, 96 pages $7.95 

101 Color Computer Programming TipsA Tricks, learn-by-doing instruc- 
tions, hints, secrets, techniques, insights, for TRS-80 Color Computer, 
includes 101 programs. 128 pages $7.95 

55 Color Computer Programs for Home. School & Office, practical ready 
to-run software, colorful graphics, lor TRS-80 Color Computer. 128 
pages $9.95 

55 MORE Color Computer Programs for Home. School & Office, handy 
companion volume packed with different useful type-and-run software, 
colorful graphics, for TRS-80 Color Computer. 112 pages $9.95 

My Buttons Are Blue and Other Love Poems from the Digital Heart of An 
Electronic Computer, for poetry lovers, computer fans, a high-tech 
classic. 66 heartwarming poems written by a TRS-80 Color Computer. 96 
pages $4.95 



Apple Computer 



101 APPLE Computer Programming Tips & Tricks, secrets, hints, in- 
sights. 101 ready-to-run programs for Apple II. 128 pages $8.95 

33 New APPLE Computer Programs for Home, School & Office, practical 
type and-run software lor Apple II. 96 pages $8.95 



Program Worksheets 

Tablets of handy punted forms make writing BASIC software 
easy and fun Customized foi computer systems, or use the 
universal form good for any BASIC computer 40-sheet pads 



Color Computer BASIC Coding Form 
Pocket Computer BASIC Coding Form 
APPLE Computer BASIC Coding Form 
TIMEX/Sinclair BASIC Coding Form 
IBM Personal Computer Coding Form 
ATARI Computer BASIC Coding Form 
Universal BASIC Coding Form 



$2.95 
$2.95 
$2.95 
$2.95 
$2.95 
$2.95 
$2.95 



Order direct from this ad. Send check, money order, or MasterCard or VISA account number and expiration date. Include $1 
shipping for each item ordered up to a maximum of $3. Or write for our free catalog. Mail to: 

ARCsoft Publishers 



m 



Post Office Box 132L 
Woodsboro, Maryland 21798 

(301)663-4444 



Customers wanting airmail send S4 postage per item ordered Foreign customers pay in U S dollars Maryland residents add 5% sales tax Sorry.no COO ^6 



sSee Lisi ol Advertisers on Page 563 
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FORBIDDEN 

FRUIT? 




Not Anymore. 



It's no sin to want to learn as much as 

;. possible about your Apple*. And now 

- there's a magazine which places all the 

Apple Computer's hidden potential at 

your fingertips — inCider. 

inCider promises to expand the limits of 
your Apple like its sister publication 80 
Micro has blown the lid off the TRS-80**. 

Not just another Apple magazine — but 
a comprehensive monthly filled with . . . 

• programs 

• software applications 

• hardware modifications 

• reviews 

• new product announcements 

• advertising 

• tutorials 

• games 
Want to know the easiest way to get the 

kinks out of your programs? inCider will 
show you. Want to know which peripher- 
als have the best history and the brightest 
future? inCider will tell you. 



Want to expand your knowledge of 
hardware? Or become an expert program- 
mer? Want to discover which word proces- 
sors give you the most for your money? Or 
how your Apple can better manage your fi- 
nancial affairs? inCider will answer these 
and many other questions each month. 

No matter what you use your Apple for 
—no matter where your machine is— 
you'll want the latest copy of inCider 
propped up beside it each month. 

You get a full year's subscription to 
inCider— 12 monthly issues for only 
$19.97. And if you send your money now 
you will receive a 13th issue free! 

Simply send in the subscription coupon 
to: 

Wayne Green Inc. 
P.O. Box 911 
I'armingdale, NY 11737 

or call loll free: 

1-800-258-5473 
Be an inCider. Subscribe today. 



YES, / want a charter subscription to inCider for one year at $19.97 

| I understand that with payment enclosed or credit card order I will receive a 13th issue FREE. 
| □ Check Enclosed D MC D VISA DAE □ Bill ME S19.97 for 12 issues 

Signature . 

I Card jjf 



| Exp. Date_ 

I Name 

Address _ 

City 

Zip 



Interbank #_ 



State. 



32DCS 



J. Ci>RAV£S -Ss| 
'Apple i-- a iradcmark »i \pplc Computet Inc. 



Canada & Mexico S22.97. 1 year only. U.S. Funds 

Foreign S39.97. 1 year only. 

U.S. Funds drawn on U.S. Bank 

Your first issue will arrive by mid- December 

Box 911«Farminnda!c. NY 11737 
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What Does 

Omicro 




the magazine tor TRS-80" users 




For You? 



&BJEL %fiih 
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IT 



i provides you with more information on your TRS-80* than any other single source 
< gives you 20-30 programs in each issue 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80 — its good points and its limitations (80 Micro is 
not affiliated with Tandy) 

lets you save money — lots of it — by comparison shopping within the ad pages 
clues you in on how other TRS-80 owners are using and updating their systems 
tells you what's really happening in the industry 

brings you Wayne Green's outspoken and often controversial editorials every month 
and best of all it gives you a no risk subscription offer — 



Subscribe today— if you arc not satisfied with the first issue— write "cancel" across your invoice and send it back. The 80 Micro is yours to keep. 



YES. . . I WANT 80 MICRO 



□ Check enclosed for $24.97 

Bill my D AE DMC □ VISA □ Bill me 

Name 



Address 
City 



.State, 



.Zip_ 



L 



Card# 

Signature 



.Expire Date 



.Inter ban k#_ 



32DRS 



Canada and Mexico $27.97, one year only, US funds. Foreign $44.97. one year only, US funds. DRAWN ON US BANK ONLV 



80 Micro • PO Box 981 • Farmingdale, N.Y. 11737 
*TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. 
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EDUCATION 



LOAD 80 



The Glamour of Grammar 



by George Stone 



S 



o your students don't appreciate the finer 
points of grammar? This program will let them 
learn the rules and have fun at the same time. 



Kids are fascinated by video displays. 
They enjoy telling the computer to do 
something, then watching it get done. I 
wrote Sentence Patterns with the hope 
that this fascination would get my stu- 
dents interested in learning grammar. 

The program drills students on sen- 
tence patterns by mimicking what I do 
in the classroom. First, it makes up a 
sentence. Then, it asks directed ques- 
tions about the sentence to lead the kids 
to the sentence pattern. By using this 
program, the students learn the se- 
quence of thoughts needed to determine 
sentence patterns. 

Why even learn sentence patterns? 
To pass the test, of course. Besides that, 
knowing how to find the pattern helps 
in understanding the meaning of long, 
involved sentences found in literature, 
especially poetry. It also helps my stu- 
dents proofread their writing for com- 
plete sentences. 



The Key Box 

Model I or III 

16K RAM 

Cassette or Disk Basic 

(POKE 16396, 165 on the 

Model I to disable break.) 



Computers Are Motivating 

The results met my expectations. But 
then other factors popped up that 
proved even more motivating than the 
video appeal. The kids see the questions 
as a challenge, a dare. They don't like 
being outsmarted by the machine, so 
they think twice and try harder for the 
correct answer. 

They also enjoy the absurd nature of 
the sentences being presented (more 
about this later). To see the next weird 
sentence, they have to answer all the 
questions about the one being dis- 
played. Not only that, but the higher the 
level (i.e., the more complicated the sen- 
tence), the more absurd the sentence be- 
comes. Since the students can't advance 



to higher levels without passing (above 
85 percent) the lower ones, this encour- 
ages achievement. 

But the biggest motivator of all 
turned out to be the kids themselves. 
When I let two or three kids at a time 
use the computer, they taught each 
other. They argued and haggled and 
debated over which answer to choose. 
They were giving reasons. They were 
using rules I had taught in class to de- 
fend their answers. They were really 
learning. All because of a few words 
displayed on a screen. 

Although I didn't have strict control 
or experimental groups, the kids who 
used the computer more often aver- 
aged higher scores on the test than the 
ones who didn't. 

Evolution of the Program 

When I was learning Basic, two fea- 
tures appealed to me: the random- 
number generator and string variables. 
Since grammar is logic imposed on Ian- 



Line 
number Level 

209 8 



210 
211 
212 
215 
220 
225 
230 



SENTENCE GENERATOR 
LEVELS OF COMPLEXITY 



Complex sentence using a level 4 dependent clause and a level 3 main clause 
Complex sentence using a level 3 dependent clause and a level 4 main clause 
Complex sentence using a level 3 dependent clause and a level 3 main clause 
Complex sentence using a level 2 dependent clause and a level 3 main clause 
Level 3 plus an adjective phrase or clause 
Level 2 plus another adjective and a prepositional phrase 
Level 1 plus an adjective and an adverb 
Simple sentence pattern with no modifiers 

Table 1 . Levels of complexity 
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TRS-80 COLOR 



AARDVARK 
OSI VIC-64 VIC-20 SINCLAIR TIMEX 





7f?\* f 



TUBE FRENZY 

(by Dave Edson) 
This is an almost indescribably fast action 
arcade game. It has fast action, an all new 
concept in play, simple rules, and 63 levels 
of difficulty. All machine code, requires 
Joysticks. Another great game by Dave 
Edson. TRS 80 COLOR ONLY. 16k and 
Joysticks required. $19.95. 



QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16k TRS-80, TRS-80 Color, and Sin- 
clair. 13K VIC-20. $14.95 each. 




CATERPILLAR 

O.K., the Caterpillar does look a lot like a 
Centipede. We have spiders, falling fleas, 
monsters traipsing across the screen, poison 
mushrooms, and a lot of other familiar 
stuff. COLOR 80 requires 16k and Joy- 
sticks. This is Edson's best game to date. 
$19.95 for TRS 80 COLOR. 

PROGRAMMERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs 
the widest possible coverage. Quality is the 
keyword. If your program is good and you 
want it presented by the best, send it to 
Aardvark. 




ADVENTURES!!! 

These Adventures are written in BASIC, are 
full featured, fast action, full plotted ad- 
ventures that take 30-50 hours to play. (Ad- 
ventures are interactive fantasies. It's like 
reading a book except that you are the main 
character as you give the computer com- 
mands like "Look in the Coffin" and 
"Light the torch.") 

Adventures require 16k on TRS80, TRS80 
color, and Sinclair. They require 8k on OSI 
and 13k on Vic-20. Derelict takes 12k on 
OSI. $14.95 each. 

ALSO FROM AARDVARK - This 
TRS-80 Color and OSI ), business 



CATCH'EM 

(by Dave Edson) 
One of our simplest, fastest, funnest, all 
machine code arcade games. Raindrops and 
an incredibe variety of other things come 
falling down on your head. Use the Joy- 
sticks to Catch'em. It's a BALL! — and a 
flying saucer! — and a Flying Yl— and so 
on. TRS 80 COLOR. $19.95. 

BASIC THAT ZOOOMMSM 
AT LAST AN AFFORDABLE COMPILER! 

The compiler allows you to write your 
programs in easy BASIC and then auto- 
matically generates a machine code equiv- 
alent that runs 50 to 150 times faster. 
It does have some limitations. It takes at 
least 8k of RAM to run the compiler and it 
does only support a subset of BASIC— 
about 20 commands including FOR, NEXT, 
END,GOSUB,GOTO,IF, THEN, RETURN, 
END, PRINT, STOP, USR (X), PEEK, 
POKE, *,/,+, -, > , < ,=, VARIABLE 
NAMES A-Z, SUBSCRIPTED VARIABLES, 
and INTEGER NUMBERS FORM 0-64K. 
TINY COMPILER is written in BASIC. It 
generates native, relocatable 6502 or 6809 
code. It comes with a 20-page manual and 
can be modified or augmented by the user. 
$24.95 on tape or disk for OSI, TRS-80 
Color, or VIC. 

Please specify system on all orders 

is only a partial list of what we carry. We have a lot of other games (particularly for the 
programs, blank tapes and disks and hardware. Send $1 .00 for our complete catalog. 



ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough ! 

HAUNTED HOUSE (by Bob Anderson) 
It's a real adventure — with ghosts and ghouls 
and goblins and treasures and problems — 
but it is for kids. Designed for the 8 to 12 
year old population and those who haven't 
tried Adventure before and want to start 
out real easy. 

DERELICT 
(by Rodger Olsen & Bob Anderson) 
New winner in the toughest adventure from 
Aardvark sweepstakes. This one takes place 
on an alien ship that has been deserted for a 
thousand years — and is still dangerous! 



w 



AARDVARK -80 
2352 S. Commerce, Walled Lake, Ml 48088 
(313)669-3110 
Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri. ^107 



% 



guage, why couldn't a computer start 
with the logic and insert the language? 

Time out for some grammar review. 
Any sentence can be classified as one 
of four patterns: subject- verb, sub- 
ject-verb-direct object, subject-link- 
ing verb-adjective, or subject-linking 
verb-noun. (Some grammar systems 
are more complex, but for my students 
this is enough.) 

For example, in a sentence like, 
"Suzy is pretty," the sentence pattern 
is S-LV-Adj. "Is" links "Suzy" to 
"pretty." Almost any noun can be 
substituted for "Suzy," almost any 
linking verb can be substituted for 
"is," and almost any adjective can 
take the place of "pretty." Example: 
"The hunchback looked ugly." 
(Someday the Basic software people 
will invent an If. . .Then. . .Except 
operation for language strings.) 

The point is that the computer can 
create its own sentences by picking 
subjects, verbs, adjectives, and other 
parts of speech from arrayed word 
lists, then arranging them according to 
English syntax rules. 

Making up sentences this way has its 
faults and advantages. Since only a 
part of a sentence's meaning comes 
from its structure, and since the com- 
puter (obviously) has no idea what 



SENTENCE GENERATOR FLOWCHART (ABRIDGED) 



ON L GOSUB 250. 225. 220. 215. 212. 211. 210. 209 ; GOTO 500 



209 
210 













> 




GOSUB (S>. 5, OR * 






i 








LET DEPENDENT CLAUSE ' SENTENCE 






* 








GOTO 3 OR 1 

















215 
220 
225 



CHOOSE HOD 



ASSEMBLE 
DEPENDENT CLAUSE 
AND SENTENCE 



CHOOSE ESSENTIAL WORDS 1SU8JECT. VERB. OBJECT. ETC.I 



269 
270 



CHOOSE Tl 
ON T GOTO 



ASSEMPLE TYPE 

SENTENCE. 

RETURN 




ASSEMBLE TYPE 2 

SENTENCE. 

RETURN 



ASSEMBLE TYPE 

SENTENCE. 

RETURN 



Fig. 1. The return works two ways, depending on where the. GOSUB was initiated. On levels 1-4, 
the return returns to line 205. On levels 5-8, the return is nested and returns first to the level 5-8 
lines, then to 205. 



SAVE MONEY ON 
TRS-80® COMPUTERS 




Call for our 
Prices! 



1-800-835-9056 

Kansas Residents: 
1-316-624-1919 (collect) 



TRS-80' is the registered trademark of Tandy Corporation 



We have the largest Inventory in the 
Central United States. Immediate 
shipment directly to you from our 
warehouse. 



^ Check with us and SAVE 



All Inventory 100% TRS-80' Equipment 

Free Price List 

No Out-Of-State Taxes 

F-48 Warranty form 

Immediate Shipment 



* Payment Methods 
is Visa or Mastercard 
is Bank Cashier's Checks 
is Bank Money Orders 
is Bank Wire Transfers 

Jimscot, Inc. 

1023 N. Kansas — Box 607 
Liberal, Ks. 67901 
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words it's using, it can create such 
monstrosities as: 

"The cute dog smelled a robot on 
the lawn since a weird girl later tricked 
the fish around the tree." 

"Because Albert, too tired to laugh, 
foolishly smelled a fat man around the 
tree, a fat mouse, feeling gay, finally 
threw a foolish mouse on the lawn." 

As it turned out, the kids were enter- 
tained by the bizarre and fantastical 
nature of these sentences. The absurd- 
ity of the meaning seems to make the 
pattern a little more obvious. 

As I was developing the sentence 
generator, it occurred to me that since 
the program started with the answer 
(the sentence pattern) and came up 
with an example, why not turn this into 
a learning exercise? Hence the ques- 
tion-and-answer part of the program. 

Program Explanation 

The sentence-generating part of the 
program, lines 1-91 and lines 200-500, 
creates four types (patterns) of sen- 
tences at eight different levels of diffi- 
culty. (See Table 1 .) 

The levels of difficulty are possible 
because when a string is never defined, 
it will not cause an error when con- 
catenated in a longer string. The null 
string is ignored. This allows the pro- 
gram to "choose" which words it will 
or will not use by simply putting a 
number or a zero in the subscript. 

For example, AJ$(0) is null but 
AJ$(1) is "fat." Level 1 sentences use 
only the key words in the sentence pat- 
tern. The modifiers are left out by giv- 
ing them all zero subscripts. But level 3 
sentences have adjectives, adverbs, and 
prepositional phrases. 

To build a complex sentence (levels 
5-8), the program assembles a sentence 
(CSS), adds a subordinating conjunc- 
tion (see data line 21; I'm not going to 
explain subordinating conjunctions), 
calls it a dependent clause 
[DC$ = D$(D) + CS$], then passes 
through the building sequence again to 
create a main clause. This all starts in 
line 200, and the two clauses are con- 
catenated in line 501. 

Lines 504 to 515 keep the words 
from wrapping around the screen by 
breaking the sentence up into pieces 
that will fit on a line. It's messy, but it 
works. 

The sentence is first printed in the 
loop in line 518. It is printed on every 
other line to leave space for subroutine 
6000 (more on this later). 

The question-and-answer part of the 
program runs between 520 and 999. 
For each question, the question (Q$), 





String Variables 


AS 


Student's answer 


AA$() 


Correct answer statement 


AJ$(AJ) 


Adjective list 


Bl$, B2$ 


Graphics for eater's bottom half 


CAS 


Correct answer 


CSS 


Complete sentence or main clause 


CS$() 


Chunks of CSS less than 64 characters long 


D$(D) 


Subordinating conjunction list 


DCS 


Dependent clause 


Fl$( ), F2$( ) 


Graphics for word eater's mouth 


LVS(LV) 


Linking verb list 


NDS(ND) 


Noun determiner list 


NMES 


Student's name 


NOS(NO) 


Object noun list 


NSS 


Subject of current sentence 


NSS(NS) 


Subject noun list 


OS 


Used after INPUT 


P$ 


Predicate complement of current sentence 


PAS(PA) 


Predicate adjective list 


PHS(PH) 


Adjective phrase or clause 


PN$(PN) 


Predicate noun list 


PPS(PP) 


Prepositional phrase list 


Q$ 


Current question 


QCS 


Question clarifier 


QYNS 


Answer choices for yes/no type of questions 


S$() 


Stores names of students 


US, Z$, ZL$, ZR$ 


Graphics for worm 


V$ 


Verb of current sentence 


VIS(VI) 


Intransitive verb list 


VTS(VT) 


Transitive verb list 




Numerical Variables 


L 


Level 


LN 


LEN(CSS) 


LS 


Number of chunks CSS is broken into 


P 


Percent of right answers 


Q 


Question number 


R 


Number of questions right 


S 


Number of students who have used the computer 


SL() 


Stores student's level 


SP() 


Stores percent of right answers 


ST() 


Stores total (Tl) 


Tt 


Number of questions attempted 


TP() 


Stores total number of points (L x R) 


U 


PEEK variable 


W 


Timing loop 


M, N, X, Y 


Loop variables 




Table 2 



Program Listing 



r-ivgiurrt rioting 

I CLS:PRINT@215, "SENTENCE PATTERNS: n ;CHR$ (232) ; "AN INTERACTIVE L 
EARNING PROGRAM"; :PRINT@478, "BY" ; CHR$ ( 249) ; "GEORGE STONE" ;CHR$(2 
45) ;"MAY, 1982" 

8 CLEAR1200:RANDOM:T1=0:R=0:DIMNS$(15) :P0KE16396 ,165 

9 DATA" THE"," A" 

10 DATA " HORSE"," DOG"," HIPPO"," MONKEY"," FERRET"," MAN"," BO 
Y", n GIRL"," MOUSE"," TEACHER"," MYRA" , " HERMAN"," ALBERT"," GER 
ALDINE"," SUZYCREAMCHEESE" 

II DATA" BELCHED"," SAT"," LEANED"," RAN"," CRAWLED"," WALKED"," 
LOOKED"," SQUIRMED"," YAWNED"," DANCED" 

12 DATA n THREW"," ATE"," SAW"," SMELLED"," TRICKED" 

13 DATA " ROBOT"," MAN"," MOUSE"," RHINOCEROS"," FISH" 

14 DATA " FAT"," FOOLISH"," CURIOUS"," WEIRD"," CUTE", 
SMART"," LAZY"," SLEEPY"," BEAUTIFUL" 

.5 DATA " NEAR THE TREE"," OVER THE HILL", 

iMHCD T.TAnT"DH W /~VM rpUl? T MiTM " 



CRAZY" 



15 DATA " NEAR THE TREE"," OVER THE HILL"," ACROSS THE FIELD"," 
UNDER WATER"," ON THE LAWN" 

16 DATA ", TOO TIRED TO LAUGH,",", FEELING GAY,"," WHO DAVE LIKE 
D"," WHO JUST RETURNED FROM THE MOON",", HOPELESSLY CONFUSED," 

Listing continues 
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If you use a Word 
Processor, you need 

QRAMMATik 

Beyond Spelling Checking 

Grammatik can find over 15 
different kinds of common errors 
missed by simple spelling 
checkers alone, including 
punctuation and capitalization 
errors, overworked and wordy 
phrases, and many others. Use 
Grammatik with Aspen Software's 
spelling checker Proofreader, 
featuring the Random House 
Dictionary®, or with your current 
spelling checker for a complete 
document proofreading system. 

Read what the experts say: 

"The perfect complement to a 
spelling checker." 

Alan Miller. Interface Age. 5/82 

"A surprisingly fast and easy tool for 
analyzing writing style and 
punctuation." 

Bob Louden, InfoWorld, 12/81 

"Anyone involved with word 
processing in any way is encouraged 
to get this excellent program." 

A. A. Wicks, Computronics, 6/82 

"A dynamic tool for comprehensive 
editing beyond spelling corrections." 

Dona Z. Meilach, Interface Age, 5/82 

"A worthy and useful addition to your 
word processing software." 

Stephen Kimmel, Creative Computing, 6/82 

Works with CP/M®, 
IBM-PC®, TRS-80® 



Grammatik $75.00 
Proofreader $50.00 

Order directly from Aspen 
Software, or see your local dealer. 
Specify your computer system 
configuration when ordering! 
Visa, Mastercard accepted. 



Random House is a registered trademark of Random 
House, Inc. Other registered trademarks: CP/M: Digital 
Research -- TRS-80: Tandy Corp. -- IBM: IBM - 
Proofreader. Grammatik: Aspen Software Co. 



Aspen Software Co. 

P.O. Box 339 Tijeras, NM 87059 

(505) 281-1634 ^ 65 




Listing continued 

17 DATA " MERRILY"," FOOLISHLY" ," IMMEDIATELY" , " FINALLY"," LATE 
R"," SUDDENLY"," QUICKLY"," USUALLY" 

18 DATA" WAS"," BECAME"," IS"," WAS"," HADBEEN" , " LOOKED"," SEEM 
ED"," FELT"," BECAME"," WAS" 

19 DATA" JOCK"," LOUDMOUTH"," RATFINK"," FOOL"," CLOWN" 

20 DATA" GOOD"," BAD"," LONELY"," FINE"," NERVOUS"," HAPPY"," BL 
UE"," STINKY"," GAWKY"," BEAUTIFUL" 

21 DATA" IF"," WHEN"," SINCE"," AS"," BECAUSE"," SINCE"," WHILE" 
," ALTHOUGH"," BEFORE"," BECAUSE" 

50 Fl$(l)="" :F2$( 1)=CHR$( 190) +STRING$( 2,188) +STRING$( 2,176) +STRI 

NG$(2,128)+STRING$(2,176)+STRING$(2,188)+CHR$(189) 

55 F1$(2)=CHR$(176)+CHR$(180)+STRING$(6,128)+CHR$(184)+CHR$(176) 

:F2$(2)=CHR$(190)+STRING$(3,191)+CHR$(188)+CHR$(144)+CHR$(160)+C 

HR$(188)+STRING$(3,191)+CHR$(189) 

60 F1$(3)=CHR$(176)+CHR$(180)+STRING$(6,128)+CHR$(184)+CHR$(176) 

:F2$(3)=CHR$(190)+STRING$(3,191)+CHR$(188)+CHR$(144)+CHR$(160)+C 

HR$(188)+STRING$(3,191)+CHR$(189) 

65 F1$(4)=CHR$(176)+STRING$(2,188)+STRING$(4,191)+STRING$(2,188) 

+CHR$(176) :F2?(4)=CHR$(190)+STRING$(10,191)+CHR$(189) 

70 B1$=CHR$(17 5)+STRING$(9,191)+CHR$(188)+CHR$(159) :B2$=CHR$(128 

)+CHR$(131)+STRING$(2,143)+STRING$(4,191)+STRING$(2,143)+CHR$(13 

1)+CHR$(128) 

75 Z$=STRING$(7,176) : ZL$=CHR$(140) +CHR$(176) +CHR$ (158) +CHR$ (131) 
+CHR$(173)+CHR$(176)+CHR$(194) 

76 U$=CHR$(195)+CHR$(191)+CHR$(195) : ZR$=STRING$ ( 4,24) +CHR$ (199) + 
CHR$(176)+CHR$(158)+CHR$(131)+CHR$(173)+CHR$(176)+CHR$(140) 

79 F0RN=1T02:READND$(N) :NEXT 

80 FORN=lT015:READNS$(N) : NEXT 

81 FORN=1TO10:READVI$(N) :NEXT 

82 FORN=lT05:READVT$(N) :NEXT 

83 FORN=lT05:READNO$(N) :NEXT 

84 FORN=1TO10:READAJ$(N) :NEXT 

85 FORN=lT05:READPP$(N) :NEXT 

86 FORN=lT05:READPH$(N) :NEXT 

87 FORN=lT08:READAV$(N) :NEXT 

88 FORN=1TO10:READLV$(N) :NEXT 

89 FORN=lT05:READPN$(N) :NEXT 

90 FORN=1TO10:READPA$(N) :NEXT 

91 FORN=1TO10:READD$(N) :NEXT 

149 PRINTQ960, : FORN=lT09: PRINT : F0RW=1T07 : NEXT: NEXT 

150 CLS:PRINT@256,"(<ENTER> FOR SCORES) "; :PRINT@5 , "S E N T E N C 

E PATTERN PRACTIC E" : PRINT:NME$="" : INPUT"WHAT I 
S YOUR NAME";NME$ 

155 IFNME$=""THEN160ELSEFORN=lTOS:IFLEFT$(NME$,15)=S$(N)THEN170E 
LSENEXT:GOT0181 

160 CLS: PRINT" NAME" , "LEVEL" , "SCORE" , "TOTAL POINTS" :F0RN=1T0S:P 
RINTS$(N) ,SL(N) ,SP(N) ,TP(N) :NEXT 
165 PRINT@910,"HIT <ENTER>" : INPUTO$:GOTO150 

170 T1=ST(N) :L=SL(N) :R=INT(Tl*SP(N)/100) :PRINT"I REMEMBER YOU, " 
;NME$: PRINT: PRINT "DO YOU WANT YOUR OLD SCORE (Y/N) " ; :GOSUB1000 
:INPUTO$ 
175 IFO$="N"THENR=0:T1=0:GOTO186ELSECLS:GOTO200 

181 PRINT :PRINT"DO YOU WANT DIRECTIONS, ";NME$;", (YES/NO) ";:I 
NPUTO$:IFLEFT$(0$,l)="N"THEN186 

182 PRINT"DIRECTIONS: n : PRINT: PRINT" A SENTENCE WILL BE DISPL 
AYED AT THE TOP OF THE SCREEN. YOUR JOB, SHOULD YOU CHOOSE T 
ACCEPT IT, IS TO CORRECTLY ANSWERTHE QUESTIONS ABOUT THAT SENT 
ENCE." 

183 PRINT: PRINT" TO ANSWER A QUESTION, MOVE THE ARROW (";CHR 
$(91);") BACK AND FORTH USING THE RIGHT AND LEFT ARROW KEYS 
ON THE KEYBOARD" :PRINTTAB( 18) "THEN HIT <ENTER>" 

186 L=0:INPUT"WHAT LEVEL DO YOU WANT? (1-6) " ;L 

187 IF(L>6)+(L<1)THENCLS:PRINTCHR$(23) :PRINT"NO, NO, NO, YOU IDI 
OTIC IDIOT J! ": PRINT"**** A NUMBER BETWEEN 1 (ONE) AND 6 

( SIX) ": PRINT: PRINT"#%&' ($&()%$# 11 !$&%'&(&%) ■$$##": PRINT: GOTOl 86 
200 DC$="":D=RND(10) : AJ2=0:AJ=0 :PP=0 :PH=0 : AV=0 :CLS:PRINT"HOLD ON 

WHILE I THINK UP A GOOD ONE" 
205 ONLGOSUB23 0,225, 220, 215, 212, 211, 210, 209 :GOTO50 

209 GOSUB215:DC$=D$(D)+CS$:GOT0215 

210 GOSUB220:DC$=D$(D)+CS$:GOTO215 

211 GOSUB220:DC$=D$(D)+CS$:GOTO220 

212 GOSUB225:DC$=D$(D)+CS$:GOTO220 
215 PH=RND(5) 

220 PP=RND(5) :AJ2=RND(10) 

225 AJ=RND(10) :AV=RND(8) 

230 ND=RND(2) :DN=RND(2) :NS=RND(15) :VI=RND(10) :VT=RND(5) :NO=RND(5 

) :LV=RND(5) :PN=RND(5) :PA=RND(10) 

235 IFNS>10THENND=0:AJ=0 

269 T=RND(4) :IFT=3THENLV=LV+5 

270 ONTGOTO3 00,350,400,450 
300 REM *** S V- 

310 CS$=ND$(ND)+AJ$(AJ)+NS$(NS)+PH$(PH)+AV$(AV)+VI$(VI)+PP$(PP) 
315 NS$=MID$(NS$(NS) ,2) :V$=MID$(VI$ (VI) ,2) :P$="" :RETURN 
350 REM *** S — V — DO 

360 CS$=ND$(ND)+AJ$(AJ)+NS$(NS)+PH$(PH)+AV$(AV)+VT$(VT)+ND$(DN)+ 

Listing continues 
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Freedom Option 

CP/M Compatibility for your 
TRS-80 Model I and III, PMC 80 
and 81, and LNW 80 systems. 



CP/M Compatibility Plus 
64K RAM for your TRS-80 

Model t and III. 



TWO SYSTEMS JN ONE 

Run CP/M application 
programs in addition to 
TRSDOS 

INDUSTRY STANDARD 

Enter the world of powerful 
CP/M application programs 
WordStar, dBase II, etc. 

OPEN AND SHUT CASE 

EASY to install, plug-in 
boards; no wires or traces to 
cut; no soldering. 

TECHNICAL BACKGROUND 

Over 50 years of high 
technology experience. . .from 
Maxi's to Micro's. . .both 
Hardware and Software. 



FREEDOM OF CHOICE 

T8/OS (our powerful Z-80 
code operating system) and 
CP/M 2.2 if you choose. 

• Dealer Inquiries Invited 
•Six Month Warranty 
•30 Day Money Back 
Guarantee 

Freedom Option. . . . CALL $ 

Freedom Plus CALL $ 

Manual Only $25.00 

Call use for information about 
our large selection of CP/M 
application programs. 



Freedom Technology 
International 



To order call 

(215)569-2381 



TRS-80 is a registered trademark of 

Tandy Corp. 
LNW -80 is a registered trademark of 

LNW Research Corporation 
PMC 80, 81 is a registered trademark of 

Personal Microcomputer Inc. 
TRSDOS is a registered trademark of 

Tandy Corp. 
CP/M is a registered trademark of Digital 

Research Inc. 
WordStar is a registered trademark of 

MicroPro Int. Corp. 
dBase II is a registered trademark of 

Ashton-Tate 



^240 



119 North 18th Street, Philadelphia, PA 19103 



question clarifier (QC$, if there is one), 
correct answer (CAS), yes/no answer 
(QYN$, if there is one), and complete 
answer (AA$) are defined. Then the 
answer subroutine (3000) is called. 
Subroutine 4000 prints the sentence 
again, and the next set of questions is 
prepared for subroutine 3000. 

Five or six questions are asked about 
each sentence, thus getting the students 
to look at each part of the sentence. 
The whole point of this exercise is in 
the last question (line 900). Using the 
information the program has sug- 
gested about the sentence, the students 
have to decide what the sentence pat- 
tern is. 

The Subroutines 

Subroutine 3000 prints all the pre- 
vious correct answers, prints the cur- 
rent question, calls subroutine 6000 for 
the answer (A$), compares the answer 
with the correct answer, gives a prompt 
(QC$) if needed, and adds to the score 
if the answer is right. (Whew!) 

Subroutine 1000 prints the cumula- 
tive score and current level. 

Subroutine 1 100 keeps track of who 
has been using the computer and sorts 
the students according to their scores. 
A screen print of this information can 
be accessed from the beginning of the 
program (lines 155-160) when it asks 
for the next student's name. 

Subroutines 5000 and 5500 are 
graphics treats or tricks to relieve tedi- 
um and reinforce correct answers. 
They can be canceled by pressing the 
space bar. 

Now to explain subroutine 6000. 
The first version of this program had 
the students typing in the answers. But 
they spent most of their time hunting 
and pecking rather than thinking about 
subjects and verbs. Having them give 
the first letter didn't work because 
sometimes the wrong word had the 
same first letter as the right one. Sub- 
routine 6000 evolved after watching 
the advanced computer students design 
their own games. 

Line 6020 prints an up arrow under 
the sentence. Lines 6030-6060 let the 
students move the arrow back and 
forth using the right and left-arrow 
keys. When they've found an answer, 
they press enter, which causes the pro- 
gram to jump to line 6100. Lines 
6100-6180 PEEK the video memory 
locations above the arrow and then 
build an answer word (A$) based on 
the spaces between words. The for- 
mula in line 6180 resets the cursor to 
the space after the last question dis- 
played. 
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Listing continued ■ 

PA$ ( AJ2) +NO$ (NO) +PP$ (PP) 

365 NS$=MID$(NS$(NS) ,2) :V$=MID$ (VT$ (VT) ,2) :P$=MID$(NO$ (NO) ,2) :RE 

TURN 

400 REM ***S-LV-A 

410 CS$=ND$(ND)+AJ$(AJ)+NS$(NS)+PH$(PH)+LV$(LV)+PA$(PA)+PP$(PP) 

415 NS$=MID$(NS$(NS) ,2) :V$=MID$(LV$ (LV) ,2) :P$=MID$ (PA$ (PA) ,2) :RE 

TURN 

450 REM *** S — LV — N 

460 CS$=ND$(ND)+AJ$(AJ)+NS$(NS)+PH$(PH)+LV$(LV)+ND$(DN)+PA$(AJ2) 

+PN$(PN)+PP$(PP) 

470 NS$=MID$(NS$(NS) ,2) :V$=MID$ (LV$(LV) ,2) :P$=MID$(PN$ (PN) ,2) :RE 

TURN 

500 0=1: 

501 IFLEN(DC$) >0ANDRND(2) =1THENCS$=DC$+" , "+CS$+ " . "ELSECS$=CS$+DC 
$ + "." 

504 LN=LEN(CS$) : IFLN>191THEN200 

505 IFLN<64THENLS=1:CS$(1)=CS$:G0T0518 

508 LS=2:FORM=63TO50STEP-1:IFMID$(CS$,M,1)=" n THENCS$ (1) =LEFT$ (C 

S$,M) :CS$(2)=MID$(CS$,M+1) :GOTO510ELSENEXTM 

510 N=LN+1 : IFLN>M+63THENLS=3 :FORN=M+63TOM+50STEP-1 : IFMID$ (CS$ ,N, 

l)= n "THEN515ELSENEXTN 

515 CS$(2)=MID$(CS$,M,N-M) :CS$(3) =MID$(CS$,N) 

518 CLS:FORN=lTOLS:PRINTCS$(N) : PRINT: NEXT 

520 Q$=" WHAT IS THE SUBJECT OF THIS SENTENCE?" 

530 CA$=NS$:QC$= n WHO OR WHAT IS THIS SENTENCE ABOUT?" :AA$(1) =" 

THE SUBJECT IS '"+NS$+" in 

540 GOSUB3000:GOSUB4000 

600 CA$=V$:Q$= n WHAT IS THE VERB OF THIS SENTENCE?" :QC$=" WHI 

CH WORD SHOWS AN ACTION OR STATE OF BEING?" : AA$ ( 2) ="THE VERB IS 

1 "+V$+ n '" 

610 GOSUB3000 

620 GOSUB4000 

650 Q$=" WHAT TYPE OF VERB IS 

660 IFT<=2THENCA$="ACTION" : AR$="N' 

665 IFT>=3THENCA$="LINKING n :AR$= n ' 

670 AA$(3)= n,n +V$+ n ' IS A"+AR$+" ' 

680 GOSUB3000:GOSUB4000 

690 ONTGOTO700, 700,800, 800 

700 Q$=" IS THERE A DIRECT OBJECT? ":QYN$="YES NO" 

705 IFT=1 THENCA$="NO":AA$(Q)= n THERE IS NO DIRECT OBJECT" :GOSUB3 

000:GOSUB4000:GOTO750 

710 IFT=2THENCA$="YES n :AA$(Q)= n THERE IS A DIRECT OBJECT" 

720 GOSUB3000:GOSUB4000 

730 Q$="WHAT IS THE DIRECT OBJECT?" :QC$= "WHAT WORD IS GETTING TT 

HE ACTION OF THE VERB?" :CA$=P$: AA$ (Q) =P$+" IS THE DIRECT OBJECT" 

740 GOSUB3000:GOSUB4000 

750 GOTO900 

800 Q$="WHAT IS , "+NS$+ n ' BEING LINKED TO?":QC$="IN OTHER WORDS, 

THE "+NS$+ n "+V$+" WHAT?":CA$=P$:AA$(Q)=" ,n +P$+" ' IS THE SUBJEC 
T COMPLEMENT" 
810 GOSUB3000:GOSUB4000 

840 QYN$="NOUN ADJ":Q$="IS '"+?$+"' A NOUN OR AN ADJECTIVE?" 
850 IFT=4THENCA$="NOUN":AA$(Q)=" '"+P$+" ' IS A NOUN" 
860 IFT=3THENCA$="ADJECTIVE":AA$(Q)=" »"+P$+" ' IS AN ADJECTIVE" 
870 GOSUB3000:GOSUB4000 

900 Q$="LAST QUESTION WHAT IS THE SENTENCE PATTERN OF THIS 

SENTENCE? (l)S-V (2)S-V-DO (3) S-LV-ADJ (4) S-LV-NOUN 
PRESS A NUMBER" 
910 QC$= n " :ONTGOT0912,914,916,918 
912 CA$="1":AA$(Q)=" S-V":GOTO920 
914 CA$="2":AA$(Q)=" S-V-DO" :GOTO920 
916 CA$="3":AA$(Q)= n S-LV-ADJ" :GOTO920 
918 CA$="4":AA$(Q)="S-LV-NOUN":GOTO920 

920 AA$(Q)=AA$(Q)+" "+NS$+ n — "+V$+" — "+P$:PRINT@768, "" ; :GOSUB3 
000 

950 CLS:PRINT:PRINT:PRINT" YOUR SCORE SO FAR IS ";INT(R/T1*1 
00);"% ON LEVEL ";L:PRINT 
952 IF(L>1) *(R/TK.5)THENL=L-l:PRINT"YOU HAVE JUST MOVED DOWN TO 

LEVEL ";L; n THIS SHOULD BE EASIER" 

956 IF(L=8)*(R/T1>.95)THENCLS:FORN=1TO60:PRINT"1!WOWI I"; (R*100/T 
1 ) ; " % I 1 " ; : FORW=lT03 : NEXT : NEXT : CLS : PRINTCHR$ ( 23 ) : PRINT : PRINT : PRI 
NTR*100/Tl;"% ON LEVEL " ;L: PRINT: PRINT "NICE WORK, ";NME$: PRINT 
" I'M DONE WITH YOU " :FORW=1TO1500 :NEXT:0$="N" :GOTO970 

957 IF(L<8) * (R/T1>. 85 )THENL=L+1: PRINT" YOU HAVE JUST MOVED UP TO 
LEVEL ";L 

960 PRINT:INPUT "DO YOU WANT TO TRY ANOTHER ONE (Y/N)";0$ 
970 IFLEFT$(0$,l)="N"THENCLS:PRINT@278,"GOOD - BYE, " ;NME$; :PRIN 
T@406,"NEXT PERSON, PLEASE" :GOSUB1100 :R=0 :T1=0 :CLS:GOTO150 
992 GOTO200 

999 END 

1000 PRINT@370, "LEVEL " ;L; : PRINT@434 , "S CORE : " ; :PRINT@497 ,R 
;"OUT OF"; :PRINT@508,T1; 

1010 RETURN 

1100 S=S+1:NME$=LEFT$(NME$,15) :P=INT(R/T1*100) :TP=P*L: IFS>10THEN 

Listing continues 
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TRS-80 Disk 
& Other Mysteries 

by H.C. Pennington 

This book is the definitive 
authority on data recovery 
for the TRS-80 Model I disk 
system. In almost every case, 
lost data can be recovered 
and this book tells you how 
to do it. From clobbered dir- 
ectories to parity errors, this 
profusely illustrated data 
recovery cookbook includes 
examples and step-by-step 
instructions for both begin- 
ners and professionals. 
132 pages. $22.50 



Microsoft BASIC Decoded 
& Other Mysteries 

by James Farvour 

This book is the only one of 
its kind. You will learn how 
the TRS-80 Model I BASIC 
interpreter works from 
power- up to power-down. It 
has the complete disas- 
sembled Microsoft BASIC 
Level II interpreter with over 
1 3,000 lines of detailed com- 
ments in one volume. The 
math, arithmetic and utility 
routines are fully explained 
with examples on how to use 
them. An incredible learning 
aid for the beginner and a 
valuable reference for the 
professional. 
312 pages. $29.95 



The Custom TRS-80 
& Other Mysteries 

by Dennis Bathory Kitsz. 

A comlete hardware/soft- 
ware how-to-do-it like reverse 
video, high res graphics, aud- 
ible keystrokes, 8-track mass 
storage music synthesizer, 
and real time clock Dozens 
of project hints, tips, and fixes 
complete with the interface 
software. If you are a begin- 
ner, there are chapters on 
wire-wrap, soldering and con- 
struction methods. If you are 
a professional, there is a 
wealth of technical detail. 
332 pages. $29.95 



BASIC Faster and Better 
& Other Mysteries 

by Lewis Rosenfelder 

BASIC is not nearly as slow 
as you think! This book shows 
you how to make it faster and 
better with techniques and 
tricks that you neverdreamed 
of for Model I, II and III 
disk systems. You won't find 
trivial, poorly designed "check- 
book" programs here - only 
useful BASIC techniques 
and code ready for use in 
YOUR programs. Tutorial for 
the beginner, instructive for 
the advanced, and invaluable 
for the professional. All rou- 
tines are available on disk 

290 pages. $29.95 



Learn about your TRS-80 computer- it's as easy as 1-2-3-4. These books are easy to read and understand because they are 
written for you by people just like you. Here are answers and solutions without jargon. There are no end of chapter 'tests" - no 
incomprehensible math formulas- no textbook explanations- just straightforward, plain English. 

You will learn how to recover "lost data" on disk, how the BASIC interpreter works, how to make BASIC run faster and better, and 
how to modify and interface your TRS-80. In other words, you will learn how to make your computer do all the things you want it to 
do It's as easy as 1-2-3-4. 



Available at computer stores, B. Dalton Booksellers and independent book 
dealers. BASIC Faster and Better is also available at all RADIO SHACK Computer 
Centers and selected RADIO SHACK stores.(Cat. No. 62-1 002) If your dealer is out of 
stock, order direct. Include $4.00 for shipping and handling. Foreign residents add 

$1 1.00 plus purchase price, in U.S. funds. TRS-80 trademark TANDY Corp 




1953 West 
11th Street 
Upland, CA 
91786 



Subroutine 6500 is similar but it is 
used for yes and no questions. 

Letting students answer questions 
this way saves them time and ensures 
accurate spelling. It also gives them 
something to play with while they're 
debating about the right answer. 

Other Possibilities 

This is a flexible program; many 
parts can be changed without forcing 
you to rewrite other parts. 

For example, the word lists can be 
changed or made longer by changing 
the appropriate data, read, and RND( ) 
lines. If you want to play with the sen- 
tence generator, put a remark at the be- 
ginning of line 1 87 so you can choose any 
level, and add this line: 519 GOTO 186. 

Other types of sentence patterns can 
be added by changing line 270 and add- 
ing more lines similar to lines 350-365. 
These lines could be added anywhere 
since they end in a return. Of course, 
you would also have to change the last 
question (lines 900-918). 

The program can be modified to do 
other grammar exercises. For example, 
if you wanted to work on parts of 
speech, you would need to rewrite lines 
315, 365, 415, and 470 because the an- 
swers are pulled out of the sentences at 
this point. The lines that define the 
questions and answers (520-950) 
would also have to be changed so sub- 
routine 3000 would ask the right ques- 
tions and check the correct answers, 
but the rest of the program can be left 
intact. 

Drills on dependent clauses and sub- 
ordinating conjunctions would be even 
easier. I'll let you figure that one out. 

If your students get tired of the 
graphics, you could write your own in 
subroutines 5000 and 5500. You could 
even add a graphics game subroutine 
that could be called from around line 
960. Playing time could be based on a 
certain amount of achievement. 

Practical Suggestions 

I've found that the optimum time 
students work with this program is 15 to 
30 minutes per group in groups of two 
or three students. It works well to put 
high and low-ability students together 
in the same group. They need at least 
15 minutes to start working their way 
up through the levels, but unless they're 
really dedicated, they start playing 
with it after a half hour or so. ■ 



George Stone can be reached at 5089 
Deer Creek Lane, West Bend, WI 
53095. 



Listing continued 

S=10 

1110 FORN=1TOS:IFP<SP(N)THEN1130 

1120 FORY=S-lTONSTEP-l:S$(Y+l)=S$(Y) : SP ( Y+l) =SP (Y) :ST(Y+1) =ST(Y) 

:SL(Y+1)=SL(Y) :TP (Y+l) =TP(Y) :NEXT:S$(N) =NME$:SP(N) =P:ST(N) =Tl :SL 

(N)=L:TP(N)=TP:GOTO1160 

1130 NEXT 

1160 PRINT@916, "PRESS <ENTER> TO START" ;: INPUTO$: RETURN 

3000 REM *** CHECK ANSWER SUB 

3010 PRINT: PRINTCHR$( 94) ;Q; " ";Q$; :GOSUB1000:T1=T1+1 : IFLEN(QC$) 

>0THENGOSUB6000:PRINTA$:GOTO3030 

3020 IFLEN(QYN$) >0GOSUB6500 :GOTO3030 

3025 A$=INKEY$:IFA$=""THEN3025 

3026 IFVAL(A$) <10RVAL(A$) >4THEN3025ELSEPRINT@64 , STRING$ ( 4 ,153) ; 
3030 IFA$=CA$THENR=R+1:PRINT"RIGHT, ";NME$; n , ";:GOTO3060 

3035 IFLEN(QC$)=0THEN3050ELSEPRINT"WRONG, " ;QC$; :GOSUB6000 
3045 IFA$=CA$THENR=R+. 5: PRINT "RIGHT, ";NME$;", ";:GOTO3060 
3050 PRINT"WRONG, " ; AA$ (Q) ; :GOSUB1000:GOSUB5500:GOTO3065 
3060 PRINTAA$(Q) :GOSUB1000:GOSUB5000 
3065 QC$= n " 
3070 RETURN 

3999 END 

4000 REM*** GET READY FOR NEXTQUESTION 
4010 CLS 

4030 FORN=lTOLS:PRINTCS$(N) : PRINT: NEXT: FORN=lTOQ: PRINTN; " ";AA$ 

(N) :NEXT 

4050 Q=Q+1: RETURN 

5000 ONRND (6) GOT051 00,5100, 5200, 5100, 5300,53 00 

5099 REM *** PAC MAN EATS 

5100 FORN=1TO30:NEXT:X=RND(50) :FORN=76 8+XT06 4+XSTEP-64:FORX=lT04 
:PRINT@N-63,Fl$(X) ; : PRINT@N,F2$(X) ; :PRINT@N+64 ,B1$; :PRINT@N+128, 
B2$; :PRINT@N+192,STRING$(12,128) ; 

5110 FORW=RTOl5:IFPEEK (14400) =128THENRETURNELSENEXT:NEXT:NEXT:PR 
INT"BURP":FORW=1TO50: NEXT: RETURN 

5199 REM *** SNAKE *** 

5200 X=510:X1=511:X2=X1:X3=X2:X4=X3:Y1=448:Y=RND(60)+Y1 
5210 IFYl = k)THENY=-5 

5220 I=SGN(Y-X) 

5230 IFX<0THEN5240ELSEPRINT@X,"** n ; 

5240 IFX4<0THENRETURNELSEPRINT@X4," " ; :X4=X2:X2=X 

5250 IFX=Y0RX=Y+1THENX=X-64:Y1=Y1-64:Y=RND(35) +Y1:GOTO5210 

5260 X=X+I*2:IFPEEK(14400) =128THENRETURNELSEGOTO5230 

5299 REM *** WORM *** 

5300 X=4:Y1=4:Y=Y1+RND(56) 

5310 FORW=RTO25:IFPEEK(14400)=128THEN5350ELSENEXT:IFX>447THEN535 

0ELSEPRINT@X,Z$; : FORW=lT025:NEXT 

5320 IFX=YTHENPRINT@X,U$; :FORW=lT025:NEXT:Xl=X:X=X+64: IFX>447THE 

N53 50ELSEPRINT@X , U$ ; : F0RW=1T025 : NEXT : Yl=Yl+6 4 : Y=Yl+RND ( 56 ) : PRINT 

@X1,CHR$(200) ; :GOTO5310 

5330 IFX<YTHENPRINT@X,ZR$; :X=X+3 :GOTO5310 

5340 IFX>YTHENPRINT@X,ZL$; :X=X-2 :GOTO5310 

5350 PRINT"BYE-BYE":FORW=1TO50:RETURN 

5500 REM *** PAC-MAN DIES 

5505 CLS:FORN=1TO10:X=RND(640) :PRINT@X," NOWAY, ";NME$;" ";: 

NEXT:PRINT@724,AA$(Q) ; 

5510 N=768:F0RX=4T01STEP-1:PRINT@N-63,F1$(X) : PRINT@N,F2$(X) :PRIN 

T@N+64,B1$:PRINT@N+128,B2$:FORWAIT=1TO100:NEXT:NEXT:PRINT@705,ST 

RING$(11,128) :FORWAIT=1TO100:NEXT 

5520 FORN=1TO150 : X=RND ( 24) -1 : Y=RND ( 6 ) +3 8 : RESET (X , Y) : RESET ( X+l , Y) 

:IFPEEK(14400) =128THEN5800ELSENEXT 

5800 RETURN 

6000 REM *** MOVE ARROW *** 

6020 Y=65:X=65:PRINT@X,"["; 

6030 U=PEEK( 14400) : IFU=64THENX=X+1 :GOTO6040ELSEIFU=1THEN6100ELSE 

IFU=32THENX=X-1:GOTO6040ELSEIFU=16THENX=X+128:GOTO6 040ELSEGOTO60 
30 

6040 IFX<64THENX=64ELSEIFX>LS*128-64+LEN(CS$(LS))THENX=64ELSEIFX 

=128THENX=192ELSEIFX=191THENX=127ELSEIFX=256THENX=320ELSEIFX=319 

THENX=255ELSEIFX>383THENX=6 4 

6060 PRINT@Y," "; :PRINT@X," ["; :Y=X:GOTO6030 

6100 X=X+15360-64 

6110 X=X-1:U=PEEK(X) : IFU=32GOTO6150ELSEGOTO6110 

6150 A$="" 

6160 X=X+1:U=PEEK(X) : IFU=32GOTO6170ELSEA$=A$+CHR$(U) :GOTO6160 

6170 IFRIGHT$(A$,l)= n ,"ORRIGHT$(A$,l)="."THENA$=LEFT$(A$,LEN(A$) 

6180 PRINTA$;:X=64*(2*LS+Q+2) :PRINT@X, ""; :RETURN 

6500 REM *** YES & NO QUESTIONS *** 

6510 A$="":X=690:Y=697:PRINT@624,CHR$(166) ; :PRINT@6 88,CHR$ (153) ; 

:PRINT@626,QYN$; 

6520 U=PEEK (14400) : IFU=32THENX=690 : Y=697ELSEIFU=64THENX=697 :Y=69 

0ELSEIFU=1GOTO6550 

6530 PRINT@X,"[ n ; : PRINT @Y," " ; :GOTO6520 

6550 X=X-64+15360 

6555 U=PEEK(X) : IFU=32THEN6560ELSEA$=A$+CHR$ (U) :X=X+1 :GOT06555 

6560 IFA$="ADJ n THENA$="ADJECTIVE" 

6570 QYN$="":PRINT@64*(LS*2+Q+2) ,"" : RETURN 
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Give Your TRS-80 * a Tremendous Boost 
with RACET COMPUTES Software 

RACET computes Utility Software makes the TRS faster, more efficient, 
and easier to use. Our programming aids improve your productivity. 
Our reputation is for products that are professional in design and work 
as advertised!!! 

• NEW SPEED-UP KIT FOR TRSDOS • 
V2.0a & 2.0b MODEL 11 & 16 * $99.95 

This software 'fix' to TRSODS 2.0 is a MUST to users impatient with the speed of 
TRSDOS 2.0. Important features include: Boot speed improved by a factor of 2 
1/2 times. Time and Date need only be entered once at power on. Data reads up to 
five times faster than in standard configuration. The system runs faster then when 
verify detect feature has been turned off, but still retains the reliability of the verify 
detect function. 

Special Note for SCRIPSIT users — Scripsit turns off the verify detect feature. The 
Speed-Up Kit turns it back on at no ioss in disk I'O time. The Speed-Up Kit should 
dramatically reduce 'blown* directories and garfeie#':<3ata.:: '. :•%;;■ 

• SUPERZAP for CP/M-80 * $9M5 * 

You asked for it ! ! ! And now it'snere!!! Runs on any 0P/M : version 2,x system run- 
ning on a Z80 CPU and 8-ineh diskettes!!! Recover BfowflfFites? 1 Access.,: modify, 
copy, zero; and print- any sector on disk orinmeroeory--- m.Hex:or/4§CII. Full 
screen editor. Fife edit mode. 

•SUPERZAP tor TRSB08 11 for Mo&ls !j and 16 * $38.95 * 
Recover Blown Files!! Now you cart directly access;. modify, copy, zero, or print 
any sector on your diskette or Radio Shack Hard Drive. Also included in this pack- 
age is a SCAN utility to facilitate a disk search for a specified string. Doeu menta- 
tion includes a description of the TRSDOS : ti : direMory;Stfoe1;ure,' : • -.'./. 

* * Model 1 1 Fast Backup Utility * * $75 
5 TO 10 times faster backups!!! full disk/backup (including verify) in 
55 seconds!!! on two drive system-^ 2; :f& on single drive system. In 
business, time is money, and one BACKUP/iswortft 1000 tears! ! 

RACET computes .-.Utilities <8fc Programmer Aids 

Generalized Subroutine Facilities (GSF) Mod I $25, Mod III $30, 

Mod II $50 The STANDARD against wh icb ail other : : S6fis are compared! 

And then compare price" Multi-key mtilti-yariabie and multi-key 

character siring sorts. Includes zero artd-move arrays and sample 

programs. 

Basic Link Facility 'BUNK' Mod I and III $30 Mod II $50 

Link from one BASIC program to another saving all variables! The new program 

can be smaller or larger than the original program. The chained program may 

either replace the existing program, or can be merged by statement number. The 

statement number where execution is to start can be specified! 

Infinite BASIC Mod I $50, Mod III $60 Extends Level II BASIC with 
complete Matrix Functions and 50 more string functions. Includes 
RACET in-memory sorts!! Select only those functions you want to 
optimize memory. 

Infinite BUSINESS (Requires Infinite BASIC) Mod I and III $30 Complete 
printer pagination controls, hash codes, binary array search, and 
packed decimal arithmetic (127-digit accuracy). 
COMPROC Command Processor Mod I and Mod III $30 Auto your disk 
to perform any sequence of instructions that you can give from the 
keyboard!! Ideal for setting up dedicated applications. 
Disk Sort/Merge (DSM) Mod I $75, Mod III $90, Mod II $150 All 
machine language stand-alone Random file sort package. Establish sort 
specification in simple BASIC command file. Sorts multiple-diskette 
files. Only operator action is to switch diskettes when instructed. Super 
fast sort times - improved disk I/O makes this the fastest Disk Sort/ 
Merge available. 

KFS-80 Keyed File System Mod I and III $100, Mod II $175 Machine 
language BASIC ISAM utility provides keyed and sequential access to 
multiple files. Simple interface to BASIC. Binary tree index system 
provides rapid access to records. 

Utility Package Mod II $150 Recover blown diskettes. Includes 
Superzap, bulk copies, and other utilities for repair of blown diskettes. 
Complete documentation on diskette structure and guidance for repair. 
Other utilities include Dynamic DEBUG (with single-step, trace, sub- 
routine calling, program looping and more), XCR, DISKID, Directory 
Catalog System, XPURGE. 



Development Package Mod II $125 Includes RACET Superzap, 
Apparat Disassembler and Model II interface to Microsoft 'Editor 
Assembler + and documentation for Mod I and uploading service. 
Assemble directly into memory, MACRO facility, save all or portions of 
source to disk, extended editor commands. 

Basic Cross Reference Utility Mod II $50 SEEK and FIND functions for 
variable, line numbers, strings, keywords. 'All' options available for 
line number and variables. Load from BASIC - call with control 'R'. 
Output to screen or printer. 

FIELD PROVEN 

5 to 140 MEGABYTES On Line for the TRS-80* Model II 

Winchester and Cartridge Disk Drives available for immediate delivery! ! 
5 MEGABYTE Winchester Disk Drive - CALL for PRICING 

LOWEST PRICES AVAILABLE ANYWHERE!! 




14 + Megabyte (formatted) ARM Winchester Disk Drive $3595 

includes ECC error detection and correction FAST. Service Contract Available 
($30/month/drive) Multiplexor Available. 

20 Megabyte CM Honeywell Bull Cartridge Drive $7995 

10 Megabytes fixed, 10 removable for the professional installation 
requiring Removable Media BACKUP. 60 and 120 Megabyte add-on 
Winchester drives available. 

10 Megabyte Cameo - Western Dynex Cartridge Drive $5995 

5 Megabytes fixed, 5 removable for the smaller professional installation. 
Removable Media BACKUP. Multiplexor available for up to four users!! 

HARD /SOFT DISK SYSTEM (HSDS) SOFTWARE 

HSDS is available for the Radio Shack (2.0{A} compatible), Cameo, 
Cynthia Bull, ARM, Corvus, QCS, Data Peripherals, and Santa Clara 
Systems hard disk systems and others!!! 

Compatible with your Version 2.0(a) TRSDOS files. Compatible with 
your existing BASIC programs and files. Compatible with most machine 
language programs that use the standard calling sequence. You can 
access both your floppy disk drives and HSDS files interchangeably!! 
Complete utilities include HZAP (Hard Disk SUPERZAP), Directory 
Catalog System, Parameterized FORMAT, HPURGE (Bulk Copy/Purge 
Utility) and others. 

The Hard/Soft Disk System (HSDS) Software has more than One Year's 
FIELD Experience. The latest HSDS version adds several enhancements 
including maintenance of system files on the hard drive, files as large 
as the disk, the ability to segment the disk as logical drives, and defin- 
able directory size. Uses 3.2K memory. Mixed floppy and hard drive 
operation is supported. 

fj HSDS for Radio Shack $500 
i HSDS for Other Drives $400 

= F- RACET computes LTD-q 

= ^_ Integrity in Software «J 

1330 N. Glassell, Suite M, Orange, CA 92667 (714) 997-4950 

CALL FOR COMPETITIVE PRICING ON HARD DRIVE SUBSYSTEMS - 
BUY WHERE YOU CAN GET SOFTWARE SUPPORT!! 

CHECK, VISA, M/C. COD. ON CERTAIN HARDWARE 

TELEPHONE ORDERS ACCEPTED (714) 997-4950 

*TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORPORATION 

CP/M IS A TRADEMARK OF DIGITAL RESEARCH 

^41 CIRCLE READER RESPONSE FOR FREE CATALOG 
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LOAD 80 



Avoid the Dangers of 
Dirty Disks 



by Dave Grimes 



A 



clean disk drive runs best, but cleaning a 
disk drive is easier said than done. This 
program leads you by the hand through the job. 



After reading about the merits of 
disk system cleanliness, I decided to 
buy a disk drive head-cleaning kit. 

I bought the 3M 7440 kit for 
5!4-inch disk drives. This kit includes 
two 5 X A -inch cleaning disks, a four- 
ounce bottle of cleaning fluid, a spout 
for the cleaning fluid bottle, and an in- 
struction sheet. 

The instructions advise you to dis- 
pense cleaning fluid onto the provided 
disk and to insert the cleaning disk into 
a drive. You then activate the drive for 
approximately 30 seconds, remove the 
disk and write on the label that the disk 
has been used. After 15 uses, you 
discard the cleaning disk. 

I contemplated this for a while; how 
was I to turn on a particular disk drive 
for 30 seconds? For my 40-track 
drives, how would I know that after 15 
uses of the cleaning disk, I had used all 
40 tracks equally? The instruction 
sheet failed to address these questions. 

It seems to me that a 40-track disk 
drive should be able to use the cleaning 
disk 40 times if I could ensure that a 
new track were used each time. Also, it 



would be convenient to turn on a speci- 
fied disk drive for 30 seconds while the 
cleaning disk was in that drive. 

My program CLEANER/BAS 
makes all these things possible. It 
allows you to specify which drive to 
clean, the track to use on the cleaning 
disk, and keeps the specified disk-drive 
motor on for 30 seconds with the 
read/write head loaded. 

How to Use the Program 

After entering and verifying the pro- 
gram, run it. The screen shows a ban- 
ner, gives a brief description of its 
function, and asks which disk drive you 
want cleaned. Don't put the cleaning 
disk in any drive yet, just enter the re- 
quested drive number. Next, you're 
asked which track to use on the clean- 
ing disk. Enter a number from zero to 
the highest track number on your disk 
drive, less 1 (zero through 39 for a 
40-track drive). When you hit enter 
the disk drive steps to track zero, then 
out to the track you entered. The 
screen clears and a new screen requests 
that you prepare the cleaning disk for 



A 


Response for "Hit enter to continue" 


CH 


Track to seek on cleaning disk 


DD 


Input drive # 


DL 


Delay variable in For. . .Next loop 


DR 


Value to POKE to select drive 


EF 


Error flag. If zero when checked, no error 


Hl$ 


Screen heading line 


LD 


Delay variable in For. . .Next loop 


S 


Disk controller status byte 


TB 


Tab value to center heading on screen 




Table 1. List of variables 



use and insert it in the target drive. In- 
sert the cleaning disk and hit enter, 
and the target disk drive turns on for 30 
seconds. Next, a new screen appears 
informing you which disk drive you've 
cleaned, and which track was used on 
the cleaning disk. You're reminded to 
remove the cleaning disk so that in- 
advertently turning on the disk drive 
won't sweep the read/write head 
across tracks on the cleaning disk. 

The Program 

Lines 80-180 of the Program Listing 
do some housekeeping, and display in- 
structions on the screen. Lines 190, 
200, and 210 solicit the disk-drive num- 
ber (DD) and convert DD from 0, 1, 2, 
or 3 to 1, 2, 4, or 8 respectively. The 
converted number is stored in variable 
DL and is used to select the proper disk 
drive by POKEing DL into RAM loca- 
tion 14304. Line 220 asks which track 
number to use on the cleaning disk, 
and stores the track number in variable 
CH. Line 230 turns on (selects) the 
desired drive, and line 240 moves the 
read/ write head to track zero. 

Line 270 plugs in the track number 
that you want to use, and line 290 tells 
the disk controller to go to that track. 
Line 310 checks the track register to see 
if the desired track was located. 

After putting the cleaning disk in the 
targeted drive, as instructed by lines 
340 and 350, try to determine that the 
cleaning disk is actually in the target 
drive. The simplest way to do this, is to 
look for write protect in the disk con- 
troller status. The cleaning disks don't 



The Key Box 

Model I 
32KRAM 
Disk Basic 
1 Disk Drive 
Head-Cleaning Kit 
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have the notch cut out to allow at- 
tempts to write. Subroutine 540-590 
makes this check. Subroutine 500-530 
checks the status after all commands. 
If it is determined that a write-pro- 
tected disk is in the target drive, 
assume that the disk is the cleaning 
disk and turn on the drive for 30 
seconds with the head loaded against 
the disk. Lines 380-410 accomplish the 
30-second turn on with a delay loop 



that repeatedly selects the drive. If a 
drive isn't selected every two seconds 
or so, the drive shuts off. 

This program allows the TRS-80 
Model I disk user to control disk head 
cleaning efforts and keep his disk 
system clean. ■ 

Dave Grimes can be reached at 12949 
W. Montana Drive, Lakewood, CO 
80228. His hobbies include bicycling. 



10 REM 
20 REM 



HEAD CLEANING UTILITY AND CLEANING DISKETTE MANAGER 
DECEMBER 1981 



BY DAVE GRIMES 

12949 W. MONTANA DR. 
LAKEWOOD, CO 80228 



HEAD CLEANING DISKETT 



ON THE HEAD CL 



30 REM 

40 REM 

50 REM 

60 REM 

70 REM 

80 DEFINT A-Z 

90 Hl$= n DISKETTE HEAD CLEANING PROGRAM" 

100 TB=(64-(LEN(Hl$) ) )/2 :CLS 

110 PRINT TAB(TB) Hl$ :PRINT 

120 PRINT"THIS PROGRAM WILL MANAGE YOUR 

ES, BY" 

130 PRINT n ALLOWING YOU TO SPECIFY WHICH TRACK 

EANING" 

140 PRINT n DISKETTE YOU WISH TO USE EACH TIME." 

150 PRINT" IF YOU KEEP A RECORD OF WHICH UNUSED TRACK IS NEXT, Y 

OU CAN" 

160 PRINT"USE YOUR CLEANING DISKETTES 35, 40, 77, OR EVEN 80 

TIMES" 
170 PRINT" (DEPENDING ON YOUR DRIVES), AND USE A CLEAN AREA EACH 

TIME." 
180 PRINT 

190 INPUT"WHICH DISK DRIVE DO YOU WISH TO CLEAN ( ,1 ,2 , 3) " ;DD 
200 IF DD <> AND DD <> 1 AND DD <> 2 AND DD <> 3 THEN 190 
210 DR=INT(2[DD) 'NOTE EXPONENTIATION 

220 INPUT"WHAT IS THE NEXT CLEAN TRACK ON YOUR CLEANING DISKETTE 
";CH 

'SELECT DRIVE 

'RESTORE (TRACK 0) 

'CHECK STATUS 

'TURN ON DRIVE MOTOR 

'PLUG IN TRACK # 

•CHECK STATUS 

'SEEK TRACK 

'CHECK STATUS 
<> CH THEN PRINT" SEEK ERROR ON DRIVE" ;DD: END 
320 CLS :PRINT TAB(TB) Hl$ : PRINT 

330 PRINT"THE DISK DRIVE TO BE CLEANED WILL BE TURNED ON FOR 30 
SECONDS . " 

340 PRINT: PRINT"PUT THE CLEANING DISKETTE IN DRIVE" ;DD; "NOW AND 
HIT <ENTER>"; 
350 INPUT A 
360 GOSUB 540 



230 POKE 14304, DR 
240 POKE 14316,3 
250 GOSUB 500 
260 POKE 14304, DR 
270 POKE 14319, CH 
280 GOSUB 500 
290 POKE 14316,19 
300 GOSUB 500 
310 IF PEEK(14317) 



'LOOK FOR WRITE PROTECT 



370 IF EF=1 THEN PRINT"*** ERROR ***" :GOTO340 

380 FOR DL = 1 TO 85 

390 POKE 14304, DR 

400 FOR LD = 1 TO 100 

410 NEXT LD,DL 

420 CLS: PRINT TAB(TB) Hl$ : PRINT -.PRINT 

430 PRINT"DRIVE";DD; "CLEANED !": PRINT 

440 PRINT"PLEASE MAKE A NOTE THAT TRACK" ; CH; "OF THE HEAD CLEANIN 

G" 

450 PRINT"DISKETTE HAS BEEN USED AND SHOULD NOT BE USED AGAIN." 

460 PRINT 

470 PRINT"YOU SHOULD REMOVE THE HEAD CLEANING DISKETTE NOW." 

480 PRINT 

490 END 

500 S=PEEK(14316) 

510 IF S > 127 RETURN 

520 IF (S AND 1) <> GOTO 500 

530 RETURN 

540 POKE 14304, DR 

550 EF=1 

560 FOR LD = 1 TO 10 

570 IF PEEK(14316) > 63 THEN EF=0 : RETURN 

580 NEXT LD 

5 90 RETURN 

600 END 

Program Listing 



SELECT DRIVE 
SET ERROR FLAG 



P&T CP/M®2 is 
GROWING a 
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Start with a Model II floppy system and 
grow into a hard disk. Since all P&T 
CP/M 2 systems are fully compatible, 
you will have no conversion worries. 

Special note: P&T hard disk systems 
allow you the user to configure logical 
drive assignments toyourspecifications. 
Write for more details. 

Prepaid VISA. M/C, Or COD orders accepted. 
All prices FOB Goleta and subject to change. 
CP/M is a registered trademark of Digital 
Research TRS-80 is a trademark of Tandy Corp. 
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GOLETA, CA 93116 y T^XTvV 
(805) 685-4641 1 ROU 1 ® 
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BUSINESS 



Making Labels 



by William Nelson 



P 



roducing custom labels has never been easier. 
Written in Basic, this program can easily be 
modified to work with just about any printer. 



The program uses just over 4K mem- 
ory, and although written for disk, 
automatically switches to cassette mode 
if a disk controller is not present in your 
machine. 

The program demonstrates a wide 
range of Basic routines including screen 
formatting, string handling, elementary 
graphics, logic testing, and single- 
dimensional arrays. 

Program Description 

When creating a new label, the pro- 
gram asks for height and width of the 
label, or you can choose several stan- 
dard label sizes. Print spacing (char- 
acters per inch or cpi) is input and the 
program then draws a proportionally 
sized label on the screen. The maximum 
label size is limited by the size of the 
screen. The program contains many 
error-trapping routines. 



Once the label's dimensions are 
established, the text lines are whited out 
and you type in text as with a word pro- 
cessor. If your text exceeds the max- 
imum line length, the line is whited out 
again and you have to re-enter the text. 
When all lines are filled, you are asked 
if they are correct. If not, the editing 
module is accessed. Then the label can 
be printed or saved on disk or tape for 
future use. 

The program is menu driven with the 
following options: create new label, edit 
label, check printer format, load from 
disk or tape, save to disk or tape, print 
label, and end. 

The program was written for my 
Heath H-14 printer with its three print 
pitches (10, 12, and 16.5 cpi). It is easy 
to change the escape codes (decimal 27) 
in lines 710-750 to match your printer. 

The program begins by initializing 



Program Listing 

5 CLEAR 1000:C$=CHR$(176) : Z=0:P=10 :L=6 :N=1:ONERRORGOTO3000 

10 S=0:CLS 

20 PRINT@25, "LABEL PROCESSOR" ;: PRINT@91 , "Bill Nelson" ;: PRINT@153 

,"February, 1982"; 

30 PRINT@286,"MENU"; :PRINT@407,"1) CREATE NEW LABEL" ;: PRINT@471 , 

n 2) EDIT LABEL"; : PRINT@535 , "3) CHECK PRINT FORMAT" ;: PRINT@599 , "4 

) LOAD FROM DISK OR TAPE" ; : PRINT@663 , "5) SAVE TO DISK OR TAPE";: 

PRINT@727,"6) PRINT LABEL" ; :PRINT@791, "7) END"; 

40 PRINT@896,"MAKE SELECTION" ;: INPUT S 

50 IFS<10RS>7PRINT@896, "SELECTION OUT OF RANGE— TRY AGAIN! !!"; :F 

ORX=1TO1000:NEXT:PRINT@896 ,STRING$(36 , " ") ; :GOTO40 

60 ONSGOTO 100,340,400,500,600,700,70 

70 PRINT@896,STRING$(64," ") ; : PRINT@896 , "HAVE YOU SAVED YOUR DAT 

A"; :INPUTA$:IFLEFT$(A$,1) <>"Y"PRINT@896 ,STRING$ (64 , " ") ;:GOTO40 

80 PRINT@896, STRING? (64," " ) ; : PRINT@896 , "**END OF SESSION**" ; :FO 

R X=1TO2000:NEXT:CLS 

90 END 

100 S=0:CLS:PRINT@24, "CREATE NEW LABEL" ;: PRINT@155 , "LABEL SIZES" 

; :PRINT@215,"1) 1 x 3.5 inches" ;: PRINT@279, "2) 1.75 x 2.75 inche 

s"; :PRINT@343,"3) .75 x 2 inches" ; :PRINT@407 , "4) Other"; 

110 PRINT@576 , "MAKE SELECTION" ; : INPUTS: IFS<10RS>4PRINT@576 , "SELE 

Listing continues 



print size to 10 cpi and line spacing to six 
lines per inch. When using larger labels 
with more than 10 lines of text, change 
line 5 by adding the statement DIM 
T$(n), where n is the anticipated max- 
imum number of lines. Most labels are 
not that large. 

Because of the error-trapping rou- 
tines, the only error likely to occur is 
File Not Found during loading from 
disk. The ON ERROR GOTO state- 
ment allows the program to continue 
even if this happens by returning to the 
menu. If you suspect other errors are 
occurring, remove this statement to re- 
trieve Basic error codes. 

The menu display and selection is 
handled by lines 30-60. Normal pro- 
gram exit is at lines 70-90. Each item in 
the menu is programmed in its own 
module and these are accessed with the 
statement in line 60. 

Create New Label 

Starting at line 100, a new menu is 
displayed allowing you to choose sev- 
eral standard label sizes or to enter the 
dimensions of any label desired. The 
program branches to the Format sub- 
routine (lines 410-460) where variables 
are input for the number of lines per 
inch (L) and print pitch (P), which are 
necessary to calculate the proportions 
for the graphics label drawn on the 
screen. There is a branch at this point to 
the subroutine at line 160 to enter the 
height (H) and width (W) of the label. 
From these variables, the program cal- 
culates the maximum line length (ML) 
and the number of lines per label (NL) 



The Key Box 
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16K RAM 

Disk Drives optional 

Printer 
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Listing continued 

CTION OUT OF RANGE — TRY AGAIN! !"; :FORX=1TO1000 :NEXT: PRINT@576 , ST 
RING$(36," ");:GOTO110 
120 IFS=1H=1:W=3.5:GOTO170 
130 IFS=2H=1.75:W=2.75:GOTO170 
140 IFS=3H=.75:W=2:GOTO170 

150 PRINT@704, "ENTER DIMENSIONS OF LABEL" ;: PRINT@847 , "HEIGHT" ;: I 
NPUTH : PRINT @867 , "WIDTH " ; : INPUTW : GOT017 

160 ML=INT(W*P)-1:NL=INT(H*L) :XS=6 2-ML :XF=2*ML+XS+5 : IYS=5 : YS=IYS 
: YF=3+3* ( NL+1 ) : ICP=128+ ( 6 4-ML) /2 : CP=ICP : RETURN 

170 GOSUB410:IFNL>10ORML>56PRINT@704,STRING$(25," ") ; :PRINT@847, 
STRING$(28," ") ; : PRINT@704 , "LABEL TO LARGE FOR SCREEN — SELECT SM 
ALLER SIZE"; : FORX=1TO2000 :NEXT:PRINT@704 ,STRING$ ( 46 , " ") :GOTO100 

200 CLS:GOSUB 1000 

210 FOR J=l TO NL 

220 FOR X=XSTOXF:SET(X,YS+l) :SET(X f YS+2) :SET(X,YS+3) :NEXT 

230 T$(J)=" n :PRINT@CP-4,USING"##";J; : PRINT@CP,C$; 

240 A$=INKEY$:IFA$=""THEN240ELSEIFA$=CHR$(8)PRINTA$; :GOSUB2000: 

IFBS<1GOTO220ELSEGOTO240ELSET$(J)=T$(J)+A$:IFLEN(T$(J) ) >ML,T$(J) 

= "":GOTO220ELSEIFA$OCHR$(13) PRINTA$; :GOTO240 

250 IFZGOTO280 

260 YS=YS+3:CP=CP+64 

27 NEXT J 

280 Z=l:CP=ICP+64*NL 

290 PRINT@CP+64,"DO YOU WISH TO CHANGE ANY LINES? (Y/N)"; 

300 INPUTA$:IFLEFT$(A$,1) <>"Y",340 

310 PRINT@CP+56,STRING$(52," ") 

320 PRINT@CP+64, "ENTER LINE NUMBER TO CHANGE" ;: INPUTJ 

325 IFJ>NLORJ<lPRINT@CP+128 , STRING$ ( 30 , 32) ; : PRINT @CP+128 , "SELECT 

ION OUT OF RANGE—TRY AGAIN! !!";: FORX=1TO1000 :NEXT: PRINT@CP+128 , 

STRING$(36,32) ; .-GOTO320 

330 YS=IYS+3*(J-1) :CP=ICP+64*(J-1) :GOTO220 

340 CLS:Z=0 

350 CP=ICP 

360 FORJ=lTONL 

365 PRINT@CP-4,USING"##";J; 

370 PRINT@CP," ";T$(J) 

380 CP=CP+64 

390 NEXT J 

395 GOSUB 1000 

398 PRINT@CP+64,"DO YOU WISH TO EDIT LABEL ( Y/N) " ; : INPUTA$ : IFLEF 

T$(A$,1)="Y",Z=1:CP=CP+1:GOTO310ELSEGOTO10 

400 GOSUB410:GOTO10 

410 CLS:PRINT@29, "FORMAT" ; :PRINT@158, "CURRENT NEW";:PRI 

NT@261, "PITCH (10,12,16.5 CPI) ";: PRINT@325 , "LINES PER INCH (6,8) 

n ;:PRINT@389,"N0. LABELS TO BE PRINTED" ; : PRINT@290 ,P; :PRINT@302, 

CHR$(32) ; : INPUTP 

412 IFPO10ANDPO12ANDPO16.5GOTO410 

415 PRINT@302,STRING$(7,32) ; :PRINT@303 ,USING"## . # " ;P 

420 PRINT@325, "LINES PER INCH (6 ,8) " ; : PRINT@355 ,L; :PRINT@366 ,CHR 

$(32) ; :INPUTL 

423 IFLO6ANDLO8GOTO420 

425 PRINT@367,STRING$(5,32) ; :PRINT@367,L 

430 PRINT@389,"NO. LABELS TO BE PRINTED" ;: PRINT@419 ,N; : PRINT@430 

,CHR§(32) ; :INPUTN 

433 N=INT(N) 

434 IFN<1PRINT@389,STRING$(50,32) ; : PRINT@389 , "MUST BE GREATER TH 
AN ZERO"; : FORX=1TO1000 :NEXT: PRINTQ389 , STRING$ ( 25 , 3 2) ; :GOTO430 

435 PRINT@433,STRING$(9,32) ; :PRINT@43 , USING" ###" ;N 
440 PRINT@709,"ANY CHANGES (Y/N) " ; : INPUTA$ 

450 IFLEFT$(A$,1) <>"N"GOTO410 

460 GOSUB160: RETURN 

500 T=INP(240) :IFT=255GOTO1400 

505 CLS:PRINT"LOADING FROM DISK" ;: PRINT@768 , "FILESPEC" ;: INPUTFS$ 

510 IFLEN(FS$) >8PRINT@768,STRING$(30,32) ; : PRINT@768, "FILESPEC TO 

LONG — TRY AGAIN !!";: FORX=1TO1000 :NEXT:GOTO500 

520 OPEN "I",1,FS$ 

530 INPUT#1,P,L,H,W,NL,CP,N 

540 FORJ=lTONL 

550 LINEINPUT#1,T$(J) 

560 NEXT 

570 CLOSE 

580 GOSUB160:GOTO340 

600 T=INP(240) :IFT=255GOTO1400 

605 CLS:PRINT"SAVING TO DISK" ;: PRINT@768 , "FILESPEC ";:INPUTFS$ 

610 IFLEN(FS$) >10PRINT@768,STRING$(30,32) ; :PRINT@768 , "FILESPEC T 

00 LONG — TRY AGAIN! !"; :FOR X=1TO1000 :NEXT:GOTO600 

620 0PEN"0",1,FS$ 

630 PRINT#1,P;L;H;W;NL;CP;N 

640 FOR J=1T0NL 

650 PRINT#1,T$(J) 

660 NEXTJ 

670 CLOSE 

6 80 GOTO10 

700 ST%=PEEK(14312)AND240:IFST%O48PRINT@960, "PRINTER NOT READY" 

; :FORX=1TO1000:NEXT:GOTO10ELSEGOSUB410 

710 IFP=10,D=1ELSEIFP=12,D=20ELSEIFP=16.5,D=40 

Listing continues 



as well as the X and Y axes, starting and 
finishing points, with the label centered 
at the top of the screen. The program 
then returns to the Create module. 

The subroutine at lines 1000-1020 
provides the graphics algorithm to draw 
the label outline on the screen. The loop 
from lines 210-270 prints a white bar 
across the current line and waits for text 
to be input via the INKEY statement at 
line 240. At this point the program 
checks for the left arrow, CHR$(8), and 
adjusts the line length count according- 
ly. To prevent the possibility of back- 
spacing farther than the left margin, the 
program restarts the entire line when the 
first space is reached. 

Edit Module 

When all text lines are filled you have 
the option to edit any lines. If so, the 
program jumps back to the appropriate 
text line by filling in the array subscript 
for T$(J) and proceeds as before at line 
220. The For . . . Next loop is bypassed 
at this point through the use of the log- 
ical true/false test at line 250. The vari- 
able Z is originally set to zero (logical 
false) for normal loop input. When in 
the present edit mode, Z is changed to 
one (logical true) in line 280. 

After editing, the finished label is 
printed on the screen and you have one 
more chance to change it. You can ac- 
cess the Edit module (Tines 310-398) 
from the main menu at any time. If no 
further editing is required, the program 
returns to the menu. 

Format Module 

The format module sets printer pa- 
rameters for the Heath H-14 and asks 
for the number of identical labels to be 
printed. Modify lines 410^423 for dif- 
ferent printers. The Print Using state- 
ment is used to provide uniform columns 
on the display. The Format module is 
accessed automatically during the Cre- 
ate module as previously explained, but 
can also be changed prior to printing. 

Load and Save Modules 

You can save text and format param- 
eters to disk or tape for future use. The 
Model Ill's disk controller presence is 
tested through its input port in lines 500 
and 600. If the port's status is 255 deci- 
mal, there is no disk controller present 
and the program branches to the cas- 
sette load or save routine. 

Model I users must PEEK memory to 
use this technique, or use only the I/O 
routine appropriate for your system 
when typing in the program. Cassette 
users cannot use commas within the text 
as they are not accepted by the cassette 
80 Micro, Anniversary 1983 • 241 



Listing continued 

720 OUT 251,27 :OUT 251 ,117 :OUT251 ,D 

730 IF L=6,D=120 

740 IF L=8,D=121 

750 OUT 251,27:OUT 251, D 

760 CLS:PRINT@256,"DO YOU WISH A TEST LABEL" :: INPUTAS: IFLEFTS (AS 

,l)O"Y n GOTO820 ^f\n 9 

770 FORJ=lTONL 

780 LPRINT-TEST LINE" ; J:OUT251 ,10 

800 NEXTJ 

805 IFH=1.75,OUT251,10:OUT251,10 

810 GOTO760 

820 FORX=lTON 

830 FORJ=lTONL 

835 V=LEN(T$(J)) :FORQ=lTOV: IFMID$(T$( J) ,Q,1) =CHR$ (13) THENMID$ (T$ 

(J) ,Q,1)=CHR$(32) :NEXT 

840 LPRINTT$(J) ; :OUT 251,10 

850 NEXTJ 

855 IFH=1.75,OUT251,10:OUT251,10 

86 NEXTX 

87 GOTO10 

1000 FOR X=XSTOXF:SET(X,IYS) :SET(X,YF) :NEXT 

1010 FOR Y=IYSTOYF:SET(XS,Y) :SET(XS+1,Y) :SET(XF-1,Y) :SET(XF,Y) :N 

EXT 

1020 RETURN 

1400 CLS:PRINT"LOADING DATA FROM TAPE" ; : PRINT@768, "READY CASSETT 

E PLAYER — PRESS <ENTER> WHEN READY" ; : INPUTA$ 

1410 INPUT#-1,P,L,H,W,NL,CP,N 

1420 FORJ=lTONL 

1430 INPUT#-1,T$(J) 

1440 NEXT 

1450 GOSUB 160:GOTO340 

1500 CLS: PRINT "SAVING DATA ON TAPE" ;: PRINT @7 6 8, "READY CASSETTE P 

LAYER — PRESS <ENTER> WHEN READY" ;: INPUTA$ 

1510 PRINT#-1,P,L,H,W,NL,CP,N 

1520 FOR J=1T0NL 

1530 PRINT#-1,T$(J) 

1540 NEXTJ 

1550 GOTO10 

2000 BS=LEN(T$(J) )-l:IFBS>0THENT$(J)=LEFT$(T$(J) ,BS) :RETURNELSER 

ETURN 

3000 CLS:PRINT"NO LABEL EXISTS YET";:FOR X=1TO2000 :NEXT:GOTO10 



input routine. Disk users are not 
bothered by this because of the Disk 
Basic Line Input statement in line 550. 

Printer Routine 

The program checks for printer- 
ready status in line 700. The routine was 
taken directly from the Model III man- 
ual. Escape codes in lines 710-750 
change the print size or line spacing in 
the Heath H-14. Since the printer driver 
in the Model III is ported rather than 
memory mapped, I use the port state- 
ment OUT 251,n to send these codes as 
well as line feeds after each line of print. 
Model I users should use the statement, 
LPRINT CHR$(n) instead. 

You can print a test label to ensure 
they are correct before multiple print- 
ing. To print lines of text, the program 
at line 835 first searches the text string 
and changes any carriage returns (dec- 
imal 13) to spaces (decimal 32). This 
way the printer inserts line feeds only at 
the necessary times. Consequently, it 
makes no difference whether the printer 
has an automatic line feed with each 
carriage return. ■ 

William Nelson may be reached at 
1354 Hackett Street, Beloit, W 1 53511. 




Thousands of our controllers have been installed and the user satisfaction has been 
tremendous. Those who have compared the rest say that ours is the best. 

Kit includes controller board, mounting brackets, cables, power supply for 2 internal drives, and illustrated instruc- 
tions. This controller has been tested for compatibility with most major operating systems including TRSDOS, LDOS, 
NEWDOS/80, DOSPLUS, and MULTIDOS. The controller supports any mix of 5 'A" drives including single or 
double density, single or double sided, 35, 44, 77 or 80 track drives. 



JHD-III Winchesters for TRS 80 Model III 

5 Mbyte formatted — $1,795 10 Mbyte formatted — $1,995 



These drives plug into the 50 pin I/O expansion port. System includes host adaptor, cables, fan cooled cabinet. 
Controller features 1 1 bit error detection and correction, automatic track remapping and variable sector interleaving. 
An LDOS compatible driver is included with the kit for those who already own LDOS. 

TERMS: Cashier's Check or COD. Personal Checks take 3-4 weeks to clear. 



To order call (505) 265-5072 
or send order to: 




J&M Systems, Ltd. 



137 Utah N.E., 
Albuquerque, NM 87108 



TRADEMARK CREDITS: 

TRSDOS is a Trademark of Tandy Corporation. 

LDOS is a Trademark of Logical Systems. Inc. 



NEWDOS is a Trademark of Apparat. Inc. 

DOSPLUS is a Trademark of Micro-Systems Software, Inc. 

MULTIDOS is a Trademark of Cosmopolitan Electronics Corporation. 



^101 



Dealer inquiries invited 
Call for the name of dealer nearest you. 
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Circle 29 on Reader Service card. 
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Two-Person Space Bomber 



by Dale Chermak 



Do you tire of single-player games? 
Do you wish you could challenge a 
friend to a two-player game? 

In Space Bomber, one player defends 
a planet from bombs dropped by the 
other. The screen is divided in half by 
two barriers that move in opposite di- 
rections. At the bottom of the screen is 
the planet's defense base. It is dotted 
with eight ammo cells and a moving nu- 



In Space Bomber, one 
player defends his 
planet from bombs being 
dropped by his opponent. 



Lines Function 

100-440 Initialization 

450-500 Data storage area. 

510-570 Subroutines to check if defending ship is at edge of screen. 

580-1190 Data for base. 

1200-1310 Data for bomber. 

1320-1350 Data for defending ship. 

1360-1470 Data for bomber explosion. 

1480-1520 Data for ammo cell explosion. 

1530-1570 Data to clear ammo cell after explosion. 

1580-1710 Data for messages. 

1720-1780 Subroutine to print the data in HL at the screen position in IX. 

1 790- 1 840 Subroutine to print barrier. 

1850-2080 Subroutine to move the barriers. 

2090-2140 Subroutine to print the defending ship. 

2150-2490 Subroutine to move the bomber one space right, keep it on the second line, and 
wrap around if necessary. 

2500-2620 Subroutine to move nuclear reactor one space right and wrap around if necessary . 

2630-2680 Subroutine to clear screen. 

2690-2740 Subroutine to compare HL to DE. 

2750-2790 Delay subroutine. 

2800-2890 Move barriers and check defending player's keys. Then check for bombing 
player's keys, move bomber, and do again. 

2900-2960 Move defending ship one space right if ship not on edge and print it. 

2970-3040 Move defending ship one space left if ship not on edge and print it. 

3050-3280 Defending ship fire subroutine. 

3290-3450 Print explosion and messages. 

3460-3550 See if players want to play again. 

3560-3620 Reset ammo count, bomber fire position, and restart. 

3630-3760 See if bomber has already fired. If not then check bombing player's keys. 

3770-3820 Subroutine to move bomber two spaces. 

3830-3990 Check bomber movement keys. If neither hit then move bomber one space. Move 
nuclear reactor. 

4000-4210 Bomber bombing subroutine. 

4220-5040 Check bomb position for missile, barrier, ammo cell, nuclear reactor, and defend- 
ing ship. 

Table I. Program Flow 



clear reactor. 

The planet is protected by a defend- 
ing ship that fires missiles. However, 
the ship must be stationary while firing, 
and this makes it an easy target. The 
ship also defends the ammo cells and 
the reactor. 

The bomber is a constant threat to 
the planet. It can move at three speeds, 
and it drops bombs that punch holes in 
the barriers. The bomber's objective is 
to destroy either the defending ship, 
the nuclear reactor, or all of the 
ammo cells. 

Game Controls 

The bomber is controlled by three 
keys: The A key moves the bomber two 
spaces at a time, the S key moves it three 
spaces at a time, and the D key drops 
bombs. Bombs can be dropped while 
the bomber is moving. 

The defending ship is also controlled 
by three keys. Pressing the left arrow 
moves the defending ship to the left, 
while using the right arrow moves it to 
the right. Press enter to fire a missile. 

Game Modification 

The game can be modified to give 
handicaps to better players. If you don't 
want the defending ship's missiles to 
break through the barrier, delete line 
3160. Deleting lines 4230-4270 prevents 
the bomb from destroying the missile 
when they are at the same screen posi- 
tion. Also, Model III owners might 



The Key Box 

Model I 

16K RAM 

Cassette or Disk Basic 

Editor/Assembler 
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"The bomber is a 
constant threat to the planet. " 



want to change the bombs and missiles 
to characters other than the down and 
up arrows. The bomb is used in line 
4100, and the missile is used in lines 



3180, 4040, and 4230. 

The Program 

Space bomber is written in machine 



language for fast graphic displays. I use 
my own subroutines for clearing the 
screen, delaying, and comparing the 
HL register to the DE register. You may 
want to use ROM calls to save memory. 
Table 1 explains how the program 
runs. I 

Dale Chermak is in the 11th grade. 
He lives at 18855 Kin brace St., 
Northridge, CA 91326. 









Pro gran 


Lis! trig 








6400 


00100 


ORG 


6400H 


648C B7 


00820 


DEFB 


183 


6400 CD1E68 


00110 START 


CALL 


RCLS 


648D BB 


00830 


DEFB 


187 


6403 DD21D73D 


00120 


LD 


IX, 15831 


648E B0 


00840 


DEFB 


176 


6407 21F566 


00130 


LD 


HL,STMS 


648F B0 


00850 


DEFB 


176 


640A CD4B67 


00140 


CALL 


PFOS 


6490 BE 


00860 


DEFB 


190 


640D 3E02 


00150 


LD 


A, 2 


6491 BF 


00870 


DEFB 


191 


640F F5 


00160 DDA 


PUSH 


AF 


6492 00 


00880 


DEFB 





6410 010000 


00170 


LD 


BC,0 


6493 BF 


00890 BASE2 


DEFB 


191 


6413 CD3268 


00180 


CALL 


DELAY 


6494 BD 


00900 


DEFB 


189 


6416 Fl 


00190 


POP 


AF 


6495 B0 


00910 


DEFB 


176 


6417 3D 


00200 


DEC 


A 


6496 B0 


00920 


DEFB 


176 


6418 C20F64 


00210 


JP 


NZ,DDA 


6497 B7 


00930 


DEFB 


183 


641B CD1E68 


00220 


CALL 


RCLS 


6498 BB 


00940 


DEFB 


187 


641E DD21C03F 


00230 


LD 


IX, 16320 


6499 B0 


00950 


DEFB 


176 


6422 217464 


00240 


LD 


HL,BASE1 


649A B0 


00960 


DEFB 


176 


6425 CD4B67 


00250 


CALL 


PFOS 


649B B0 


00970 


DEFB 


176 


6428 110400 


00260 


LD 


DE,4 


649C B7 


00980 


DEFB 


183 


642B DD19 


00270 


ADD 


IX, DE 


649D BB 


00990 


DEFB 


187 


642D 219364 


00280 


LD 


HL,BASE2 


649E B0 


01000 


DEFB 


176 


6430 CD4B67 


00290 


CALL 


PFOS 


649F B0 


01010 


DEFB 


176 


6433 DD21C03D 


00300 


LD 


IX, 15808 


64A0 B0 


01020 


DEFB 


176 


6437 CD5867 


00310 


CALL 


FLI 


64A1 B7 


01030 


DEFB 


183 


643A DD21003E 


00320 


LD 


IX, 15872 


64A2 BB 


01040 


DEFB 


187 


643E CD5867 


00330 


CALL 


FLI 


64A3 B0 


01050 


DEFB 


176 


6441 219F3F 


00340 


LD 


HL, 16287 


64A4 B0 


01060 


DEFB 


176 


6444 225C64 


00350 


LD 


(DSP) ,HL 


64A5 B0 


01070 


DEFB 


176 


6447 21403C 


00360 


LD 


HL, 15424 


64A6 B7 


01080 


DEFB 


183 


644A 225E64 


00370 


LD 


(BSP) ,HL 


64A7 BB 


01090 


DEFB 


187 


644D CDA467 


00380 


CALL 


PDS 


64A8 B0 


01100 


DEFB 


176 


6450 08 


00390 


EX 


AF,AF' 


64A9 B0 


01110 


DEFB 


176 


6451 D9 


00400 


EXX 




64AA B0 


01120 


DEFB 


176 


6452 21DE3F 


00410 


LD 


HL, 16350 


64AB BF 


01130 


DEFB 


191 


6455 08 


00420 


EX 


AF,AF' 


64AC BF 


01140 


DEFB 


191 


6456 D9 


00430 


EXX 




64AD BF 


01150 


DEFB 


191 


6457 C33968 


00440 


JP 


INLP 


64AE BF 


01160 


DEFB 


191 


645A 00 


00450 FPOL1 


DEFB 





64AF BF 


01170 


DEFB 


191 


645B 00 


00460 FPOL2 


DEFB 





64B0 BF 


01180 


DEFB 


191 


0002 


00470 DSP 


DEFS 


2 


64B1 00 


01190 


DEFB 





0002 


00480 BSP 


DEFS 


2 


64B2 B0 


01200 BMBR 


DEFB 


176 


0002 


00490 BFP 


DEFS 


2 


64B3 B0 


01210 


DEFB 


176 


6462 08 


00500 ACL 


DEFB 


8 


64B4 9B 


01220 


DEFB 


155 


6463 11BD3F 


00510 CRS 


LD 


DE, 16317 


64B5 8C 


01230 


DEFB 


140 


6466 CD2C68 


00520 CHTD 


CALL 


HLDE 


64B6 B3 


01240 


DEFB 


179 


6469 C0 


00530 


RET 


NZ 


6 4B7 BF 


01250 


DEFB 


191 


646A C34E68 


00540 


JP 


CBMB 


64B8 B3 


01260 


DEFB 


17 9 


646D C9 


00550 


RET 




64B9 8C 


01270 


DEFB 


140 


646E 11803F 


00560 CLS 


LD 


DE, 16256 


64BA A7 


01280 


DEFB 


167 


6471 C36664 


00570 


JP 


CHTD 


64BB B0 


01290 


DEFB 


176 


6474 BF 


00580 BASE1 


DEFB 


191 


64BC B0 


01300 


DEFB 


176 


6475 BF 


00590 


DEFB 


191 


64BD 00 


01310 


DEFB 





6476 BF 


00600 


DEFB 


191 


64BE B4 


01320 DFDS 


DEFB 


180 


6477 BF 


00610 


DEFB 


191 


64BF 8F 


01330 


DEFB 


143 


6478 BF 


00620 


DEFB 


191 


64C0 B8 


01340 


DEFB 


184 


6479 BF 


00630 


DEFB 


191 


64C1 00 


01350 


DEFB 





647A B0 


00640 


DEFB 


176 


64C2 B8 


01360 EXPB 


DEFB 


184 


647B B0 


00650 


DEFB 


176 


64C3 AC 


01370 


DEFB 


172 


647C B0 


00660 


DEFB 


176 


64C4 89 


01380 


DEFB 


137 


647D B7 


00670 


DEFB 


183 


64C5 B2 


01390 


DEFB 


178 


647E BB 


00680 


DEFB 


187 


64C6 9E 


01400 


DEFB 


158 


647F B0 


00690 


DEFB 


176 


64C7 BA 


01410 


DEFB 


186 


6480 B0 


00700 


DEFB 


176 


64C8 B2 


01420 


DEFB 


178 


6481 B0 


00710 


DEFB 


176 


64C9 9A 


01430 


DEFB 


154 


6482 B7 


00720 


DEFB 


183 


64CA A7 


01440 


DEFB 


167 


6483 BB 


00730 


DEFB 


187 


64CB 8E 


01450 


DEFB 


142 


6484 B0 


00740 


DEFB 


176 


64CC AC 


01460 


DEFB 


172 


6485 B0 


00750 


DEFB 


176 


64CD 00 


01470 


DEFB 





6486 B0 


00760 


DEFB 


176 


64CE BC 


01480 EX2 


DEFB 


188 


6487 B7 


00770 


DEFB 


183 


64CF BF 


01490 


DEFB 


191 


6488 BB 


007 80 


DEFB 


187 


64D0 BF 


01500 


DEFB 


191 


6489 B0 


00790 


DEFB 


176 


64D1 BC 


01510 


DEFB 


188 


648A B0 


00800 


DEFB 


176 


64D2 00 


01520 


DEFB 





648B B0 


00810 


DEFB 


176 








Listing continues 
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HUMBUG! 

(to high prices) 

TRS 80™' Model III 48 K 
2 Disk Drive 

[J\ Tandon drives SS/DD 

\y\ Astec Power Supply 

[v\ 40/80 track support on 
controller board 

[7] TRS DOS 

[^ 120 day warranty 

$1695 complete 

*Trade Mark Tandy Corp. 



ASHLAND COMPUTER 

1716 Wilshire Blvd. 

Ashland, KY 41101 

(606) 325-2210 

Call 10-6 M-F 



NEW1 From QSC . . . 



RIVET RACE 



The latest arcade craze now runs, 
on your TRS-80*. Ladders and 
elevators take you from level to 
level in this fast action machine 
language game. RIVET RACE is 
Alpha Joystick** compatible. 

For TRS-80*, Models I & HI 




esammm 
dtHEHDQ 



MINDWARP 



An educational game that improves 
your memory skills. 

32k Tape $14.95 

32k Disk $18.95 

Mo. Res. Add 4.625% Sales Tax 

— Dealer Inquiries Invited — 

QUALITY SOFTWARE AND 
CONSULTING, INC. ^ 34 

P. O. Box 11355 

Kansas City, Missouri 64112 

(816) 765-4297 

*TRS-80 Trademark Tandy Corp. 
♦♦Trademark Alpha Products 
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64D3 


B0 


01530 


CEX2 


DEFB 


176 


64D4 


B0 


01540 




DEFB 


176 


64D5 


B0 


01550 




DEFB 


176 


64D6 


B0 


01560 




DEFB 


176 


64D7 


00 


01570 




DEFB 





64D8 


44 


01580 


BLSM 


DEFM 


'DEFENDING PLAYER WINS !!!!! 








PLAY 


AGAIN <ENTER> — > <^- ' 


6532 


00 


01590 




DEFB 





6533 


42 


01600 


DLSM 


DEFM 


'BOMBING PLAYER WINS !!!!! 








PLAY 


AGAIN <ENTER> — > < — ■ 


658D 


00 


01610 




DEFB 





658E 


57 


01620 


DSHB 


DEFM 


'WAY TO GO DEFENDING SHIP. YOU 








WASTED THE BOMBER III!!' 


65E5 


00 


01630 




DEFB 





65E6 


57 


01640 


DAAC 


DEFM 


■WAY TO GO BOMBER. YOU WASTED 








ALL 


OF THE AMMO CELLS ! I !! I ! ' 


6642 


00 


01650 




DEFB 





6643 


57 


01660 


YHDS 


DEFM 


'WAY TO GO BOMBER. YOU WASTED 








THE 


DEFENDING 


SHIP IIIII ' 


669B 


00 


01670 




DEFB 





669C 


57 


01680 


YHNR 


DEFM 


■WAY TO GO BOMBER. YOU WASTED 








THE 


NUCLEAR REACTOR ! ! ! I ' 


66F4 


00 


01690 




DEFB 





66F5 


2A 


01700 


STMS 


DEFM 


'** SPACE BOMBER ** 






** 


BY DALE A. CHERMAK ** ' 


67 4A 


00 


01710 




DEFB 





674B 


7E 


01720 


PFOS 


LD 


A,(HL) 


674C 


FE00 


01730 




CP 





674E 


C8 


01740 




RET 


Z 


674F 


DD7700 


01750 




LD 


(IX) ,A 


6752 


DD23 


01760 




INC 


IX 


6754 


23 


01770 




INC 


HL 


6755 


C34B67 


01780 




JP 


PFOS 


6758 


0640 


01790 


FLI 


LD 


B,64 


675A 


DD3600BC 


01800 


FLIA 


LD 


(IX) ,188 


675E 


DD23 


01810 




INC 


IX 


6760 


05 


01820 




DEC 


B 


6761 


C25A67 


01830 




JP 


NZ f FLIA 


6764 


C9 


01840 




RET 




6765 


DD21C03D 


01850 


USB 


LD 


IX, 15808 


6769 


DD7E00 


01860 




LD 


A, (IX) 


676C 


325A64 


01870 




LD 


(FPOL1) ,A 


676F 


DD7E7F 


01880 




LD 


A,(IX+127) 


6772 


325B64 


01890 




LD 


(FPOL2) ,A 


6775 


0E3F 


01900 




LD 


C63 


6777 


DD23 


01910 


DUSB 


INC 


IX 


6779 


DD7E00 


01920 




LD 


A, (IX) 


677C 


DD77FF 


01930 




LD 


(IX+255),A ;READ +255 AS -1 


677F 


0D 


01940 




DEC 


C 


6780 


C27767 


01950 




JP 


NZ,DUSB 


6783 


3A5A6 4 


01960 




LD 


A,(FPOLl) 


6786 


DD7700 


01970 




LD 


(IX), A 


6789 


DD21403E 


01980 




LD 


IX, 15936 


678D 


0E3F 


01990 




LD 


C,63 


678F 


DD2B 


02000 


DUSC 


DEC 


IX 


6791 


DD7EFF 


02010 




LD 


A,(IX+255) ;READ +255 AS -1 


6794 


DD7700 


02020 




LD 


(IX), A 


6797 


0D 


02030 




DEC 


C 


6798 


C28F67 


02040 




JP 


NZ,DUSC 


679B 


3A5B64 


02050 




LD 


A, (FPOL2) 


679E 


DD2B 


02060 




DEC 


IX 


67A0 


DD7700 


02070 




LD 


(IX) ,A 


67A3 


C9 


02080 




RET 




67A4 


2A5C64 


02090 


PDS 


LD 


HL, (DSP) 


67A7 


E5 


02100 




PUSH 


HL 


67A8 


DDE1 


02110 




POP 


IX 


67AA 


21BE64 


02120 




LD 


HL,DFDS 


67AD 


CD4B67 


02130 




CALL 


PFOS 


67B0 


C9 


02140 




RET 




67B1 


2A5E64 


02150 


MBR 


LD 


HL, (BSP) 


67B4 


3620 


02160 




LD 


(HL) ,32 


67B6 


23 


02170 




INC 


HL 


67B7 


11763C 


02180 




LD 


DE, 15478 


67BA 


CD2C6 8 


02190 




CALL 


HLDE 


67BD 


DAE667 


02200 




JP 


CPBS 


67C0 


11803C 


02210 




LD 


DE, 15488 


67C3 


CD2C68 


02220 




CALL 


HLDE 


67C6 


CAF367 


02230 




JP 


Z,MUOL 


67C9 


DD21B264 


02240 




LD 


IX,BMBR 


67CD 


DD7E00 


02250 


DIA 


LD 


A, (IX) 


67D0 


FE00 


02260 




CP 





67D2 


CAFD67 


02270 




JP 


Z,SBP 


67D5 


77 


02280 




LD 


(HL) ,A 


67D6 


23 


02290 




INC 


HL 


67D7 


DD23 


02300 




INC 


IX 


67D9 


CD2C6 8 


02310 




CALL 


HLDE 


67DC 


DACD67 


02320 




JP 


C,DIA 


67DF 


01C0FF 


02330 




LD 


BC,-64 


67E2 


09 


02340 




ADD 


HL,BC 


67E3 


C3CD67 


02350 




JP 


DIA 
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67E6 


225E64 


02360 


PBS 


LD 


(BSP) ,HL 


67E9 


E5 


02370 




PUSH 


HL 


67EA 


DDE1 


02380 




POP 


IX 


67EC 


21B264 


02390 




LD 


HL,BMBR 


67EF 


CD4B67 


02400 




CALL 


PFOS 


67F2 


C9 


02410 




RET 




67F3 


01C0FF 


02420 


MUOL 


LD 


BC-64 


67F6 


09 


02430 




ADD 


HL f BC 


67F7 


225E64 


02440 




LD 


(BSP) ,HL 


67FA 


C3E667 


02450 




JP 


PBS 


67FD 


2A5E64 


02460 


SBP 


LD 


HL, (BSP) 


6800 


23 


02470 




INC 


HL 


6801 


225E64 


02480 




LD 


(BSP) ,HL 


6804 


C9 


02490 




RET 




6805 


08 


02500 


UNR 


EX 


AF,AF' 


6806 


D9 


02510 




EXX 




6807 


3620 


02520 




LD 


(HL) ,32 


6809 


11E13F 


02530 




LD 


DE f 16353 


680C 


CD2C68 


02540 




CALL 


HLDE 


680F 


CA1868 


02550 




JP 


Z,GNRP 


6812 


23 


02560 




INC 


HL 


6813 


368C 


02570 


PR 


LD 


(HL) ,140 


6815 


08 


02580 




EX 


AF,AF' 


6816 


D9 


02590 




EXX 




6817 


C9 


02600 




RET 




6818 


21DE3F 


02610 


GNRP 


LD 


HL,16350 


681B 


C31368 


02620 




JP 


PR 


681E 


21003C 


02630 


RCLS 


LD 


HL, 15360 


6821 


3620 


02640 




LD 


(HL) ,32 


6823 


11013C 


02650 




LD 


DE, 15361 


6826 


01FF03 


02660 




LD 


BC,1023 


6829 


EDB0 


02670 




LDIR 




682B 


C9 


02680 




RET 




682C 


7C 


02690 


HLDE 


LD 


A,H 


682D 


BA 


02700 




CP 


D 


682E 


C0 


02710 




RET 


NZ 


6 82F 


7D 


02720 




LD 


A,L 


6830 


BB 


02730 




CP 


E 


6831 


C9 


02740 




RET 




6832 


0B 


02750 


DELAY 


DEC 


BC 


6833 


78 


02760 




LD 


A,B 


6834 


Bl 


02770 




OR 


C 


6835 


C23268 


02780 




JP 


NZ, DELAY 


6838 


C9 


027 90 




RET 




6839 


CD6567 


02800 


INLP 


CALL 


USB 


683C 


3A4038 


02810 




LD 


A,(3840H) 


683F 


FE01 


02820 




CP 


1 


6841 


CA796 8 


02830 




JP 


Z,EWH 


6844 


FE20 


02840 




CP 


32 


6846 


CA6668 


02850 




JP 


Z,LAH 


6849 


FE40 


02860 




CP 


64 


684B 


CA5468 


02870 




JP 


Z,RAH 


684E 


CD1B6 9 


02880 


CBMB 


CALL 


OTLP 


6851 


C33968 


02890 




JP 


INLP 


6854 


2A5C64 


02900 


RAH 


LD 


HL, (DSP) 


6857 


CD6364 


02910 




CALL 


CRS 


685A 


3620 


02920 




LD 


(HL) ,32 


685C 


23 


02930 




INC 


HL 


685D 


225C64 


02940 


SIT 


LD 


(DSP) ,HL 


6860 


CDA467 


02950 




CALL 


PDS 


6863 


C34E68 


02960 




JP 


CBMB 


6866 


2A5C64 


02970 


LAH 


LD 


HL,(DSP) 


6869 


CD6E64 


02980 




CALL 


CLS 


686C 


110200 


02990 




LD 


DE,2 


686F 


19 


03000 




ADD 


HL,DE 


6870 


3620 


03010 




LD 


(HL),32 


6872 


11FDFF 


03020 




LD 


DE,-3 


6875 


19 


03030 




ADD 


HL,DE 


6876 


C35D68 


03040 




JP 


SIT 


6 87 9 


2A5C64 


03050 


EWH 


LD 


HL,(DSP) 


687C 


11C1FF 


03060 




LD 


DE,-63 


687F 


19 


03070 




ADD 


HL,DE 


6880 


E5 


03080 




PUSH 


HL 


6881 


FDEl 


03090 




POP 


IY 


6883 


060D 


03100 




LD 


B,13 


6885 


FD7E00 


03110 


LOOP 


LD 


A,(IY) 


6888 


FE20 


03120 




CP 


32 


688A 


CA996 8 


03130 




JP 


Z,BLNK 


688D 


FEBC 


03140 




CP 


188 


688F 


C2B568 


03150 




JP 


NZ,HITB 


6892 


FD360020 


03160 




LD 


(IY),32 


6896 


C34E68 


03170 




JP 


CBMB 


6899 


FD36005B 


03180 


BLNK 


LD 


(IY) ,91 


689D 


C5 


03190 




PUSH 


BC 


689E 


CD1B6 9 


03200 




CALL 


OTLP 


68A1 


CI 


03210 




POP 


BC 


68A2 


FD360020 


03220 




LD 


(IY),32 


68A6 


11C0FF 


03230 




LD 


DE,-64 


68A9 


FD19 


03240 




ADD 


IY,DE 


6 8AB 


05 


03250 




DEC 


B 

Listing continues 




Ready to Run Software 

from Canadian Computer Services. 

Data Management Systems - Including the Data! 

RETRIEVAL SYSTEM 80 

Instantaneous access to all of the articles and 
programs in the magazine for TRS-80" users': 

Fast Random Access Retrieval 

Super Fast Z80* Index Search and Scan 

Index Search by One to Three Criteria Keys 

Key Reference Help Page. Hardcopy and Sound 

Easy to Use Single Entry Menu Commands 

ARCHIVE RETRIEVAL SYSTEM 

Create and maintain your own magazine archives 
with all of the above great features, plus: 

User Defined Search Keys 

Z80 Data Entry and Edit Routines 

Super Fast In-Memory Key File Sorting 

600/1200 Model l/lll Records Per Data Disk 

READY TO RUN DATA DISKS 

No Typing Necessary 

1980, 1981 and NEW 1982 80 micro* Data Disks 

Covers Every Article and Program Published 

General and Programmers' Archives Disks 

For Use with Both of the Above Programs 



Retrieval System 80 

Archive Retrieval System 
General Data 80, 81 & 82 
Program Data 80, 81 & 82 



S29.95 

$44.95 

each $29.95 
each $29.95 



For 48K 2 Disk TRS-80 Model I and III Computers 

Mail Orders Rainbow Software Services Ltd. 

7070B Farrell Road Southeast 
Calgary. AB., T2H 0T2 Canada 

Card Orders Action Line 1 (403) 253-6142 

Dealer, distributor and club inquiries welcomed 



•sSee List of Advertisers on Page 563 
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NO BREAKS 



SLAVE DRIVER© KEEPS YOUR PRINTER WORKING 
WHILE YOU AND YOUR COMPUTER DO MORE 
IMPORTANT JOBS . . . 



SLAVE, 



COMPUTERS ARE FAST . . . PRINTERS ARE SLOW. That's a 
problem more people are realizing every day as they wait for 
the slow printer to finish before they can use the fast 
computer again. Technology has come to the rescue by 
designing an electronic device that takes the output of the 
fast computer fast and feeds it to the slow printer slowly, as 
the printer needs it. It's called a printer buffer. 

SLAVE DRIVER© is an inexpensive, universal printer buffer. 
It can be used with all popular micro-computers that have a 
Centronics parallel port to the printer. SLAVE DRIVER© 
receives information from the computer at up to 4000 
characters per second and holds it until your printer can 
handle it. Your SLAVE DRIVER© is controlled by a custom LSI 
and uses standard Centronics signals. 

60 SECOND INSTALLATION 

SLAVE DRIVER© is designed to be plugged directly into the 
input port of the Epson and other similar printers. It is 
powered by the printer or an AC adapter. Other Centronics 
compatible printers can be attached using the adapter cable. 
Installation can be completed in less than 60 seconds. Just 
plug it in. SLAVE DRIVER© takes up little space; about the 
size of a paper back book. Such a little fellow for such a big 
job! 

EASY USE AND FLEXIBILITY 

SLAVE DRIVER© is completely transparent to the user, no 
machine language programming to learn, no control codes 
to send, no programs to change. The buffer-full light and the 
reset switch give full flexibility of operation. List your 
program to SLAVE DRIVER©, return to programming while 
the listing prints. Dump a line of data to SLAVE DRIVER© and 
compute the next record while the data prints. Send 
complete reports to SLAVE DRIVER©, make disc back-ups, 
even turn off the computer and go home. SLAVE DRIVER© 
oversees the printer until all the work is done. 

JUDGE FOR YOURSELF 

Each SLAVE DRIVER© comes complete with interface cable, 
power supply, instruction manual, 30-day money-back 
guarantee and limited one year warranty. To order send 
your check or money order to the address below : $189.95 for 
the expandable 8K model (holds approximately a 4-page 
letter); $289.95 for the 64K model (holds a 32-page double- 
spaced report). Please include $3.50 for shipping. Visa and 
MasterCard users may phone 703/228-5800 to hasten your 
order. (VA residents please add 4% sales tax) 

IN STOCK AND AVAILABLE NOW 
FREEDOM MICRO-SYSTEMS -aeo 

Wytheville, VA 24382 



Star Route 5 * 

703/228-5800 



MosterCord ; 



OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
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Listing continued 








6 8AC 


CA396 8 


03260 


JP 


Z,INLP 


6 8AF 


CD6567 


03270 


CALL 


USB 


68B2 


C38568 


03280 


JP 


LOOP 


68B5 


2A5E64 


03290 HITB 


LD 


HL, (BSP) 


68B8 


E5 


03300 


PUSH 


HL 


68B9 


DDE1 


03310 


POP 


IX 


68BB 


21C264 


03320 


LD 


HL,EXPB 


6 8BE 


CD4B67 


03330 


CALL 


PFOS 


6 8C1 


010000 


03340 


LD 


BC,0 


6 8C4 


CD326 8 


03350 


CALL 


DELAY 


6 8C7 


CD1E68 


03360 


CALL 


RCLS 


6 8CA 


218E65 


03370 


LD 


HL,DSHB 


6 8CD 


DD21533D 


03380 


LD 


IX, 15699 


6 8D1 


CD4B67 


03390 


CALL 


PFOS 


6 8D4 


010000 


03400 


LD 


BC,0 


68D7 


CD3268 


03410 


CALL 


DELAY 


68DA 


21D864 


03420 


LD 


HL,BLSM 


68DD 


DD21D33D 


0343 PMAC 


LD 


IX, 15827 


68E1 


CD4B67 


03440 


CALL 


PFOS 


68E4 


DD21293E 


03450 


LD 


IX, 15913 


68E8 


DD360058 


03460 KLP 


LD 


(IX) ,88 


68EC 


3A4038 


03470 


LD 


A,(3840H) 


6 8EF 


FE01 


03480 


CP 


1 


68F1 


CA0769 


03490 


JP 


Z,FXV 


68F4 


01C409 


03500 


LD 


BC,2500 


6 8F7 


CD326 8 


03510 


CALL 


DELAY 


6 8FA 


DD36002A 


03520 


LD 


(IX) ,42 


6 8FE 


01C409 


03530 


LD 


BC,2500 


6901 


CD326 8 


03540 


CALL 


DELAY 


6904 


C3E868 


03550 


JP 


KLP 


6907 


3E08 


03560 FXV 


LD 


A, 8 


6909 


326264 


03570 


LD 


(ACL) ,A 


690C 


210000 


03580 


LD 


HL,0 


690F 


226064 


03590 


LD 


(BFP) ,HL 


6912 


010000 


03600 


LD 


BC,0 


6915 


CD326 8 


03610 


CALL 


DELAY 


6918 


C30064 


03620 


JP 


START 


691B 


2A6064 


03630 OTLP 


LD 


HL, (BFP) 


691E 


7D 


03640 


LD 


A,L 


691F 


FE00 


03650 


CP 





6921 


C2A469 


03660 


JP 


NZ,BHF 


6924 


3A0138 


03670 


LD 


A,(3801H) 


6927 


FE10 


03680 


CP 


16 


6929 


CA8069 


03690 


JP 


Z,DKH 


692C 


FE12 


03700 


CP 


18 


692E 


CA8069 


03710 


JP 


Z,DKH 


6931 


3A0138 


03720 0TLP1 


LD 


A,(3801H) 


6934 


FE02 


03730 


CP 


2 


6936 


CA3E69 


03740 


JP 


Z,MB2 


6939 


FE12 


03750 


CP 


18 


693B 


C25069 


03760 


JP 


NZ,NEX 


693E 


CDB167 


03770 MB2 


CALL 


MBR 


6941 


01C409 


03780 


LD 


BC,2500 


6944 


CD326 8 


03790 


CALL 


DELAY 


6947 


CDB167 


03800 


CALL 


MBR 


6 94A 


01C409 


03810 


LD 


BC,2500 


694D 


C37969 


03820 


JP 


JBTI 


6950 


3A0438 


03830 NEX 


LD 


A, (3804H) 


6953 


FE08 


03840 


CP 


8 


6955 


C27369 


03850 


JP 


NZ,NEX1 


6958 


CDB167 


03860 


CALL 


MBR 


695B 


017206 


03870 


LD 


BC,1650 


695E 


CD3268 


03880 


CALL 


DELAY 


6961 


CDB167 


03890 


CALL 


MBR 


6964 


017206 


03900 


LD 


BC,1650 


6967 


CD3268 


03910 


CALL 


DELAY 


696A 


CDB167 


03920 


CALL 


MBR 


696D 


017206 


03930 


LD 


BC,1650 


6970 


C37969 


03940 


JP 


JBTI 


6973 


CDB167 


03950 NEX1 


CALL 


MBR 


6976 


018813 


03960 


LD 


BC,5000 


6979 


CD326 8 


03970 JBTI 


CALL 


DELAY 


697C 


CD0568 


03980 


CALL 


UNR 


697F 


C9 


03990 


RET 




6980 


2A5E6 4 


04000 DKH 


LD 


HL, (BSP) 


6983 


114500 


04010 


LD 


DE,6 9 


6986 


19 


04020 


ADD 


HL,DE 


6987 


7E 


04030 


LD 


A, (HL) 


6988 


FE5B 


04040 


CP 


91 


698A 


C29769 


04050 


JP 


NZ , PYB 


698D 


FD360020 


04060 YHEM 


LD 


(IY) ,32 


6991 


CD3169 


04070 


CALL 


0TLP1 


6994 


C33968 


04080 


JP 


INLP 


6997 


226064 


04090 PYB 


LD 


(BFP) ,HL 


699A 


365C 


04100 


LD 


(HL) ,92 


699C 


E5 


04110 


PUSH 


HL 


699D 


CD3169 


04120 


CALL 


OTLP1 


69A0 


El 


04130 


POP 


HL 


69A1 


3620 


04140 


LD 


(HL) ,32 
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69A3 C9 


04150 


RET 




69A4 2A6064 


04160 BHF 


LD 


HL f (BFP) 


69A7 114000 


04170 


LD 


DE,64 


69AA 19 


04180 


ADD 


HL,DE 


6 9AB 11FF3F 


04190 


LD 


DE, 16383 


69AE CD2C68 


04200 


CALL 


HLDE 


69B1 D2CF69 


04210 


JP 


NCCFAR 


69B4 7E 


04220 


LD 


A,(HL) 


69B5 FE5B 


04230 


CP 


91 


69B7 C2C369 


04240 


JP 


NZ,OKKT 


69BA 210000 


04250 


LD 


HL,0 


69BD 226064 


04260 


LD 


(BFP) ,HL 


6 9C0 C38D69 


04270 


JP 


YHEM 


69C3 FE20 


04280 OKKT 


CP 


32 


69C5 CA9769 


04290 


JP 


Z f PYB 


6 9C8 FEBC 


04300 


CP 


188 


69CA C2D869 


04310 


JP 


NZ f OKKTl 


69CD 3620 


04320 


LD 


(HL) ,32 


69CF 210000 


04330 CFAR 


LD 


HL,0 


69D2 226064 


04340 


LD 


(BFP) ,HL 


69D5 C33169 


04350 


JP 


OTLP1 


69D8 FEB7 


04360 OKKT1 


CP 


183 


69DA C2076A 


04370 


JP 


NZ,OKKT2 


69DD 2B 


043 80 PEX2 


DEC 


HL 


69DE E5 


04390 


PUSH 


HL 


69DF DDE1 


04400 


POP 


IX 


69E1 21CE64 


04410 


LD 


HL,EX2 


69E4 CD4B67 


04420 


CALL 


PFOS 


69E7 01C409 


04430 


LD 


BC,2500 


69EA CD3268 


04440 


CALL 


DELAY 


69ED 11FCFF 


04450 


LD 


DE,-4 


6 9F0 DD19 


04460 


ADD 


IX,DE 


69F2 21D364 


04470 


LD 


HL,CEX2 


69F5 CD4B67 


04480 


CALL 


PFOS 


69F8 3A6264 


04490 


LD 


A, (ACL) 


69FB FE01 


04500 


CP 


1 


69FD CA106A 


04510 


JP 


Z,OACL 


6A00 3D 


04520 


DEC 


A 


6A01 326264 


04530 


LD 


(ACL) , A 


6A04 C3CF69 


04540 


JP 


CFAR 


6A07 FEBB 


04550 OKKT2 


CP 


187 


6A09 C22F6A 


04560 


JP 


NZ,OKKT3 


6A0C 2B 


04570 


DEC 


HL 


6A0D C3DD69 


04580 


JP 


PEX2 


6A10 010000 


04590 OACL 


LD 


BC,0 


6A13 CD326 8 


04600 


CALL 


DELAY 


6A16 CD1E68 


04610 


CALL 


RCLS 


6A19 21E665 


04620 


LD 


HL,DAAC 


6A1C DD21533D 


04630 PHAA 


LD 


IX, 15699 


6A20 CD4B67 


04640 


CALL 


PFOS 


6A23 010000 


04650 


LD 


BC,0 


6A26 CD3268 


04660 


CALL 


DELAY 


6A29 213365 


04670 


LD 


HL,DLSM 


6A2C C3DD68 


04680 


JP 


PMAC 


6A2F FE8C 


04690 OKKT3 


CP 


140 


6A31 C2506A 


04700 


JP 


NZ,OKKT4 


6A34 21C03D 


04710 


LD 


HL, 15808 


6A37 36BF 


04720 


LD 


(HL) ,191 


6A39 11C13D 


04730 


LD 


DE,15809 


6A3C 013F02 


04740 


LD 


BC,575 


6A3F EDB0 


04750 


LDIR 




6A41 018813 


04760 


LD 


BC,5000 


6A44 CD326 8 


04770 


CALL 


DELAY 


6A47 CD1E68 


04780 


CALL 


RCLS 


6A4A 219C66 


04790 


LD 


HL,YHNR 


6A4D C31C6A 


04800 


JP 


PMAA 


6A50 FE8F 


04810 OKKT4 


CP 


143 


6A52 C2886A 


04820 


JP 


NZ,OKKT5 


6A55 2A5C64 


04830 PMAB 


LD 


HL,(DSP) 


6A58 E5 


04840 


PUSH 


HL 


6A59 DDE1 


04850 


POP 


IX 


6A5B DD3600BF 


04860 


LD 


(IX) ,191 


6A5F DD3601BF 


04870 


LD 


(IX+1) ,191 


6A63 DD3602BF 


04880 


LD 


(IX+2) ,191 


6A67 018813 


04890 


LD 


BC,5000 


6A6A CD326 8 


04900 


CALL 


DELAY 


6A6D DD360020 


04910 


LD 


(IX) ,32 


6A71 DD360120 


04920 


LD 


(IX+1) ,32 


6A75 DD360220 


04930 


LD 


(IX+2) ,32 


6A79 010000 


04940 


LD 


BC,0 


6A7C CD326 8 


04950 


CALL 


DELAY 


6A7F CD1E68 


04960 


CALL 


RCLS 


6A82 214366 


04970 


LD 


HL,YHDS 


6A85 C31C6A 


04980 


JP 


PHAA 


6A88 FEB4 


04990 OKKT5 


CP 


180 


6A8A CA556A 


05000 


JP 


Z,PHAB 


6A8D FEBB 


05010 


CP 


184 


6A8F CA556A 


05020 


JP 


Z,PHAB 


6A92 C3CF69 


05030 


JP 


CFAR 


6400 


05040 


END 


START 


00000 TOTAL ERRORS 







DISKETTE 
JUNCTION 






CALL 
NOW AND 

SAVE 

THIS SPECIAL 
INTRODUCTORY OFFER 

Scotch DISKETTES 



$19.95 



Y I +J - *J *J per box of 5 1 /* 

1 side/D Density (744D-0) diskettes 

compatible with Verbatim (MD525-01 ) 

Limit two per order. 

Scotch Head Cleaning Kits 

5Y4" and 8" Kits 

$19.95 each 

I imit one per order. 



DISKETTE-JUNCTION stocks a complete 
line of 3M magnetic media including 
96TPI Quad Density. Call now to order the 
Scotch* diskette for your equipment. 



800-321-5134 
OHIO RESIDENTS CALL 
■362-51 C 



DISKE' 

591 8 Smith Rd. 



■ION 

Cleveland, Ohio 441 42 



WE ACCEPT 

VISA • MASTER CHARGE • CHECKS 
MONEY ORDERS • C.O.D. 
Add $3.00 for shipping & handling. 
$2.00 EXTRA for U.S. Mail delivery. 

$3.00 EXTRA for C.O.D. 
Ohio residents add 6.5% sales tax. 



Authorized Distributor 
Information Processing Products 



— 



•See List ol Advertisers on Page 563 
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Don't miss out! Take advantage of these great bargains during 

ACCESS UNLIMITED'S 






FREE! DOSPLUS 3.4" 
disk operating system 
with any Percom or 
Access Unlimited Drive 
for the Model III* 



SAVE $50.00 on fully-tested PERCOM Disk 

Drive for Model III* 

Reg. $499.00. Now $449.00 

Percom's internally-mounted drives, with their widely-acclaimed disk 
controllers, are completely pre-tested with a 48 hour Burn-in. So. you know 
it works right when you get it. Choose single or double-density storage 
capacity. 

A First-Drive System includes the four-drive disk controller, your choice 
of one or two drives, power supplies, cables and a fully-illustrated, easy-to- 
understand owner's manual. 

Top-of-the-line Access Unlimited addons 
for the Model III* Disk Drive only $334.00 
Single, and $628.00 Double. 

Access Unlimited's drives for the Model III" bring you all the outstanding 
features of the Percom Drive, plus the superb, deluxe quality of the Access 
Unlimited workmanship that goes into the precision-made equipment which 
bears our name. 

Make sure it's done right. Let us install 
your First-Drive System. 

Purchase your Model III* Drives from us and for $39.95 plus shipping, you 
can have our experienced professionals perform a 48-hour bum-in of your 
Model III* computer, install the drive system, and check out your expanded 
system to make sure everything works correctly. Call for pricing of complete 
Model III* system with 2 to 4 Access Unlimited or Percom drives. 

Get the best! Our own fully-tested drives 
for as low as $275.00 

Every Access Unlimited Floppy and Flippy Disk Drive is electrically and 
mechanically tested, then burned-in for 48 hours under operating conditions. 
The signed test list in your shipping carton is proof of that. 

Our floppy disk drives offer you either single or double density. With 
double-density, it stores up to 364 Kbytes, depending on the format. And you 
can use both sides of the diskette on our flippy drives. 

SATISFACTION GUARANTEED! If you're not completely 
satisfied with your Access Unlimited Disk Drive, return it 
within 15 days for a full refund. All our drives have a 
comprehensive 90-day limited warranty. 



— Sale ends Feb. 28, 1983 — 

(But some prices will be good after Sale ends. 
Please call 1-800-527-3475 for pricing.) 

Save $$ on our most popular items! 

Percom Data Separator (reg. S29.95) now S23.95 
Screens for Models I* .II*. Ill Green. LI. Blue. Dark blue. 

and Amber. Bronze for color video (reg. S24.95) now S14.95 

Head Cleaning Kit (reg. S29.95) now S19.95 

Drive Numbering Tabs, pkg. 0-3 (reg. $4.50) now S3.95 

Rip-N-File 5V* " (reg. $39.95) now S24.95 

Flip-N-Rle 8" (reg. $54.95) now S39.95 

AFD 100-40-track single-density drives $275.00 

JUST PURCHASED! Overstock of 
Japanese-manufactured absolutely top quality 
CP/M X based business computers. 
From 160 KB to 40+ MB. 

We have just added approximately $100,000.00 
worth of brand new business and game software. 

Call or write for our new FREE catalog. 




Electric Crayon Close-out— only 80 left. 
When these are sold, there will be no 
more! reg. $289.00 now $149.95 

Use the electric crayon with your own monitor or color TV set. Use it with 
your Model I or III TRS-80™ and a color monitor or color TV set for a very 
low cost, high quality color computer. (Hook up instructions furnished.) 



XTRA Special— Soft sector 
diskettes — Carload purchase- 
As low as $1 9.90 for box of 10 

SSSD. with hub. 5W $19.90 box of 10 

SSDD. with hub. 5'//' 22.80 box of 10 

DSSD. with hub. 5/4" 29.90 box of 10 

DSDD. with hub. 5»/«" 33.50 box of 1 

SSSD. 8" 22.75 box of 10 

SSSD. 8". high performance 22.90 box of 1 

DSDD 8" 31.95 box of 10 
One year limited warranty against manufacturing defects 



CELEBRATION SALE! 







SAVE $$ 3 WAYS! 
now $184.95! 



Upgrade your 
Model I* to 
Double Density 



Percom's proven Doubler II " with 
DOSPLUS 3.4** and Move 1-2-3 software 
—a $339.95 value, now $184.95! 

The completely assembled and fully-tested Percom DOUBLER II '" is ready to 
go to work when you get it. All you have to do is plug it in. II can store over 4 
times more on one side of a diskette than a standard Tandy Model 1 * drive. It 
reads, writes, and formats either single or double-density. Comes with a 
DOSPLUS 3.4" disk-operation system. Runs TRSDOS". NEWDOS". 
Percom OS-80 '" . and other single-density software. (You can change to 
doubie-density at any time.) Uses Move 1-2-3 utility ($29.95) or other 
appropriate software to read Model III* programs on your Model I*. Has 
on-card high performance data separation and write precompensation 
circuitry. [hm ,| TM S159.95 

DOSPLUS 3.4D*" 15000 

Move 1-2-3 29.95 



Total Value 
Now only 
You SAVE 




S339.95 
$184.95 
$155.00 



From 

$1,995 (5 MB) 



Check out the benefits 
of Access Unlimited Hard Disk Drives 

V can be used for Model II". Model III" computers. 
^ 5. 10 Megabyte and larger drive units. 

V lets controller handle up to 4 drives. 

*" works along with existing floppy disk drives. 

V includes host system support software. 

V 15-day FREE trial period. 



SAVE on an Arrick Quick Switch^ 

Changes a TRS-80* printer port or a peripheral between computers instantly 
and easily. Available for RS-232 and Centronics. Hugs included. 

Now from $99.95. Cables from $31.95. 



EX?UNATION • Trademark ot Tandy Raao Slack C«p 

nc SYMRfli >; ' * T '*ttmar x ot Acoarai Corporaion 
u- a>wouL3 TM lld0ms y o, Access umnweo 

I Trademark ot Percom Data Company, Inc. 



Trademark o! Micro-Systems Software. Inc 
Trademark of Arnck products Company 
•Trademark ol Oatamarc. Inc 
Trademark of Ctgrtai Research 



Enjoy 1-stop shopping and BIG savings 

Order your disks, software, supplies, and accessories from Access Unlimited. 
We offer low prices on automatic Datamarc'*" Sheet and Envelope Feeders 
for Radio Shack". QUME. Ricoh. Diablo Daisywheel. and Dot Matrix Printers. 
And the more you buy at one time, the more you can save. 

For more information, call (214) 340-5366 Monday through Friday: (214) 
690-0207 after 5 p.m. and Saturdays. 



To order or for FREE literature, call TOLL-FREE 



1-800-527-3475 H 



Ordering Information 



Order by phone or by mail. We accept Visa, MasterCard, cashier's checks, 
certified checks, and money orders. With personal checks, allow additional 
time for bank clearance. Your bankcard will not be charged until your order is 
shipped. On orders over $1,000. we pay freight (surface only) and insurance; 
please add $3.00 shipping and handling under 50 lbs. Over 50 lbs., add 
$5.00 for orders under $1,000.00. Texas residents add 5% sales tax. Allow 2 
to 4 weeks for delivery. 



□ Please send me a FREE catalog. I'm not ready to order at this time. 
D YES. I'm taking advantage of your Sales prices. 



Name 

Company Name . 
Address 



City 

Phone Number ! 
Quantity 



State. 



Zip. 



Item 



Unit Price 



Subtotal 



Subtotal 

State Sales Tax (Texas residents only) 

handling charge 

Check one: Total 

D payment enclosed U Visa □ MasterCard" 



'If MasterCard, numbers above name: 
Expiration Date: I I I — I I 



Authorized signature, il charged 



DEPT. A 401 N. Central Expy. Richardson, Texas 75080 

,-26 



> ■ . V . - 




ADVANCED DEVCI.OPMffNl 
PACKAGE """.-a, 



p AS CA 
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Discern 
system that Tits^perfSttly in your T 

ALCOR PASCA 



SPECIALLY TARGETED. Works in harmony 
with your TRS80 Model I or III. No more 
floppy shuffle. Fast one pass compiler that 
doesn't generate unnecessary intermediate 
files which require further assembly. 
Compatible with TRSDOS, LDOS, DOSPLUS, 
NEWDOS. 

PROFESSIONALLY DESIGNED. Crafted by a 
project team with over 15 years of Pascal 
programming experience. A powerful Pascal 
that includes all the features necessary for 
professional program development including 
random files and dynamic strings. 

INCREDIBLE SPEED. Resultant stand alone 
programs execute 10-20 times faster than the 
equivalent Basic or up to 4-1/2 times faster 
than U.C.S.D. programs. 

POWERFUL TEXT EDITOR. Has full screen 
capability for easy program or document 
preparation. 



EXCEPTIONAL DOCUMENTATION. Includes 
250 page documentation pkg. that guides you 
step by step. 

OPTIONAL ADVANCED DEVELOPMENT 
PKG. Includes Optimizer and Native Code 
Generator for even faster executing 
programs. ADP: $125 + shipping. 

ALCOR PASCAL: A new standard of 
excellence from the professionals at Alcor 
Systems. 

CALL OR WRITE for a free 20 page technical 
brochure with all the facts. 214-226-4476. 
Pascal System: $199 + shipping. 

Alcor Systems 

800 W. Garland Ave. 

Garland, Texas 75040 




SYSTEMS 



TRS90 
UCSD 
Akor PiKii 



TRADEMARK 
Tmdy Corponlioa 
Uiutcnity Calif. Sin Dmjco 
Akor SjiUmi 



Dealer Inquiries Invited 



HOME/HOBBY 



Dual-Voice Music Synthesizer 



by Lee Morgenstern 



T 



hose of you who are bored with your computer 
playing only one note at a time can learn 
how to get multiple notes through software. 



Are you tired of hearing only single- 
note-at-a-time tunes from your 
TRS-80? This program demonstrates 
how to create musical pieces that play 
through the cassette port and have both 
treble and bass voices. Best of all, it re- 
quires no extra hardware. 

Some musical pieces require two 
voices. Previously, hardware music syn- 



thesizers, which are expensive, were the 
only way to produce multiple voices. 
Now, however, it is possible to produce 
them completely with software. 

Theory of Operation 

Other programs produce music by 
generating square waves with two ampli- 



command bit: 


2 1 













1 1 


= 


= 0.00 volts 






1 1 


1 = 


= 0.46 


volts 






10 = 


= 0.46 


volts 






1 


1 = 


= 0.85 


volts 


Table 


I. Cassette 


-port 


Command 


Values 


for the 


Voltage Levels 









Variable 


Meaning 


M$ 


USR machine code 


N$ 


names of the notes 


N 


frequency counts of the notes 


T() 


treble note list 


B() 


bass note list 


D() 


dual-voice play buffer 


Table 2 


Important Basic Variables 



Byte 


Contents 


1 


note duration MSB 


2 


note duration LSB 


3 


treble note frequency count 


4 


treble note octave count 


5 


bass note frequency count 


6 


bass note octave count 


7 


treble note rest flag — 2 if played, if rest 


8 


bass note rest flag — 1 if played, if rest 




Table 3. Play Buffer Format 



tudes, or voltage levels, and causing the 
cassette output to vibrate. This program 
creates a more advanced wave by con- 
trolling the three voltage levels available 
at the cassette port. With three levels, it 
produces a wave resulting from the 
amplitude addition of two separate 
square waves as in Fig. 1 . When the pro- 
gram sends this wave through the cas- 
sette port, the output sounds like two in- 
dependent tones played at the same time. 

Programming amplitude addition is 
not as tricky as you might think. The 
cassette commands have an interesting 
pattern. Table 1 shows the binary com- 
mand values that produce the three 
voltage levels at the cassette auxiliary 
output. 

Bit 2 turns on the cassette motor and 
bits and 1 control the voltage. Com- 
plementing either bit or 1 produces a 
voltage change of one level by "vibrat- 
ing" bit 1 to produce the treble notes 
and independently doing the same to bit 
to produce the bass notes. 

Program Features 

The Dual- Voice Music Synthesizer is 
written in Basic and Assembly 
language. The Basic part creates and 
edits a list of treble and bass notes, and 
an Assembly-language USR subroutine 
plays the music. The program uses 



The Key Box 

Model I or III 
16K, 32K RAM 
Cassette or Disk Basic 
Cassette Port Amplifier 
Printer Optional 
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POKE statements to enter the USR 
machine code into a string. 

The musical capabilities of the pro- 
gram are a 5-octave note range, whole 
note to 64th note timing, sharps, and 
rests. In a 16K TRS-80, there is room 
for 700 notes for treble and bass each. 
In a 48K machine, this expands to 3,400 
notes each. 

The music plays through an amplifier 
and speaker, or records on cassette 
tape, while a special feature changes the 
timing of the piece. 

The file handling provides loading 
and saving of music files using either 
cassette or disk. The editing features 
consist of append, insert, delete, 
display, and print functions for both 
treble and bass note lists. 

Entering the Program 

Type Program Listing 1 exactly as it 
appears and it will work for Level II 
Basic or Disk Basic. You may, however, 
remove certain lines depending on your 
system. 

For Level II Basic using a cassette, 
you may omit lines 1650-1800, 
1880-2030, 3610-3650, and 3670-3710. 

For Disk Basic using disks for file 
storage, you may omit lines 1650-1720, 



"^■TRS-80- Model HI/IMHH 

WOBOS" I 

wra roma oraGgmms 

Basic Operating System 

WOBOS I is a menu driven, prestructured program in BASIC that 
provides access to over 30 utility functions during development or 
actual use ot a program. Its unique layout allows you to develop 
your programs within a well organized environment that provides 
a very strong foundation to build upon. You always had to start 
from scratch before but now. after loading WOBOS I. you'll start 
with over 11 K ot subroutines and system utilities. Imagine what 
this can do for your productivity! WOBOS I is not an accessory 
to your program. It actually becomes YOUR program! 




* It will add multifrequency SOUND to your TRS-80 

* It will standardize your writing and save you many ho 
of debugging and rewriting utility functions. 

* It will help you structure YOUR OWN programs. 





"Once 


you've 
another 


used It, 
program 


you II ne 
without 


(.'" 




Ktodel 


III 


I 




Mac 


MODEL III 


DISK 


LEVEL II 


DISK 






P/N 


CC1021 


CD 1031 


CC1022 


CD 1032 






DEMO 


CC1041 


CC1042 







DEMO TAPE S10 FULLY REFUNDABLE 
ON QUALITY CASSETTE S MANUAL 



ORDER PHONE 

C503) 649-4526 



ONLY 

*35 



SEND CHECK. MONEY ORDER OR NUMBER AND 
EXPIRATION DATE OF YOUR CREDIT CARD TO; 

Wlri^ilMh OJIEk'.: ' »" 179 

6640 SW 173 AVENUE, BEAVERTON. OREGON 97007 



fa 



'dedicated /i. &cce//et 



im it Timi e up. 



■** 



1800-1840, 1880-1950, 2030-2070, 
3610-3650, 3670, and 3720-3750. 

For Disk Basic using cassette for file 
storage, you may omit lines 1650-1790, 
1880-2020, 3610-3650, 3670, and 
3720-3750. 

Operating the Program 

A typical procedure for creating and 



playing music consists of the following 
steps: 

• Enter the treble and bass notes using 
the editing functions. 

• Save the note lists on disk or tape. 

• Build the play buffer. 

• Play the music. 

• Change the timing if necessary. 
Two menus contain all the program 



+--+ +--+ +--+ +--+ 
+ +--+ + -- + + -- + +-- 



+ -- + 

! + 

+ 



+ -- + 

+ ! + 
+ -- + 



a. treble note 



b. bass note 



+ 
+ -- 



treble and bass combined 



Fig. 1. Two voices are created by adding the amplitudes of two waves. The two waves (la and 
lb), each having two amplitude levels, combine to form wave lc, having three amplitude 
levels. 



15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 



1-5 



note 
- 12 



duration 
1 - 64 



Fig. 2. Packing of Treble and Bass Notes 







Program Listing 1 




1000 


'DUAL-VOICE MUSIC SYNTHESIZER 




1010 


'BY 


,EE MORGENSTERN, MAY, 1982 




1020 


1 






1030 


CLS: 


CLEAR 256: DEFINT A-Z 




1040 


PRINT"DUAL-VOICE MUSIC SYNTHESIZER" 




1050 


PRINT: PRINT n READING DATA:" 




1060 


El$= 


"TREBLE OR BASE LIST EMPTY" 




1070 


E2$= 


"PLAY BUFFER NOT BUILT" 




1080 


E3$= 


"NOTE LIST EMPTY" 




1090 


E4$= 


"IMPROPER NOTE" 




1100 


E5$= 


•IMPROPER OCTAVE" 




1110 


M$=STRING$(152,0) 




1120 


Pl=PEEK(VARPTR(M$)+l) + 256*PEEK(VARPTR(M$) +2) 


1130 


IF P!>32767 THEN P!=P!-65536 




1140 


P=P! 






1150 


FOR X=l TO 152: PRINT@141 , 152-X; 




1160 


READ 


Q: POKE P,Q: P=P+1: NEXT 




1170 


DATA 


205,127, 10,243,235,221, 33, 0, 


0,221 


1180 


DATA 


25,221, 78, 0,221, 70, 1,221, 


35,221 


1190 


DATA 


35, 17, 8, 0,217, 62, 4, 8, 


221,102 


1200 


DATA 


0,221,110, 1,221, 78, 2,221, 


70, 3 


1210 


DATA 


221, 94, 4,221, 86, 5, 62, 6, 


60,185 


1220 


DATA 


48, 72,187, 56, 28,121,147, 79, 


125,147 


1230 


DATA 


111,221, 94, 4, 62, 2, 21, 32, 


14, 8 


1240 


DATA 


221,174, 7,211,255, 8,221, 86, 


5, 62 


1250 


DATA 


5, 24, 4, 60,185, 48, 37,189, 


56,214 


1260 


DATA 


121,149, 79,123,149, 95,221,110, 


1, 62 


1270 


DATA 


2, 37, 32,200,217,221, 25, 11, 


120,177 


1280 


DATA 


200,217, 6, 1, 22, 1,221,102, 


0,221 


1290 


DATA 


110, 1, 24,178,123,145, 95,125, 


145,111 


1300 


DATA 


221, 78, 2, 62, 3, 5, 32,170, 


8,221 


1310 


DATA 


174, 6,211,255, 8,221, 70, 3, 


62, 5 

Listing 1 continues 
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Listing I continued 



1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 



DATA 24,156 

DIM N$(12) ,N(12) 

FOR F=0 TO 12: READ N$(F),N(F): NEXT 

DATA R,255,B,50,A#,53,A,56,G#,59,G,63,F#,67,F,71,E,75 

DATA D#,79,D,84,C#,89,C,94 

PRINT: PRINT" ALLOCATING MEMORY" 

M=MEM/12-100 

DIM T(M) ,B(M) ,D(4*M) 

BF=0: T(0)=0: B(0)=0: TD=0: BD=0 

F$="": EM=0: L=0: D=0: E=0: N=0 : 

Cl=255: C2=256: C3=3840: C4=192: 



: TE=0: TF=0: BE=0: 
T=0: B=0: Mi=0 
C5=4096 



'<1> 
'<2> 
'<3> 
'<4> 
'<5> 
'<6> 



LOAD MUSIC FILE" 
SAVE MUSIC FILE" 
EDIT MUSIC" 
BUILD PLAY BUFFER" 
CHANGE TIMING" 
PLAY MUSIC" 



) THEN PRINT El$: 
E2$: GOTO 1550 



'**** MAIN MENU 

CLS 

PRINT"DUAL-VOICE MUSIC MAIN MENU" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

M=0: INPUT-SELECTION", -M 

IF M<1 OR M>6 THEN 1550 

IF M=4 AND (T(0)=0 OR B(0)= 

IF M>=5 AND BF=0 THEN PRINT 

ON M GOSUB 1630,1870,2100,3190,3520,3600 

GOTO 1450 

i**** load MUSIC FILE 
CLS 
BF=0 

PRINT" <1> LOAD FROM DISK" 
PRINT" <2> LOAD FROM CASSETTE" 

PRINT"<3> LOAD FROM CASSETTE WITH DISK BASIC" 
PRINT 

M=0: INPUT"SELECTION" ;M 
IF M<1 OR M>3 THEN 1690 
ON M GOSUB 1730,1810,1800 
RETURN 

INPUT"MUSIC FILE SPEC";F$ 
OPEN"I",l,F$ 
INPUT#1,T(0) ,B(0) 

IF T(0)>0 THEN FOR X=l TO T(0): INPUT#1 ,T(X) : 
IF B(0)>0 THEN FOR X=l TO B(0): INPUT#1 ,B (X) : 
CLOSE 
RETURN 
CMD"T" 

INPUT#-1,T(0) ,B(0) 
IF T(0)>0 THEN FOR X=l TO T(0) 
IF B(0)>0 THEN FOR X=l TO B(0) 
RETURN 



GOTO 1550 



INPUT#-1,T(X) 
INPUT#-1,B(X) 



NEXT 
NEXT 



NEXT 
NEXT 



'**** SAVE MUSIC FILE 
CLS 

PRINT" <1> SAVE TO DISK" 
PRINT" <2> SAVE TO CASSETTE" 
PRINT" <3> SAVE TO CASSETTE WITH DISK BAS 
PRINT 

M=0 : INPUT"SELECTION" ;M 
IF M<1 OR M>3 THEN 1920 
ON M GOSUB 1960,2040,2030 
RETURN 

INPUT"MUSIC FILE SPEC";F$ 
OPEN"0",l,F$ 
PRINT#1,T(0) ,B(0) 

IF T(0)>0 THEN FOR X=l TO T(0): PRINT#1, 
IF B(0)>0 THEN FOR X=l TO B(0): PRINTtl, 
CLOSE 
RETURN 
CMD"T" 

PRINT#-1,T(0) ,B(0) 

IF T(0)>0 THEN FOR X=l TO T(0): PRINT#-1 
IF B(0)>0 THEN FOR X=l TO B(0): PRINT#-1 
RETURN 



IC" 



T(X] 
B(X1 



,T(X) 
,B(X) 



NEXT 
NEXT 



NEXT 
NEXT 



'**** EDIT MUSIC 

EM=0 

CLS: PRINT "DUAL-VOICE MUSIC EDITOR" 

IF EM=0 THEN PRINT"TREBLE: " ;T( 0) ; ELSE PRINT"BASE : " ; 

PRINT"NOTES" 

PRINT 

PRINT" <0> TOGGLE TREBLE/BASE" 

PRINT" <1> APPEND TO END OF LIST" 

PRINT" <2> INSERT NOTES" 

PRINT "<3> DELETE NOTES" 



B(0) 



l.isiimi I conii, 



options — the main menu and the edit 
menu. The main menu has six options: 

Dual-Voice Music Main Menu 

(1) Load Music File 

(2) Save Music File 

(3) Edit Music 

(4) Build Play Buffer 

(5) Change Timing 

(6) Play Music 



Option 1 loads the treble and bass 
lists of a previously created music file 
from either cassette or disk to memory. 
Option 2 saves the treble and bass lists 
currently in memory to cassette or disk. 
Option 3 calls the edit menu to create or 
change music in memory. Option 4 
builds a play buffer from the treble and 
bass lists in memory. Option 5 changes 
the timing of the play buffer. Option 6 
calls the USR subroutine to play the 
music. 

Option 3 of the main menu calls the 
edit menu: 

Dual-Voice Music Editor 
Treble: XXX Notes 

(0) Toggle Treble/Bass 

(1) Append to End of List 

(2) Insert Notes 

(3) Delete Notes 

(4) Display Notes 

(5) Print Notes 

(6) Exit 

The second line of the edit menu dis- 
plays the current number of notes in the 
treble or bass list. Option switches 
back and forth between the two lists. 
Options 1-5 act on the list currently 
selected. Option 1 adds notes to the end 
of a list or starts a new list. Option 2 in- 
serts notes at the start or in the middle 
of an existing list. Option 3 deletes one 
note or a block of notes. Option 4 dis- 
plays the note list on the screen. Option 

5 prints the note list on a line printer, 
formatted in multiple columns. Option 

6 exits back to the main menu. 

Creating the Note Lists 

When appending or inserting notes, 
follow the format of duration, octave- 
note as in 4,5F#. This means quarter- 
note duration, 5th octave and F sharp. 
Durations range from 1, for a whole 
note, to 64, for a 64th note. Octaves 
range from 1 , for the lowest pitch, to 5, 
for the highest pitch. Notes are A-G 
with an optional #. To enter a rest, type 
the duration and then R as in 8,R. This 
means an 8th note rest. The range of 
notes is from IC to 5B. To terminate the 
list, enter 0,0. 
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Listing I continued 



2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 



PRINT" <4> DISPLAY NOTES" 

PRINT" <5> PRINT NOTES" 

PRINT" <6> EXIT" 

PRINT 

M=-l: INPUT"SELECTION";M 

IF M=6 THEN RETURN 

IF M=0 THEN EM=1-EM: GOTO 2110 

IF M<1 OR M>5 THEN 223 

IF EM=0 THEN L=T(0) ELSE L=B(0) 

IF M>=2 AND M<=6 AND L=0 THEN PRINT E3$: GOTO 223 

ON M GOSUB 2330,2540,2750,2860,3000 

GOTO 2110 

***** APPEND NOTES 

CLS 

PRINT"APPENDING " ; 

IF EM=0 THEN PRINT"TREBLE" ; ELSE PRINT"BASE"; 

PRINT" NOTES" 

PRINT 

PRINT"DURATION,NOTE" 

L=L+1 

PRINT USING "####: ";L; 

D=-l: INPUT D,F$: IF D=0 THEN RETURN 

IF F$="R" THEN E=0: F=0: GOTO 2480 

IF LEN(F$)<2 THEN PRINT E4$: GOTO 2400 

E=VAL(LEFT$(F$,1) ) : IF E<1 OR E>5 THEN PRINT E5$: GOTO2400 

F=l: F$=MID$(F$,2) 

IF F$ON$(F) THEN F=F+1: IF F<13 THEN 2460 

IF F>12 THEN PRINT E4$: GOTO 2400 

IF EM=0 THEN T(0)=L ELSE B(0)=L 

P=4096*E + 256*F + D 

IF EM=0 THEN T(L)=P ELSE B(L)=P 

BF=0: GOTO 23 90 
i 

i**** INSERT NOTES 

CLS 

N=0: INPUT" INSERT BEFORE WHICH NOTE";N 

IF N<1 OR N>L THEN 2550 

PRINT"DURATION,NOTE" 

PRINT USING "####:";N; 

D=-l: INPUT D,F$: IF D=0 THEN RETURN 

Listing 1 continues 



The editor numbers all the notes. Use 
these numbers to refer to the notes when 
deleting or inserting. Enter the starting 
and ending note numbers to delete a 
series of notes. The starting and ending 
numbers would be the same number if 
you wanted to delete only one note. To 
insert notes, enter the number following 
the insert point; this allows insertion 
before the first note. Use the append 
option to insert notes at the end of 
the list. 

To replace one or more notes, first 
delete them and then insert the replace- 
ments. The editor controls the numbers 
so that the first note number you delete 
becomes the note number to insert. For 
example, if you want to replace notes 
33-40, select the delete option and enter 
33,40. Then select the insert option and 
enter 33 as the insert point. Type the re- 
placement notes and then 0,0. 

The display option lists the notes on 
the screen in a single column. To freeze 
the list as it scrolls by, press shift, @. 
Press any key to resume scrolling. 

If you have a printer connected to the 
parallel printer port, select the print op- 
tion to produce a multiple-column list- 
ing of the notes. Each column is 16 
characters wide. This permits five col- 
umns on an 80-character-per-line print- 



TRS-80 

100% Radio Shack Equipment 

SAVE A BUNDLE 

Order Toll Free 1-800474-1551 

FLA Residents 904-438-6507 collect 

EPSON OKIDATA CITOHetc. 



f ii * •/ SALES CO. 



704 W Michigan Ave; P.O. Box 8098 
Pensacola, FLA 32506 



'TRS-80 is a trademark of Tandy Corporation. 
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Circle 532 on Reader Service card.- 




Math Games 



andLosthis 
FearofFractions. 



100 Spark 80 Math Games. 

With SPARK 80 Computerize J Math Games 
Jimmy gets to play exciting games like baseball, 
pinhall, treasure island, and dodge ball. They're 
all part of a computerized instructional program 
that makes math more interesting and enjoyable 
than ever before. But there's a lot more than games 
going on here. By solving a math problem to make 
each move in the games, Jimmy can learn 100 
different math skills spanning kindergarten 
through 8th grade mathematics. The SPARK 80 
Math Games promote genuine learning. In tact, 
research has proven that students using SPARK 
80 learn taster, learn more, and retain what they 
learn much better. 

Sequenced Curriculum. SPARK 80 Math 
Games are based on a carefully sequenced 
curriculum tor basic computational skills. Math 
readiness, addition, subtraction, multiplication, 



division, and tractions skills are taught with no 

gaps in the learning. The skills in each area 

progress from basic skills 

through advanced skills 

including decimal 

problems. SPARK 80 

Math Games were 

developed by educators tor 

educators. The Precision 

People: Dr. John Tnfiletti, 

Dr. Diane Tritiletti, and 

Sandra Williams spent 

over 3 years in developing, 

researching, and 

testing the system. 

Its proven 

features make it 

tar superior to other 

instructional systems. SPARK 

80 Math Games can be used to 




present new skills, provide supplemental 
instruction tor existing curriculum, remediate 
deficient skills, and motivate learning. 

Complete Teacher Support. SPARK 80 Math 
Games are documented in a Teacher Training 
Manual which includes student worksheets for 
each math skill and an assessment instalment tor 
properlv identifying skills in need ot instruction. 
Also available are workshops and on-site 
assistance from the Precision People Training Team. 

Advanced Design Features. SPARK 80 Math 
Games are highly interactive experiences with 
animated graphics throughout. They may be 
played by one or more students. The games are 
original designs with a great deal of creativity. 
They are effective both in the classroom and 
home learning environment. Instructions appear 
on the computer screen at the beginning of each 
SPARK 80 Math Game. 

System Expandability. SPARK 80 Math 
(James are drawn from a much larger SPARK' 80 
nstruetional Courseware For Mathematics which 
includes tutorial instruction, drill instniction, 
computerized assessment, and a computer game 
for each of 100 math skills. Purchase the SPARK 
80 Math Games now, and expand your system 
later to the Complete SPARK 80 System! 

System Requirements. SPARK 80 Math 
Games are provided on diskettes or cassettes 
which require a 16K or better TRS-80, Model 1 
»r Model III computer. The SPARK 80 Math 
Games can also be used on Radio Shack Network 
Systems with up to 16 TRS-80 terminals. 

Send for free color brochure, or include money 
order or purchase order jor ihe SPARK-80 games 
o/ yout choice. 
Mtit/i Readiness Skills (7 Games) $35 

Basic Addition Skills ( 1 2 Games) $60 

Advanced Addition Skills ( 1 1 Games) S55 
Basic Subtraction Skills (10 Games) $50 

Advanced Subtraction Skills (9 Games) $45 
Basic Multiplication Skills ( 1 1 Games) $55 
Advanced Multiplication 

Skills (7 Games) S35 

Basic Division Skills ( 1 Games) S50 

Advanced Division Skills (7 Games) S35 

Basic Fractions Skills (7 Games) $35 

Advanced l-ractions Skills (9 Games) $45 
SPARK-80 Teacher 

Training, Manual $50 

"Please specifv cassettes or diskettes, TRS-80 
Model I, or III. 

'Add 5% Shipping and Handling. 
'TRS-80 is a Registered Trademark of" Tandy 
Corporation. 

Precision People, Inc. P.O. Box 17402 
Jacksonville, FL 32216 (904)642-1980 

SPARK80 

COMPUTERIZED MATH GAMES 



«**■** «, 

«»»»«• 




er or eight columns on a 132-character- 
per-line printer. 

Playing the Music 

Before playing the piece, you must 
select the build-play-buffer option. This 
option creates a combined buffer from 
the treble or bass lists so the USR sub- 
routine can efficiently create the dual- 
voice melodies. Once you have built the 
play buffer, you can play the music 
repeatedly without delay. 

The musical piece can be played in 
two ways. The best way is to connect an 
amplifier and speaker to the auxiliary 
output of the cassette port. The extra 
hardware is not necessary for the sec- 
ond method. Just connect your cassette 
recorder in the standard way, set the 
cassette to record, select the play-music 
option, wait for the main menu to reap- 
pear on the screen, stop the recorder, re- 
wind to the start point, unplug the 
cables, and press the cassette play 
button. 

If the piece plays too fast or too slow, 
select the change-timing option. Enter a 
multiplier for the duration. Enter 2 if 
you want the piece to play slower, or 
enter 0.5 if you want the piece to play 
faster. The multiplier acts only on the 
play buffer, so the original treble and 



Listing . 

2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 

26 80 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 

27 80 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 

2940 
2950 

2960 
2970 
2980 



IF F$="R" THEN E=0: F=0: GOTO 2660 

IF LEN(F$)<2 THEN PRINT E4$: GOTO 2580 

E=VAL(LEFT$(FS,1) ) : IF E<1 OR E>5 THEN PRINT E5$: GOTO2580 

F=l: F$=MID$(F$,2) 

IF F$ON$(F) THEN F=F+1: IF F<13 THEN 2640 

IF F>12 THEN PRINT E4?: GOTO 2580 

IF EM=0 THEN T(0)=T(0)+1 ELSE B(0)=B(0)+1 

FOR X=L TO N STEP -1 

IF EM=0 THEN T(X+1)=T(X) ELSE B(X+1)=B(X) 

NEXT X 

P=4096*E + 256*F + D 

IF EM=0 THEN T(N)=P ELSE B(N)=P 

BF=0: L=L+1: N=N+1: GOTO 2580 



;PrQ 

ELSE B(0)=B(0)-(Q-P+1] 



t**** DELETE NOTES 

CLS 

P=0: Q=0: INPUT"DELETE FROM, TO 

IF P<1 OR P>Q OR Q>L THEN 2760 

IF EM=0 THEN T( 0) =T(0) -(Q-P+l) 

BF=0 

IF Q=L THEN RETURN 

FOR X=Q+1 TO L 

IF EM=0 THEN T(P)=T(X) ELSE B(P)=B(X) 

P=P+1: NEXT X: RETURN 

t 

***** DISPLAY NOTES 
CLS 

IF EM=0 THEN PRINT "TREBLE" ELSE PRINT"BASE" 
PRINT 

PRINT" DURATION, NOTE" 
FOR X=l TO L: PRINT USING "####:", -X; 
IF EM=0 THEN D=T(X) AND 255 ELSE D=B(X) AND 255 
IF EM=0 THEN E=T(X)/4096 ELSE E=B(X)/4096 
IF EM=0 THEN F=(T(X) AND 3840) /256 
ELSE F=(B(X) AND 3840)/256 
F$=NS(F) 
IF E>0 THEN PRINT USING "##### #%% ";D;E;F$ 

ELSE PRINT USING "##### %% ";D;F$ 
NEXT X 
PRINT: INPUT"PRESS ENTER" ;M: RETURN 



Lislinx I continues 



CDLDR CDMPL1TERISTS 




NOW YOU CAN ENJOY THE EASE 
AND CONVENIENCE OF LOAD 80 
CASSETTES WITH 

LOAD 80 

And to start you off right, we're offering a Special First Edition of 
COLOR LOAD 80— "The Best of '82." All the best color pro- 
grams from the 1982 issues of 80 MICRO at the very special price 
of $14.97 plus $1.50 shipping and handling. 

To order your Special First Edition COLOR LOAD 80 cas- 
sette, fill out the coupon or call toll free: 

1-800-258-5473 

Order one for yourself and one for a friend. Perfect for holiday 
gift-giving. 

COLOR LOAD 80 will be offered on a quarterly 
basis (see March '83 80 MICRO for details.) 

Color LOAD 80 is manufactured by Inslam Soltwaro Inc.. a sub- 
sidiary ol Wayne Green Inc.. 80 Pine St.. Peterborough. NH 03458. 
There is no svarranly expressed or implied that COLOR LOAO 80 will 
do anything other than save you typing. 




YES, I want the Special First Edition of 

COLOR LOAD 80! Send me cassettes 

@ $14.97 ea. plus $1.50 shipping & handling 
per cassette. 

□ AMEX 

DMC 

□ CHECK 
D VISA 

□ MONEY ORDER 



NAME 



ADDRESS 
CITY 



STATE. 



SIGNATURE. 
CARD# 



EXP. DATE 



ZIP. 




CL82AN 



LOAD 80 



80 Pine St. •Peterborough, NH 03458 

1 I 
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Daisy wheel quality 

without daisy wheel 

expense. 

You need the quality print that a daisy wheel 
printer provides but the thought of buying one makes your 
wallet wilt. Selectric™ Interface, a step-by-step guide to inter- 
facing an IBM Selectric I/O Writer to your microcomputer, 
will give you that quality at a fraction of the price. George 
Young, co-author of Microcomputing magazine's popular 
"Kilobaud Klassroom" series, offers a low-cost alternative 
to buying a daisy wheel printer; 
Selectric Interface includes: 

♦ step-by-step instructions 

♦ tips on purchasing a used Selectric 

♦ information on various Selectric models, in- 
cluding the 2740, 2980, and Dura 1041 

♦ driver software for Z80, 8080, and 6502 chips 

♦ tips on interfacing techniques 

With Selectric Interface and some background in electronics, 
you can have a high-quality, low-cost, letter-quality 
printer. Petals not included. 

Credit card orders call TOLL-FREE 1-800-258-5473. Or mail your order 
with payment plus $1.50 shipping and handling to: Wayne Green Inc. 
Attn: Retail Book Sales, Peterborough, NH 03458. 
Dealer inquiries invited. 



ISBN 0-88006-051-4 



128 pages 



$12.97 



□ Yes, I want Selectric Interface (BK7388). Enclosed is $12.97 per 

copy plus $1.50 for shipping and handling. 

D MASTER DVISA DAMEX 



Card # _ 
Signature 
Name 



Expires 



Address 
City 



State and Zip 

All orders shipped UPS if complete street address is given. 



take it 







The totally PORTABLE, 
totally COMPATIBLE, 

Model III in a 
Briefcase 

ADCOCK & JOHNSON 



R O DRAWER 8778 FORT WORTH. TEXAS 76113 

ORDERS AND INFORMATION 
(817) 429-5131 
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Listing 1 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 
3150 



316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 



continued 

'**** PRINT NOTES 

CLS 

M=0: INPUT"PRINT HOW MANY COLUMNS" ;M 

IF M<1 THEN 3010 

LPRINT -.LPRINT 

IF EM=0 THEN LPRINT"TREBLE n ELSE LPRINT"BASE" 

LPRINT 

FOR X=l TO M: LPRINT" DURATION, NOTE" ; : NEXT 

LPRINT 

P!=L/M: Q=L/M: IF P!>Q THEN Q=Q+1 

FOR X=l TO Q 

TO M-li P=X+N*Q: IF P>L THEN 3160 
THEN D=T(P) AND 255 ELSE D=B(P) AND 255 
THEN E=T(P)/4096 ELSE E=B(P)/4096 
THEN F=(T(P) AND 3840)/256 
ELSE F=(B(P) AND 3840)/256 

F$=N$(F) 

IF E>0 THEN LPRINT USING "####:##### 
ELSE LPRINT USING "####:##### 

NEXT N: LPRINT: NEXT X: RETURN 



FOR N=C 
IF EM=f 
IF EM=( 
IF EM=C 



#%% 



; P ; D ; E ; F $ ; 
;P;D;F$; 



BUILD PLAY BUFFER 



CLS 



PRINT"BUILDING PLAY BUFFER" : PRINT 

PRINT" " , "TREBLE" , "BASE" 

PRINT "LENGTH", T(0) ,B(0) 

T=l: B=l: X=l : GOSUB 3440: GOSUB 34 f 

D(X+1)=C2*2[ (5-TE) + N(TF) 

D(X+2)=C2*2[ (5-BE) +N(BF) 

D(X+3)=(P AND 2) + C2*(Q AND 1) 

PRINT@256,,T,B 

IF TD>=BD THEN 3320 

D(X)=TD: T=T+1: BD=BD-TD 

IF T<=T(0) THEN GOSUB 3440 

GOTO 3390 

IF TD=BD THEN 3360 

D(X)=BD: B=B+1: TD=TD-BD 

IF B<=B(0) THEN GOSUB 3480 

GOTO 3390 

D(X)=BD: B=B+1: T=T+1 



Listing I continues 



bass lists are not affected. 

Understanding the Program 

The most important variables in the 
Basic program, together with their 
meanings, are listed in Table 2. 

The parameters for each treble or 
bass note are packed into one integer by 
the formula: 4096 * octave + 256 * 
note + duration. Figure 2 shows this 
format. 

The play buffer consists of a note 
count followed by 8-byte entries. The 
format for each entry is shown in Table 
3. Each note change has a new entry. 

The USR subroutine reads the play 
buffer to produce the tones. Listing 2 is 
an Assembly-language form of the USR 
subroutine. Line 130 gets the play buf- 
fer address. Lines 160-170 transfer this 
address into the IX register. The A' reg- 
ister maintains the current tone com- 
mand value. Lines 330-370 and 
580-620 count the treble, bass, and note 
duration values until one of them be- 
comes due. 

When the treble count becomes due, 
lines 890-980 reload the count and con- 
tinue timing. When the treble octave 
count becomes due, lines 990-1050 
change the tone level command value 
and resend the command. Lines 



Diagnosis 
for your 
Problems 




Prescribe Quality Software from CMA 

APPLE II - APPLE /// - TRS-80 - IBM 



Micro Computer Division 

55722 Santa Fe Trail 

Yucca Valley, CA 92284 

(619)365-9718 




MICRO 

MOONUGHTER 

NEWSLETTER 

The ONLY publication devoted exclusive- 
ly to helping you create, build, and main- 
tain a home-based business using your 
micro-system. SUBSCRIBE NOW to what 
may be the most important publication in 
YOUR FUTURE! 

1 Year (12 issues) only $25 U.S., $29 
Canada, $35 World Wide 

J. Norman Goode, Publisher 
Micro Moonlighter Newsletter 

21 15-D Bernard Avenue • Nashville, TN 37212 
Visa and Mastercard welcome. Send account 
number and expiration date. 615-297-5106. 

D Visa Acct # Exp 

□ M/C Acct # Exp 

Name 



Address. 
City 



St. 



Zip 
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400-560 update the bass note counts in 
the same way. 

When the duration count becomes 
due, lines 750-860 advance IX to point 
to the next note entry in the play buffer, 
terminate the treble and bass octave 
counts, and continue timing, allowing 
the treble and bass timers to complete 
the current cycle. Control returns to Ba- 
sic when all notes have been played. 

Enhancing the Program 

There are many ways to improve the 
program. Adding more editing features 
would make it easier to enter and mod- 
ify the music — or including a sub- 
routine facility would make it possible 
to play longer pieces. The greatest im- 
provement, however, would be a hard- 
ware change. 

The TRS-80 clock is not fast enough 
to produce the high quality of sound 
that best enhances the dual-voice tech- 
nique. Speeding it up would make the 
timing of each note more accurate and 
would enable the program to generate 
higher-quality notes and increase the 
range of tones. 

This program is just one method for 
dual-voice synthesis. Another example 
is synthesizing voices out of the cassette 
port. With new innovations and experi- 



Listing 1 continued 




3370 


IF T<=T(0) THEN GOSUB 3440 


3380 


IF B<=B(0) THEN GOSUB 3480 


3390 


D(X)=D(X)-C2: X=X+4 


3400 


IF T<=T(0) AND B<=B(0) THEN 3240 


3410 


D(0)=X/4: BF=-1: RETURN 


3420 


• 


3430 


'**** COMPUTE TREBLE PLAY BUFFER ENTRY 


3440 


TD=C4/(T(T) AND CI): TE=T(T)/C5 


3450 


TF=(T(T) AND C3)/C2: P=TF>0: RETURN 


3460 


i 


3470 


•**** COMPUTE BASE PLAY BUFFER ENTRY 


3480 


BD=C4/(B(B) AND CI) : BE=B(B)/C5 


3490 


BF=(B(B) AND C3)/C2: Q=BF>0: RETURN 


3500 


■ 


3510 


•**** CHANGE TIMING 


3520 


CLS 


3530 


Ml=l: INPUT"TIMING MULTIPLIER" ;M! 


3540 


FOR X=l TO D(0)*4 STEP 4 


3550 


D(X)=(D(X) AND 255)*MI - 256 


3560 


NEXT 


3570 


RETURN 


3580 


i 


3590 


'**** PLAY MUSIC 


3600 


CLS 


3610 


PRINT" <1> PLAY USING DISK BASIC" 


3620 


PRINT" <2> PLAY USING LEVEL II BASIC" 


3630 


PRINT 


3640 


M=0: INPUT"SELECTION";M 


3650 


IF M<1 OR M>2 THEN 3640 


3660 


CLS : Q=VARPTR ( D ( ) ) 


3670 


IF M=2 GOTO 3720 


3680 


P!=PEEK(VARPTR(M$)+l)+256*PEEK(VARPTR(M$)+2) 


3690 


IF Pl>32767 THEN Pl=P!-65536 


3700 


P=P1: DEFUSR0=P: M=USR0(Q) 


3710 


RETURN 


3720 


POKE 16526, PEEK (VARPTR(M$) +1) 


3730 


POKE 16527, PPEK(VARPTR(M$)+2) 


3740 


M=USR(Q) 


3750 


RETURN 


3760 


i 


3770 


•END OF PROGRAM 



Whether you use your microcomputer for business, 

science, education or in your home — 

Whether you have an Apple, TRS-80*, PET, IBM 

Heath, Atari, Sinclair or another system— 

Whether you are a beginner, intermediate or expert. . . 

Microcomputing is for you. 

Each month the pages of Microcomputing are filled with the most up-to-date information on microcomputing. 
Last year Microcomputing had over 2,500 pages. So you get all that information at less than a penny a page. 
You can expect Microcomputing to bring you . . . 
•articles on everything from investment tracking to games -up-to-date industry news 
• reviews on new products »and hundreds of dollars worth of usable programs 
Whatever area of microcomputing you are in, Microcomputing helps you explore it— so subscribe today with 
our no-risk offer. If you are not satisfied with the first issue, write cance l across your invoice and send it back. 
The Microcomputing is yours to keep. 



YES, I want Microcomputing. 

D Bill me $24.97 for a year's subscription. Bill my G AE □ MC D VISA D Check 

enclosed. 

Canada and Mexico 1 year only $27.97 drawn on US banks— Foreign 1 year only $44.97 drawn on US 
banks— PO Box 981 • Farmingdale, N.Y. 11737 

Name 



Address. 
City 



State. 



Card#. 



Exp. Date 



\ 



Signature _ 



Interbank # 



\ 



TRS-80 is a trademark of Radio Shack division of Tandy Corp. A photocopy of this coupon is acceptable 




80 Micro, Anniversary 1983 • 261 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS-80 Model 1 or 3, Level 2 or 
DOS with a minimum of 16K. 

488-80B 

For Model 1 

Ooeration 

■Mm 




488-80C 

For Model 3 

Operation 

Model 488-80B or 488-80C Price: $375. 

t shipping, insurance & tax 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3370 
'Trademark ol Tandy Corp. 
There is no alliliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 



<^203 



MODEL III TRS-80® 
Software on Disks! 

At last! All Model III. 

Put it in — Watch it run. 

GUARANTEED — SEND FOR 

FREE CATALOG. INCLUDE $9.95 

FOR DISK VERSION AND 

A FREE PROGRAM. 



STAR*WARE 



TM 



Rt. 5, Box 277-C 
Benbrook, TX 76126 



MEMOREX 

FLEXIBLE DISCS 

WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information. Dealer 
inquiries invited and CO.D.'s 
accepted. 

VISA' 




PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo. CA 
93401 In Cal. call 
(800)592-5935 or 
(805)543-1037 



mentation, perhaps someone will even 
discover a way to produce the sounds of 
an entire orchestra. ■ 



Lee Morgenstern can be reached at 
14358 Dyer St., Sylmar, CA 91342. 





Program Listing 2 




00100 


; DUAL-VOICE MUSIC USR SUBROUTINE 




00110 


; BY LEE MORGENSTERN, MAY, 1982 




00120 


; 






0000 CD7F0A 00130 


CALL 


0A7FH 


;HL=NOTE LIST ADDRESS 


0003 F3 00140 


DI 




; DISABLE INTERRUPTS 


0004 EB 00150 


EX 


DE,HL 


•DE=NOTE LIST ADDRESS 


0005 DD210000 00160 


LD 


IX ,0 




0009 DD19 00170 


ADD 


IX, DE 


•IX=NOTE LIST ADDRESS 


000B DD4E00 00180 


LD 


C,(IX) 


;BC=NOTE LIST LENGTH 


000E DD4601 00190 


LD 


B, (IX+1) 




0011 DD23 00200 


INC 


IX 




0013 DD23 00210 


INC 


IX 




0015 110800 00220 


LD 


DE,8 


NOTE LIST ENTRY LENGTH 


0018 D9 00230 


EXX 






0019 3E04 00240 


LD 


A, 4 


SET CASSETTE COMMAND 


001B 08 00250 


EX 


AF,AF' 


SAVE TONE LEVEL 


001C DD6600 00260 


LD 


H,(IX) 


GET NOTE DURATION 


001F DD6E01 00270 


LD 


L, (IX+1) 




0022 DD4E02 00280 


LD 


C,(IX+2) 


SET TREBLE COUNTER 


0025 DD4603 00290 


LD 


B, (IX+3) 


SET TREBLE OCTAVE 


0028 DD5E04 00300 


LD 


E, (IX+4) 


SET BASE COUNTER 


002B DD5605 00310 


LD 


D, (IX+5) 


SET BASE OCTAVE 


002E 3E06 00320 


MUSIC1 LD 


A, 6 


SET TIMING COUNTER 


0030 3C 00330 


MUSIC2 INC 


A 


UPDATE TIMING COUNTER 


0031 B9 00340 


CP 


C 


CHECK TREBLE DUE TIME 


0032 3048 00350 


JR 


NC,MUSIC6 


JUMP IF DUE 


0034 BB 00360 


MUSIC3 CP 


E 


CHECK BASE DUE TIME 


0035 381C 00370 


JR 


C,MUSIC4 


JUMP IF NOT DUE 


00380 


; 






00390 


; RELOAD 


BASE TIMER 




0037 79 00400 


LD 


A,C 


GET TREBLE TIMER 


0038 93 00410 


SUB 


E 


COMPUTE NEXT DUE TIME 


0039 4F 00420 


LD 


C,A 




003A 7D 00430 


LD 


A,L 


GET DURATION TIMER 


003B 93 00440 


SUB 


E 


COMPUTE NEXT DUE TIME 


003C 6F 00450 


LD 


L,A 




003D DD5E04 00460 


LD 


E,(IX+4) 


RELOAD BASE TIMER 


0040 3E02 00470 


LD 


A, 2 


SET TIMING COUNTER 


0042 15 00480 


DEC 


D 


DECREMENT OCTAVE COUNTER 


0043 200E 00490 


JR 


N2,MUSIC4 


JUMP IF NOT DONE 


0045 08 00500 


EX 


AF,AF' 


GET PREVIOUS TONE LEVEL 


0046 DDAE07 00510 


XOR 


(IX+7) 


TOGGLE BASE TONE LEVEL 


0049 D3FF 00520 


OUT 


(255) ,A 


COMMAND TONE LEVEL 


004B 08 00530 


EX 


AF,AF' 


SAVE TONE LEVEL 


004C DD5605 00540 


LD 


D, (IX+5) 


RELOAD OCTAVE COUNTER 


004F 3E05 00550 


LD 


A, 5 


SET TIMING COUNTER 


0051 1804 00560 


JR 


MUSIC5 


CONTINUE 


00570 


; 






0053 3C 00580 


MUSIC4 INC 


A 


UPDATE TIMING COUNTER 


0054 B9 00590 


CP 


C 


CHECK TREBLE DUE TIME 


0055 3025 00600 


JR 


NCMUSIC6 - 


JUMP IF TREBLE DUE 


0057 BD 00610 


MUSIC5 CP 


L 


CHECK NOTE DURATION 


0058 38D6 00620 


JR 


CMUSIC2 


JUMP IF NOT DUE 


00630 


; 






00640 


; RELOAD 


NOTE DURATION TIMER 


005A 79 00650 


LD 


A,C 


GET TREBLE TIMER 


005B 95 00660 


SUB 


L 


COMPUTE NEXT DUE TIME 


005C 4F 00670 


LD 


C,A 




005D 7B 00680 


LD 


A,E 


GET BASE TIMER 


005E 95 00690 


SUB 


L 


COMPUTE NEXT DUE TIME 


005F 5F 00700 


LD 


E,A 




0060 DD6E01 00710 


LD 


L, (IX+1) 


RELOAD DURATION TIMER 


0063 3E02 00720 


LD 


A, 2 


SET TIMING COUNTER 


0065 25 00730 


DEC 


H 


DECREMENT DURATION COUNT 


0066 20C8 00740 


JR 


N2,MUSIC2 


JUMP IF NOT DONE 


0068 D9 00750 


EXX 






0069 DD19 00760 


ADD 


IX, DE 


NEXT NOTE 


006B 0B 00770 


DEC 


BC 




006C 78 00780 


LD 


A,B 




006D Bl 00790 


OR 


C 




006E C8 00800 


RET 


z 


RETURN IP NO MORE NOTES 


006F D9 00810 


EXX 






0070 0601 00820 


LD 


B,l 


TERMINATE TREBLE 


0072 1601 00830 


LD 


D,l 


TERMINATE BASE 


0074 DD6600 00840 


LD 


H,(IX) 


GET NEXT NOTE DURATION 


0077 DD6E01 00850 


LD 


L,(IX+1) , 




007A 18B2 00860 


JR 


MUSIC1 , 


RESTART PLAY TIMING 


00870 


; 






00880 


; RELOAD 


TREBLE TIMER 




007C 7B 00890 


MUSIC6 LD 


A,E j 


GET BASE TIMER 


007D 91 00900 


SUB 


c , 


COMPUTE NEXT DUE TIME 


007E 5F 00910 


LD 


E,A ; 




007F 7D 00920 


LD 


A,L 


GET DURATION TIMER 


0080 91 00930 


SUB 


C ; 


COMPUTE NEXT DUE TIME 


0081 6F 00940 


LD 


L,A ; 




0082 DD4E02 00950 


LD 


C,(IX+2) 


RELOAD TREBLE TIMER 


0085 3E03 00960 


LD 


A, 3 ; 


SET TIMING COUNTER 


0087 05 00970 


DEC 


B ; 


DECREMENT OCTAVE COUNTER 


0088 20AA 00980 


JR 


NZ,MUSIC3 ; 


JUMP IF NOT DONE 


008A 08 00990 


EX 


AF,AF' ; 


GET PREVIOUS TONE LEVEL 


008B DDAE06 01000 


XOR 


(IX+6) ; 


TOGGLE TREBLE TONE LEVEL 


008E D3FF 01010 


OUT 


(255), A 


COMMAND TONE LEVEL 


0090 08 01020 


EX 


AF,AF' ; 


SAVE TONE LEVEL 


0091 DD4603 01030 


LD 


B,(IX+3) ; 


RELOAD OCTAVE COUNTER 


0094 3E05 01040 


LD 


A, 5 ; 


SET TIMING COUNTER 


0096 189C 01050 


JR 


MUSIC3 ; 


CONTINUE 


01060 


• 






0000 01070 


END 






00000 TOTAL ERRORS 









262 • 80 Micro, Anniversary 1983 



Programs That Work ! Written 

By A Businessman — For A 

Businessman ! 



LYNN'S A/R SYSTEM 



14 Integraded Account Receivable Programs 
Tested In Service For Over 4 Years 

User CommsntS! • menudriven • increased cash flow • saved over 50 hours a month in secretarial hours • almost completely 
eliminated billing errors • phone supported-ask for Ron. 

LYNN'S A/R SYSTEM WILL 



• print invoices 

• tell you your a/r total, number of invoices outstanding average 
per invoice 

• tell you at any time how many invoices an individual account 
has open, the total amount owed, the average per invoice, the 
invoice date, and then invoice amount 

• total sales on account for a given month, number of invoices sent, 
average sale per invoice 

• how much an account purchased during month, how many 
invoices were sent, average invoice for month 



• tell you what percent of sales an account is to total sales by 
month 

• tell you what percent of a/r an account is 

• print mailing labels for your accounts 

• print statements at any time you want them (either individuals 
or all accounts) 

• print alphabetical hardcopy of accounts and account numbers 

• print all items sold for month 

• alphabetical sort of items sold by month 

• this set of programs can be custom modified by you or us 

• AND MUCH MORE!! 





Aging Report 01 /31 / 81 Page 1 






Account 


Current 


30-60 Days 


60-90 Days 


90+ Days 


Total 


ABC Inc. 


$249.00 


$65.20 


$00.00 


$00.00 


$314.20 


Old Co. Inc. 


00.00 


84.40 


165.20 


00.00 


249.60 


New Co. Inc. 


97.75 


00.00 


00.00 


00.00 


97.75 


Deadbeat Inc. 


00.00 


00.00 


00.00 


345.00 


345.00 



Totals $346.75 $149.60 $165.20 $345.00 $1,006.55 

Aging reports can be compiled on a daily, weekly or monthly bases. 



LYNN'S CHECKBOOK 
LEDGER SYSTEM 

• Phone Supported Ask For Ron • 

• saves hours of posting to general ledger • almost 
completely eliminates mathematical errors • menu 
driven • 200 expense fields • will handle 1 ,000 checks a 
month • will print checks with option to enter handwritten 
checks • will do reconciliation statement with hardcopy 

• will print hardcopy of field totals both my month, year 
to date and end of year • automatic account numbering 

• automatic field entry •will print hardcopy of check- 
book register • debit and credit memo entry • 
alphabetical hardcopy of accounts payable and account 
numbers (machine language sort, very fast) «AND 
MUCH MORE! • 



LYNN'S 




Payroll System 


$150.°° 


Account Receivable System 


$ 79. 00 


Checkbook Ledger System 


$ 79. °° 


Add $2.00 Freight and Handling. 




Illinois Residents Add 6% Sales Tax 





Send $10 00 Per System For Printouts and Documentation 
Credit Given on Order 

Equipment Needed: 48K Model I or III, Line Printer, 

2 Disk Drives. 

The Above programs will work on TRSDOS 1 2 and 1.3 'Of the Model III 
NEWDOS. NEWDOSE 80. NEWDOS 80 V2 0, DOS PLUS. LOOS and 
MULTIDOS for the Model I and III 



TRS80and TRSDOS are trademarks of TANDY CORP 



NEWDOS and NEWDOS 



LYNN'S PAYROLL 
SYSTEM NEW RELEASE 

Phone Supported 81 5/436-4477 Ask For Joe 
Written by a programmer/businessman and a C.P.A. 

• fully menu drive • user oriented • calculates federal 
and state withholdings plus four miscellaneous deduc- 
tions • totals hours and wages for up to ten departments 

• miscellaneous deductions may be computed as a 
percentage of wages or a fixed dollar amount • state 
and federal exemption status independent of each other 

• may be exempt from withholding or allow an additional 
dollar amount • employee data changes made quickly 
and easily • hourly or salary • optional salary override 

• calculates straight time, time and a half, and double 
time for hourly • prints checks and check stubs • per- 
manently records data • prints sample check to align 
printer • lists all checks issued each pay period • prints 
year-to-date, quarter-to-date & period-to-date totals • 
computes and prints data for quarterly tax reports • 
easily converts from existing payroll system • easily 
handles 100 employees • USES SAME CHECKS AS 
LYNN'S CHECKBOOK LEDGER SYSTEM • Please 
furnish company name, state, state unemployment com- 
pensation number, and whether for the Model 1 or III. 

LYNN COMPUTER SERVICE 

6831 West 157th Street 
Tlnley Park, Illinois 60477 

(312)429-1915 „ 115 

80 are trademarks ot APPARAT INC LDOS is a trademark of LOGICAL SYSTEMS INC. 
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FlexCat, Your Basic DBM 



by Lawrence A. Terre 



w 



ouldn't it be nice to use one data-base 
manager for all your filing and retrieval 
needs? FlexCat is just what fills the bill. 



Tired of rewriting your data-base 
program for each application? Forget 
keywords for a file created last year? 
FlexCat is a flexible text-oriented 
cataloging system able to search data 
using partial or limited information. 

Before FlexCat, locating a specific 
record in a large file was tedious, 
especially if my recollection of that 
record was fragmented. FlexCat 's 
search feature provides a method to ex- 
tract a record or records based on par- 
tial information. 

Initialization Program 

This program creates a disk file ac- 
cording to parameters determined by 
your responses to prompts. The file 
created will contain heading, field, and 
data information to be used by the two 
remaining programs. A test record is 
also created. 



The Key Box 

Disk Basic 
Model I 
48KRAM 
TRSDOS 
One Disk Drive 
Line Printer I 



The fixed -format screen layout dis- 
plays one record at a time. Headings ap- 
pear left-justified in columns 1-21, ex- 
actly as input, with trailing periods as 
fillers. When entered from the main 
program, the data appears in fields (col- 
umns 22-62). Each heading must have 
at least one field and the total number 
of fields cannot exceed 14. 

The program next asks if the head- 
ing's information will be numeric or 
alphanumeric. Incorrectly responding 
to this question affects the way the data 
is evaluated in the sort program, so be 
careful. 

You will then be given the option to 
redefine parameters or create a disk file. 
When creating, you can supply your 
own file name or use the default (INIT- 
DISK). For easy file identification in the 
directory, FlexCat automatically adds 
the extension /TXT to all file names. To 
prevent accidental destruction of a pre- 
existing file the program checks and in- 
forms you if a file with the same name 
already exists. You are given the option 
to create a new file under the old name 
or select a different name. 

Main Program 

The main program allows you to 
review, manipulate, print, and other- 
wise interact directly with the file data. 



When this program runs, the load func- 
tion executes first using the same 
default file name as the disk-initializa- 
tion program (unless you assign a new 
default name). 

The main program's four major 
routines are displayed on the menu: 
Add, List, Search, and Save. The legal 
options, available within a given 
routine, are displayed on the lines im- 
mediately preceding and following the 
displayed record. 

Legal Options 

The Add module is used to input ad- 
ditional file records. After selecting this 
function, the heading and field parame- 
ters input during disk initialization ap- 
pear on the screen to cue you. The allot- 
ted field space is indicated by a series of 
graphic blocks. When the cursor ap- 
pears at the beginning of the first field, 
enter that data. The cursor will not ad- 
vance beyond the first field unless some 
data (even a space) is input. 

Then it is possible to move to the next 
or any other field by pressing enter. To 
terminate this Add loop, type "end" at 
the beginning of any field. The current 
record will not be added to the file. 

You can sequentially access records 
within a file by using the List routine. 
There are other options available using 
List. Pressing the up arrow permits you 
to access the previous record. Pressing 
shift, D graphically marks that record 
to indicate it will not be transferred to 
the new file during the save. You can 
salvage records marked for deletion by 
retyping the first field when in the up- 
date mode. 

Also, deleted records can be located 
via the search. In a similar fashion, the 
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shift, U allows you to update the 
displayed record (only fields requiring 
modification need to be retyped) and 
shift, P prints the current record. The 
latter option is ignored if the printer is 
not ready. Pressing shift, S skips past 
the next nine records to display the 
tenth, and shift, L displays the last 
record of the file. Pressing E brings you 
back to the menu. 

The Search option locates specific 
records within the file via a text search 
of any fields you choose. The text 
search scans all fields attached to a 
specific heading for the occurrence of a 
character, word, or phrase anywhere 
within the field. This routine permits 
you to carry out up to five concurrent 
text searches within individual or be- 
tween multiple fields. In other words, 
you can implement any combination of 
tests ranging from five separate tests on 
one field to individual tests on each of 
five fields. 



"You always 

have the option 

of exiting 

to the menu 

by pressing the E key. 



A record displays only when it satis- 
fies the requirements of all specified 
tests. Of course, you always have the 
option of performing fewer than five 
tests. If no search heading is entered for 
the first prompt, a default search of the 
records marked for deletion com- 
mences. Legal options available in this 
routine include update, print, delete, 
and escape. 

Save transfers all records not marked 
for deletion to a file with either the 
default name (file name used to load 
data) or a new name. 

The menu lists two additional op- 
tions: enable auto print and end. The 
first allows the automatic printing of 
either the entire file or only records 
satisfying the search criteria. A com- 
mand to print in the absence of a ready 
printer will not cause the system to hang 
up indefinitely. Within the auto-print 
operation, you always have the option 
of exiting to the menu by pressing the E 



key. The end function displays the 
number of records in memory not 
marked for deletion and provides a 
final opportunity to return to the menu 
(possibly to save your data). 

Sort Program 

FlexCat's sort is an adaptation of D. 
Walker's "Beyond Shell Metzner" (80 
Micro, September 1980). Although the 



FlexCat sort program does not 
influence the operation of either the 
disk-initialization program or main pro- 
gram, it enhances the system by pro- 
viding a method of organizing the file 
according to parameters you supply. 

When running this program, it asks 
you to provide a file name. The pro- 
gram adds /TXT to the file name and 
informs you if the file is not on the disk. 



Program Listing 1. Initialization 



10 

15 

20 

25 

30 

35 

40 

45 

55 

100 

110 

120 

130 

140 

145 

150 

160 

170 



180 
190 

195 

200 
210 

220 

230 

235 
240 
245 
250 
260 

270 

280 
285 
290 

300 

310 
320 
330 
340 

350 
360 
370 
375 
380 
390 
400 
410 
415 
420 
430 
440 
450 
460 
470 
480 
485 



■FLEXCAT 
'WRITTEN 


INITIALIZATION PROGRAM 

BY: 

LAWRENCE A. TERRE 

1100 RANDVILLE DRIVE #205 

PALATINE, ILLINOIS 60067 



CLEAR2000: DIMD$(500): DIMB$(14,3): F$="INITDISK" 

D$="TEST RECORD FROM INITIALIZATION PROGRAM" 

B$=STRING$(21,".") 

CLS: A$="DISK INITIALIZATION PROGRAM": GOSUB570 

TF=14: H=0: FORX=1TO500: NEXT 

i INPUT PARAMETERS 

F0RX=1T014 

CLS: 

PRINT 

A$="HEADINGS MUST NOT EXCEED 21 CHARACTERS.": 

GOSUB570 : 

PRINT 

A$="AFTER HEADING # 1, ANY BLANK HEADING WILL": 

GOSUB57 

A$="TERMINATE THE ENTRY PROCESS": 

GOSUB570 
' ENTER HEADING NAME 

PRINT "HEADING #";X;" WILL BE ";: PRINT, ":" ; 

LINEINPUTB$(X,1) : 

L=LEN(B$(X,1) ) 

IFL>21 OR (L=0ANDX=1) 
GOTO200 

IFL=0 AND XOl 
GOTO340 

H=H+1 

B$(X,1)=B$(X,1)+RIGHT$(B$,21-L) 
' ENTER DATA TYPE (NUMERIC/ ALPHANUMERIC) 

PRINT"NUMERIC OR ALPHA - ( N OR A ) " ; : PRINT, " : " ; 

LINEINPUTB$(X,2) : 

B$(X,2)=LEFT$(B$(X,2) ,1) 

IFB$(X,2) <>"N" AND B$(X,2)<>"A" 
THEN250 

PRINT"NUMBER OF FIELD OUT OF" ;TF; : PRINT, ":" ; 
i ENTER NUMBER OF FIELDS FOR THIS HEADING 

LINEINPUTB$(X,3) 

IFVAL(B$(X,3) )<1 OR VAL(B$ (X,3) ) >TF 
GOTO280 

TF=TF-VAL(B$(X,3) ) 

IFTF=0GOTO340 
NEXT 
CLS: A$=" PRESS <D>ONE OR <R>EDEFINE": GOSUB570 : GOSUB5£ 

IFZZ$="R"GOTO130 
IFZZ$="D"GOTO380 
GOTO340 

' CREATE DISK FILE 

CLS: A$="CREATE FILE ROUTINE": GOSUB570 

PRINT: PRINT"DEFAULT FILE NAME IS <";F$;">": PRINT 

INPUT"IF DESIRED, ENTER NEW FILE NAME W/O EXTENSION ";F$ 

ON ERROR GOTO 490 

i TEST FOR EXISTING FILE WITH SAME NAME 

OPEN"I",l,F$+"/TXT": CLOSE 
PRINT 

A$="FILE ALREADY EXISTS. PRESS <C> TO CREATE": GOSUB570 
A$="OR <R> TO RENAME FILE": GOSUB570 : GOSUB580 
IFZZ$="R"GOTO390 
IFZZ$="C"GOTO490 
GOTO46 
. FILE NAME SELECTED IS NOT ON DISKETTE 



Listing 1 continues 
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After the entry of a valid file name, all 
headings read from the file are dis- 
played on the screen. You are asked to 
rank in order from major to minor the 
headings and specify sort directions 
(ascending/descending). 

The program automatically assigns 
the data type (numeric/alphanumeric) 
to all fields based on information 
supplied during the disk-initialization 
program. The data type you selected 
during initialization will now affect the 
collating sequence. You are asked for 
intermediate through minor headings 
until all have been entered or you 
input "stop." 

Finally, a prompt asks you to insert 
the destination disk and press enter. As 
the file sorts in the specified order, the 
screen displays the field number being 
sorted as well as a graphic character for 
every swap made. The time required for 
the sort and the number of records 
sorted are displayed and the file is writ- 
ten on the disk under the same name 
that was used to read it. 

The Program Listings 

All programs are well documented 
with comments. When typing in the 
main and sort programs you can omit 
the comments and unnecessary spaces. 
Be sure to adjust the number in the 
Clear statement of the main program to 
ensure that all unallocated memory 
space gained is reserved for string 
storage. 

The sizes of the main and sort pro- 
grams without comments and unneces- 
sary spaces are approximately 5K and 
4K respectively. To facilitate program 
entry for those who use the Basic auto- 
matic line-numbering feature, I started 
all the necessary program lines at 100, 
incrementing by 10. 

Compressing the code also results in 
the added benefit of faster execution 
time, which becomes especially impor- 
tant in search and sort operations. 

Applications 

I have used this program for a wide 
variety of applications ranging from 
keeping track of magazine articles to 
cataloging taped class lectures, video- 
cassettes, items for a home inventory, 
and recipes. The ability to perform 
multiple text searches on each record 
while retrieving only the one satisfying 
all criteria has been an especially helpful 
aid. You should have no difficulty find- 
ing uses for FlexCat. ■ 

Lawrence Terre lives at 1101 West 
Thatch # 16, Auburn University, AL 
36849. 
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Listing 1 continued 






490 


RESUME500 




500 


ON ERROR GOTO : F=14-TF: NR=1 




510 


OPEN n O ,, ,l,F$+"/TXT ,, 




520 


PRINT#1,NR;F;H 




525 


i WRITE HEADINGS TO DISK 




530 


FORCC=lTOH: 

PRINT#1, 

CHR$(34) ;B$(CC,1) ;CHR$(34) ; 

CHR$(34) ;B$(CC,2) ;CHR$(34) ; 

CHR$(34) ;B$(CC,3) ;CHR$(34) : 
NEXT 




535 


i WRITE TEST DATA TO DISK 




540 


FORCC=lTOF 




550 


PRINT#1,CHR$(34) ;D$;CHR$ (34) 




560 


NEXT: CLOSE: END 




565 


i CENTER AND PRINT A$ ROUTINE 




570 


TB=.5 * LEN(A$) : TB=32-TB: PRINTTAB(TB) A$: RETURN 




575 


1 INKEY$ ROUTINE 




580 


ZZ$=INKEY$: 
IFZZ$="" 

THEN580 
ELSE 

RETURN 




590 


END 



Program Listing 2. Sort 



10 i 

15 'FLEXCAT SORT PROGRAM 

20 ' 

25 'WRITTEN BY: 

30 ' LAWRENCE A. TERRE 

35 ' 1100 RANDVILLE DRIVE #205 

40 ' PALATINE, ILLINOIS 60067 

45 ' 

50 i 

55 ' TO CONSERVE MEMORY SPACE, REMOVE ALL UNNECESSARY 

60 ' SPACES AND DELETE ALL REMARKS AS THERE ARE NO 

65 ' BRANCHES TO THESE STATEMENTS. 

80 ' 

100 CLEAR 26000 

110 DEFINT B-Z 

120 CLS: PRINTTAB( 12) "INPUT DATA FROM DISK ROUTINE" 

130 A1=0: A2=0: A3=0: A4=0 

140 ON ERROR GOTO 1090 

150 INPUT"ENTER FILE NAME ";F$: OPEN"I" ,1 ,F$+"/TXT" 

160 ON ERROR GOTO 

170 INPUT#1, NR, F, H 

180 DIM C$(NR,F) : DIM A$(F+1): DIM B$(F,3): 

DIM C1(F+1): DIM C2(F+1) 
190 DIM D(F+1): Q=l: Y=l 
200 FOR X=l TO F+l: 

A$(X)="": C1(X)=-1: C2(X)=0: D(X)=0: 

NEXTX 

20 5 ' PUT IMAGE OF HEADINGS IN ARRAY A$ ( ) 

210 FOR X=l TO H 

220 INPUT#1, B$(X,1), B$(X,2), B$(X,3) 

230 A$(Y)= B$(X,1) : 

Y= Y+VAL(B$(X,3) ) 
240 NEXTX 

245 ' PUT DATA IN ARRAY C$( , ) AND REMOVE SINGLE SPACES 

250 FOR X=l TO NR: 

FOR Y=l TO F 
260 INPUT#1, C$(X,Y) 

270 IF C$(X,Y)= " " THEN C$(X,Y)= "" 

280 NEXTY: 

NEXTX: 

CLOSE 

285 ' DISPLAY HEADINGS ON CRT 

290 CLS: 

FOR X=l TO H STEP2: 
PRINT B$(X,1) ;: 
PRINTTAB(40) B$(X+1,1): 

NEXTX 
300 PRINT STRING$(63,"-") 

305 i INPUT SORT FIELD HEADING 

310 FOR XX=1 TO H 

320 PRINT"ENTER HEADING OR <STOP>. PRIORITY #;" XX; "? " 

330 LINEINPUT S$ 

335 ' TEST FOR VALID FIELD HEADING 

Lixlinii 2 ami mi 



Two great simulations 

for the" 80s"... 




[It 



The realism of "out-the-window" flight can be yours with 
this challenging simulation that will excite beginners and 
test experienced pilots. On cassette, $25.00. 
On enhanced disk (increased world projection rates, 
10-frame-per-second approach mode, infinite horizon, 
hit/crash detection, and more), $33.50. For Model I or 
III: please specify since the media are different. 
All versions require 16K. 



T80-SG2 



Forest Fire 
Dispatcher 

Also challenging and realistic, Forest Fire Dispatcher 
features the ease of operation that lets you concentrate 
your energy and imagination on the job at hand: saving 
forests as efficiently as possible. A naturally deep 
strategy game for years of pleasurable interaction. On 
cassette, $24.95 (16K required). On disk, $29.95 
(32K required). Specify Model I (Level 2 BASIC) or 
Model III. 




See your dealer! 



For direct order, include $1.50 and indicate UPS or first class mail. Illinois 
residents add 5% sales tax. Visa and MasterCard accepted. 
If you don't yet own a disk, don't fret. You can upgrade anytime. 
Cassette users may send back their cassette (but not the manual) along 
with $10 (first class shipping included) and receive the disk version. 

xufeLOGIC i 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217) 359-8482 
Telex: 206995 
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If You Do A Lot Of Editing Of 

Your BASIC Programs, Then 

This Is The Editor For You!!! 



The Full Screen Text Editor for BASIC, we were the first to give 
the TRS-80 this indispensable ability. What ability? The ability 
to edit your BASIC program with the ease of word processing. 
It is a type of word processor specifically designed to handle 
BASIC programs instead of letters and documents. 



■hhhh 



, ■' 



■ The capability to change, insert and 
delete a character or characters: 

Simply position the cursor over the 
character that you wish to change and 
type in the new one. Another handy feature 
is Insert Mode, this is used to add text in the 
middle of a program line. 

■ Extend a line or insert new lines: 

Extending a line is as simple as two 
keystrokes, instantly the cursor jumps to the 
end of the program line and the editor is 
placed in the insert mode. 

■ Delete, copy or move statements: 

All you have to do is mark the line or block 
of lines and then.tell the editor where to 
move or copy them. 

■ Global Search and/or change any 
specified string: 

Have you ever needed to change a lot of 
PRINT statements to LPRINTs? 

■ Macro key facility: 

Macro keys can cut your programming 
time in half. You can define each of the 26 
letter keys (A-Z) to represent BASIC 
keywords, or any letter or number 
combination up to 6 characters per key. 

■ Renumber commands: 

Whats so special about this renumber 
facility? Not only can it renumber selected 
portions of your program, it also checks all 
GOTO, GOSUB, THEN and ELSE statements 
and updates them as needed! 

r'See List ol Advertisers on Page 563 



You may have seen other Editor programs 
advertized that give you one, maybe two 
of these features. You may have also seen 
some of these features sold as separate 
utility programs. 

Only CAU offers a complete editing system, 
not just a word processor patched up to 
handle line numbers. 



You can order the BASIC Editor directly from 
Computer Applications Unlimited or ask your 
local computer store. 

at# 1210-20 for Only 





The Editor is supplied on tape with complete 
instructions to move it to disk. If you wish us to 
send the editor on disk please add $5.00 
and ask for a DISK DUMP 

Add $2.00 for shipping in the U.S. and 
Canada, $10.00 outside USA 
N.Y State Residents add applicable Sales Tax. 
Dealer Inquiries Invited. 



Computer Applications Unlimited 
P.O. Box 214, DeptFSBE, Rye, N.Y. 10580 
(914)937-6286 

^120 

m I COMPUTER 
ML /APPLICATIONS 
USltJ UNLIMITED 

a dlv. ol CAU, Ino. 



TRS-80 is a TM of Tandy Corp. 
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"Double Density Adapter" 
$129.50 



fuS 





"NEW! Plug-in products add Speed, 
80-Column Video, Memory and 

other quality features to your TRS-80 



Model l/lll 

"80 Character Video" 



"Model III Speed-up" $99.50 



mimwxm 



Double Density, 8", and is 
compatible with CPM adapters. 
Includes "state-of-the-art' LSI 
Data Separator for fewer read 
errors. 

Available for Expansion 
Interface"", Holmes DX-1S, and 
other single density disc 
controllers. 

"Mainframe Replaces Interface" 






"Memory mapped" (allows peek 

& poke) — NO SOFTWARE 

DRIVERS. 

COMPATIBLE W/TRS-DOS® 

& others. 




Model I VX-1 
Model III VX-3 



$179.00 
$199.00 



Includes power supply, gold 
connectors, buffers for nigh 
speed operation, and room 
for four peripherals. 



Mainframe 



$99.50 



engineering inc. 

Peripherals Division 

3555 South 3200 West 

Salt Lake City, Utah 84119 • (801) 967-2324 



Runs up to double speed. 
Automatically runs disc & 
cassette at normal speed 
(defeatible). Includes 
fast Z80B. 

'Other products available or 
under development. 

DX-1S Single Density 
Disc Controller $148.50 
w/Double Density 
Adapter $219.00 

Extend Memory 
Call or write for details. 



"Model I Speed-up" $99.50 




8 Software - Selectible 

commands for 2/3 to 3 times 

normal speed. 

Runs disc & cassette at 

normal speed (defeatible). 

Parallel printer port for 

$24.50 

Includes fast Z80B for 

reliable high speed 

performance. 



"48 K Memory without an 
Interface" 



wmxmm 




Adds Memory inside 
keyboard up to 48K. 
Cures expansion interface® 
reboot/noise problems. 

IM-2 includes 
32K RAM 
IM-1 includes 
16K RAM 
IM-2 P 32K RAM 
(for PMC) 



$139.50 
$ 86.00 
$139.50 



One year warranty on all products. Add Shipping/Handling - Mainframe $9.00 U.S., $15.00 Canada, Overseas $30.00. Other 
products - $5.00 U.S. & Canada. All others add 15%. Prices subject to change without notice. Dealer Inquiries Invited. For 
information send Self-Addressed Stamped Envelope. Reader Service takes 8 weeks. 



■See List ol Advertisers on 
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EDUCATION 



Math Hangman 



by Tim Knight 



H 



elp your children learn addition, subtraction, 
multiplication, and division with this fun 
game — and brush up your own math skills, too. 









( - ^ 




v J 








SET UP STRINGS 






N0 /WANT\ 






\TIONS/ 

Tyes 




GIVE INSTRUCTIONS 




| 




PRACTICE WHAT ? 












DRAW PICTURE 
















/ NUMBERS / 








GIVE QUESTION 












/ ANSWER / 


es /answer\ 




\ RIGHT y 

Tno 

NO /^i A .^\ 




Ives 

YES /^LAY \ 




[no 


f STOP J 



Math Hangman is educational as 
well as entertaining. It helps people de- 
velop their skills in addition, subtrac- 
tion, multiplication, and division, and 
it will probably be used mostly by 
young people. However, since many of 
us are becoming increasingly depen- 
dent upon calculators and computers, 
our mathematical skills are, no doubt, 
rusty. So, adults, too, may find this 
game challenging. 

In Math Hangman, you answer 
questions about random math prob- 
lems. For each wrong answer, a piece 
of the hangman appears. If the whole 
man is formed, you lose; if you get 
through all the problems, you win! 



Extra Features 

Just for fun, I put some extra fea- 
tures in this simple game. First, the 
playing instructions are in the game. 
Even though you might not need them, 
they are helpful to children and players 
who didn't type in the program. 

Second, the computer repeats a 
problem if you get it wrong, providing 
a true test of your skills. 

A third feature is found at the end of 
the game when the percentage for the 
number of right answers is given. This 
lets a player know if his skills are im- 
proving — or getting worse! 

In case you want to modify the pro- 



The Key Box 

Models I & HI 

16K, 32K 

Cassette or Disk Basic 



Fig. 1. Program Flowchart 
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IMPORTANT VARIABLE LIST 


A 


CHR$ DATA 


B$(I) 


PARTS OF MAN'S BODY 


B(I) 


PLACES ON SCREEN PIECES OF BODY GO 


Rl, R2 


RANDOM NUMBERS 


GU, GU$ 


PLAYER'S GUESS 


AN, AN$ 


TRUE ANSWER 


RT 


RIGHT ANSWERS 


WR 


WRONG ANSWERS 


P 


PERCENTAGE 




Table 1. Variables 



.Space Degradation 



,N "T SNG DBL 



Operation 



STR 



k *£& 




##^ 







178 
3.5 

3.0 
35 

23 
57 
48 
1.5 
1.08 
77 
7.1 
111 
10 
47 
33 
50 
1.2 
61 




"S*" 

**<* 

^>°" 



28 
3.6 

3.0 
1.8 

2.0 
1.8 
1.8 
1.5 
1.17 

70 
1.9 

6.8 

4.5 

4.6 

4.3 

6.8 

1.01 
5.0 



216 

74 



20 
3.6 
3.0 
16 


7.3 

3.5 
3.0 


1.6 
1.4 
1.3 


6.6 
3.6 


1.1 




1.02 




84 


9.3 I 


4.8 




3.6 




3.0 
3.5 


8.1 


5.1 




1.03 
3.7 


1.2 



Assignment (LET) 
Array Refere 



nee (1-dim) 
n ce (2-dim) 



><e 






inf 
5.2 

38 

149 



inf 
1.9 
2.3 
2.3 



inf 
1.7 
1.7 
2.0 



Jf^^^f: 



s/seo 



© \nc\udes 

AS**)* 

© ^ e °^-boon6 



.ood 



,en» a 



na* » 



xraV 5 - 



40^ s/ ^ e9 ro^ 






,e^ 



\oops. 



van 



at>\e 






^•Altalts: 



53 
258 
4.8 
4.7 
6.4 
25 
36 
16 
7.1 
25 
5.4 
16 



Array Refere 

AND, OR 

Compare ( = ,> < et , 

Add, Concatenate ( + ) 

Subtract (-) ; 

Multiply (•) 

Divide (/) 

Constant Reference 

FOR-NEXT 

POKE 

SET, RESET 

lfr THEN ELSE 

ON expression GOTO 

PR,MT PreSS |° n G0SU B 
PRINT s,mple-variable 



Plow of Control 

GOTO 
^P_SUB^RE TURN 

Function; 

'if TVarptpT 

POINT 

INP 

PEEK 

S_fring_Functcns 

ASC 

LEN 

LEFTS 

RIGHTS 

MID$ 

CHR$ 

CVI 

MKI$ 

CVS 

MKS$ 

CVD 

MKD$ 



]NT SNG DBL 



-4 
13 
12 

4 
3 

1 
4 
6 
6 

6 




13 
12 

7 

10 
6 
6 
6 
6 
6 



-1 
- 1 

3 
-2 


- 1 

5 



23 
5 
5 
9 

3 

-1 

11 




13 
12 

7 
10 
6 
6 
6 
6 
4 

5 

5 
9 

3 
1 




13 
12 

3 
2 



11 



-1 



-7 
-10 



-3 

3 
5 





-3 

9 



-3 

9 



-3 



5 



1 

1 

2 

















e xP eC 



fed res' 



99.95 

+ $2 Shipping 
CA add 6% 



fu\\s^ e ' 



eoB^ 



ACecW*- 




\4JCorrect BASIC programs (no dynamic 
renaming, no out-of- range arguments) 
compile without modification. 

You owe it to your programs. 



m@mm 



Allen Gelder Software 

(415)387-3131 

Box 11721 San Francisco CA 94101 



EDIT EDIT is to your ,me " e d'tor as disk is to tape, lets you work and $40 
play in one more dimension. 



• See List of Advertisers on Page 563 
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SEND AND RECEIVE 

MORSE CODE 

•SEND UP TO 40 WPM 
•COPY OVER 100 WPM 

Your Model I or III becomes a pro- 
grammable keyboard keyer that can 
send morse from the keyboard or 
from stored messages. Keying Is done 
either by the relay or by the audio 
output. Received morse is decoded, 
displayed, stored and printed. The 
cassette earphone plug connects to 
the receiver speaker to copy off the 
air. No hardware except patch cords 
is required for many setups. 

satisfaction guaranteed 
Cassette with instruction booklet 
only $19.95 postpaid. Model I or III, 
LEVEL II, with at least 16k required. 

ROGO Computer Products 

4752 DeBeers Drive 

El Paso, Texas 79924 ^343 



COLOR COMPUTER SOFTWARE 

16-K EXTENDED BASIC 

Adventure word games 

• THE ALCHEMIST'S LABORATORY • $14.95 

mix the ingredients yourself 
• LOKAR'S MAGIC STAFF $14.95 
five crystal statues, the magic staff, and a castle 
filled with wild animals. 

■ NIGHT TOWER DESCENT - $14.95 
ten floors of danger, treasure, and magic are be- 
tween you and freedom, 

- SQUEEZE $14.95 
arcade style game where aliens close in from both 
sides at once. 

■ GRAPHIC SCREEN EDITOR - $16.95 
create pictures on the screen using joysticks or 
arrow keys-save on tape, erase, paint, and many 
other features 

- COLOR SHOW DISPLAYS - $8.95 
five graphics programs that create endless chang- 
ing patterns. 

all programs 16-K extended basic cassette only 
Send for free catalogue. We accept checks, money 
orders, Visa and Mastercharge (no C.O.D.s). 
Please add $1.00 for shipping. Send to: 

REAL SOFTWARE CO. 

P.O. BOX 401 
HOPEDALE, MA 01747 

(617)393-6281 ^345 

Mass. residents add 5% sales tax 
" dealer inquiries welcomed * 



P 



W..I..D..E BETCRT SUFHST 

KB 11/16 and DAISY WHEEL II 

Print 15 and 20 Characters/inch 



D L P Corrpany 

6798 Wether idge Dr. 
Cincinnati, Ohio 45230 

513 232-7791 - 413 

VISA OR MASTERCARD ACCEPTED 

$75.00 

260 characters in just 13" at 20 
CPI; 170 in 7". Excellent qua- 
lity 15 CPI printing; 195 Char. 
in 13"; 120 in 8". SCRIPSIT 1 " 2.0 
TRSDOS 7 " 2.0/4.1, VISICALC®, PRO- 
FILE'", BASIC, COBOL, etc. 



gram, I've included a flowchart and a other programmers who want to write 

list of important variables. You might educational programs. ■ 

want to include easier problems, or ones 

that are more difficult. This program Tim Knight is a 16-year-old high 

was not designed solely as an instruction school student. He can be reached at 10 

course; it can also serve as a skeleton for Fieldbrook Place, Moraga, CA 94556. 



Program Listing 

10 ■ Math Hangman program, by Tim Knight 

20 ' 10 Fieldbrook Place 

30 ' Moraga, CA 94556 

40 * for educational use on a TRS-80 Model I or III 

50 CLt;AR 500 

60 CLS 

7 DEFSNG A-Z 

80 FOR 1=1 TO 6 

90 READ A 

100 IF A=999 THEN NEXT ELSE IF A=333 THEN 190 ELSE IF A<128 AND 

A<>26 AND A<>32 AND A<>24 THEN READ B: FOR J=l TO A-l: B$(I)=B$( 

I)+CHR$(B): NEXT: GOTO 90 

110 B$(I)=B$(I)+CHR$(A) 

120 GOTO 90 

130 DATA 176, 186, 3, 176, 26, 7, 24, 188, 2, 191, 187, 143, 183 

, 3, 191, 188, 26, 8, 24, 131, 143, 191, 2, 179, 191, 143, 131, 

999 

140 DATA 2, 188, 7, 191, 2, 188, 26, 9, 24, 9, 191, 26, 9, 24, 9 

, 191, 999 

150 DATA 3, 176, 2, 188, 7, 191, 2, 188, 26, 11, 24, 2, 191, 26, 

2, 24, 2, 191, 999 
160 DATA 2, 188, 7, 191, 2, 188, 3, 176, 26, 2, 24, 2, 191, 26, 
2, 24, 2, 191, 999 

170 DATA 2, 191, 26, 2, 24, 2, 191, 26, 4, 24, 3, 188, 2, 191, 9 
99 

180 DATA 2, 191, 26, 2, 24, 2, 191, 26, 2, 24, 2, 191, 3, 188, 3 
33 

190 ' PROGRAM BEGINS HERE 
200 B(l)=210 
210 B(2)=401 
220 B(3)=399 
230 B(4)=401 
240 B(5)=595 
250 B(6)=598 

260 PRINT TAB(20)"= MATH HANGMAN = " 
270 PRINT 

280 INPUT"Would you like instructions n ;RE$ 
290 IF LEFT$(RE$, 1)="Y" THEN CLS ELSE GOTO 470 
300 PRINT TAB(15) n * MATH HANGMAN INSTRUCTIONS *" 
310 PRINT 
320 PRINT" This game is very simple to use. It will both teach 

a person" 
330 PRINT"and also serve as entertainment! Its main purpose, th 
ough," 

340 PRINT"is to help a person with his or her math skills." 
350 PRINT" The program will begin by asking if you would like t 
o work" 
360 PRINT"on addition, subtraction, multiplication, or division. 

You" 
370 PRINT"chose one of these that you want most. After that, ty 
pe in " 

3 80 PRINT"how many problems you would like to do, and the comput 
er will" 

390 PRINT"take it from therel" 
400 PRINT" You will do problems from then on. For each one you 

get wrong"; 
410 PRlNT"though, another piece of the hangman will come up. If 

the" 
420 PRINT"whole hangman is formed, then you lose. However, if y 
ou make" 

430 PRINT"it through those problems without any trouble, you win 
I" 

440 PRINT 

450 PRINT TAB(10)"Hit the space bar to begin game...."; 
460 IF PEEK(14400)=128 THEN CLS ELSE 460 
470 CLS 
480 PRINT 
490 PRINT 

500 PRINT"WOULD YOU LIKE TO PRACTICE ADDITION, SUBTRACTION, MULT 
IPLICATION"; 

510 PRINT"OR DIVISION? (TYPE IN A,S,M, OR D) "; 
520 INPUT CH$ 
530 CH$=LEFT$(CH$, 1) 

Listing continues 
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Listing continued 

540 IF CH$<>"A" AND CH$<>"S" AND CH$<>"M" AND CH$<>"D" THEN PRIN 

T: PRINT"TRY AGAIN!": FOR K=l TO 1000: NEXT: GOTO 470 

550 INPUT"AND HOW MANY PROBLEMS WOULD YOU LIKE TO TRY";NP 

560 IF NP>50 THEN PRINT "WOW! I THINK THAT'S A LITTLE TOO MUCH ! " 

: PRINT: GOTO 550 

570 IF NP<7 THEN PRINT n AWW, YOU CAN GIVE IT A BETTER SHOT THAN T 

HAT1": PRINT: GOTO 550 

580 CLS 

590 PRINT @ 832, STRING$(36, 191); 

600 PRINT @ 896, STRING$(3, 191);" MATH HANGMAN 

";STRING$(3, 191) 

610 PRINT @ 784, CHR$ ( 131) +CHR$(191) +STRING$(6 , 131) +CHR$ ( 191) +C 
HR$(131) ; 

620 PRINT @ 960, STRING$(36, 191); 
630 FOR Y=136 TO 776 STEP 64 
640 PRINT @ Y, CHR$(191); 
650 NEXT 

660 PRINT § 137, STRING$(10, 131); CHR$(191); 
670 PRINT @ 290, "WHAT IS :"; 
680 R1=RND(100) 
690 R2=RND(100) 

700 IF CH$="A" THEN C$="+ n : AN=R1+R2 ELSE IF CH$="S" THEN C$= n - n 
: AN=R1-R2 ELSE IF CH$="M n THEN C$= n * n : AN=R1*R2 ELSE C$="/": AN 
=R1/R2 

710 PRINT @ 354, Rl; C$; R2; 
720 INPUT GU 

730 POKE 15360+384+8, 191 
740 PRINT @ 290," "; 

750 PRINT @ 354," "; 

760 GU$=STR$(GU) 
770 AN$=STR$(AN) 

780 IF LEFT$(GU$, 5) =LEFT$(AN$, 5)THEN PRINT @ 290, "R I G H T !" 
;: FOR XX=WR TO 1 STEP -1: PRINT @ B(XX) , B$(XX);: NEXT: RT=RT+1 
: FOR K=l TO 1000: NEXT: PRINT @ 290," ";:IF RT+WR<NP 

THEN 670 ELSE 850 

790 IF LEFT$(GU$, 5) <>LEFT$(AN$, 5) THEN WR=WR+1 : FOR XX=WR TO 1 
STEP -1: PRINT @ B(XX), B$(XX);: NEXT: PRINT @ 290 , "W-R-O-N-G" ; : 
FOR K=l TO 1000: NEXT: IF WR>6 THEN 800 ELSE PRINT @ 290," 
";:IF RT+WR<NP THEN GOTO 710 ELSE 850 
800 PRINT @ 7 84," "; 

810 PRINT @ 283, "A h h h h h h h h h h h I"; 
820 FOR K=l TO 1000 
830 NEXT 
840 CLS 
850 CLS 

860 PRINT"YOU HAD ";RT; "RIGHT AND" ;WR; "WRONG. THAT COMES TO" 
870 P=RT/(RT+WR) 
880 P=P*100 

890 PRINT P;"% RIGHT. WOULD YOU LIKE TO TRY AGAIN ?"; 
900 Q$=INKEY$ 
910 A$=INKEY$ 
920 IF A$="" THEN 910 
930 IF A$="Y" THEN RUN 
940 END 



*'' 




'4 

CEnTRoniC5 ^W?m£ 

add lowercase with our 
PLUG-IN piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 
96 character ASCII PLUS choice <X 
128 character API. TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add J 50 /set). 
Most printers convertible: specify logic board • 

Radix 
Technologies 

Suite 400 Carolyn Building "* 

10400 Eaton Place 

Fairfax, VA 22030 (703) 385-0900 

wm. wnmot mm. t— i ^-269 



96K MODEL 1 

BIGMEM* replaces the 16K keyboard 
RAM with 64K chips. A custom mem- 
ory controller mounts inside the 
keyboard case to give you 

• 48K keyboard memory on power-up 

• plus access to 32K E/I memory. 

• 2.7K RAM above ROM 1s available. 

• Optionally overlay ROM with RAM. 

• BIGMEM works with TRS-80** DOS or 
t remaps kybd/video for 64K CP/M*** 

..$180 post paid with check or money 
order. COD add $3. NYS residents 
add sales tax. BIGMEM incl. 64K RAM 
chips, A&T controller board, internal 
cable, wire, solder and instructions. 

MICR0HATCH 
P0 Box 501 

DeWItt, NY 13214 " 419 
(315)446-8031 after 6PM 

Trademarks of *Microhatch, **Tandy 
Corp. and ***Digital Research. 



Data Acquisition 

and Control for the TRS-80* 

$230 ppd. 

The STARBUCK 8882 is a compieie eight cnanne 
data acquisition and control system plug 
compatible with the Model I Level II TRS-80 it 
includes 8 protected analog inputs (0-5 Vdc with 
8 ± i bit accuracy) 8 protected digital inputs 8 
optoisolated digital outputs and two loystick 
por'.s interrupt driven software package allows 
simultaneous data acquisition ana storage while 
using the TRS-80 lor any othe' purpose 1 
Application manual covers home security, energy 
monitoring weather station use appliance 
control graphics and games Price includes 
case power supply, extra expansion card edge 
connector cable complete software package and 
detailed applications manual Manuals only are 
available lor $5 00 ppd Model III version $?b0 
ppd To order write or call 

STARBUCK DATA CO. 

P0 Box 24 Newton MA 02162 

617-237-7695 ^205 

Massachusetts residents add 5% sales tax 'TRS-80 
is a trademark of Tandy Corp. 



MEMOREX 
Diskettes 




Top-quality 

Memorex 

Diskettes 

from Tech* Data, your complete 

word and data processing supply 

center. Dealer inquiries invited. 



Call Toll Free 

1-800-237-8931. 

In Florida, call 

813-577-2794. 



5 



Tech* Data Corporation 

325 1 Tech Drive North 
St. Petersburg, FL 33702 




CHURCH DONATIONS 



Computer Program for TRS 80 Models I. II, & III 



RECORDS, STORES & REPORTS 



Gives printout ot collections, totals to date 

as well as individual quarterly reports 

to congregation members 



For Information, Contact: 



^-307 

CUSTOM DATA ^^3S 

505-434-1096 Alamo*...-,!... \M 88:110 



sSee List of Advertisers on Page 563 
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UTILITY 



Smartcat 



by Irwin Rappaport 



T 



he Lynx modem and Emterm software make an 
impressive communications package; Smartcat 
makes this combination even more powerful. 



The program Emterm, supplied with 
the Lynx modem (Emtrol Systems 
Inc., Lancaster, PA), creates a smarter 
TRS-80 terminal. Emterm and Lynx 
provide telephone dialing from the 
keyboard, storage and subsequent op- 
erator-commanded transmission of a 
message, alteration of certain operat- 
ing parameters under software control, 
and simultaneous screen and line- 
printer (parallel) output. Emterm can 
also output control-key codes required 
by some data banks, and provides for 
up to 10 user-defined control keys. 

These are powerful capabilities, but 
your TRS-80 terminal can do much 
more. You can discard Emterm and 
buy a more extensive program that 
supports the Lynx, or you can add the 
following features to Emterm: 
• Uploading and downloading (trans- 



The Key Box 

Disk Basic 
Assembly Language 
Model I or III 
32K RAM 
One disk drive 
Editor/ Assembler 
Lynx modem 



mitting and receiving) of program files. 

• Support for upper /lowercase modi- 
fication. 

• Screen dump to line printer. 

• Delay routine for keyboard debounce 
or transmission rate adjustments. 

• Telephone directory storage with in- 
stant phone-number retrieval. 

Passing Control to Smartcat 

Three program listings are presented 
here. The two Basic programs play 
supporting roles while Smartcat, the 
Assembly listing, is the addition to 
Emterm. When Emterm is loaded and 
executed, it disassociates itself from 
the TRS-80 operating system and runs 
its own keyboard scan routine, ena- 
bling output of control-key codes. The 
first of two jump-to-Smartcat patches 
is made at this scan routine, location 
7BB8 hex in Emterm. 

While Emterm is running, frequent 
calls are made to 7BB8H to determine 
keyboard status and to decode the 
matrix if a key is pressed. The ASCII 
value of the key is sent to the accu- 
mulator. By having control at that 
point, Smartcat can test the accu- 
mulator and take whatever action has 
been programmed for a particular key. 
For example, the program contains a 
routine to dump the screen contents to 
a line printer when you press the 



"zero" key. Smartcat checks the accu- 
mulator and branches to the dump if it 
finds 30 hex. 

In effect, the Lynx/TRS-80 gains 
the ability to learn whatever you teach 
it. A terminal must know whether its 
user wants a program routine or the ac- 
tual character when a key is pressed. 
Emterm makes this distinction by in- 
corporating the down arrow as a con- 
trol key while Smartcat requires that 
shift, @ be used as the control-key 
sequence. 

Since Emterm resides from 7537H- 
7E03H and uses all the area below it 
through 7100H for the stack and mes- 
sage storage, the Smartcat Assembly 
listing (see Program Listing 1) begins at 
7F00H. The two programs are com- 
bined and saved in one package, from 
7537H-880FH with the entrance at 
7F00H. Upon execution, the Smartcat 
code creates two patches into Emterm: 
one for the keyboard-scan jump rou- 
tine and the other to make provision 
for downloading. In addition, a patch 
is made into TRSDOS at 401 EH for 
lowercase display support. 

The lowercase driver routine sup- 
ports the 2102 RAM chip piggyback 
modification, such as the kit marketed 
by Emanuel B. Garcia, Jr. and Asso- 
ciates, Chicago, IL. In Listing 1, the 
location labeled SWLC is specifically 
included for those not having the 
lowercase modification. If you do not 
have the lowercase modification, 
change the instruction from RET (C9) 
to NOP (00), which negates the lower- 
case routine. If you install the modifica- 
tion at some later date, change it back. 

Emterm jumps to Smartcat at 
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UTENTR. The first three bytes there 
are the instructions originally con- 
tained in 7BB8,9,AH, and which were 
replaced with the jump-out patch. 
Then the remainder of the keyboard 
scan is called. Regaining control upon 
the return, Smartcat calls SWD, the 
delay routine. 

SWD initially contains an RET (C9) 
instruction. When the delay routine is 



activated by issuing the appropriate 
keyboard command, location SWD is 
changed to NOP (00), thereby allowing 
the call to the delay routine to proceed. 
The contents of the BC register pair de- 
termine the amount of delay. Three 
levels of delay are user selectable from 
the keyboard as determined in 
FUNC10, FUNC11, and FUNC12 at 
the LD instruction (02,10,80 hex re- 











Prograrr 


Listing 1. Smartcat 






00010 


;*** SMARTCAT * 


** OMIT LOWER CASE PORTION FOR MODEL III 


7F00 




00020 




ORG 


7F00H 


7BB8 




00030 


CMDEMT 


EQU 


7BB8H ;JUMP OUT POINT FROM EMTERM KEY-SCAN 


81FF 




00040 


TABLE 


EQU 


81FFH ; START PHONE NUMBER TABLE 


8500 




00050 


DIRECT 


EQU 


8500H ; START DIRECTORY 


88FE 




00060 


BUFFER 


EQU 


88FEH ; BEGINNING OF UPLOAD BUFFER 


7F00 


3EC3 


00070 




LD 


A,0C3H 


7F02 


325779 


00080 




LD 


(7957H) , A; EMTERM JUMP-OUT TO DNLOAD 


7F05 


21CF80 


00090 




LD 


HL,DNLOAD 


7F08 


225879 


00100 




LD 


(7958H) ,HL 


7F0B 


211D7F 


00110 




LD 


HL, LCENTR ; LOWER CASE DRIVER PATCH ... 


7F0E 


221E40 


00120 




LD 


(401EH),HL ;OMIT FOR MODEL III 


7F11 


32B87B 


00130 




LD 


(CMDEMT) ,A 


7F14 


21447F 


00140 




LD 


HL,UTENTR 


7F17 


22B97B 


00150 




LD 


(CMDEMT+1) ,HL 


7F1A 


C33775 


00160 




JP 


7537H ;ALSO TRY USING 755C ... SEE TEXT 


7F1D 


CD3E7F 


00170 


LCENTR 


CALL 


SWLC ;LOWER CASE DRIVER BEGINS ... 


7F20 


DD6E03 


00180 




LD 


L, (IX+03) ;OMIT DRIVER ROUTINE FOR MOD III 


7F23 


DD6604 


00190 




LD 


H,(IX+04) 


7F26 


DA9A04 


00200 




JP 


C049AH 


7F29 


DD7E05 


00210 




LD 


A, (IX+05) 


7F2C 


B7 


00220 




OR 


A 


7F2D 


2801 


00230 




JR 


Z,ENTR1 


7F2F 


77 


00240 




LD 


(HL) ,A 


7F30 


79 


00250 


ENTR1 


LD 


A,C 


7F31 


FE20 


00260 




CP 


20H 


7F33 


DA0605 


00270 




JP 


C,0506H 


7F36 


FE80 


00280 




CP 


80H 


7F38 


D2A604 


00290 




JP 


NC,04A6H 


7F3B 


C37D04 


00300 




JP 


047DH 


7F3E 


C9 


00310 


SWLC 


RET 




7F3F 


33 


00320 




INC 


SP 


7F40 


33 


00330 




INC 


SP 


7F41 


C35804 


00340 




JP 


0458H ;END OF LOWER CASE DRIVER ROUTINE 


7F44 


D9 


00350 


UTENTR 


EXX 


;ORIGINAL EMTERM CODE 


7F45 


3EFF 


00360 




LD 


A,0FFH .-ORIGINAL EMTERM CODE 


7F47 


CDBB7B 


00370 




CALL 


CMDEMT+3 


7F4A 


CD6F80 


00380 




CALL 


SWD 


7F4D 


B7 


00390 




OR 


A 


7F4E 


C4587F 


00400 




CALL 


NZ,FUNC 


7F51 


CD8680 


00410 




CALL 


SWK 


7F54 


CD5B80 


00420 




CALL 


SWU 


7F57 


C9 


00430 




RET 




7F58 


FE60 


00440 


FUNC 


CP 


60H 


7F5A 


2006 


00450 




JR 


NZ,SWF 


7F5C 


Fl 


00460 




POP 


AF 


7F5D 


AF 


00470 




XOR 


A 


7F5E 


32627F 


00480 




LD 


(SWF) ,A 


7F61 


C9 


00490 




RET 




7F62 


C9 


00500 


SWF 


RET 




7F63 


F5 


00510 




PUSH 


AF 


7F64 


3EC9 


00520 




LD 


A,0C9H 


7F66 


32627F 


00530 




LD 


(SWF) ,A 


7F69 


Fl 


00540 




POP 


AF 


7F6A 


FE3A 


00550 


FUNC1 


CP 


3AH ;KEY<:>=UPPER/LOWER REVERSE 


7F6C 


2006 


00560 




JR 


NZ,FUNC2 


7F6E 


Fl 


00570 




POP 


AF 


7F6F 


AF 


00580 




XOR 


A 


7F70 


325B80 


00590 




LD 


(SWU) ,A 


7F73 


C9 


00600 




RET 




7F74 


FE2A 


00610 


FUNC2 


CP 


2AH ;KEY<*>=REVERSE OFF 


7F76 


2008 


00620 




JR 


NZ,FUNC3 


7F78 


Fl 


00630 




POP 


AF 


7F79 


3EC9 


00640 




LD 


A,0C9H 


7F7B 


325B80 


00650 




LD 


(SWU) ,A 


7F7E 


AF 


00660 




XOR 


A 


7F7F 


C9 


00670 




RET 




7F80 


FE3B 


00680 


FUNC3 


CP 


3BH ;KEY<;>=DELAY 


7F82 


2006 


00690 




JR 


NZ,FUNC4 


7F84 


Fl 


00700 




POP 


AF 


7F85 


AF 


00710 




XOR 


A 


7F86 


326F80 


00720 




LD 


(SWD) ,A 


7F89 


C9 


00730 




RET 




7F8A 


FE2B 


007 40 


FUNC4 


CP 


2BH ;KEY<+>=DELAY OFF 


7F8C 


2008 


00750 




JR 


NZ,FUNC5 


7F8E 


Fl 


00760 




POP 


AF 


7F8F 


3EC9 


00770 




LD 


A,0C9H 


7F91 


326F80 


00780 




LD 


(SWD) ,A 


7F94 


AF 


00790 




XOR 


A 


7F95 


C9 


00800 




RET 




7F96 


FE30 


00810 


FUNC5 


CP 


30H ;KEY<0>=PRINT SCREEN 

Listing continues 



spectively). You may vary all three 
values. 

The call to FUNC begins the routine 
that permits Smartcat to distinguish a 
program function command from an 
ordinary keyboard character when a 
key is pressed. If FUNC finds a shift, 
@ (60H) in the accumulator, switch 
SWF is changed from RET to NOP, 
similarly to the action at the SWD 
switch. When FUNC is called upon the 
next key press, the routine reaches 
SWF, and since it contains 00, passes 
through it. The switch is then closed by 
reloading it with C9, and the routine 
continues to search for the com- 
manded function. 



"(Emterm has) 

powerful capabilities, 

but your TRS-80. . . 

can do much more. " 



Switches SWK and SWU are called 
next. SWK opens when either a phone 
number or an upload transmission is 
wanted. For keyboard shift reversing 
(shift for capitals, no shift for lower- 
case), SWU is open. Both switches are 
toggled with one of the keyboard func- 
tion command routines. After com- 
pleting all the Smartcat calls, program 
action returns to the point in Emterm 
where the keyboard scan was originally 
called. 

Upload, Download, 

and the Telephone Directory 

For uploading, the file to be trans- 
mitted is placed into a RAM buffer 
area beginning with two control bytes 
at 88FEH and the actual file following 
at 8900H. The Basic program UP- 
DOWN/CAT (see Program Listing 2) 
loads the buffer. Then when in Em- 
term terminal mode, a keyboard com- 
mand begins the upload transmission. 

To download a file, the same buffer 
area is used. Upon keyboard com- 
mand, Smartcat begins loading every 
byte received by the Lynx into the 
RAM area starting at 8900H. Down- 
loading continues until you issue a stop 
command from the keyboard, or the 
designated end of the buffer is reached. 
If the downloaded file was an ASCII 
format Basic program, it would be sub- 
sequently taken from RAM and saved 
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Listing continued 










7F98 


2025 


00820 




JR 


NZ,FUNC6 


7F9A 


E5 


00830 




PUSH 


HL 


7F9B 


21003C 


00840 




LD 


HL,3C00H 


7F9E 


CD2080 


00850 


AGAIN 


CALL 


READY 


7FA1 


7E 


00860 




LD 


A,(HL) 


7FA2 


32E837 


00870 




LD 


(37E8H) ,A 


7FA5 


23 


00880 




INC 


HL 


7FA6 


7D 


00890 




LD 


A,L 


7FA7 


CBBF 


00900 




RES 


7, A 


7FA9 


CBB7 


00910 




RES 


6, A 


7FAB 


B7 


00920 




OR 


A 


7FAC 


20F0 


00930 




JR 


NZ, AGAIN 


7FAE 


CD2080 


00940 




CALL 


READY 


7FB1 


3E0D 


00950 




LD 


A,0DH 


7FB3 


32E837 


00960 




LD 


(37E8H) ,A 


7FB6 


7C 


00970 




LD 


A,H 


7FB7 


FE40 


00980 




CP 


40H 


7FB9 


20E3 


00990 




JR 


NZ, AGAIN 


7FBB 


El 


01000 




POP 


HL 


7FBC 


Fl 


01010 




POP 


AF 


7FBD 


AF 


01020 




XOR 


A 


7FBE 


C9 


01030 




RET 




7FBF 


FE40 


01040 


FUNC6 


CP 


40H ;KEY<@>=SHOW PHONE DIRECTORY 


7PC1 


2013 


01050 




JR 


NZ,FUNC7 


7FC3 


E5 


01060 




PUSH 


HL 


7FC4 


D5 


01070 




PUSH 


DE 


7FC5 


C5 


01080 




PUSH 


BC 


7FC6 


210085 


01090 




LD 


HL, DIRECT 


7FC9 


11803C 


01100 




LD 


DE,3C80H 


7 FCC 


010003 


01110 




LD 


BC,0300H 


7FCF 


EDB0 


01120 




LDIR 




7FD1 


CI 


01130 




POP 


BC 


7FD2 


Dl 


01140 




POP 


DE 


7FD3 


El 


01150 




POP 


HL 


7FD4 


AF 


01160 




XOR 


A 


7FD5 


C9 


01170 




RET 




7FD6 


FE2F 


01180 


FUNC7 


CP 


2FH ;KEY</>=DOWNLOAD ON 


7FD8 


2008 


01190 




JR 


NZ,FUNC8 


7 FDA 


AF 


01200 




XOR 


A 


7FDB 


32D180 


01210 




LD 


(SWDN) ,A 


7FDE 


CD2880 


01220 




CALL 


ONMSG 


7FE1 


C9 


01230 




RET 




7FE2 


FE3F 


01240 


FUNC8 


CP 


3FH ;KEY<?>=DOWNLOAD OFF 


7FE4 


200A 


01250 




JR 


NZ,FUNC9 


7FE6 


3EC9 


01260 




LD 


A,0C9H 


7FE8 


32D180 


01270 




LD 


(SWDN) ,A 


7FEB 


CD2E80 


01280 




CALL 


OFFMSG 


7FEE 


AF 


01290 




XOR 


A 


7FEF 


C9 


01300 




RET 




7FF0 


FE2E 


01310 


FUNC9 


CP 


2EH ;KEY<.>=BEGIN UPLOAD TRANSMISSION 


7FF2 


200A 


01320 




JR 


NZ,FUNC10 


7FF4 


E5 


01330 




PUSH 


HL 


7FF5 


21FE88 


01340 




LD 


HL,BUFFER;1ST BYTE FF, THEN KEY<.>,THEN PROG 


7FF8 


22EF80 


01350 




LD 


(WDADRS) ,HL ; CHANGE ADR TO PROG. 


7FFB 


El 


01360 




POP 


HI, 


7FFC 


181B 


01370 




JR 


FUNC20 ;GO TO TRANSMIT 


7FFE 


FE31 


01380 


FUNC10 


CP 


31H ;KEY<1>=DELAY AMOUNT OF 02 


8000 


2004 


01390 




JR 


NZ,FUNC11 


8002 


3E02 


01400 




LD 


A, 02 


8004 


180E 


01410 




JR 


AMTLD 


8006 


FE32 


01420 


FUNC11 


CP 


32H ;KEY<2>=DELAY AMOUNT OF 10H 


8008 


2004 


01430 




JR 


NZ,FUNC12 


800A 


3E10 


01440 




LD 


A,10H 


800C 


1806 


01450 




JR 


AMTLD 


800E 


FE3 3 


01460 


FUNC12 


CP 


33H ;KEY<3>=DELAY AMOUNT OF 80H 


8010 


2007 


01470 




JR 


NZ,FUNC20 


8012 


3E80 


01480 




LD 


A,80H 


8014 


327480 


01490 


AMTLD 


LD 


(AMTDEL+1) ,A 


8017 


AF 


01500 




XOR 


A 


8018 


C9 


01510 




RET 




8019 


F5 


01520 


FUNC20 


PUSH 


AF ;WII,L OUTPUT PHONE NUMBERS/UPLOAD 
OR SWK WILL CLOSE IF NEITHER 


801A 


AF 


01530 




XOR 


A 


801B 


328680 


01540 




LD 


(SWK) ,A 


801E 


Fl 


01550 




POP 


AF 


801F 


C9 


01560 




RET 




8020 


3AE837 


01570 


READY 


LD 


A,(37E8H) ;CHECK PRINTER STATUS 


8023 


CB7F 


01580 




BIT 


7, A 


8025 


C8 


01590 




RET 


Z 


8026 


18F8 


01600 




JR 


READY 


8028 


E5 


01610 


ONMSG 


PUSH 


HL ; PRINT DOWNLOAD ON MESSAGE TO SCREEN 


8029 


214080 


01620 




LD 


HL, DOWNON 


802C 


1804 


01630 




JR 


PRTMSG 


802E 


E5 


01640 


OFFMSG 


PUSH 


HL /DOWNLOAD OFF MESSAGE 


802F 


214C80 


01650 




LD 


HL, DOWNOF 


8032 


D5 


01660 


PRTMSG 


PUSH 


DE ; BLOCK TRANSFER TO SCREEN 


8033 


C5 


01670 




PUSH 


BC 


8034 


11C03F 


01680 




LD 


DE,3FC0H 


8037 


010C00 


01690 




LD 


BC000CH 


803A 


EDB0 


01700 




LDIR 




803C 


CI 


01710 




POP 


BC 


803D 


Dl 


01720 




POP 


DE 


803E 


El 


01730 




POP 


HL 


803F 


C9 


01740 




RET 




8040 


44 


01750 


DOWNON 


DEFM 


'DOWNLOAD ON ' 


804C 


44 


01760 


DOWNOF 


DEFM 


'DOWNLOAD OFF' 


8058 


00 


01770 




NOP 




8059 


00 


01780 




NOP 




805A 


00 


01790 




NOP 




805B 


C9 


01800 


SWU 


RET 




805C 


FE41 


01810 




CP 


41H 

Listing continues 



on disk using UPDOWN/CAT from 
Basic. 

Smartcat provides for storage of 55 
telephone numbers, any of which may 
be called with a keyboard command. 
In addition, a directory is included so 
the user can easily determine which 
phone number belongs to whom, and 
what key brings it up. You use the di- 
rectory and phone-number functions 
at the point in Emterm where you 
would ordinarily enter the number to 
be dialed from the keyboard. With the 
Basic program PHONEDIR/CAT (see 
Program Listing 3) you can establish, 
review, and revise the directory. Table, 
at the beginning of Listing 1, sets the 
start of the phone numbers at 81FFH. 
Similarly, Direct dictates that the in- 
formational portion begins at 8500H. 

Creating the Programs 

Assemble Smartcat with an assem- 
bler, or load the object code directly 
with Debug. You may omit all NOPs 
in the listing. 

Using Debug, load location 81FFH 
with FFH. Again with Debug, load all 
locations from 8200H-880FH with 20H. 
Then load location 84FFH with 00H. 

Load but do not execute Emterm. 
Be sure all the above, including Smart- 
cat, is in memory. Save the entire 
package on disk using Dump or Tape- 
disk. Pick a suitable name for the com- 
bined program which starts at 7537H, 
ends at 880FH, and has its entrance at 
7F00H. Then type in and save the two 
Basic programs, PHONEDIR/CAT 
and UPDOWN/CAT. 

Putting the Programs to Work 

To set up a telephone directory, load 
the combined Smartcat/Emterm pro- 
gram, but do not execute it. Enter 
Basic, enter for files, reserve memory 
at 30006, and run PHONEDIR/CAT. 
Press enter at the prompt to add new 
listings. Input as prompted, first any 
key desired, then the name of the party 
(10-character limit), and finally the 
phone number. Ten digits are available 
for the number so you can use area 
codes where needed. 

Enter telephone numbers just as you 
would for Emterm dialing using digits 
only, no punctuation. Continue with a 
few more entries, and end by pressing 
enter instead of a new key. The entries 
will be POKEd into Smartcat and you 
will be reminded to save the Smart- 
cat/Emterm combination, now con- 
taining your new directory. 

Before doing that, run the Basic pro- 
gram again but this time enter D to see 
the directory. Page 1 scrolls onto the 
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screen. Wait for the page ending 
prompt. PHONEDIR/CAT displays 
three directory pages, each ending with 
the same prompt. Pressing enter pro- 
duces the next page while pressing G 
gets back to the three choices at the be- 
ginning of the program. Input G and 
then try C to change a listing. Input 
any previously entered directory key, 
then the revised name and number at 
the appropriate prompts. Review the 
directory to be sure that the change has 
been made. Save Smartcat/Emterm 
each time after revising the directory. 

Uploading preparation begins in 
Basic. Run UPDOWN/CAT and press 
2 for uploading. Enter the file name 
(the file should be a Basic program in 
ASCII format) and unless you have 
made some program revisions, press 
enter at the starting-address prompt 
that appears after the disk drive stops. 
The file is printed to the screen and 
POKEd into RAM, sector by sector. 
Enter CMD"S" and load and execute 
Smartcat/Emterm in the usual way. 
When you are ready to transmit the 
file, press shift, @ and then the period 
key. Uploading will proceed, returning 
to Emterm terminal mode upon com- 
pletion. The receiving party must pro- 
cess your transmission according to his 
own system's needs. 

You may transmit anything con- 
tained in the RAM buffer with the 
upload routine. If you will be sending a 
non-Basic file, place it in the buffer in 
any way desired — load it, block trans- 
fer it, or type it in, beginning at 8900H. 
At 88FEH and 88FFH put the start 
codes FFH and 3EH respectively (UP- 
DOWN/CAT puts them in when load- 
ing a Basic file). Then upload from 
Emterm as before. 

To download any Basic file, or any- 
thing your Lynx receives, press shift, 
@ and then the slash key. "DOWN- 
LOAD ON" will appear on your 
screen, and every byte received there- 
after will be stored in RAM beginning 
at 8900H. Downloading continues 
until you press shift, @ followed by the 
question-mark key and "DOWN- 
LOAD OFF" appears (or the end of 
the buffer is reached). If desired, you 
may download another file immedi- 
ately using the same procedure. It will 
be stored in the buffer following the 
previous file. 

You can save received files on disk 
when you terminate the phone connec- 
tion. If the downloaded file is an 
ASCII-format Basic program that you 
will put on disk with UPDOWN/CAT, 
follow this procedure after hanging up 
the phone: 



Lining continued 










805E F8 


01820 




RET 


M 


805F FE61 


01830 




CP 


61H 


8061 3006 


01840 




JR 


NC,UL1 


8063 FE5B 


01850 




CP 


5BH 


8065 D0 


01860 




RET 


NC 


8066 C620 


01870 




ADD 


A,20H 


8068 C9 


01880 




RET 




8069 D620 


01890 


ULl 


SUB 


20H 


806B C9 


01900 




RET 




806C 00 


01910 




NOP 




806D 00 


01920 




NOP 




806E 00 


01930 




NOP 




806F C9 


01940 


SWD 


RET 




8070 E5 


01950 




PUSH 


HL 


8071 C5 


01960 




PUSH 


BC 


8072 F5 


01970 




PUSH 


AF 


8073 0602 


01980 


AMTDEL 


LD 


B,02H ; AMOUNT OF DELAY 


8075 0E01 


01990 




LD 


C,01 


8077 AF 


02000 




XOR 


A 


8078 0B 


02010 


MORDEL 


DEC 


BC 


8079 B8 


02020 




CP 


B 


807A 20FC 


02030 




JR 


NZ, MORDEL 


807C Fl 


02040 




POP 


AF 


807D CI 


02050 


OUTDEL 


POP 


BC 


807E El 


02060 




POP 


HL 


807F C9 


02070 




RET 




8080 00 


02080 




NOP 




8081 00 


02090 




NOP 




8082 00 


02100 




NOP 




8083 00 


02110 




NOP 




8084 00 


02120 




NOP 




8085 00 


02130 




NOP 




8086 C9 


02140 


SWK 


RET 




8087 E5 


02150 




PUSH 


HL 


8088 2AEF80 


02160 




LD 


HL, (WDADRS) 


808B F5 


02170 




PUSH 


AF 


808C 3EFF 


02180 




LD 


A,0FFH 


808E BE 


02190 




CP 


(HL) 


808F 2022 


02200 




JR 


NZ, MIDDLE 


8091 Fl 


02210 




POP 


AF 


8092 B7 


02220 




OR 


A 


8093 2002 


02230 




JR 


NZ,GOON 


8095 El 


02240 




POP 


HL 


8096 C9 


02250 




RET 




8097 23 


02260 


GOON 


INC 


HL 


8098 BE 


02270 


KEY1 


CP 


(HL) 


8099 2810 


02280 




JR 


Z,KEY3 


809B F5 


02290 




PUSH 


AF 


809C 23 


02300 


KEY2 


INC 


HL 


809D 3EBF 


02310 




LD 


A,0BFH 


809F BE 


02320 




CP 


(HL) 


80A0 20FA 


02330 




JR 


NZ,KEY2 


80A2 23 


02340 




INC 


HL 


80A3 3EFF 


02350 




LD 


A,0FFH 


80A5 BE 


02360 




CP 


(HL) 


80A6 2818 


02370 




JR 


Z,KEY4 


80A8 Fl 


02380 




POP 


AF 


80A9 18ED 


02390 




JR 


KEY1 


80AB 23 


02400 


KEY3 


INC 


HL 


80AC 7E 


02410 




LD 


A, (HL) 


80AD 23 


02420 




INC 


HL 


80AE 22EF80 


02430 




LD 


(WDADRS) ,HL 


80B1 El 


02440 




POP 


HL 


80B2 C9 


02450 




RET 




80B3 Fl 


02460 


MIDDLE 


POP 


AF 


80B4 3EBF 


02470 




LD 


A,0BFH 


80B6 BE 


02480 




CP 


(HL) 


80B7 2808 


02490 




JR 


Z,KEY5 


80B9 7E 


02500 




LD 


A,(HL) 


80BA 23 


02510 




INC 


HL 


80BB 22EF80 


02520 




LD 


(WDADRS) ,HL 


80BE El 


02530 




POP 


HL 


80BF C9 


02540 




RET 




80C0 Fl 


02550 


KEY4 


POP 


AF 


80C1 21FF81 


02560 


KEY5 


LD 


HL, TABLE 


80C4 22EF80 


02570 




LD 


(WDADRS) ,HL 


80C7 El 


02580 




POP 


HL 


80C8 3EC9 


02590 




LD 


A,0C9H 


80CA 328680 


02600 




LD 


( SWK ) , A 


80CD AF 


02610 




XOR 


A 


80CE C9 


02620 




RET 




80CF E67F 


02630 


DNLOAD 


AND 


7FH ; BEGINNING OF DOWN-LOAD ROUTINE 


80D1 C9 


02640 


SWDN 


RET 




80D2 E5 


02650 




PUSH 


HL 


80D3 F5 


02660 




PUSH 


AF 


80D4 2AED80 


02670 




LD 


HL, (BUFADR) 


80D7 77 


02680 




LD 


(HL) ,A 


80D8 23 


02690 




INC 


HL 


80D9 22ED80 


02700 




LD 


(BUFADR) ,HL 


80DC 3EE0 


02710 




LD 


A,0E0H ; ESTABLISH END OF BUFFER AT E000H 


80DE BC 


02720 




CP 


H 


80DF 2803 


02730 




JR 


Z,BUFEND 


80E1 Fl 


02740 




POP 


AF 


80E2 El 


02750 




POP 


HL 


80E3 C9 


02760 




RET 




80E4 Fl 


02770 


BUFEND 


POP 


AF 


80E5 El 


02780 




POP 


HL 


80E6 3E3F 


02790 




LD 


A,3FH 


80E8 C3E27F 


02800 




JP 


FUNC8 


80EB El 


02810 




POP 


HL 


80EC C9 


02820 




RET 




80ED 0089 


02830 


BUFADR 


DEFW 


BUFFER+2; INITIALIZE BUFFER ADR 


80EF FF81 


02840 


WDADRS 


DEFW 


TABLE ; INITIALIZE TABLE FOR PHONE. 


0000 


02850 




END 
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• Enter Debug and examine the area at 
890OH. 

• Determine the beginning address 
of the file and make a note of it for 
later use. 

• Locate the last byte of the file and 
load 00 into the location immediately 
after it. 

• Go into Basic and run UPDOWN/ 
CAT. Enter 1 for the download save. 



• Enter a file name for the program as 
desired. 

• Enter the program starting address 
noted before (decimal required). The 
easiest way to obtain the decimal value 
is to press break, use &H to get the hex 
to decimal conversion, type and enter 
CONT, and input the decimal. 

• The lines will be printed on screen as 
saving proceeds. 



10 CLEAR 1000 :CLS: PRINT: PRINT"GET FILES TO AND FROM DISK n :PRINT: 
PRINT"1 - SAVE DOWNLOADED FILE FROM MEMORY TO DISK" : PRINT"2 - GE 
T FILt FROM DISK TO MEMORY FOR UPLOAD TRANSMISSION" : PRINT: PRINT" 
ENTER LINE NUMBER FOR ROUTINE DESIRED" 



20 R$=INKEY$:IF R$=" 
VAL(R$) GOSUB 100,20 



OR VAL(R$)>2 OR VAL(R$)=0 THEN 20 ELSE ON 
:GOTO 10 

100 REM *** START OF TO-DISK SEGMENT *** 

110 CLS:PRINT"MEMORY TO DISK ROUTINE" : LINEINPUT"FILE NAME: n ;F$: 
OPEN"0",l,F$ 

120 INPUT "START OF FILE IN MEMORY", -P 

130 PRINT#1,CHR$(PEEK(P) ) ; : PRINTCHR? (PEEK (P) ) ; : P=P+1 : IFPEEK (P) =0 
0THEN140 :ELSE130 
140 RETURN 

200 REM *** START OF FROM-DISK SEGMENT *** 

210 CLS:PRINT"DISK TO MEMORY ROUTINE" :LINEINPUT"FILE NAME: ";F$: 
OPEN"I",l,F$ 

220 A=&H88FE:INPUT"PROGRAM WILL START AT 88FE. <ENTER> IF OK OR 
ENTER DESIRED STARTING ADDRESS" ; A: POKEA, &HFF :A=A+1 : POKEA, &H 
2E:A=A+1 

230 LINEINPUT#l,A$:PRINTA$:FORX=lTOLEN(A$) : POKEA, ASC(MID$ ( A$ r X ,1 
)) :A=A+1:IFA>&HE800THENPRINT"BUFFER FULL" : GOTO240 : ELSENEXTX:PO 
KEA,&H0D:A=A+1:IFEOF(1)THEN240 :ELSEGOTO23 
240 POKEA, &HBF:A=A+l:POKEA,&HFF 
250 RETURN 

Program Listing 2. UPDOWN /CAT 



NEW MODEM GAME 

Your sensors indicate 5 alien ships You move toward them Suddenly, one of the alien ships tractor beams you. disabling your 
warp drive Then, the others lire. This is Terminal-War. 

Choose trom litteen commands as you battle a human opponent by modem connection, up to 28 computer controlled ships, or 
both Every time you play Terminal-War the scenario is different. You can also make each game as easy or as hard as you like 
because you control the strength and the number of ships. 

Only $29.95 

Includes: 2 detailed manuals. 2 disks each with the 2 player modem version, t player version, and a special terminal program so 
that 16K computer users can play Terminal-War (The terminal program is transferable to cassette. Use the 32K 
computer.) 
Cassette with the terminial program already on it: St. 00 

Minimum system requirements 



2 Player version: 1 1 6K TRS-80 level 2 computer with a full 
duplex modem and 1 32K t disk TRS-80 computer with a full 
duplex modem. 

1 Player version: 1 3?K 1 disk TRS-80 computer 
-DEALER INQUIRIES INVITED— 

TRS-80 is a t'ademark of Radio Shack a Tandy Corp 



Ordering information 

'Specify Mod I or Mod III disks or one disk of each * 

We accept Money orders. Certified checks. COD., and per- 
sonal checks (Up to 2 weeks to clear) 
Please add $2 00 shipping NY residents add 7% sales tax 

Mail orders Ocean Computer Products 

P.O Box 6474 
Ithaca. NY 14850 



24 Hour order line (607) 273-6 



-525 




f T£n t^ SIMSIM, INC. 

i.1-1 Lxil If J 214 North Main St., Natick, MA 01760 U.S.A. 

(Lakewood Office Park: Junction of Route 9 & 27) 

. ; -\J| NEC Spinwriters 7700 and 3500 

I, I pp LnJ LJn Letter-quality leader 

/^T^ PJf P Serial 77xx Ust P rice $3085.00 

I lIvT^ SIMSIM's price $2390.00 

VHfLV I Serial 35xx List price $2290.00 

Wn r SIMSIM's price $1775.00 

K_^vrij T ^ Two new models just introduced 

\V/V|/y\/^r Low-cost 3510 and for IBM personal computer, 3350 

M 1 Call for prices (Dealers inquiries invited) 

IN COMPUTER SYSTEMS 

1-800-343-4090 In Massachusetts : Call collect (617) 655-6415 



If you are going to return to modem 
operation, start fresh by reloading and 
executing Smartcat/Emterm. 

Using Smartcat's other features is a 
matter of pressing the right keys. To 
obtain the telephone directory, press 
shift, @ followed by the unshifted @ 
key. The entire directory, showing 
each party's name and the key that will 
bring up his phone number, will be 
block transferred to the screen. To 
have the phone number come up when 
in the Emterm dialing mode, press 
shift, @ and then the key wanted. 
Press enter as usual and the Emterm 
function dials the number just as if you 
had typed it in. 

The screen-dump-to-line-printer 
feature is useful when you do not select 
the Emterm function for simultaneous 
video and printer output, but then 
decide you want a printout of the cur- 
rent screen contents. To print the 
screen, press shift, @ and then the zero 
key. Reversing the keyboard shift for 
upper/lowercase is accomplished with 
shift, @ once again, followed by the 
colon key. Shift, @ and the asterisk 
key returns the normal keyboard. 
Shift, @ and the semicolon key turns 
on the delay feature, while shift, @ 
and the plus-sign key turns it off. To 
select the desired amount of delay, 
press shift, @ and then either the one, 
two, or three key. 



Model III Notes 

For the Model III, eliminate the lines 
in Smartcat for lowercase display as in- 
dicated in the remarks. Uploading, 
downloading, the directory, and the 
delay feature work equally well with 
either the Model I or III. 

If you wish to expand Smartcat, 
simply continue the series following 
FUNC12 so that a branch to your sub- 
routine is produced at the press of 
shift, @ and a designated key. The ac- 
cumulator is normally zeroed prior to 
the return from a FUNC. That action 
avoids printing or transmitting the 
character. In effect, Emterm will never 
know that a key was pressed. 

You can also write routines to be ac- 
tivated upon receiving a specific char- 
acter. As Emterm jumps to Smartcat at 
DNLOAD, the first three bytes found 
are the instructions originally con- 
tained in Emterm. The return at 
SWDN serves as an original instruction 
and the download switch. At that point 
the control is in Smartcat and the ac- 
cumulator contains the last received 
byte, thereby providing the opportu- 
nity to devise your routine. 
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When executing Emterm, with or 
without Smartcat, try using an en- 
trance address of 755CH instead of 
7537H so the beginning of the program 
is bypassed. Do that by loading but not 
executing Emterm, then load and exe- 
cute Debug, and finally enter the pro- 
gram with G 755CH. You can then 
leave Emterm and enter Debug with 
the break key, and return to Emterm 
by entering G from Debug. This will 
not terminate a phone connection if 
there was one prior to the break. To in- 
corporate this into Smartcat, change 
the jump address in Listing 1 line 160 
from 7537H to 755CH. 

The final note involves somewhat of 



a mystery. The assembler listing for 
Smartcat places the end of the avail- 
able download buffer considerably 
below the actual end of memory. It 
seems that Lynx causes some bit resets 
at certain locations in very high mem- 
ory. If that problem doesn't appear in 
your system, then the buffer can end at 
the top of RAM. In any case, use only 
the most significant byte to designate 
the buffer end, as in assembler line 
2710. ■ 



Irwin Rappaport can be reached at 
24 Hemlock Hill Road, Upper Saddle 
River, NJ 07458. 



5 REM *** PHONEDIR/CAT *** NOTE THAT CLEAR STRING SPACE LIMITS 

NUMBER OF NEW ENTRIES THAT MAY BE MADE AT ONE TIME 

10 CLEAR1000:DIM K$ ( 55) ,N$ (55) ,P$ ( 55) : CLS 

20 X=0:C$="": INPUT" <ENTER> TO ADD NEW LISTINGS ... OR ... 

ENTER ' C * TO CHANGE A LISTING ... OR ... 

ENTER 'D ' TO SEE DIRECTORY" ; C$: IFC$="C"THEN110 : ELSEIFC$="D"THEN 

GOSUB500:GOTO20:ELSEIFC$O""THEN20 

50 P=&H8540 

60 IFPEEK(P) =128THEN70:ELSEP=P+1:GOTO60 

70 A=55-PEEK(&H84FF) :PRINT"SPACE AVAILABLE FOR" ; A; "ADDITIONAL PH 

ONE NUMBERS" : S=PEEK ( &H84FF) +1 

100 FORX=ST055 

110 INPUT"KEY";K$(X) : IFK$ (X) =""ANDC$O"C"THEN150 : ELSEIFLEN (K$ (X) 

) <>1THEN110:ELSELINEINPUT"NAME: ";N$(X) : INPUT" PHONE NUMBER" ;P$(X 

) 

120 IFLEN(N$(X) ) =10THEN125:ELSEIFLEN(N$(X) ) >10THENPRINT"NAME TOO 

LONG ... REDO":GOTO110:ELSEFORY=1TO10-LEN(N$(X) ) :N$ (X) =N$ (X) +" 
":NEXTY 

125 N$(X)=K$(X)+"-"+N$(X) :P$(X)=K$(X)+P$(X) :LP=LEN (P$ (X) ) :P$(X)= 
P$(X)+STRING$(11-LP,0) 

127 P$(X)=P$(X)+CHR$(&HBF) : IFC$="C"THENGOSUB300 : GOTO20 
130 NEXTX 

150 FORY=STOX-l:IFK$(S) =" "THENS=0 :GOTO20 
155 N=Y/5 

160 FORZ=lT012:C=ASC(MID$(N$(Y) ,Z,1) ) 

170 POKEP, C:P=P+1:NEXTZ:IFN<> INT (N)THENPOKEP, 32 :P=P+1 
17 5 NEXTY : POKES. H84FF,X-1 : POKEP, 128 
200 P=&H8200 

210 IFPEEK(P) =255THEN220:ELSEP=P+1:GOTO210 
220 FORY=STOX-l 

230 F0RZ=1T012:C=ASC(MID$(P$(Y) , Z,l) ) 
240 POKEP, C:P=P+1:NEXTZ: NEXTY: POKEP, 255 

250 PRINT"NEW ENTRIES COMPLETE" : PRINT"SAVE THE NEW SMARTCAT/EMTE 
RM WITH TAPEDISK":END 

300 P=&H8540:N=0:IFK$(X) =" "THENRETURN 

310 IFPEEK(P) =128THEN400:ELSEIFPEEK(P) <>ASC(K$(X) ) THENN=N+1 : IFN< 
>5THENP=P+13 :GOTO310 : ELSEN=0 : P=P+12 :GOTO310 
320 F0RZ = 1T012:C=ASC(MID$(N$(X) ,Z,1) ) 
330 POKEP, C:P=P+1:NEXTZ 
340 P=&H8200 

350 IFPEEK(P) <>ASC(K$(X) ) THENP=P+12 :GOTO350 
360 F0RZ=1T012:C=ASC(MID$(P$(X) ,Z,1) ) 
370 POKEP, C:P=P+1:NEXTZ: RETURN 

400 PRINT"KEY ";K$(X); n NOT IN DIRECTORY" : RETURN 
500 P1=&H8540:P2=&H8200:N=0 

505 CLS:PRINT"TELEPHONE DIRECTORY PAGE" ;N/20+l : PRINT: PRINT: F 

ORW=1TO10 

510 F0RY=1T02:N=N+1 
520 F0RZ=1T012 

530 PRINTCHR$(PEEK(P1) ) ; : Pl=Pl+l :NEXTZ 
540 IFN/5<>INT(N/5)THENP1=P1+1 
550 PRINT" ";:P2=P2+1 

560 FORZ=1TO10:PRINTCHR$(PEEK(P2) ) ; : P2=P2+1 :NEXTZ : P2=P2+1 : IFY=1T 
HENPRINTTAB(32) " 

570 IFN=55THENPRINT" " :GOTO580 : ELSENEXTY: PRINT" " : NEXTW 
580 G$="": INPUT" <ENTER> FOR OTHERS ... OR ENTER 'G ■ TO GO ON";G 
$:IFG$="G"THENPRINT@832,STRING$(60,32) ; :PRINT@831," "; :RETURN:EL 
SEIFG$O""THEN580 
590 IFN<41THEN505:ELSE500 

Program Listing 3. PHONEDIR/CAT 



P&T CP/M®2 is 
GROWING a 



moo£ v 






o*SS 



t*ooe v 






too 1 



d^ 



5> 



,do> 



,to\e 



,\(jec 



teayfttW 



[?& 



?l^ 



2P 



,\us 



A*£$K>* 



v^P* 



»P& 



A^\V* 



^«0^° 






d\sV- 



ss> 



$2&°. 



^o 



Co 



,^s 



\Q, 



sssfr 



» e rt\. 



Start with a Model II floppy system and 
grow into a hard disk. Since all P&T 
CP/M 2 systems are fully compatible, 
you will have no conversion worries. 
Special note: P&T hard disk systems 
allow you the user to configure logical 
drive assignments to your specifications. 
Write for more details. 

Prepaid VISA. M/C, or COD orders accepted. 
All prices FOB Goleta and subject to change. 

CP/M is a registered trademark of Digital 
Research. TRS-80 is a trademark of Tandy Corp. 



PICKLES 
& TROUT 

P.O. BOX 1206 



GOLETA, CA 93116 ^hr^ZrVl 
(805)685-4641 1 ROU 1 ® 



-See List of Advertisers on Page 563 
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EDUCATION 



Long, Long Division 



by David Cecil 



BRING DOWN AND 
PRINT NEXT DIGIT 
IN DIVIDEND 



( END J 




GET NEW 
DIVIDEND A$ 




N IS POSITION OF 
HIGHEST NON-ZERO 
DIGIT OF A 



Q(P) = 
PRINT 



P = P-I IF T<> I 

AND IF 

(LEN A$)-l < LEN B$ 




Teach your kids (or 
yourself) long divi- 
sion. Your Model I makes 
a good, patient tutor. 



Remember the first elementary 
school teacher to torture you with 
long, long division problems? With 
this program you can have a total of 
254 digits in the divisor and dividend, 
but for easy readability of the inter- 
mediate steps, restrict yourself to 64 
digits. 

The division is displayed on the 
screen just as on paper. The quotient 
appears at the top and the remainder 
on the last line. I chose not to draw 
lines after each two rows of figures. In- 
stead, rows that would be under lines 
on paper begin with a zero. Figure 1 is 



Figure 2 



1097 




667 / 732343 
667 






06534 
6003 


The Key Box 


05313 
4669 


Model I 
16K RAM 


0644 


Basic Level II 


Figure 1 
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f te LSoiiputEsr EccFy SliA 

Save on books 

and software! 

The ONLY Book Club 

dedicated exclusively to 

the special interests of 

microcomputer hobbyists 

and experimenters! 



Select 5 fact-filled books 

for onl v *fi O 9 ^ (total value up to $99,75) 




1195 
List $13.95 




7 very good reasons to try 
The Computer Book Club 

Blue Ridge Summit, PA 17214 

• Reduced Member Prices. Save up to 75% on books sure to 
increase your know-how 

• Satisfaction Guaranteed. All books returnable within ID 
days without obligation 

• Club News Bulletins. All about current selections— mains, 
alternates, extras — plus bonus offers. Comes 13 times a year 
with dozens of up-to-the-minute titles you can pick from 

• "Automatic Order." Do nothing, and the Main selection 
will be shipped automatically! But ... if you want an 
Alternate— or no books at all — we'll follow the instructions 
you give on the reply form provided with every News Bulle- 
tin 

• Continuing Benefits. Get a Dividend Certificate with every 
book purchased after fulfilling membership obligation, and 
qualify for discounts on many other volumes 

• Extra Bonuses. Take advantage of added-value promo- 
tions, plus special discounts on software, games, and more 

• Exceptional Quality. All books are first-rate publisher's 
editions, filled with useful, up-to the minute information 




TFia Gtannpjlrjr Eirt BluOi 

Blue Ridge Summit, PA 17214 

Please accept my membership in The Computer Book Club 
and send the 5 volumes circled below, billing me $2.95 plus 
shipping and handling charges. If not satisfied, I may return 
the books within ten days without obligation and have my 
membership cancelled. 1 agree to purchase 4 or more books 
at reduced Club prices (plus shipping/handling) during the 
next 12 months, and may resign any time thereafter. 

335 336 337 338 1055 1070 1088 1111 

1160 1169 1195 1205 1251 1271 1275 

1276 1295 1299 1303 1330 1333 1391 1394 

1396 1398 1414 1416 1442 1466 1480 



Name 



Phone 



Address 

City 



State 



Zip 



(Valid for new members only. Foreign and Canada add 20 %. Orders outside U.S. 

or Canada must be prepaid with international money orders in U.S. dollars). 

, , This order subject to acceptance by The Computer Book Club EM-1182 K 



■See List of Advertisers on 
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(initialize) 



INPUT DIVISOR B$, 
LENGTH M 

INPUT DIVIDEND A$, 
LENGTH N 



FORM DIVISOR 
MATRIX B 
S DIVIDEND 
MATRIX A 



PRINT DIVISOR/ 
DIVIDEND 



POSITION OF NEXT 
DIGIT OF QUOTIENT 
P=N-M + h COUNT 
CT > -I 



NEXT DIGIT OF 

QUOTIENT 

Q(P)= INT(A(N)/B(M) 




YES 



CT'CT + I: DETERMINE 
MATRIX E= Q IP) * 
DIVISOR 



P= P-l 

IF To I 



Q(P)=INT 
IF Q(P) > 



;iO*A(N)+A(N-l))/B(M)) 
10 THEN Q(P)=9 



LL ■ LENGTH E 



QP 'QP-i 




DETERMINE NEW 
DIVIDEND MATRIX 
A BY SUBTRACTION, 
AA = A 




Figure 3 



an example of long division. 

PRINT® statements are used to add 
digits to the quotient during division 
without scrolling the screen. If the divi- 
sion uses more than 14 lines of inter- 
mediate steps, the screen will scroll. 
We cannot scroll backward to see the 
quotient so the entire quotient is 
printed at the end whenever scrolling 
occurs. 

The Program 

After typing Run, the screen clears 
and prompts "Input divisor as a string, 
highest digit to lowest digit." After 
entering the divisor, a second prompt 
asks for the dividend. 

If you enter a smaller dividend than 
divisor you get the error message 
"Illegal function call." To divide 17 
into 13 use 17 for the divisor and 
13000000000000 for the dividend. A 
word of caution: This program is not 
set up to handle decimals. The pro- 
gram will interpret a decimal as a zero; 
to the program 31.4 appears as 3104. 

The line numbers in the Program 
Listing are in increments of 10. All the 
remark line numbers end in five; skip 
those lines when typing in the program. 
The lines have been printed for clarity 
but you need not indent when entering. 
The remark statements are keyed to the 
flowchart (Figs. 2 and 3) for your ease 
in following the program. 

The divisor and dividend are entered 
as strings (lines 20 and 30). For 
arithmetic manipulations they are 
changed to single indexed matrices in 
lines 50 and 60. During solving, the 
dividend appears as the string A$ (lines 
330-370 and 450-480) and at other 
times as the matrix A (lines 100-150 
and 230-280, 340). 

Subtraction is performed in lines 
230-280. The dividend A is put in the 
temporary matrix AA and line 250 
does the subtraction. Borrowing is 
handled by line 260. If the trial quo- 
tient digit Q(P) is too large, it is re- 
duced by one in line 270 and the multi- 
plication-subtraction sequence (lines 
110-280) is redone. 

Lines 590-640 and the variable DD 
are only needed for scrolling. 

Since most intermediate dividends 
begin with one or more zeros, line 460 
obtains the correct length of the divi- 
dend as a string with leftmost entry 
nonzero. 

May long division no longer haunt 
you in your dreams. ■ 

David Cecil can be reached at the 
Dept. of Mathematics, Texas A & I 
University, Campus Box 172, 
Kingsville, TX 78363. 
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5 'INITIALIZE 




320 


PRINT@A1,RIGHT$(STR$(E(I) ) ,1) ;iNEXT I 




10 CLEAR 5000:CLS:DEFINT A-Z 




325 


"PRINT THE NEW DIVIDEND A 




20 INPUT" INPUT DIVISOR AS A STRING, HIGHEST DIGIT TO 


LOWES 


330 


AS=-' 




T DIGIT";B$ 




340 


FOR K-N TO P STEP -1 1 A(K) -AA(K) : A$=A$+RIGHTS (STRS( A(K) ) 


30 INPUT-INPUT DIVIDEND AS A STRING, HIGHEST DIGIT TO 


LOWE 


,1) iNEXT K 




ST DIGIT";A$ 




350 


A2=Al+64-LEN(A$)+l 




40 NZ»LEN(A$) |N»NZ:M-LEN(B$) :DIM A(N+1) , AA(N+1) , E (N+l) 


,B(M) 


360 


GOSUB 610 




,Q(N-M+1) 




370 


PRINT@A2,A$; 




45 'PUT THE DIVISOR INTO MATRIX B 




375 


'PRINT THE NEXT DIGIT OF THE QUOTIENT 




50 FOR 1=1 TO M:B(M-I+1)-VAL(MID$(B$,I,1)) :NEXT I 




3 80 


A3-4+M+NZ-P 




55 'PUT THE DIVIDEND INTO MATRIX A 




390 


IF DD-1 THEN 410 




60 FOR 1=1 TO NiA(N-I+l)-VAL(MIDS(AS,I,D ) :NEXT I 




400 


PRINTgA3, RIGHTS (STRS(Q(P) ) ,1) • 




70 CLS 




405 


'HAS UNIT'S PLACE DIGIT OF QUOTIENT BEEN PRINTED? 




80 PRINTg65,B$+" / "+AS; 




410 


IF P=l THEN 550 ELSE T=0 




85 'P IS THE POSITION OF THE NEXT DIGIT OF THE QUOTIENT 




415 


PRINT THE NEXT DIGIT IN THE DIVIDEND 




90 P-N-M+IjCT— -1 




420 


NN»0:W=P-1 




95 'Q(P) IS THE NEXT DIGIT OF THE QUOTIENT 




430 


A4=A2+LEN(A$)+NKiGOSUB 630 




100 Q(P)=A(N)/B(M) 




440 


PRINTeA4,RIGHT$(STR$(A(W) ) ,1) ; 




110 IF Q(P)<>0 THEN 160 




445 


'COMPARE SIZE OF NEW DIVIDEND WITH DIVISOR 




120 IF TOl THEN P«P-1 




450 


A$=A$+RIGHT$(STR$(A(W) ) ,1) 




130 Q(P)»(10*A(N)+A(N-1))/B(M) 




460 


Z$=LEFT$(A$,1) ;IF LEN(A$)=1 THEN 470 ELSE IF 


Z$="0" 


140 IF Q(P)>=10 THEN Q(P)=9 




THEN 


A$=MID$(A$,2,LEN(A?)-1) s nn= 


NN+l:GO 


150 GOTO 110 




TO 460 




155 'OBTAIN THE PRODUCT OF QUOTIENT Q(P) & DIVISOR B, PUT RESULT 


470 


IF LEN(A$)>LEN(B$) THEN 530 




IN MATRIX E 




480 


IF LEN(A$)-LEN(B$) AND A$>=B$ THEN 530 




160 CT=CT+1:C=0:FOR I=P TO P+M-l 




485 


LOOP IF A LESS THAN B 




170 E(I)-Q(P)*B(I-P+1)+C 




490 


IF TOl THEN P=P-1 




180 C=E(I)/10 




500 


Q(P)=0:IP DD=1 THEN 510 ELSE PRINT84+M+NZ-P, "0 


. 


190 E(I)-E(I)-10*C 




510 


IF P>1 THEN P=P-1 ELSE 550 




200 NEXT I 




520 


T=l:W=P:GOTO 430 




205 'LL IS THE LENGTH OF E 




525 


'GET POSITION OF HIGHEST NON-ZERO DIGIT OF A 




210 IF COB THEN E(P+M) =C:LL=P+M: ELSE LL=P+M-1 




530 


N=N-NN:IF TOl AND (LEN ( A$) -1)<LEN(B$) THEN P=P- 


1 


220 IF LL>N THEN Q(P) =Q (P) -1 |CT=CT-1 :GOTO 110 




540 


IF LEN(A$)>LEN(B$) THEN 120 ELSE 100 




225 'GET THE NEW DIVIDEND A BY SUBTRACTION 




545 


'FINAL PRINTING 




230 FOR J=P TO NiAA(J)=A(J) :NEXT J 




550 


IF DD-1 THEN 560 ELSE PRINTg890,"" 




240 AA(N+l)-0 




560 


IP DDOl THEN END 




250 FOR J=P TO LL:AA(J)-AA(J)-E(J) iK»J 




570 


PRINT:PRINT"QUOTIENT= ";:FOR J=NZ-M+1 TO 1 STEP 


-1:PRIN 


260 IF K<-LL AND AA(K)<0 THEN AA(K) -AA(K) +10 1 AA(K+1) 


=AA(K 


T 


RIGHT$(STR$(Q(J) ) ,1) ;:NEXT j 




+1)-1jK-K+1: GOTO 260 




580 


END 




270 IF AA(N)<0 OR (AA(N+1)<B AND LL-N) THEN Q(P) »Q(P) -1 jC 


585 


THE FOLLOWING LINES SCROLL THE SCREEN 




T-CT-l:GOTO 110 




590 


IF Al>1023 THEN DD=1: Al=Al-64:GOTO 590 




280 NEXT J 




600 


RETURN 




285 'PRINT THE MATRIX E 




610 


IF A2>1023 THEN DD"=1 : A2=A2-64:GOTO 610 




290 Al=132+M+NZ-I+128*CTiIF A1M023 THEN PRINT 




620 


IF DD=1 THEN PRINT! RETURN ELSE RETURN 




300 FOR I-LL TO P STEP -1 




630 


IF A4>1023 THEN DD=1 i A4=A4-64:GOTO 630 




310 Al»132+M+NZ-I+128*CTiGOSUB 590 




640 


RETURN 






Program 


Listing 1 





FREE EPSON MX-80 PRINTER 



With the ' 

purchase of a . 

TRS 80, Model 



For a limited time, Data Services, Inc., will 
give you a FREE Epson MX-80 Printer ($645 
value), when you buy a TRS 80 Model III, 48k, 
with 2 PERCOM 40 track drives, at our new low 
prices of $2,395.00. 

(Includes RS-232, Printer Cable, TRSDOS.)" 

The perfect system, the perfect price! 

TRS 80 Model III, 48k - two PERCOM 40 

track drives - EPSON MX-80 Printer. 

Data Services offers more — APPARAT'S 
NEWDOS 80, version VER 2.0, regularly $149.95 
— now only $129.95 (Model III units only.) 

Up to 20% savings on TRS computers — ac- 
cessories — programs, Plus: EPSON / PERCOM / 
APPARAT / HAYES SMARTMODEM / VERBATIM 
DISKETTES / MEMOREX DISKS. 

*TR5-S0 is a trademark of Tandy Corporation. 

■See List of Advertisers on Page 563 



M FREE SHIPPING in 48 contiguous states. 

■ No Sales Tax on out-of-state orders. 

■ Visa/Master Cord welcome. 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders, freight F.O.D. Wichita, 
Kansas) 

CALL TOLL FREE: 1-800-835-1 129 

or order by mail from: 

DtiTfi SERWCES, JMC. 

COMPUTER SERVICES SINCE 1970 ^118 

P.O. Box 1 1 57 Wichita, Kansas 67201-1 1 57 
(In Kansas, call 1-316-838-9021) 
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GAMES 



Almazar I 



by Winston Llamas 



A 



s you visit the 72 rooms of Almazar I, you'll 
find treasures and run into danger, and if 
you're lucky, you'll reach the next dimension. 



Almazar Part I is the first part of a 
multi-part adventure known simply as 
Alamazar. In Part I, the adventurer's 
goal is to be transported into the next 
dimension. The game might lack the re- 
finement of programs such as Zork, but 
it is more advanced than typical adven- 
ture games written in Basic. Almazar 
starts similarly to the original Adven- 
ture program, and it provides ample 
puzzles for the adventurer to solve. 

The game has seventy-two rooms; 
some rooms are filled with treasures, 
while others are replete with danger. A 
familiarity with various books and 
movies will be helpful in achieving suc- 
cess, yet there are numerous occasions 
in which common sense alone can lead 
the adventurer out of trouble. 

Almazar is divided into seven sepa- 
rate programs. One is the Almazar main 
program, which is loaded when the user 
wishes to play the game. The other pro- 
grams create the data base necessary for 
the program to run. This version of 
Almazar was designed for a one-drive 
32K Model III. The modifications need- 
ed to make the program run on a one- 



The Key Box 

Model I or III 
32K RAM 
Disk Basic 
1 Disk Drive 



drive Model I are outlined below. 

Modifications 

One-drive Model I owners must use 
two disks to hold the program (unless 



the drives are either 80 tracks or the 
system is running double density, or 
both, allowing everything to fit in one 
disk). You must also add the line: 

60 INPUT'REPLACE DISK AND 
HIT ENTER WHEN READY";G$ 

The first disk should contain the 
Almazar main program as well as the 
SFZVOC, SFAMOVE, SFAOBDES 
data bases while the second disk should 
contain SFALDES, SFASDES, and 



MO 


possible moves 


vc$ 


command file verbs 


TC$ 


command file objects 


VC 


command verb identifier 


TC 


command object identifier 


OP 


designates location of object 


LOS 


long object descriptions 


sos 


short object descriptions 


LC 


length of command line 


VI 


length of first word 


CI 


location of space in command 


ow 


indicates one word command 


IV 


index to verb 


10 


index to object 


S2 


initial positions of objects 


PR 


points subtracted for hints 


LI 


turns remaining before lamp goes out 


TU 


number of turns remaining in the game 


FT 


indicates if room has been visited 


SR 


indicates special rooms 


KG 


indicates if gnome is dead 


SC 


flag gnome chase 


Wl 


flag dimming lamp 


W2 


flag limited turns 


EN 


indicates if there is something to enter 


LE 


indicates possibility of leaving 


DI 


indicates how many times player has died 


IN 


number of items carried 


PT 


points adventurer scored 


NFS 


name of file for long or short room descriptions 


SP 


special situations array 




Table 1. Variable Listings and Explanations 
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"The game has 72 rooms; some rooms are 
filled with treasures, while others are replete with danger" 



Program Listing I. The Search for Almazar, Part 1 — The Proving Ground 

10 CLS:PRINTTAB(18) "The Search for Almazar: Part 1" :PRINTTAB(24) 
"The Proving Ground" : PRINT 

20 PRINT" This program is the first of a projected series of p 
rograms 

whose central theme is the continuing search for the super being 
Almazar. Tnis game, however, will play to a satisfactory ending 
if the player does not wish to continue"; 

30 PRINT" the series ." : PRINT: PRINT" The game begins at one end 
of a road, by an old abandoned shack. (Just like the origin 

Listing 1 continues 



Command 


Action 


N 


adventurer moves northward 


Light Lamp 


lamp is lit 


Off Lamp 


lamp is turned off 


Enter 


adventurer enters something 


Inventory 


prints objects adventurer is carrying 


Hint or Help 


asks for hints 


Look 


ask for new room description 


Throw Knife 


throws knife 


Take object 


adventurer takes object 


Drop object 


adventurer drops object 




Table 2 



SFARESP. The Model III uses the up- 
percase @ as a closing single quote, and 
this must be modified for Model I'use. 
Almazar 's design lets you change it 
easily. If you want to expand the vocab- 
ulary, the changes in SFAVOC and in 
the main program are simple. Likewise, 
all the other data bases can be altered by 
changing the data-base-generating pro- 
grams. A word of caution: Since the 
data bases SFALDES, SFASDES, and 
SFARESP are random -access files, you 
must be careful to limit the text to 256 
characters. 

Running Almazar 

The game isn't easy, since you must 
gather various treasures before you 
move to the next dimension. In addi- 
tion, numerous traps and puzzles catch 
the unwary. ■ 



Winston Llamas is a student at 
Rensselaer Polytechnic Institute where 
he's majoring in computer science. His 
address is 121 North Gordon St., Alex- 
andria, VA 22304. 



CONVERT YOUR TRS-80 MODEL-I OR III INTO A 

DEVELOPMENT 



SYSTEM 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs: one TTL circuit for clock 
and reset, a Z-80. an EPROM, and one 
peripheral interface chip. 

When the In-Circuit-Emulation 
cable is plugged into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80: 
You can use the full power of your 
editor/assembler's debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
hardware, then the system program 
can be run to debug the logic of your 
stand-alone device. 

Since the program is kept in TRS-80 
RAM. changes can be made quickly 
and easily. When your stand-alone 
device works as desired, you use the 
Developmate's PROM PROGRAMMER 
to copy the program into a PROM. 
With this PROM, and a Z-80 in place of 
the emulation cable, your stand-alone 
device will work by itself. 




Now you can develop Z-80 based, 
stand-alone devices such as games, 
robots, instruments and peripheral 
controllers, by using your TRS-80 as a 
development system. The DEVELOP- 
MATE plugs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface). 



The DEVELOPMATE is extremely 
compact: Both the PROM programmer 
and the In-Circuit-Emulator are in one 
small plastic box only 3.2" x 5.4" A 
line-plug mounted power supply is 
included The PROM programmer has 
a "personality module" which defines 
the voltages and connections of the 
PROM so that future devices can be 
accommodated. However, the system 
comes with a "universal" personality 
module which handles 2758. 2508 (8K), 
2716. 2516 (16K). 2532 (32K). as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs). 

The COMPLETE DEVELOPMATE 
81. for Model I, with software, power 
supply, emulation cable, TRS-80 
cable, and "universal" personality 
module S329 

DEVELOPMATE 83. Model III version, 
same as above $329 

PM2 PERSONALITY MODULE for 
2732A EPROM $15 

PM3 PERSONALITY MODULE for 
2764 EPROM $15 

ORION 

INSTRUMENTS 

172 Otis Avenue. Dept. M, Woodside, 

CA 94062 

(415) 851-1172 ^ 151 

Master Charge and Visa phone orders accepted 

California residents please add 6 % sales tax 



■ See List ot Advertisers on Page 563 
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BELIEVE IT OR NOT WE'VE ADDED MORE 
NEW FEATURES to the ONLY INTERACTIVE 
BASIC COMPILER for the TRS-80I 

1. Speed increases of 10-100 times are typical after compilation. 

2. Compiled code can be RELOCATED to run anywhere in memory. 
Code is even ROMablel 

3. ZBASIC 2.2 NOW SUPPORTS BOTH RANDOM and 
SEQUENTIAL DISK I/O. 

4. ZBASIC 2.2 is now a super tool for business programmers: 
RANDOM ACCESS FILES, and PRINT USING statements are 
supported as well as a HIGH PRECISION MATH package (with 
no rounding problems). 

5. Special BUILT-IN MACHINE LANGUAGE COMMANDS to 
increase program operation by as much as 1 000 times! Special 
commands are implemented for fast memory searching (CPDR, 
CPIR). block memory moves (LDIR, LDDR), inputting and printing 
HEX numbers, inserting MACHINE LANGUAGE into COMPILED 
CODE, disabling and enabling interrupts, inverting memory, 1 6 bit 
PEEKs and POKEs, and stack control, debug and much more. 

6. ZBASIC 2.2 compiles the ENTIRE PROGRAM into to Z-80 
machine language. (Not 8080 code or a combination of BASIC and 
machine language like some other compilers.) Clumsy LINKING 
LOADERS, and RUNTIME MODULES are not needed; ZBASIC 2.2 
creates a ready to run MACHINE LANGUAGE program. 

7. NO ROYALTIES imposed on registered ZBASIC owners. 

8. Typical COMPILATION TIME is TWO SECONDS for a 
4K program. 

9. Use TRS-80 Basic to write ZBASIC programs! 

1 0. Compile many existing programs with only minor changes. 
(Some BASIC programming experience is required.) 
I ) . Fully compatible with both the Model I and the Model III. Mod I 
compiled programs work on a MODEL III, and visa-versa. ZBASIC 
works with NEWDOS-80, NEWDOS+. DOSPLUS, LDOS, MULTIDOS, 
ULTRADOS, TRSDOS etc. 

1 2. BUILT-IN and much improved MUSIC and SOUND EFFECTS 
commands. 

13. Improved CHAINING for disk users. 

1 4. TIMES now available on DISK version. 

1 5. ZBASIC 2.2 now has an INPUT @ command (similar to PRINT @). 

1 6. The TAB function will now tab 255 columns on a printer. (BASIC 
cannot tab past column 64.) 

1 7. NEWDOS 80 2.0 USERS can use the CMD "dos command" 
functionl 

18. NEW and EASIER to use USR COMMANDS. 

1 9. New math functions to calculate XOR and INTEGER 
REMAINDERS 

20. Logical STRING COMPARISONS are now supported. 

21. The disk commands INSTR. MIDS ASSIGNMENT are now 
supported on both DISK AND TAPE ZBASIC. 

22. DEFSTR is now supported. 

23. Eight disk files may be opened simultaneously; random, 
sequential or mixed. 

24. LINE INPUT*, is now supported 

25. Invoke the compiler by simply hitting these two keys: " :-" 

26. NEW 100+ PAGE MANUAL WITH DESCRIPTIONS AND 
EXAMPLE. 

27. ZBASIC 2.2 Comes with CMDFILE/CMD program from 
MISOSYS, to allow appending or merging compiled programs and 
machine language programs from tape or disk. 



ZBASIC 2.2 DOES NOT SUPPORT THESE 
BASIC COMMANDS: 

1 . ATN, EXP, COS. SIN, LOG, TAN, and exponentiation. (However, 
subroutines are included in the manual for these functions.) 

2. ERROR, ON ERROR GOTO, ERL, ERR RESUME. 

3. No direct commands like AUTO, EDIT, LIST, LUST ETC, although 
these commands may be used when writing programs, 

4. Others NOT supported: CDBL, CINT, CSNG, DEFFN, FIX. FRE. 

5. Normal CASSETTE I/O. (ZBASIC supports it's own SPECIAL 
CASSETTE I/O statements.) 

6. SOME BASIC COMMANDS MAY DIFFER IN ZBASIC. For 
instance, ENDjumps to DOS READY, STOPjumps to BASIC 
READY etc. 

7. MEMORY REQUIREMENTS: to approximate the largest BASIC 
program that can be compiled in your machine (at one time), enter 
BASIC and type: PRINT (MEM-6600J/2. Remember, you can merge 
compiled programs together to fill memory. 

ZBASIC 2.2 SPEED COMPARISON DEMO 

To help give you an idea how fast compiled programs are, we have 

included this demo program: 

ZBASIC 2.2 DEMO PROGRAM 

Time to compile and run complete program :0MIN. 2 SEC. 

BASIC Execution speed MOD 1 , LEVEL II : 7 MIN. 34 SEC. 

ZBASIC Execution speed MOD 1 , LEVEL II :0 MIN. 1 8 SEC. 

BASIC Program size (WITHOUT VARIABLES) : 895 BYTES 

ZBASIC Program size (WITHOUT VARIABLES) : 2733 BYTES 
(Remember that the ZBASIC program includes an 1879 byte sub- 
routine package.) Program shown exactly as compiled and run in 
BASIC and ZBASIC. 

10 '========= ZBASIC £. £ EXRMPLE PROGRAM AND TIME TEST======== 

£0 CLS: CLEAR 100: DEFT. NT A-X.-DEFSTR Z:DIM AA (64, £4) , Z (50) : RANDOM 
30 AA=100:BB=-1000:CC=3:DD=-3:EE=-9999:ST*="START TIME "+TIME* 
40 FOR I=1T01£7STEP£ :F0R J = 47T01STEP-3 : XX = POINT ( I , J> :SET ( I , J) 
50 XX=(I-J)/CC«(7+I+J) :XX=ABS(INT(RND(I*J)-AA>+7) : RESET < I, J) 
60 XX = PEEK(I-t-J> :POKE15360+I+J, J :0UT£55,J AND (3*J) : XX = INP ( I ) 
70 AB*=STR*(I+J) :BA*=LEFT*(AB«, £> : AA ( I /£, J/£) =VAL (BA*) +AA»3 
80 BA*=BA*+RIGHT*(BA*, RND(3) ) : XX= INSTR ( 1 , BA*, "9") :XX=SQR(I»J) 
90 BA*=MID*(BA*,£, £) : MID* (BA*, 1 , 1 > =Z :IF XX THEN 100 ELSE CLS 
100 IF LEN(BA*)>3 OR SGN(XX>=1 AND ASC(BA*)=3£ THEN PRINT"+++"; 
110 IFPOS<0)>6£ THEN TRON : TROFF : PRINT ELSE XX=N0T (RND (99) ) +100 
120 A*=INKEY*:IF P*="Y" OR A*="y" AND I>1£0 THEN PRINT"TRUE. . " 
130 RESTORE : READA, C, Z ( J) , D :GOSUB170 :GOSUB170: GOSUB170 :GOTO£10 
140 NEXT :PRINT"»"; :NEXTI : CLS: PRINT(?51£, ST*, "STOP TIME ";TIME* 
150 STOP' == ============ END OF MAIN TEST LOOP ================= 

160 DATA 1£345, -1, "TEST", -9399 

170 ON RND (6) SOTO 180, 190, £00, 1 80, 190, £00 

180 RETURN 

190 RETURN 

£00 RETURN 

£10 ON RND (9) GOSUB 180, 190, £00, 180, 190, £00, 180, 190, £00 

£20 GOTO140 

NOTICE ZBASIC 2.0 OWNERS: you can upgrade your ZBASIC 2.0 for no charge. 
Just send us your original diskette/cassette and a S.A.S.E with your registered 
serial number and copy of your invoice. We will send you ZBASIC 2.2 and 
updates to your manual. 
VISA, MASTERCARD, AMERICAN EXPRESS. COD. ORDERS ONLY. 

800 528-1 149 order line 

ZBASIC 2.2 DISK VERSION AND MANUAL 89.95 

ZBASIC 2.2 TAPE VERSION AND MANUAL 79.95 

ZBASIC 2.2 DISK & TAPE VERSION AND MANUAL 99.99 

MANUAL ONLY... (APPLIES TO PURCHASE) 25.00 

SIMUTEK COMPUTER PRODUCTS INC. 

TECHNICAL QUESTIONS PLEASE CALL (602) 323-9391 
4897 E. SPEEDWAY, TUCSON, ARIZONA 85712 ^ 12 

TRS-80 is tm of Radio Shack, a Tandy Corp. 



isSee List ol Advertisers on Page 563 
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IB CBcrnpIIsi 

The "LC" Coipiler provides a 
substantial subset of the C 
programming language withi 
o Integer subset of C; has 

access to floating point 

ROM routines via functions 
o All statements supported 

except: SWITCH-CASE, GOTO, 

TYPEDEF, STRUCT, UNION. 
o All operators except "->", 

".", SIZEOF, (TYPENAME). 
o Standard I/O redirection 

with device independence, 
o Input using FGETS or GETS 

functions support JCL. 
o Dynamic memory management. 
o Sequential files open for: 

READ, WRITE, and APPEND. 
o LC Generates Z-80 EDAS-IV 

source code as output, 
o Z-80 "source" 1 ibraries in 

ISAM-accessed PDS files, 
o Compact, one-line compiler 

invocation for easy use. 
o Compiled programs run on 

both Model I and Model III 
o IN/LIB accesses graphics 

and LDOS entry points. 
o LC/LIB includes: FPRINTF, 

PRINTF, ALLOC, FREE, SBRK, 

and String functions. 
o LC: The Mod I/III version 

includes: LC/CMO, LC/LIB, 

FP/LIB, IN/LIB, EDAS-IV, 

XREF, and more than 200 

pages of documentation. 

Requires 2-drive 48K LDOS. 
Mod 1&3 for LDOS: $15d+$4S&H 
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LDOS, Version 5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system! Version 
5.1 is priced at $129.00 + $5.00 S&H per 
system. Deduct $35 if ordering both. 

LDQS 5.1 
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Finally, user customized character sets for your 
MX-80 Graftrax and MX-100 printers. With GRAphic 
Support Package you create character sets usable 
from any and all applications. Create character 
sets of single-width, double-width, & 12-pitch, 
using the GRASP character editor, ALTCHAR. GRASP 
comes supplied with 7 character sets. Print Mod3 
special characters on your Epson! Set MX options 
from your keyboard. Invoke underlining! Written 
by K.A.Hessinger & S.A.Loomer. GRASP: $50+$2S&H 



MISOSYS - Dept. M5 

P.O. Box 4848 

Alexandria, VA 22303-0848 

703-960-2998 

Dealer's Inquiry Invited 





EdflS-IU 

EDAS, Version IV is the most 

fantastic absolute address 

assembler, bar none! It has: 

o Assemble to disk or memory 
from multiple source files 
nestable to FIVE levels. 

o Assemble conditional code 
with IF, IFLT, IFEQ, IFGT, 
IFDEF, IFNDEF, IFREF to 16 
levels with IF-ELSE-ENDIF. 

o Automatic search of SOURCE 
subroutine libraries saved 
in I SAM- accessed structure 
to resolve references left 
undefined (requires PDS). 

o One-level MACROS support 
parameter substitution by 
position and by keyword. 

o Local labels in both MACRO 
expansions & PDS searches. 

o Supports +, -, *, /, .MOD. 
.AND., .OR., .NOT., .XOR. 

o Constants can be declared 
as base 2, 8, 10, & 16 or 
string, with more than one 
value on a single line. 

o 15-char labels including 
special chars: @, ?, $, _ 

o Extensive cross-reference 
utility & EQU generation. 

o Enter source in upper case 
or lower case. Line editor 
has COPY, CHANGE, and MOVE 

o Pseudo-OPs LORG, COM, PAGE 
TITLE, SUBTTL, SPACE. 

Model I/III for LDOS: $100 

Model II for TRSDOS: $2W 

Add $4 S&H + 4% VA tax. 
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^See List ol Advertisers on Page 563 
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TECHNIQUE 



Random Access 



by Karl L. Townsend 



J 



oe Mulligan's tennis score is somewhere on 
the HighNet Tennis Club's disk. Can you find 
the score without reading the entire disk? 



So you have just installed disks! Your 
cassette player is tucked away in the top 
of the closet, and with it those 
15-minute waits for loads or saves. 
Even better, with the disk's random ac- 
cess ability you can read any single 
record — just jump into the middle of 
the file and get it. 

Get to Work! 

The HighNet Tennis Club scores 
now reside on a new disk. Joe Mulli- 
gan's score record needs to be updated. 
That's easy— just pull it from the file 
into memory, add the new score and 
write it back out. But where is it? How 
do you get the record when you don't 
know where it is? 

When the file was transferred from 
cassette to disk, entries were in alpha- 



-TRY NUMBER I AT 50 - 



betical order by name. They should 
still be in the same order. This means 
Joe's data is somewhere near the mid- 
dle of the file. This isn't much help — 
the program is looking for a record 
number to find the data. 

Well, you could just set up a loop, 
read each record in alphabetical order 
until Joe's record is found, change it 
and rewrite it. 

Except for faster access from the 
disk, this sounds suspiciously like se- 
quential operation used with a cassette. 
The question remains: How do we find 
a specific record in a random ac- 
cess file? 

Strategies 

Since the tennis file is sorted by 
names in alphabetical order, several 



TRY NUMBER 3 AT 38 ■ 



-JOE MULLIGAN AT NUMBER 34 



-TRY NUMBER 2 AT 25 



possibilities exist. As in the sample, a 
simple sequential read and compare 
will work. It is the same procedure 
used in any sequential file, but loses 
much of the advantage of random ac- 
cess. (You can still write the record 
randomly if you know where you want 
to write.) 

Also, it's time consuming. Using a 
100-record file, a desired record might 
be found anywhere from record 1 to 
record 100. Therefore, our best case 
(quickest find) is read one record. This 
procedure is good for Andy Aaron, 
but what about Sam Zwick? It looks 
like the whole file will have to be read 
to look at Sam's record. This is a worst 
case (slowest find) of about 100 read/ 
compares. If we assume a random dis- 
tribution, we will have an average of 50 
read/compares. Imagine if this file had 
10,000 records— that means 5,000 read/ 
compares on the average! 

A second approach is simply to list 
the file with record numbers. Then we 
just check the list for Joe Mulligan, 
note the record number and get it. But 
suppose the file is changed — a new 
listing is required each time. This might 
not be too bad with a small file, but 
remember that 10,000-record file. 

I use a manual filing system for file 
folders. When I pull a file from the file 
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cabinet I always replace it in the very 
front of the drawer. After a time, the 
front of the drawer contains the folders 
I use most often and the least used 
move to the back. Every once in a 
while I remove those in the back and 
place them in dead storage. 

You can adapt this for the com- 
puter. Each time a record is accessed, 
instead of replacing it where it was 
found, add it at the end of the file. (It's 
easier to add at the end than at the 
front.) When you are looking for a 
specific record, start reading from the 
end of the file. You should find it 
sooner this way if there is any dif- 
ference in how often you access rec- 
ords. (The most often accessed will 
migrate toward the end of the file.) 

Your worst case remains the max- 
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Fig. 2. The number of read/compares lo 
find a random record in a 10, 000-recordfde. 
Notice the similarity to a binary progression. 



imum number of records in the file. 
Average accesses required to find your 
selected record is difficult to deter- 
mine. If there is a difference in how 
often an individual record is accessed, 
it should be less than 50 in a 100-record 
file. However, if there is no difference 
in frequency of record use, the average 
can approach the worst-case condition 
as those requiring next access gravitate 
to the front of the file (last to be read). 
If file size grows with each read/write 
and the file eventually requires purg- 
ing, it looks like this approach is 
loaded with too many problems to be 
practical. 

Let's take another look at the se- 
quential read/compare previously 
discussed. The major problem is the 
number of reads required to find an en- 
try. If we could reduce these numbers, 
a read/compare still might be the way 
to go. 

Instead of reading from the start of 
the file, why not start in the middle? 
Since the file is arranged alphabeti- 
cally, we can simply read backward or 
forward from the center depending on 
whether the compare is greater or less 
than the record being sought. Our 

worst case will now be one-half the file, 
or 50 read/compares for our 100-rec- 
ord file. The average will decrease 
from 50 to 25, a 2-1 gain. This is bet- 
ter, but maybe we can carry the idea 
further. 

Suppose, instead of starting to read 
sequentially when we make our com- 
pare on the middle record, we go to the 
middle of that half the record is in. A 
read/compare here tells which quarter 
of the file the record is in. We are now 
down to a maximum of 25 records to 



5 ' FILE SEARCH TEST PROGRAM - 


KARL L. TOWNSEND - 30 JUNE 19 81 


10 DEFINT A-Z: DIM G(15) 


: RANDOM 'HOUSEKEEPING 


20 R = 1000 






'SET FILE SIZE 


30 FOR K = 1 TO 100 






'SET ITERATION LOOP 


40 S = RND(1000) 






'GIVES RANDOM RECORD TO FIND 


60 T = INT( (R/2J+.5) 






'FIND MIDDLE OF FILE TO START 


70 T2 = T 






'SAVE HALVING RESULT 


80 FOR I = 1 TO 15 






'LOOP CHECKING SELECTION TO FILE 


85 Q = I 






'SAVES LOOP CNT FOR NUMBER OF TRYS 


90 T = INT( (T/2J+.5) 






'RE-HALVES FILE 


100 LPRINT USING '•#####' 


;T2 




'PRINT RECORD NUMBERS TRIED 


110 IF T2 = S THEN GOTO 


151 




•FIND IS MADE 


120 IF T2 > S THEN T2 = 


T2 


- T 


ELSE T2 = T2 + T 'FIND PROPER F 


LE HALF 








140 NEXT I 








151 LPRINT 








160 G(Q) = G(Q) + 1 






'ACCUMULATE COUNT OF FINDS 


170 NEXT K 






'GO BACK AND MAKE ANOTHER TEST 


175 PRINT 








180 FOR J = 1 TO 15 








190 LPRINT G(J) ; 






'PRINT SUMMARY OF FINDS 


200 NEXT J 








210 LPRINT 








220 END 












PrO£ 


ram Listing 



read. Actually, we can continue halv- 
ing each remainder until we find the 
record. Confused? Take a look at the 
illustration in Fig. 1. 

In this alphabetically sorted file of 
100 records, we are looking for Joe 
Mulligan, whose data is in record 
number 34. Of course, we don't know 
this number or we could simply call the 
record by number. 

Reading record number 50 and com- 
paring the name found there with 
Mulligan, we find we are too far into 
the file; Joe's record must be in the 
first half. We now read record 25 and 
compare. This time we find we are too 
early in the file and that Mulligan must 
be in the second quarter (record 26 to 
49). Again, we go to the center of the 
section (in this case, record number 
38). We are now too far into the file 
and must move back. Keep halving the 
area and looking at the center record of 
each half and eventually we will find 
the record sought. 

What do we save? I made tests on a 
file of 10,000 records. One million 
iterations were run of random selec- 
tions from this file with rather in- 
teresting results. In every case the 
desired record was found by the four- 
teenth read — and this on a 10,000- 
record file! Compare this worst case of 
14 with the 50 average reads required 
on a 100-record file using straight se- 
quential methods. 

Typically a find was made by 12 or 
13 reads. Smaller files require fewer 
reads (100 records use up to seven 
reads) but as you can see, you will not 
save much nor will large files require 
many more reads. 

For the statisticians in the group, 
Fig. 2 shows the results of the one 
million test runs. Note the number of 
finds made in each read and compare it 
to the finds preceding and following. 
Each time a read is made, the file re- 
maining is cut in half and the number 
of finds appears to double. 

Like to make this test yourself? The 
program listing demonstrates this 
search method. R defines the file size 
(in this case, 1,000 records). The pro- 
gram will loop through 100 successive 
finds of randomly selected records. A 
count of the tries in each test is saved in 
array G, printed at the conclusion of 
the run. You can change the file size by 
setting R to different values and the 
number of iterations by changing the 
loop value for K in line 100. Don't try a 
million unless you have a lot of time. 
Of course, change the LPRINTs to 
Prints if you have no printer. Type it in 
and give it a try. ■ 
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UTILITY 



Auto-Dial/Auto-Answer 



by Alan Moyer 



D 



o you ever wish that your computer could 
automatically dial and answer your phone? 
With this addition to your modem, it can. 



When I bought my modem, 1 wanted 
it to have an auto-dial/auto-answer fea- 
ture. But since I couldn't justify the extra 
expense, I settled for a basic modem — a 
Novation D-Cat (direct-connect). After 
working with the D-Cat for a while, I 
decided to build an interface that would 
add the auto-dial/auto-answer feature. 
I wanted my interface to be: 

• easy to design and build, 

• independent from the telephone 
line's power so it wouldn't interfere 
with normal phone operation, 

• designed to be plugged into the ex- 
pansion bus of my computer, and 

• inexpensive. 

Figure 1 shows the interface I de- 
signed. It consists of six integrated cir- 
cuits, two 12-voll relays, two diodes, 
two resistors, and one magnetic reed 
switch, all available from Radio Shack. 



The integrated circuits IC1, IC2, and 
IC3 operate Z80 I/O port number 254 
(FE hex) to allow the computer to read 
and write to that port. When this port is 
read from, the gates in IC4 are opened 
so the ring-detect signal and the hook- 
sense signal can pass through. IC5 is a 
flip-flop that sets the phone either on- 
hook or off -hook, and operates the 
dialing circuit. Being a flip-flop, once it 
is set on or off, it stays there until the 
state is deliberately altered. All the sig- 
nals from the computer are standard 
from the expansion bus. 

This is not a fancy circuit, and it is 
similar to one shown in the TRS-80 
Technical Reference Manual, page 89, 
which I used as a guide. 

This interface circuit hooks to the in- 
ternal circuit block of the phone as 
shown in Fig. 2. Except where noted, all 



connections are made directly to the ter- 
minals. Lines C and J require that the 
existing wires from the terminal block 
be removed and hooked directly to 
these lines. In effect, relay 1 parallels the 
internal switches inside the phone. Re- 
lay 2 is connected in series with the in- 
ternal dialing circuit. It is currently 
hooked up to a touch-tone phone, but 
uses normal pulse dialing. Because of 
this arrangement, this method of dial- 
ing and hook control does not require 
power from the phone. 

To make the modem detect a ringing 
phone, I taped a magnetic reed switch to 
the side of the phone's ringer coil. 
When the ringer coil rings the bell, the 
switch closes with it. Although it does 
cycle on and off with the coil's magnetic 
field, the first closing of the switch is all 
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Figure 2 
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we need to use, so it need not be altered. 
In addition, this idea met all my goals 
for an interface. 

Software 

With the circuit using Z80 port FE 
hex (254 decimal) to access the device, 
Basic's command A = 1NP(254) will 
return A with the following bit infor- 
mation: 

()()()() 
I i 

! ! — Bit zero, ring detect. 
! 1 = no ring (power-up 

condition). 
! = ring. 

; 

! — Bit one, hook sense. 

1 =on hook (power-up 

condition). 

= off hook. 

And accordingly, Basic's command 
OUT 254, A using the following bit pat- 
tern operates the phone. 

0000 0000 



! 
! 

i 



! — Bit zero, hook control. 
1 =on hook (power-up 
condition). 
= off hook. 



Bit one, dialer. 

1 = no pulse (power-up 

condition). 

= pulse line. 

Listing 1 is the program I use to dial 
the phone. The program can be modi- 
fied to add and display phone numbers. 
It operates the circuit by looping 
through a series of opening and closing 
the dialing relay to pulse the phone line. 

Listing 2 is a modification of the first 
program. It dials a phone number at a 
predetermined time. 

Program Listing 3 detects a ringing 
phone and answers it. When your com- 
puter answers the phone to communi- 
cate with another computer or terminal, 
it acts as a host, and you must have soft- 
ware that allows it to be used by another 
computer. Radio Shack has an RS-232 
Communications Software package 
that performs adequately. I use LDOS 
as my main operating system and use 
the LDOS recommended host ar- 
rangement. 

Program Listing 4 shows an LDOS 
JCL file that sets up the RS-232 driver 
and allows the computer to act as a host. 

When running Program Listing 3, 
the computer answers the phone on the 
first ring. Several program lines check 
the time between responses and reset the 
phone after a period of no activity. 

Listing 5 is a variation of Listing 3. I 
call it the ring-back method of answer- 



ing the phone. As in most residences 
where only one phone line is present, 
this program will answer the phone ac- 
cording to a predetermined ringing se- 
quence. If the phone rings only once 
and then rings again within 30 seconds, 
the computer answers the phone. The 
computer ignores the phone when it de- 
tects two rings in a row, as in typical 
phone calls. 

This circuit works equally well with 
acoustic modems. If you have an acous- 
tic modem, you can simply keep the 
handset in the modem, tape the hook 
buttons to the phone, and control the 
phone from the computer. My D-Cat 
hooks between the phone and handset, 
so I can leave the modem in the data 
mode, leave the handset in the cradle, 



and the phone still rings and operates 
normally. With other direct-connect 
modems, like the RS Modem 1, you'll 
have to decide how to arrange the 
phone and the modem. The phone must 
be able to ring with the modem active, 
and the phone must be physically on 
hook, if only by the tape method. 

To avoid legal problems, do not 
make connections directly to the tele- 
phone company's property when build- 
ing this interface — make connections to 
your own phone. The altered phone 
should then be used through a phone 
coupler, available from your phone 
company. ■ 

Alan Mayer lives at 933 San Angelo 
Drive, Hamilton, OH 450/3. 
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i********************************************************** 

'** DIALER/BAS ** 

i ** ** 

'** This program dials the phone after obtaining the ** 

•** desired phone number from a menu. ** 

i********************************************************** 

DEFINT A-Z: DIM NUM(20) : XY = 7 

FOR XX = 1 TO XY: READ PN$(XX): READ HN$(XX): NEXT XX 

DATA n 7718851 n ,"HBBS n , n 8637681 n f n XBBS" f n 6712753 n , "APPLE (PMS) 

", "1234567 ", n TSO ", "579090 8" , "MICRONET" , "7918208" , "CINTUG" , "5314 

588" , "Bam-Bam" 

100 CLS: P0=254 

110 OUT P0,3 'Put the phone on the hook 

120 IF INP(PO%) AND 2 <> 2 THEN PRINT "Phone not put ON HOOK...r 

etrying": LPRINT "Phone ON HOOK error at "TIME$: GOTO 110 

130 PRINT "Phone placed ON HOOK at " TIME$ 

140 PRINT: FOR XX = 1 TO XY: PRINT XX ") " HN$(XX): NEXT XX 

150 PRINT " $ ) TO EXIT" 

160 PRINT "** YOUR CHOICE...." 

170 A$ = INKEY$: IF A$ = "" THEN 170 

180 IF A$ = "$" THEN CMD"S" 

190 XX = INSTR("1234567" r A$) : IF XX = 

200 A$ = PN$(XX): PRINT: PRINT "CALLING: 

TIME$,8) 

210 OUT P0,2 'Phone OFF HOOK 

220 A = INP(P0) AND 2: IF A <> 

..retrying": LPRINT "Phone NOT OFF HOOK... ERROR @ 

trying": GOTO 210 

23 FOR Z = 1 TO 100: NEXT Z 

240 FOR X = 1 TO LEN(A$) 

250 NUM(X) = ASC(MID$(A$,X,1) ) - 48 



THEN 170 
" HN$(XX) 



@ " RIGHT$( 



THEN PRINT "Phone NOT OFF HOOK. 
" TIME$ "...re 

'Wait for dial tone 



260 IF NUM(X) 

270 NEXT X 

280 FOR X = 1 

290 IF NUM(X) 



THEN NUM(X) = 11 



TO LEN(A$) 

= 10 THEN PRINT 0; 

TO NUM(X) 

'Toggle line open 

TO 10: NEXT Z 

'Toggle line on 

TO 10: NEXT Z 



:ELSE PRINT NUM(X) ; 



NEXT Z 'Wait between numbers 



ELSE A = 



300 FOR Y = 1 

310 OUT P0,0 

320 FOR Z = 1 

330 OUT P0 f 2 

340 FOR Z = 1 

350 NEXT Y 

360 FOR Z = 1 TO 11 

37 NEXT X 

380 PRINT: PRINT "Waiting for answer" 

390 A = VAL(RIGHT$(TIME$,2) ) : IF A > 29 THEN A = A - 3f 

A + 30 
400 IF INKEY$=" " THEN 430 'Abort if a key is pressed 
410 C = INP(&HE8) AND 32: IF C = THEN PRINT: PRINT "ON LINE... 
Connection established..": END 

420 B = VAL(RIGHT$(TIME$ f 2) ) : PRINT@896 , A; B; : IF B <> A THEN 4 
00 ELSE PRINT 

430 OUT P0,3 'Put phone back onto hook 

440 IF INP(P0) AND 2 <> 2 THEN PRINT "NOT able to put phone ON H 
OOK... retrying": LPRINT "NOT able to put phone ON HOOK at " TIME 
$ "....retrying": GOTO 430 
450 PRINT: PRINT "Connection NOT ESTABLISHED. .. .Press <ENTER> to 

continue...";: INPUT A$: RUN 

Program Listing I 
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SPIKE-SPIKERS™ 

Protect-Control-Organize 

Computers & sensitive electronic equipment. 

Helps prevent software "glitches", unexplained 

memory loss, and equipment damage 

PROTECTS with transient 

absorber & dual five-stage 

filter. Absorbs power line 

transients & filters out RF1 

"hash." 

CONTROLS with 8 individ- 
ually switched 1 20 vac 
grounded outlets. Main on- 
off switch, fuse & indicator 
light. 

ORGANIZE your computer 
* nt.her equip, power cords. 
No more overloaded octopus 
cube taps. 
2-Socket Plug-In Models 

MINI-I 

Transient absorber only 

$34.95 
MINI-II 

Transient absorber plus 
3-stageRFI "Hash" filter 

$44.95 

4-Socket Plug-In Model with Light 



Deluxe Power Consol 

$79.95 




QUAD-I 

Transient absorber only 

$49.95 
QUAD-II 

Transient absorber plus 
dual 3-stage RFI "Hash" filter 




baa® 



-485 



$59.95 Order Factory Direct 
215-865-0006 

Out of State Order Toll Free 

mmm 800-523-9685 

VISA 

^™ PA Res. add 6 % 
COD Add 3.00 + Shipping 
Dealers Invited 



Electronics Co. Inc. * 
Colony Drive Ind. Park I 
6584RuchRd..Dept.mC 
Bethlehem. PA 18017 



WIN AT 
BLACKJACK 

JERRY PATTERSON: Author of 

"Blackjack: A Winner's Handbook," 
"Blackjack's Winning Formula;" syn- 
dicated gaming columnist and founder 
of the Blackjack Clinic (Over 4000 
graduates nationwide) 
is now making his famous blackjack 
course available for your TRS 80 Model III 
Microcomputer. Patterson and his stu- 
dents have won SmillionS at the blackjack 
tables. Learn how to get your share wich 
Patterson's Blackjack Tutor. Sample 
Features: 

•How to play the hands for Atlantic 
City and Nevada casinos. 

•How to count cards (high-low) 

•Specify one to seven players in prac- 
tice, party, or simulation mode. 

•Package includes Game, Basic Strat- 
egy and Counting Modules. 

Other features: variable bankroll, cut card 
placement, table hopping, discard tray. 

Order TRS 80 Model III Version (16K 
Cassette) for S50.00 and S3.00 p&h — 
includes complete user's manual. Or write 
for details Visa/MC orders Call toll 
FREE right now 

(800) 257-71 30. 

eJERRYPAITERSON'S 



1 BRITTON PLACE • VOORHEES, NJ 08043 

(609) 772-2721 (NJ residents) ^ 1 - 



•See List of Advertisers on Page 563 



80 Micro, Anniversary 1983 • 303 




120 

DAY 

WARRANTY 







"NO YOU'RE NOT SEEING THINGS, THATS FOUR INTERNAL DRIVES IN 

A MODEL III, WITH UP TO 4 MEG. DISK STORAGE AVAILABLE NOW, 

ONLY FROM DISPLAYED VIDEO!!" 






DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 



DISPLAYED VIDEO is now offering TRS-80* MODEL III with TANDON disk drives, one of the most reliable 
disk drive systems on the market, for INCREDIBLY low prices. 

MODEL III with 48K, dual 40 track double density disk drives, complete systems with TRSDOS and ONE BOX 
OF DISKETTES _ _^ 

PLUG IT IN AND GO $1,749.00 

MODEL III with 48K, dual 40/40 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES _ ^ A 

PLUG IT IN AND GO $2,149.00 

MODEL III with 48K, dual 80 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES _ _^ 

PLUG IT IN AND GO $2,149.00 

MODEL III with 48K, dual 80/80 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES ^^ M „ ^ ^ ^ 

PLUG IT IN AND GO $2,449.00 

MODEL III with 48K, four 40 track double density internal disk drives, complete systems with TRSDOS and ONE BOX OF 
DISKETTES pUJQ JJ fly AM ) G Q $2,399.00 

MODEL III with 48K, four internal drives of any configuration available to achieve up to 4 meg of disk storage CALL 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket, 

dual power supply, all hardware cables and connectors (gold plated) $329.00 

MODEL 16 w/1 drive.... $4,450.00 w/2 drives $4,850.00 



Visit Our Two 
RETAIL LOCATIONS: 

886 Ecorse Rd., Ypsilanti, MI 48197 
(313) 426-5086/(313) 482-4424 
111 Marshall St., Litchfield, MI 49252 
(517) 542-3280 



DISPLAYED 

Mm 



IMMEDIATE DELIVERY 

120 Days Parts and Labor Warranty 
DEALER INQUIRIES INVITED 

Free Shipping in the U.S. 
48 Contiguous States 



< 




Radio Shack Authorized Dealership at: 
111 Marshall Street, Litchfield, Michigan 49252 #P1 42 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO, 

886 Ecorse Road, Ypsilanti, Michigan 48197 



*TRS 80 is a trademark of the Tandy Corporation 



►-» 62 



Prices subject to change without notice 
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I I t I I I I I I I 





DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 

DV'S COLOR COMPUTER FIRST DRIVE ~~ "" 

$425.00 

80 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY 



V 



*&$ $275.60 £*/ c 

»» C^ 40 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY > Of-,? ' 

$239.00 

TEAC'S NEW 40 TRACK SLIMLINE W/CASE & POWER SUPPLY 

$269.00 

TWO DRIVE CABLE $23.99 

With Gold Plated Connectors f :,< 

NEWDOS 80 $ 1 1 5 . 00 MODEL I or III 

Bare Drives & Cases Available Upon Request 

DV'S 5 MEG. HARD DISK 

$1949.00 

ATHANA DISKETTS 
$26.95 

100 Percent Certified W/Own Hub Rings 

EPSON PRICES 

We're not going to make you call for prices. 
Here they are in black and white!! 

MX 80 (W/GRAPHTRAX) PLUS $459.00 
MX80FT (W/GRAPHTRAX) PLUS $545.00 
MX82FT (W/GRAPHTRAX) PLUS $555.00 

MX100 (W/GRAPHTRAX) PLUS $709.00 
PRINTER CABLE $23.99 



Stop In Our Two 
Retail Locations: 

886 Ecorse Rd, Ypsilanti, MI 48197 

(313) 426-5086/(313) 482-4424 

or 

111 Marshall Street, 

Litchfield, MI 49252 

(517) 542-3280 



We Carry A Full Line of OKIDATA Printers 




■ . m 



D ISPLA YED 




IMMEDIATE DELIVERY 

180 Days Parts and Labor Warranty 

DEALER INQUIRIES INVITED 

fFree Shipping in the U.S. 
48 Contiguous States 



Radio Shack Authorized Dealership at: 

111 Marshall Street, Litchfield, Michigan 49252 #P1 42 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO, 
886 Ecorse Road, Ypsilanti, Michigan 48197 

TKS-80 is a trademark of the Tandy Corporation Prices subject to change without notice 
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GAME 



Fly Like an Eagle 



by Ian Cohn 



u 



se this simulation of a sailplane race on 
your Model I to learn the basics of the sport. 
It'll show you the thrill of being in the air. 



CONVECTION HEIGHT =8318 FEET 
MACREADY SETTING = 1554 FPM 



D V H T L/S 
1 109 352 43 -8 



2 - 





1 

II 1 ■ 

......... 

'■•■. I \ I 


1 

1 

1 

II 

■l, 



4 -- 



CONVECTION HEIGHT =8515 FEET 
MACREADY SETTING = 827 FPM 



D V H T L/S 
1 102 336 46 -83 



I 
I I 



I I 



l 
l I 



I I II 



l I 

ll' I 



l. P- 



D 



Figure I 



This program is a simulation of a sail- 
plane race, but nevertheless includes 
most of the elements of the real thing. 

Sailplanes are fixed wing, motorless 
aircraft propelled by the earth's gravita- 
tional attraction. They are distinguished 
from gliders by their ability to use up- 
currents in the atmosphere to maintain 
height and travel long distances. Mod- 
ern sailplanes are used in many coun- 
tries for races over 200 km and 500 km 
distances. Often, speeds of 140 km per 
hour or higher are achieved. 

Sailplane races start with the sail- 
plane flying through a start gate. The 
pilot flies toward the goal looking for 
an upcurrent. A normal type of upcur- 
rent is a column of rising air called a 
thermal. Thermals rise from ground 
heated by the sun at a different rate 
than the ground nearby. 

When the pilot finds a sufficiently 
strong thermal, he circles to gain alti- 
tude. Eventually the climb rate reduces 
and the pilot straightens out and flies 
on. This cycle repeats until the pilot 
gets close enough to the goal to glide to 
the finish line without further circling. 

A sailplane pilot relies to a great ex- 
tent on his flight instruments (shown in 
Table 1). In addition to these, an in- 
strument called an audio variometer 
can be used. The audio variometer 
gives a series of beeps, with the fre- 
quency indicating the lift's strength. 

In the simulator program, lines 
890-1330 contain the sailplane flight 



The Key Box 

Model I 
16K RAM 
Cassette Basic 
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DISCOUNT SOFTWARE 



FOR THE 



TRS-80 



FARM and RANCH MANAGEMENT 

BEEF PROJECTION $20.00 

BEEF RATION $15.00 

DAIRY COW $15.00 
FEED LOT Models land III $35.00 

Model II $100.00 

FARM RECORD $35.00 

GOVERNMENT PROGRAM $15.00 

GRAIN STORAGE $15.00 

LOAN $15.00 

MACHINE COST $20.00 

RECORD MANAGEMENT $15.00 

ESTATE TAX $25.00 

FEEDFORMULATOR $35.00 

PASTURE PROJECTION $20.00 



HHEMENTS FOB THE »B0VE PROGRAMS 



5 Only 5350 (SaveSSS I 



NEWDOS, DOSPLUS 

ANd NOW 

L DOS!! 

YOUR CHOICE, ONLY $129 EACH. 

NEWDOS, DOSPLUS AND L DOS are three of the most advanced 
operating systems ever available for the TRS-80. After spending 
thousands of dollars on your computer, why limit yourself by using an 
inferior operating system? 



Order Today!!!! 



RADIO SHACK SOFTWARE 



MODEL I, III 

Cassette Scripsit 
Cassette Portfolio 
Stock Pack 
Disk Mailing List 
General Ledger I 
Inventory Control 
Accts Payable 
Accts Receivable 
Disk Payroll 
Business Mailing 
Profile 
Scripsit 
Visicalc-Mod I 
Visicalc-Mod III 
Project Manager 
Checkwriter 
Super Scripsit 



26-1505 
26-1506 
26-1507 
26-1551 
26-1552 

I 26-1553 
26-1554 
26-1555 
26-1556 

List 26-1558 
26-1562 
26-1 563 
26-1566 
26-1569 
26-1580 
26-1584 
26-1590 



$34.95 

$24.95 

$44.95 

$34.95 

$87.95 

$87.95 

$138.00 

$138.00 

$175.00 

$8/.95 

$69.95 

$87.95 

$87.95 

$175.00 

$87.95 

$87.95 

$175.00 



Scripsit Dictionary 
Profile III Plus 
Desktop Plan-80 
Budget Mgmt. 
Advanced Stat Analysis 



MODEL II 

Gen. Ledger 1 Disk 
Inventory Mgmt. System 
Mod II Visicalc 
Profile II 
Profile II Plus 
Mod II Scripsit 2.0 
Scripsit Dictionary 
Inventory Mod II 
Order Entry ICS 



26-1591 
26-1592 
26-1594 
26-1603 
26-1705 



26-4501 
26-4502 
26-4511 
26-4512 
26-4515 
26-4531 
26-4534 
26 4602 
26-4607 



$131.00 

$175.00 

$175.00 

$22.00 

$39.95 



$175.00 
$175.00 
$263.00 
$170.00 
$275.00 
$375.00 
$175.00 
$275.00 
$465.00 



GAMES FOR THE COLOR COMPUTER 



CHRISTMAS SPECIAL!! 



COSMIC DOGFIGHT, OFFENDER, PACKETMAN 

GET ALLTHREE OF OUR NEWEST 

COLOR COMPUTER GAMES ON EITHER 

DISK OR CASSETTE 



DISK $79 



00 



CASSETTE $44 



00 



LAZY WRITER 

ALCOR PASCAL 

MICRO CLINIC 

CHEXTEXT MICROSOFT 

LEVEL III BASIC 

TYPING TUTOR 

EDITOR ASSEMBLER + 

ADVENTURE 

MOD I FORTRAN 

A.L.D.S. 

MODI BASIC COMPILER 

MOD I MuMATH 

OLYMPIC DECATHLON 

EDITOR ASSEMBLER (Disk) 

CP/MFORTRAN-80 

CP/M BASIC COMPILER 

CP/M MuMATH-MuSIMP-80 

CP/M COBOL COMPILER 

CP/MBASIC-80 

BASIC COMPILER II 

COBOL-80MODII 

M/SORT 

ASPEN: 
GRAMMATIK l/lll 
GRAMMATIKII 

PICKLES & TROUT: 
RANDOM HOUSE PROOF READER 
CP/M FOR MODEL II 
CP/M FOR MODEL 16 

MISC: 
BOOKKEEPER l/lll 

Cassette $49.95 Disk 

MICRO SEABATTLE 

Cassette $19.95 Disk 

LIST: 1 (Telephone List) 

Cassette $9.95 Disk 

COMPUTER BASEBALL 

Cassette $14.95 Disk 



$175 

$199 

$24.95 

$34.95 

$50 

$15 

$30 

$30 

$87.95 

$85 

$195 

$75 

$24.95 

$49.95 

$475 

$375 

$250 

$699 

$350 

$395 

$699 

$195 

$75 
$99 

$50 
$185 

$220 



$59.95 
$24.95 
$14.95 
$19.95 



• • NEW RELEASES* • 

COSMIC DOGFIGHT cassette 



OFFENDER 



OTHER FAVORITES 



DISK 
CASSETTE 
DISK 



14.95 
19.95 
29.95 
34.95 



PACKETMAN 
MOONLANDER 

METEROIDS 
SPACE INVADERS 



CASSETTE 
DISK 

CASSETTE 
DISK 

CASSETTE 

CASSETTE 



24.95 
29.95 
14.95 
19.95 
21.95 
21.95 



THESE ARE OUR CASH DISCOUNTED PRICES. C.O.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 



j^jZiid 




^ 918/829-4844 

AMERICAN 



SmaII 

BlJSJNESS 



118 SO. MILL ST 
PRYOR, OK 74*61 



COMPUTERS 



manual. Lines 1340-1500 contain a 
preflight check; this check establishes 
the sailplane configuration, the race 
task, and the start-gate speed and 
height. The pilot aims to go through 
the start gate close to the maximum al- 
lowed height (3,280 feet) and the sail- 
plane's maximum speed (130 knots). 

Finally, a random number estab- 
lishes the atmosphere for the day and 
the computer notes the pilot's name. If 
A is the name, the autopilot (George), 
flies the task. 

After completing the preflight check, 
the computer draws the sky and the in- 
strument panel (lines 1510-1570). The 
sky is a graph of height versus distance 
with height reference lines at 2,000- 
foot intervals up to 8,000 feet. 

The computer launches the sailplane 
and establishes the strength of the up 
or down current for the next mile in the 
weather-generator routine (lines 160- 
200). The weather generator reduces 
the strength of the air lift/sink near the 
ground and near the convection height. 
The weather generator also ensures 
that the air lift and sink are balanced. 
The average air lift is twice as strong as 
the air sink, but sink occurs twice as 
often as lift. If the lift is above the 
threshold value, the audio variometer 
gives a beep. 

The sailplane position is set on the 
screen, and the instrument panel up- 
dates itself (lines 210-240). Now you 
find out if you've crossed the finish 
line (D = 0) or landed before reaching 
the goal (H<0), and whether George is 
flying (lines 250-280). 

The pilot now inputs his commands 
for the next segment of the flight. His 
options include: 

• Fly straight at his selected speed. 
You can achieve this by entering a 
speed as a three-item number between 
the stall speed (45 knots with water bal- 
last or 40 knots dry) and the maximum 
permitted speed (130 knots) — for ex- 
ample, 067 for a speed of 67 knots. 

• Circle for one minute. Select this by 
entering O or C. The sailplane speed 
reduces to 5 knots above the stall speed 
when circling. 

• Dump water ballast and circle, se- 
lected by entering D. The sailplane cir- 
cling sink rate is 140 feet per minute 
when dry or 187 feet per minute with 
ballast. Water ballast is dumped only if 
the pilot is low and circling in weak lift. 

• Select a pseudo-optimum (Mac- 
Ready) speed to fly straight for one 
mile by entering a negative three-item 
number — for example, -05. This rep- 
resents the pilot's estimate of his actual 
climb rate in the next thermal (climb 
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rate in feet per minute divided by 100. 
In this case, -05 means an estimate of 
500 feet per minute for the next climb). 
• The keyboard data-entry routine 
(lines 290-430) uses the INKEYS func- 



tion within For. . . Next loops. This al- 
lows the audio variometer to continue 
beeping while the computer waits for 
keyboard input. While the computer 
beeps, hold the appropriate key down 



Altimeter — 


Gives height in feet (above ground in this case). 


Air Speed — 


Shows current speed in knots. 


Indicator 




Clock- 


Shows time in minutes since start. 


Air lift- 


Shows air vertical speed in feet per minute. 


Distance — 


Gives distance to goal in nautical miles. 


Indicator 




MacReady — 


Shows current setting of optimum speed-to-fly indicator. 


Setting 




Convection- 


- Gives height at which thermal strength reduces to zero. 




Table I. Flight Instruments 



Program Listing. Sailplane Simulator 

100 GOTO 840 ' 

SAILPLANE SIMULATOR 
by 
IAN COHN 

**** keyboard entry routine **** 

PRINT@Z,C$; :FOR Xl = TO X2: Z$=INKEY$: IF Z$O nn THEN Xl=X2 

:NEXT ELSE NEXT: IF C$=A$ THEN C$=F$ ELSE C$=A$ 

RETURN 

**** sound generator **** 

Z=VARPTR(V$) :Y=PEEK(Z+1)+PEEK(Z+2)*X:Z=INT(Y/X) :POKE16527,Z 
:POKE16526 ,Y-Z*X:F=9+4*L:FC=INT( 4E4/F) :DC=F/29 :P0KEY+6 ,FC/X 
:POKEY+5,FC-INT(FC/X) *X:POKEY+3 ,DC/X : POKEY+2 , DC-INT (DC/X) *X 
:Z=USR(0) : RETURN 

■ 

**** weather generator **** 

N=(N+PI+.2/(D+l)) [4:N=N-INT(N) : LB= (K+I/4) * (N-2/3) 
:IF LB<0 THEN LB=LB/4 
L=LB:IF H<K2 THEN L=H*L/K2 
IF H>I-K2 THEN L=L*(I-H)/K2 
IF L>LT GOSUB 150 

**** locate sailplane on screen **** 

IF H>0 THEN SET(4+120*(1-D/DS) ,10+36* (l-H/8000) ) 

**** update instrument panel **** 

PRINT@99, USING B$;D; V; H; T;L; 
i 

**** have we crashed or finished? **** 

IF H<=0 GOTO 560 ELSE IF D=0 GOTO 570 

**** is "GEORGE" flying? **** 

IF M$="A" GOTO 760 

**** look for and display keyboard data entry **** 

X2=9:PRINT@122,"? ";:C$=A$:IF L<LT THEN X2=44 

Z=123:GOSUB 120:I$=Z$:IF I$<>"" GOTO 330 

IF L<LT GOTO 310 ELSE GOSUB 150:GOTO 310 

PRINT@Z,I$; :IF I$="D n OR I$="d" GOTO 620 

IF I$="0" OR I$="o" OR I$="C" OR I$="c" THEN E=0:GOTO 640 

IF I$=E$ THEN V=E:GOTO 450 

Z=124:GOSUB 120:J$=Z$:IF J$<>"" GOTO 390 

IF L<LT GOTO 370 ELSE GOSUB 150: GOTO 370 

IF J$="E" OR J$="e" THEN 300 ELSE PRINT@Z,J$; 

Z=125:GOSUB 120:K$=Z$:IF K$<>"" GOTO 420 

IF L<LT GOTO 400 ELSE GOSUB 150:GOTO 400 

IF K$="E" OR K$="e" PRINT8Z," ";:GOTO 370 

PRINT@Z,K$;:V=VAL(I$+J$+K$) 

Listing continues 



lit 



120 



130 
140 



151 



160 



17( 

181 
191 

20C 
211 



221 
23! 



241 

25( 



261 
271 



28( 
296 



301 
311 
321 
331 
341 
361 
371 
381 
39C 
401 
411 
421 
431 



WE STOCK DISK DRIVES! 



TEAC 



TANDON 



BARE 



COMPLETE 

WITH POWER SUPPLY & CABINET 



BARE 



COMPLETE 

WITH POWER SUPPLY & CABINET 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$209 40 Track, Single 

$289 40 Track, Double 



$289 



$349 



Track, Single 



80 Track, Double 



$239 
$340 
$340 
$399 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80Track, Double 



$209 40 Track, Single 

$269 40 Track, Double 



$269 



$319 



Track, Single 



Track, Double 



$239 
$319 
$319 
$369 



We sell two brands of disk drives for theTRS-80: the TEAC and the Tandon. The TEAC disk drive has a 1 year warranty, the Tandon 
has a 90 day warranty. The TEAC uses a lead screw actuator, the Tandon uses a split band type actuator. The track to track access 
rate for the Tandon is 5 milliseconds, as opposed to 25 milliseconds for the TEAC. The TRS-80 Model III requires a faster drive speed 
than the Model I, therefore the Tandon works better with the Model III. With the slower drive speed requirements of the Model I, the 
TEAC is a more reliable drive. We have both 40 track and 80 track drives with either single or dual head. All drives are capable of 
double density. These drives are available either bare or complete with power supply and cabinet. A cable is required to hook up the 
drives. We have both two-drive and four-drive cables. All drives come with complete instructions for hooking up a system. TEACs 
and Tandons can be intermixed with other drives on the same system. 



DISK DRIVES 

For The TRS-80 MODEL III 
DRIVE O DRIVE 1 



Single Side, 40 Track $595 



Double Side, 40 Track $729 



Single Side, 80 Track $729 



Double Side, 80 Track $819 



Single Side, 40 Track 



Double Side, 80 Track 



Single Side, 40 Track 



Double Side, 80 Track 



$219 



$279 



$279 



$329 



The disk drives we sell for the Model III are the Tandon drives. 
Drive includes the controller board, power supply, cables and all 
mounting hardware. Complete instructions are included for 
installation. It takes 30 minutes to an hour to install disk drives in 
a Model III. No soldering is required. TRSDOS operating system 
is not included in this low price. 



IBM 

PERSONAL COMPUTER 

DISK DRIVES 

SINGLE SIDE, 40 TRACK $209 

DOUBLE SIDE, 40 TRACK $269 



These drives are fully compatible with the IBM Personal Compu- 
ter. They can be used as the first or second drive and come with 
our exclusive 90 day warranty. DOS and Drive Adapters required. 
Our disk drives adhere to the high quality standards that IBM 
demands. 




16K LEVEL I 
NOW ONLY $279 



COLOR COMPUTERS 



ALSO AVAILABLE: 

16K OR 52K EXTENDED BASIC 

COLOR COMPUTER DISK DRIVES 
CALL NOW FOR 

SPECIAL PRICES 



THESE ARE OUR CASH DISCOUNTED PRICES. C.O.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 



fimr* 




^ 918/829-4844 

AMERICAN 



SmaII 
Business 



118 so. MILL ST 
PRYOR, OK 74561 



COMPUTERS 



Listing conlinuecl 

440 ' 

**** circling option **** 
450 E=V:IF V=0 GOTO 640 
460 ' 

**** Beep if in lift **** 

470 IFL>LTGOSUB150 
480 ' 

**** McReady optimum speed **** 

490 IF V<0 GOTO 670 ELSE PRINT@84," "; 
500 ' 

**** speed limiter **** 

510 IF V<VS THEN V=VS ELSE IF V>130 THEN V=130 
520 ■ 

**** increment flight parameters and BEEP if in lift **** 

530 T=T+60/V:S=Al*V*V*V+B/V:IF L>LT GOSUB 150 

540 H=H+60*(L-S)/V+(U*U-V*V)/23:U=V:D=D-1:GOTO 170 

550 ' 

**** flight completion data **** 

560 PRINT@32, "LANDED AT";D;" MILES TO GO. " :V(NA) =NA/9999:GOTO 

590 

570 Z$="ELAPSED TIME =####.# MIN. AVERAGE SPEED =" 

580 V(NA)=111.2*DS/T+NA/999:PRINT@0,USINGZ$+"###.# KPH. n ;T 

;V(NA) 

:PRINTUSING"FINISH HEIGHT =##### FT. ";H; 
590 D(NA)=DS-D:T(NA)=T:H(NA)=H: GOSUB 1900: PRINT" COMMAND? " ; 
600 CC$=INKEY$:IF CC$="" THEN 600 ELSE GOTO 1720 
610 ' 

**** dump water ballast **** 

620 W=6 : VS=40 : E=0 : Al=. 34*C/W: B=9510*W/A 
630 ' 

**** circle and BEEP if in lift **** 

640 PRINT084," ";:V=VS+5:H=H+L-140*W/6+(U*U-V*V)/23:IFL>LTGOS 

UB150 

650 U=V:T=T+1:IF H<0 THEN GOTO 560 ELSE GOTO 180 

660 ' 

**** solve McReady equation **** 

670 IF M$O n A" THEN V=100*V 

680 IF V<-K2 THEN V=-K2 

690 PRINT@84, USING" ####";-V; : Z=-V-L: C9=Z/2/Al : Z9=SQR(C9 [ 4+4* ( 4*B 

/3/A1) [3) 

700 Z7=(C9*C9+Z9)/2:Z8=-(C9*C9-Z9)/2:P2=Z7[(l/3)-Z8[(l/3) 

:P=SQR(P2) :IF Z<0 THEN P=-P 
710 IF P>0 THEN V=(P+SQR(2*C9/P-P2) )/2 ELSE V=VS 
720 V=-V*(V>VS)-VS*(V<=VS) 

730 IF M$="A" THEN V= (V/2+U/D) / (1/2+1/D) 
740 GOTO 510 
750 ' 

**** autopilot **** 

760 J=6080*(D+2)/(H+L+U*U/30) :Ll=l/C/(3+l/9999) : IF J>Ll GOTO 800 

770 V=(K-500/C/J) *(.4+.6*(l-l/D/D) ) 

780 IF L>0 THEN V=V-L* ( 20/J+l/D) 

790 GOTO 670 

800 Z=20*W+H/10:IF L<230 AND L>130 AND H<K GOTO620 

810 IF L>Z GOTO 640 

820 V=0-(1+H/10+2*L/D/D/D) : IF V>-1 OR H<K THEN V=-l 

830 GOTO 670 

840 CLS:PRINT" 

*************************************** 

* SAILPLANE SIMULATOR * 

* by * 

* Ian Cohn * 
***************************************" 

850 ' 

**** initialise constants and poke sound routine ***** 

860 CLEAR999:DEFINTD,I,X:DIM NA$ ( 99) ,D ( 99) ,V( 99) ,T( 99) ,H ( 99) 
:X=256:X2=999:A$=CHR$(143) :E$=" " :F$=CHR$( 95) :V$=" n 
:PRINT:FOR 1=0 TO 32:READ Z: V$=V$+CHR$ ( Z) :NEXT 
870 INPUT"Do you want to read the Flight Manual" ; Z$ : IF LEFT$(Z$, 
1) <>"Y" 

GOTO 1330 ELSE GOSUB 890:GOTO 1330 
880 ' 

**** flight manual - first page **** 

890 CLS:PRINT"FLIGHT MANUAL" ; TAB ( 58) "Page 1": PRINT 

900 PRINT"This program simulates cross-country flight in a Sailp 

lane. " 

Listing continues 



until it registers and appears on the in- 
strument panel. This is not a problem 
if the audio variometer is switched off. 

The main flight-progress calcula- 
tions are carried out in lines 440-650. 
The cruise flight routine at lines 530 
and 540 increments the time according 
to the selected speed, subtracts one 
mile from the distance to go, and cal- 
culates the height at the end of the 
one-mile segment based on the com- 
mencing height, the air lift/sink, the 
sailplane sink rate at the selected speed, 
and the speed change. 

Line 620 dumps the water ballast, 
and lines 640 and 650 calculate the cir- 
cling flight parameters. Set the speed to 
five knots above the stall speed, adjust 
the height, and increment the time by 
one minute. 

If the sailplane reaches the finish line 
or lands prematurely, the flight's final 
results are given (lines 560-600). A set 
of commands is then available so 
you can look at the scoreboard, call the 
next pilot, and so on. The commands 
routine is at lines 1620-1800. The com- 
mand H displays all the available 
commands. 

Lines 1820-1880 generate the score- 
board. The results are arranged from 
best to worst by a simple bubble-sort 
routine (lines 1900-1960). This sort is 
slow when many pilots are racing but I 
leave to modifiers to implement a fast- 
er sort. 

Another section of the simulator is 
the optimum-speed generator (origin- 
ated by Dr. Paul MacReady). The op- 
timum speed needed to fly between 
thermals depends on the climb rate the 
pilot achieves in the next thermal. 
Since the pilot never knows his exact 
climb rate for the next ascent, he has to 
estimate. In general, the higher the an- 
ticipated climb rate, the faster you fly 
between climbs. Also, the heavier the 
sink, the faster you fly. The routine 
uses both these elements to calculate an 
estimate of the optimum speed. If you 
choose this option, the sailplane imme- 
diately flies the next mile at the calcu- 
lated speed. 

The autopilot (lines 750-830) uses 
the optimum-speed routine exclusively 
to determine the flying speed. The phil- 
osophy behind the autopilot is that the 
higher the sailplane goes, the faster it 
flies, and the higher it is, the stronger 
the lift should be before used for 
climbing. 

When the autopilot nears the finish 
line, it varies the MacReady lift setting 
to maintain constant glide slope to the 
finish line. The autopilot algorithm is 
not optimized, and although it pro- 
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TRS-80 
MODEL 16 




MODEL 16-1 DRIVE 
MODEL 16-2 DRIVE 



$4499 
$4995 



DT-1 VIDEO DATA TERMINAL $620 

For use with Model 16 or Mainframe Computer 



TRS-80 
MODEL II 



MB 




Now (My $2899 



^ HARD DISK DRIVES 

^T" CAMEO SUBSYSTEMS 



HARD DISK SYSTEM 
FOR THE MODEL III 

6 MEG $1795 

12 MEG $1995 

19 MEG $2195 



FOR THE MODEL II 

DRIVE MOUNT ONE $4995- 



• Western Dynex D6222 Drive 
(5 mb Fixed/5 mb Removable) 
Controller, Adaptor and Cables 

1010 SUBSYSTEM 

• Data Peripheral Lynx Drive. 
(10 mb Removable Winchester) 
Controller, Adaptor and Cables 

1040 SUBSYSTEM 

• Data Peripheral Puma Drive 
(40 mb Fixed Winchester) 
Controller, Adaptor and Cables 

1020 SUBSYSTEM 

• 2 Data Peripheral Lynx Drives 
(20 mb Removable Winchester) 



$4995— 
$5995— 
$7995— 





Controller, Adaptor and Cables 








1050 SUBSYSTEM 




$8995— 




• Data Peripheral Lynx and Puma Dr 


ve 




COMPLETE, READY TO RUN. NOW AVAILABLE! ! 


(40 mb Fixed. 1 10 mb Removable) 
Controller. Adaptor and Cables 




MULTIPLEXORS 


LDOS REQUIRED — $129 


-EXTRA DRIVES- 
WESTERN DYNEX D622 


$4495 


MX200-2 PORT 

MULTIPLEXOR $495 




DATA PERIPHERAL LYNX 


$5995 


MX400-4 PORT 


"unformatted capacity 


DATA PERIPHERAL PUMA 


$4995 


MULTIPLEXOR $750 



THESE ARE OUR CASH DISCOUNTED PRICES. C.O.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT CY-LECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 
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COMPUTERS 



duces a good average speed, it can be 
beaten by a human pilot. 

The last routine is the sound gener- 
ator at line 150. This is a modification 
of Bill Barden's tone subroutine (80 
Micro, April 1980). I've made the 
sound generator relocatable and im- 
bedded it in a string so that no memory 
needs to be reserved. 

The sound output goes to the num- 
ber one cassette port 255, and can be 
heard by connecting the microphone 
cable to a small amplifier. ■ 



Ian Cohn can be reached at I Manor 
St., Brighton, Victoria, Australia. 



Glossary of Terms 

Sailplane Performance: The uni- 
versal measure of sailplane perfor- 
mance is the maximum glide ratio. 
This is the maximum number of 
distance units traveled for each 
unit of height lost in still air. For 
example, a sailplane having a glide 
ratio of 40 would be able to travel 
40 miles from a height of one mile 
(5,280 feet) in still air. 
Water Ballast: Water ballast im- 
proves the sailplane's performance 
at high forward speed. You obtain 
a lower sink rate at high speed at 
the expense of a higher sink rate at 
low speed and a higher stall speed. 
The net result is that it reduces the 
climb rate in thermal lift, and also 
reduces the time spent in cruising 
between thermals. 

Generally, ballast is carried only 
when strong thermal lift is expect- 
ed. Under these conditions, the 
average speed can be maximized 
by carrying ballast. If weak lift is 
all that's available, dump the 
water ballast by opening the taps. 
Sailplane Class: Sailplanes are 
classified according to their per- 
formance category. Standard class 
sailplanes are allowed a maximum 
wing span of 15 meters and are not 
allowed to use wing flaps. The 
15-meter class sailplanes have only 
one limitation, which is a wing 
span of no more than 15 meters. 
Open class sailplanes have no 
limitations. 

Standard class sailplanes have a 
maximum glide ratio of between 

38 and 40, 15-meter class between 

39 and 42, and open class sail- 
planes between 45 and 50. 



Listing continued 

910 PRINT"The aim of the pilot is to fly to a goal, without" 
920 PRINT" landing enroute, preferably in the shortest possible t 
ime, " 
930 PRINT"using the upcurrents (lift) and downcurrents (sink) in 

the" 
940 PRINT"simulated atmosphere to the best advantage. The pilot 
may race" 

950 PRINT"against other pilots or against the inbuilt autopilot 
'GEORGE' .":PRINT 

960 PRINT"In this program only the leftmost letter is required f 
or any" 
970 PRINT"alpha response, and defaults are provided. " :PRINT 

: PRINT :GOSUB 1590: IF G RETURN 
980 * 

**** flight manual - second page **** 

990 CLS:PRINT"FLIGHT MANUAL" ; TAB ( 58) "Page 2" 

: PRINT: PRINT"The initial data required is:-":PRINT 



1000 PRINT"Audio 

1010 PRINT"Sailplane Class 

Open) " 

1020 PRINT"Water Ballast 

1030 PRINT"Start Speed 

t.-dry" 

1040 PRINT" 

-120 kt.)" 

1050 PRINT"Start Height 

1060 PRINT"Distance to go 

m.) n 

1070 PRINT"Pilot Name 



Y for sound, N for silence" 

'Open', '15m.', or 'Std.' (Default- 

•Yes' or 'No' (Default-Yes)" 

Any speed between the minimum (40 k 

or 45 kt.-wet) and 130 kt. (Default 

Any height (Default-3280 ft.)" 

Any integer distance (Default-50 n. 

Any name of less than 12 characters 

The name 'A' operates the autopilot 



1080 PRINT" 

' GEORGE ' " 
1090 GOSUB 1590: IF G RETURN 
1100 ' 

1110 CLS: PRINT-FLIGHT MANUAL" ; TAB (58) "Page 3"; 

1120 PRINT"The display now shows the DISTANCE TO GO (D) , SPEED ( 
V) , HEIGHT" 

1130 PRINT" (H), elapsed TIME (T) , and the AIR VERTICAL SPEED (L/ 
S) for the" 
1140 PRINT"next mile. The pilot now has the following options:-" 

1150 PRINT" -to cruise for the next mile, input any speed betwee 

n the" 

1160 PRINT" the minimum speed and 130 kt. eg; 7 5 (3 digits) 

for 75 kt." 

1170 PRINT" -to circle, preferably in air lift greater than the 

Sailplane" 

1180 PRINT" sink rate, input '0' or 'C. The Sailplane circling 

sink rate" 
1190 PRINT" is 140 FPM (dry) or 187 FPM (wet)." 
1200 PRINT" -to dump water ballast and circle, input 'D'." 
1210 PRINT" -to fly at the estimated best (McReady) speed, input 

a" 
1220 PRINT" negative estimate of the actual climb rate in the n 
ext" 
1230 PRINT" thermal in FPM/100. eg; - 3 (3 items) for 300 FPM 

1240 PRINT" -to repeat the last input, press the Space Bar." 

:G0SUB 1590: IF G RETURN 
1250 ' 

**** flight manual - fourth page **** 

1260 CLS:PRINT"FLIGHT MANUAL" ; TAB ( 58) "Page 4 

When entering a cruising speed or McReady setting, 'E' may be 
used to ERASE the first 2 items if a mistake has been made. 

The display is repeated until the flight is completed. This" 
1270 PRINT"occurs when the Sailplane reaches the goal or when it 

lands" 
1280 PRINT"prematurely. A set of optional COMMANDS is available 
to display" 

1290 PRINT"the scoreboard and continue the next flight." 
1300 PRINT"The COMMAND 'H' will list the available commands." 
1310 PRINT:PRINT"Press any key to continue"; 
1320 Z$=INKEY$:IFZ$="" GOTO 1320 ELSE CC$="H" : RETURN 
1330 PRINT:PRINT:PRINT"Now you can start !" :PRINT 
1340 ' 

**** pre-flight check **** 

1350 PRINT: INPUT" Audio Variometer (Y OR N)";Z$ 

1360 LT=140-9999*(Z$="N") :L=888: ZZ$=STRING$(60, "-") :GOSUB150 

1370 INPUT"Sailplane Class - Open, 15m., or Standard" ;C$: IF 

C$= n " THEN C$="O n ELSE C$=LEFT$ (C$,1) 
1380 Y=3 8:K=1000:K2=K*2:GOSUB150:W=8 

Listing continues 
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MODEL 





BRAND NEW, 180 DAY WARRANTY 

• 16K $825 00 * *48K, 1 DR $1499* 

• 48K S849 00 * *48K, 2 DR $1749* 

• CASSETTE RECORDER $55 M * * RS-252 (INSTALLED) $92* 

DUAL SIDED DISK DRIVES ALSO AVAILABLE 





■ • V/ 



-—ajpri' 



gUis 



THESE ARE BRAND NEW 
IBM PERSONAL COMPUTERS 



64K WITH 2 INTERNAL DUAL SIDE DISK DRIVES 



DISCOUNT PRICE!!! ONLY S2699 



95 



THESE ARE OUR CASH DISCOUNTED PRICES. C.O.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPU- 
TERS ARE SHIPPED FREIGHT COLLECT. PRICES. SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL 
BUSINESS MACHINES. INC. 
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ass 



MANAGEMENT 

SYSTEMS 

SOFTWARE 



Business Programs 



Proforma Cash-Budsel 


$125 


$175 


Proforma Income 
and Balance Sheet 

lease-Purchase Decision 

Business Analysis Package 
(12 individual programs) 

Procurement 


125 

1(1(1 

1 00 

100 


175 
ISO 

150 
1 50 


Educational Programs 

College Enrollment 

Projection 100 150 
Cradebook 50 100 



All programs on disk with extensive doe umentjti* 
Send ior .i brochure whit !* fully describes the progra 

MANAGEMENT SYSTEMS 
SOFTWARE, INC. 

2912 Brandemorc Drive 
Tallahassee, Florida 32312 
Phone (9041 386-6563 .c 7 



irk SUPER™ kk 

ISA's DATABASE 

The only DBMS with all these features: 

+ PROVEN in one year of test marketing 
*• TOUGH, reliable file structure 

* MENU driven for simplicity and easy use 

* ARITHMETIC with stored calculations 

* FAST set-up and report formating 

* CLEAR user-oriented documentation 

* PRINTS totals S subtotals - mail labels 

* REFORMATS and merges data files 

* MULTI-DISK files: Up to 1 28K records 

* SORTS full disks on up to 40 fields 

* PRODUCTION input of repetitive data 

* USE existing data files 

* COUPLES to word processors 

* POSTS transactions to master file 

* SEARCH by strings, ranges, comparisons 

* DATA COMPRESSION: Over twice as 
many labels as the other system 

ForTRS-80* Models I, II, III, & 16 - 250.00 
CP/Mt - 295.00 

Ask your Dealer or Write: ^ 351 

Institute for Scientific Analysis, Inc. 

P. O. Box 7186, Dept. M-2 

Wilmington, DE 19803 (215) 358-3735 

t T.M. Digital Research 



'T.M. Tandy Corp. 




Maxell 
Diskettes 



The floppy disks that meet 
or exceed every standard 
of quality. Dealer inquiries 
invited. 

Call Toll Free N 
1-800-237-8931. 

In Florida, call 
813-577-2794. , 



V 



Tech* Data Corporation 

325 1 Tech Drive North 

St. Petersburg, FL 33702 ^ 44 



Listing continued 

1390 INPUT-Water Ballast - (Y or N) n ;W$:IF LEFT$(W$,1) ="N" THEN 

W=6 

1400 A=20:VS=25+2.5*W:C=1/80:IF C$="l" THEN C=1/90:A=23 

1410 T=0:H=3280:U=120:D=50:IF C$="0" THEN C=.01:A=26 

1420 A1=.34*C/W:B=9510*W/A:GOSUB150 

1430 INPUT"Start Speed - Knot n ;U$:IF U$<>"" THEN U=VAL(U$) 

1440 V=U:IF U<VS OR U>130 THEN PRINT" ILLEGAL SPEED" :G0T0 1430 

1450 GOSUB 150:INPUT"Start Height - Ft";H$:IF H$<>"" THEN H=VAL( 

H S \ 

1460 GOSUB 150:INPUT"Distance-to-go - N.M";D$:IF D$<>"" THEN D=V 

AL(D$) 

1470 RANDOM :N=RND(0) :DS=D: GOSUB 150:IF M$="A" THEN Y=Y+3 

1480 NS=N:HS=H:VC=V:WS=W:E=V:PI=3. 14159 :T=0:U=VC 

1490 FOR NA=0 TO 99: PRINT: PRINT"Pilot" ;NA+1; : INPUT"Name" ;NA$ (NA) 

:IF NA$(NA)="A" THEN M$="A" :NA$ (NA) ="GE0RGE" ELSE M$="" 
1500 CLS:B$="### ### #### ### ####":Al=.34*C/W:B=9510*W/A:VS=25+ 
2.5*W 
1510 ' 

**** provide sky **** 

1520 FORZ=0TO4:PRINT@(960-192*Z) ,USING"# ";2*Z; :PRINTZZ$; :NEXT 
1530 PRINT@962, STRING? ( 6 1,CHR$( 140) ) ; :FORI=3T046 :SET(3 ,1) : SET (12 
5,1) :NEXT 
1540 ' 

**** and instrument panel **** 

1550 PRINT@64,"MACREADY SETTING = FPM. " ; : I=INT( 4*K+5*K*N) 
1560 PRINT@0, "CONVECTION HEIGHT =";I;" FT. D V H T 

L/S "; 
1570 PRINT@767,"G";:PRINT@831,"0";:PRINT@895,"A"; : PRINT@959 , "L"; 



151 



:GOTO170 
I ' 
**** another page subroutine **** 



1590 PRINT:PRINT"Another page?"; 

1600 Z$=INKEY$:IF Z$="N" THEN G=-1:RETURN ELSE IF Z$="" GOTO 

1600 ELSE G=0:RETURN 
1610 ' 

**** COMMANDS routine **** 

1620 CLS:PRINTTAB( 20) "AVAILABLE COMMANDS" : PRINT 

1630 PRINT"A - Again, no change in pilot" 

1640 PRINT"C - Change atmosphere" 

1650 PRINT"D - New day" 

1660 PRINT"E - Exit program" 

1670 PRINT"H - Help, display available COMMANDS" 

1680 PRINT"M - Refer to Flight Manual" 

1690 PRINT"N - Next pilot" 

1700 PRINT"S - Scoreboard display" : PRINT: PRINT" COMMAND?" ; 

1710 CC$=INKEY$:IF CC$="" THEN 1710 

1720 IF CC$="S" GOTO 1820 

1730 IF CC$="D" THEN NA=99 : NEXT: GOTO 1350 

1740 IF CC$="M" GOSUB 890 

1750 IF CC$="C" THEN NA=99:GOSUB 1880 : NEXT: GOTO 1470 

1760 IF CC$="H" GOTO 1620 

1770 IF CC$="N" GOSUB 1880:NEXT 

1780 IF CC?="A" GOSUB 1880:GOTO 1500 

1790 IF CC$="E" THEN END 

1800 PRINT: PRINT "INVALID COMMAND" :FOR Z=0 TO 99:NEXT:GOTO 1620 

1810 ' 

***** scoreboard ***** 

1820 CLS:PRINTTAB(22) "SCOREBOARD" : PRINT 

1830 PRINT "PILOT FIN HT. DISTANCE TIME SPEED P 

LACE": PRINT 

1840 FORZ=0TONA 

1850 PRINTUSING"% % ##### ##### ####.# ####.# ## 

##";NA$(Z) ;H(Z) ;D(Z) ;T(Z) ;V(Z) ;Z+1 

1860 NEXTZ: PRINT : PRINT "COMMAND? " ; 

1870 CC$=INKEY$:IF CC?="" THEN 1870 ELSE PRINT:GOTO 1720 

1880 T=0 : N=NS : L=888 : D=DS : V=VC : U=V: W=WS : VS=25+2 . 5*W: H=HS : RETURN 

1890 ' 

***** sort routine ***** 

1900 SW=0:PS=PS+1 

1910 FOR J=0 TO NA:Z=J+1:IF D( J) +V( J) >D( Z) +V( Z) GOTO 1950 

1920 ZF$=NA?(J) :DZ=D(J) :TZ=T(J) :VZ=V(J) :HZ=H(J) 

193 NA$(J)=NA$(Z) :D(J)=D(Z) :T(J)=T(Z) :V(J)=V(Z) :H(J)=H(Z) 

1940 NA?(Z)=ZF?:D(Z)=DZ:T(Z)=TZ:V(Z)=VZ:H(Z)=HZ:SW=1 

1950 NEXT J: IF SW=1 GOTO 190 

1960 RETURN 

1970 ' 

***** data for sound generator ***** 



19i 



DATA 221,33,0,0,17,0,0,1,255,255,213,225,62,1,211,255,9, 
56,252,213,225,62,2,211,255,9,56,252,221,9,56,231,201 
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WE STOCK PRINTERS! 



EPSON«OKIDATA»C. ITOH 'RADIO SHACK'SMITH CORONA 



• EPSON • 

MX-80 $499 

MX-80 F/T $525 
MX-100 $685 

WE STOCK A COMPLETE LINE 
OF EPSON ACCESSORIES 

CALL FOR PRICES!! 




OKIDATA 



ML-80 

ML-82A 

ML-87A 

ML-84P 

ML-84S 



$5*0 

$425 

$699 

$1049 

$1299 



OKICRAPH $99 



•C. ITOH* 

PROWRITER 



8510 PARALLEL-10" 
8510SERIAL-10" 
1550PARALLEL-15" 
1550SERIAL-15" 



$489 

$639 

$719 

$1295 



STARWRITER 

F-10 40 CPS, PARALLEL $1450 

F-1040 CPS, SERIAL $1599 

F-10 55 CPS, PARALLEL $1699 

F-10 55 CPS, SERIAL $1850 




RADIO SHACK PRINTERS 

DMP-100 (26 253, S5J9 95 

50CPS, UPPER & LOWERCASE, 10" CARRIAGE 

DMP-200 (261254, 5679" 

120 CPS, BIDIRECTIONAL, ADJUSTABLE TRACTOR, 
10" CARRIAGE 

DMP-400 (26 251, 

140CPS, ADJUSTABLE, REMOVABLE TRACTOR 

FEED, 15" CARRIAGE 

DMP-500 26 252) 

220CPS, HEAVY DUTY DESIGN, REMOVABLE ADJUSTABLE 
TRACTOR, 15" CARRIAGE 



$1015 
$1525 



00 



DWP-410 (26 250) 

300 WORDS PER MINUTE, 15" PLATEN 



DAISYWHEEL II 

TRACTOR FEED (26-1447, $275 



(26-1158, 



$1269" 
$1695°° 



DAISY WHEEL PRINTER 




$ 599 00 
SMITH CORONA TP-I 



(35-001 



THESE ARE OUR CASH DISCOUNTED PRICES. C.O.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADt.tf ARKS OF TANDY CORPORATION. 
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UTILITY 



LOAD 80 



Catalog Your Files 



by Jane Goodale 



Y 



ou need not hassle with filespecs any longer. 
Instead, install this cataloging routine in 
programs that maintain sequential filespecs. 



I find it very irritating to enter a 
filespec every time I want to read or 
write a file. It is much easier to have the 
filespec in the program. However, it is 
also very dangerous when running an 
update program on a sequential file — 
that is, read a record, change it and 
write it back under the same filespec. 

To avoid this hassle, I chose to in- 
stall a cataloging routine in all my pro- 
grams which maintain sequential files. 
The basic idea is from IBM's technique 
of generation data sets, though not 
nearly as elaborate. The procedure re- 
quires a driver program which creates 
and manipulates the catalog, and a 
standard subroutine in every program 
using the files to keep the catalog up- 
dated and provide the current file 
names. 

The driver program (also used as a 
menu program) first attempts to read a 
driver file always called DRIVERX- 
X/CAT; if not found by DOS it will 
guide you through creating one. Once 
the driver file is created, the programs 
keep track of the names of the current 
files and the next one to create. 

The driver file I use is a one-record 
file containing the system identifier, 



number of files in the system, and for 
each file in the system, the file name 
and generation, date created, and the 
last program to issue that file. It has 
the format shown in Table 1 . 

If the system identifier is INV and 
there will be two files in the system 
called DETAIL on drive 1 and SUM- 
ARY on drive 2, created by PRO- 
GRAMA and PROGRAMB respec- 
tively, the filespecs would be: 



DETAIL01/INV:1 
SUMARY01/INV:2 



for the first time created 
for the first time created 



The driver file would look like: 

INV2DETAIL01 11 1/20/81 
PROGR AM ASUM AR Y0 1 20 1 / 1 5/82 
PROGRAMB 

if the detail file was created Nov. 20, 
1981 and the summary file created Jan. 
15, 1982. 

As time passes and you use the files, 
the names would become something 
like this after 15 details and 10 sum- 
maries have been created: 

DETA1L15/INV:1 

SUMARY10/INV:2 

and the driver file: 



ESTABLISH CATALOG 
A CONTROL FILE MUST BE BUILT THE FIRST TIME THE PROGRAMS ARE RUN. 
ONCE BUILT, IT WILL CONTROL FILE NAMES, DATES, ETC. AND WILL NOT 
NEED TO BE ESTABLISHED AGAIN. 
NAMING OF FILES WILL BE AS FOLLOWS: 

DRIVERXX/CAT —DRIVER FILE 

NNNNNNGG/SSS:D —DETAIL FILE 
WHERE: NNNNNN IS A 6-CHARACTER USER-ASSIGNED NAME 

GG IS THE GENERATION # 

SSS IS THE SYSTEM IDENTIFIER 

D IS A DRIVE NUMBER ASSIGNED TO THE FILES (0-3) 
GG WILL START AT 01 AND BE INCREMENTED BY ONE AUTOMATICALLY. 
WHEN GG REACHES 99 IT WILL BE RESTARTED AT 01 

Figure I 



INV2DETA1L 15 102/ 15/82 

PROG RAMA SUMARY10202/13/82 

PROGRAMB 

Program Listing 1, Catalogs, displays 
the menu for the applications to follow. 
It also contains an uncatalog feature 
which allows you to restart at a previous 
generation of the file you uncatalog. 
Program Listings 2 and 3 (called PRO- 
GRAMA and PROGRAMB) illustrate 
use of the subroutines which maintain 
the catalog. PROGRAMA is fully com- 
mented in the standard subroutine. 
PROGRAMB contains the working 
parts, but no comments within the sub- 
routine. 

To try out the system, key in Cata- 
logs and PROGRAMA. PROGRAMB 
can be created by modifying PRO- 
GRAMA. Save them as CATALOGS/ 
BAS, PROGRAMA/BAS and PRO- 
GRAMB /BAS. Be sure to set TIMES 
if you want your files dated. Then put 
formatted disks in the drives you ex- 
pect to use and run CATALOGS/ 
BAS. Your system will try to find the- 
driver file (DRIVERXX/CAT); when 
it can't locate it the On Error routine at 
line 480 will take you to the routine to 
establish the catalog at line 170. 

The screen will describe briefly how 



Position 


Definition 


1-3 


Three-character system identifier 


4 


Number of files for the system (max = 9) 


5-10 


Six-character file name 


11-12 


Two character generation number 


13 


Drive number assigned 


14-21 


Date last updated 


22-29 


Name of program which last issued the file 


30-54 


Repeat of 5-29 for the second file 


55-79 


Repeat again for the third file 


etc. 


Up to nine files 




Table 1 




The Key Box 




Model I or III 




32KRAM 




Disk Basic 




One Disk Drive 




TRSDOS or NEWDOS 
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1 REM CATALOGS/BAS JANE N GOODALE 

2 REM 828 NO 121 STREET 

3 REM OMAHA, NE 6 815 4 

10 CLEAR1500:DEFINTA-Z:CLS:PRINT@470, "SYSTEM DRIVER" 

20 ONERRORGOTO480 
3 GOTO150 

31 REM SUBROUTINES 

32 REM MISC 

40 PRINT8990," ";:INPUT"HIT <ENTER> TO CONTINUE" ;B$; : RETURN 
50 A$=INKExS:IFA$=""THEN50ELSEPRINTAS; : RETURN 

60 PRINT@990,"ANY KEY TO RETURN " ; :GOSUB50 : RETURN 

61 REM CATALOG STATUS 

70 CLS:PRINTTAB(18) "FILE STATUS FOR SYSTEM " ; S$: PRINTTAB ( 12) STRI 

NGS(40,".") 

80 PRINTTAB(12) "# FILESPEC" ;TAB(32) "LAST PGM DATE" : PRINTTAB (1 

2)STRINGS(40,".") 

90 FORN=lTOF:DX$=DX$(N) 

100 NS=LEFTS(DXS,8) : DS=MIDS (DXS, 9 ,1 ) : DT$=MID$ (DX S, 10 , 8) :PGS=RIGH 

TS(DXS,8) 

110 PRINTTAB ( 11 ) N; TAB ( 15 ) N$+"/"+S$+" : "+D$; TAB ( 32 )PGS; TAB ( 43 ) DT$ 

120 NEXTN:PRINTTAB(12)STRING?(13,"-") ;" END OF FILES ";STRINGS(1 

3,"-") : RETURN 

129 REM SET DXS(N) 

130 F0RN=1T0F:DXS(N)=LEFTS(DFS,25) : IFN<FTHENDF$=MID$ (DFS, 26 ) 
140 NEXTN: RETURN 

149 REM START 

150 0PEN"I",1,"DRIVERXX/CAT" 

160 INPUT#1,DF$:S$=LEFT$(DF$,3) : F$=MID$ (DFS, 4 , 1 ) :F=VAL(F$) :DF$=M 
IDS(DF$,5) :GOSUB130:GOTO320 

169 REM ESTABLISH CATALOG 

170 CLS:PRINTTAB(20) "ESTABLISH CATALOG" : PRINT 

180 PRINT" A CONTROL FILE MUST BE BUILT THE FIRST TIME THE PRO 
GRAMS": PRINT" ARE RUN. ONCE BUILT, IT WILL CONTROL FILE NAMES, D 
ATES, ETC. ": PRINT" AND WILL NOT NEED TO BE EASTABLISED AGAIN." 
190 PRINT"NAMING OF FILES WILL BE AS FOLLOWS :": PRINTTAB ( 8) "DRIV 
ERXX/CAT - DRIVER FILE" : PRINTTAB( 8) "NNNNNNGG/SSS:D - DETAI 
L FlLt":PRINT"WHERE : NNNNNN IS A 6 CHARACTER USER ASSIGNED NAME 

200 PRINTTAB! 8) "GG IS THE GENERATION #": PRINTTAB ( 8) "SSS IS THE S 
YSTEM IDENTIFIER": PRINTTAB( 8) "D IS A DRIVE NUMBER ASSIGNED TO TH 
E FlLuS (0-3) ":PRINT"GG SILL START AT 01 AND BE INCREMENTED BY 1 

AUTOMATICALLY." 
210 PRINT"WHEN GG REACHES 99 IT WILL BE RESTARTED AT 01":GOSUB40 



220 CLS:PRINTTAB(20)"FILE DEFINITION" : PRINT 

230 INPUT'ENTER 3 CHAP. SYSTEM ID";S$ 

240 IFLEN(SS)=3THEN250ELSEPRINT"** 3 CHAR ID PLEASE" :GOT023 

250 INPUT'ENTER NUMBER OF FILES FOR THE SYSTEM ( 1 TO 9 )";F$ 

260 IF(F$<"l")OR(F$>"9")THENPRINT"** 1 TO 9 PLEASE" :GOTO250 

270 DF$=S?+FS:F=VAL(F$) : PRINT 

280 FORN=lTOF:PRINT"FILE # " ;N; "DEFINITION" 

290 INPUT'ENTER 6 CHAR NAME" ; N$ : IFLEN (N$) =6THEN300ELSEPRINT"** 6 

CHAR NAME PLEASE" :GOTO290 
300 INPUT'ENTER DRIVE # " ;DS: IF (DS>="0" ) AND (D$<" 4" ) THEN310ELSEPRI 
NT"** DRIVE » TO 3 PLEASE" :GOT03 00 
310 DF$=DF$+N$+"00"+D$+LEFT$(TIME$,8)+"CATALOGS":FS$=N$+"00"+"/" 

+S?+":"+DS:OPEN"0", 2, FSS:PRINT#2,"DUMMY"+FS$:CLOSE2: PRINT: NEXTN: 

OPEN "0", 1, "DRI VERXX/CAT": PRINT* 1,DFS:DFS=MID$ (DFS, 5) :GOSUB130:GO 

TO320 

319 REM MAIN MENU 



UNCATALO 
RUN PROGR 



320 CLS: PRINT" SELECT ONE OF THE FOLLOWING :":PRINT 

330 PRINTTAB(8) "1 PRINT CATALOG STATUS" : PRINTTAB ( 8) "2 

G A FILE" :PRINTTAB( 8) "3 RUN PROGRAM A" : PRINTTABf 8) "4 

AM B" : PRINTTAB( 8) "5 RETURN TO SYSTEM COMMAND" 

340 PRINT: PRINT'CHOICE (DO NOT HIT <ENTER>) " ; :GOSUB50 

350 ONVAL(AS)GOTO3 90,410,370,3 80,400 

360 PRINT'ILLEGAL RESPONSE" :GOSUB60 :G0T03 20 

369 REM CHOICES- 

370 CL0SE1:RUN"PR0GRAMA/BAS" 
380 CLOSEl:RUN"PR0GRAMB/BAS" 
390 GOSUB70:GOSUB60:GOTO32f 
400 CL0SE1:CMD"S" 

409 REM UNCATALOG- 

410 GOSUB70 : PRINT@181 , "UNCATALOG" ; : PRINT8247 , " Y/N" ; 
420 FORN=lTOF:L=55+(N+3) *64 

425 PRINT@L,"-";:GOSUB50:IF(A$="Y")OR(A$="N")THEN430ELSEPRINT@L+ 

1," ";:GOT0425 

430 IFA$="Y"THENGOSUB450 

440 NEXTN: CL0SE1:0PEN"0",1, "DRIVERXX/CAT" :DFS=SS+F$:F0RN=1T0F:DF 

$=DF$+DXS(N) • NEXTN: PRINT* 1 , DFS: CLOSE 1 :G0T03 20 

450 GS=MIDS(DXS(N) ,7,2) :G=VAL(GS) : IFG>0THENG=G-1 

460 GS=STRS(G) :GS=MID$(GS,2) : IFG<10THENG?="0"+GS 

470 DXS(N)=LEFTS(DXS(N) , 6) +GS+MIDS (DX S (N) , 9 , 1) +LEFTS (TIMES , 8) +"C 

ATALOGS": RETURN 

47* REM ON ERROR ROUTINE 

480 IFERL=150CLOSE1:RESUME170 

490 PRINT"ERROR "; ERR/ 2+1;" IN LINE " ; ERL : END 



Program Listing 1. Catalogs 



1 REM PROGRAMA/BAS JANE N GOODALE 

2 REM 828 NO 121 STREET 

3 REM OMAHA, NE 6 815 4 

10 CLEAR3000:DEFINTA-Z:CLS:PRINT@470 , "RUNNING PROGRAM A":G0T02E 



80 REM 

81 REM 

82 REM 

83 REM 

84 REM 

85 REM 

86 REM 

87 REM 

88 REM 
ES 

89 REM 

90 REM 

91 REM 

92 REM 

93 REM 

94 REM 

99 REM 

100 OPEN"I 
:ZFS=MIDS( 

.110 FORZZ% 



-I/O SUBROUTINE TO MAINTAIN CATALOG- 



VARIABLES 

ZRS - DRIVER RECORD 

ZSS - 3 CHAR SYSTEM IDENTIFIER 

ZFS " STRING VALUE OF t OF FILES 

ZF% - NUMERIC VALUE OF # OF FILES 

ZX$ - TEMPORARY HOLDING AREA FOR ZRS 

ZZ% - FOR/NEXT VARIABLE: POINTER TO FILE NAM 

ZRS(ZZ%) - ARRAY OF EACH 25 CHAR DEFINITION 

ZGS - STRING VALUE OF GENERATION # 

ZG% - NUMERIC VALUE OF GENERATION t 

ZIS(ZZ%) - ARRAY OF INPUT FILESPECS 

ZOS(ZZ%) - ARRAY OF OUTPUT FILESPECS 

OPEN DRIVER FILE, READ AND GET INPUT FILE NAMES. 
" , 1 , "DRIVERXX/CAT" : INPUTS 1 , ZRS : CL0SE1 : ZS$=LEFTS ( ZRS , 3) 
ZRS, 4,1) :ZF%=VAL(ZFS) : ZX$=MIDS ( ZR$, 5) 
=1T0ZF%:ZR$(ZZ%) =LEFT$ ( ZXS, 25) :ZIS(ZZ%) =LEFT$ ( ZRS { ZZ%) 



,8) +"/"+ZS$+" : "+MIDS(ZR$ (ZZ%) ,9,1) : IFZZ% <ZF%THENZXS=MIDS ( ZXS, 26) 

120 NEXTZZ%: RETURN 

121 REM GET NEW GENERATION * FOR OUTPUT AND OPEN OUTPUT 

122 REM FILES. SET ZZ% TO FILE NUMBER BEFORE GOING INTO 

123 REM SUBROUTINE. 

130 ZGS=MIDS(ZR$(ZZ%) ,7,2) : ZG%=VAL( ZGS) +1 : IFZG%>99THENZG%=1 

140 ZG$=STRS(ZG%) : ZGS=MIDS < ZGS, 2) : IFZG% <10THENZGS="0"+ZGS 

141 REM UPDATE FILE * ZZ% PORTION OF DRIVER RECORD. 

142 REM PROGRAM NAME SHOULD BE 8 CHAR IN LENGTH OR PADDED 

143 REM WITH SPACES. 

150 ZR$(ZZ%)=LEFTS(ZRS(ZZ%) , 6) +ZGS+MIDS ( ZRS ( ZZ%) ,9 ,1) +LEFTSITIME 
S,8)+"PR0GRAMA" 

160 ZOS(ZZ%) =LEFT$(ZIS(ZZ%) , 6 ) +ZGS+MIDS ( ZI S ( ZZ%) ,9) : RETURN 

161 REM AT END OF JOB, WRITE DRIVER FILE BACK OUT IF ANY 

162 REM OUTPUT FILES WERE WRITTEN. 

170 ZR$=ZSS+ZFS:F0RZZ%=1T0ZF%: ZRS=ZRS+ZRS ( ZZ%) : NEXTZZ% :OPEN"0" ,1 
, "DRIVERXX/CAT" : PRINTtl , ZRS: CL0SE1 : RETURN 

195 REM DEMONSTRATION PROGRAM WILL INPUT FILE #3 

196 REM OUTPUT FILE #1 AND #3 

200 GOSUB100:OPEN"I",1,ZIS(3) : ZZ%=1:GOSUB130: ZZ%=3 :GOSUB130:OPEN 

"0",2,Z0S(D :OPEN"0",3,ZOS(3) 

210 INPut*1,RS:PRINT#3,RS: PRINT! 2 ,R$: PRINT#2 ,RS: IFEOF (1) THEN220E 

LSEGOTO210 

220 CLOSE1,2,3:GOSUB170:CLS:PRINT@470,"END OF PROGRAM A":RUN"CAT 

ALuGS/BAS" 



Program Listing 2. PROGRAMA 



the system works (see Fig. 1). The next 
screen (Fig. 2) will ask for a three char- 
acter system ID and how many files (dif- 
ferent filespecs) you want in the system. 
Create at least three to use with demon- 
stration program PROGRAMA. You 
are then prompted to enter a six-charac- 
ter file name and drive number for 
however many files you have specified. 
After each response, a dummy file will 
be generated. 

When all files have been described, 
the catalog is established and you are 
taken to the main menu, the normal 
starting point (see Fig. 3). Choose Op- 
tion 1 to print the catalog status and 
you will see your files displayed as in 



Fig. 4. 

Return to the menu by hitting any 
key and make Selection 3 to run PRO- 
GRAMA. When it is finished you will 
be returned to the Catalogs program 
menu. Select PROGRAMA several 
more times. For the examples here I 
ran PROGRAMA three times. Now 
select Item 1 again to see the catalog 
status — it should look something like 
Fig. 5. PROGRAMA writes only files 
1 and 3 so the second file shows no 
change. 

Select Option 2 next to uncatalog. 
Your screen will look like Fig. 6. If you 
answer Y to file 1 and N to the rest, 
your next check of the catalog status 



should look like Fig. 7. The generation 
number of the first file has been de- 
creased by one. 

If you return to DOS at this point 
and check your directory, you will see 
that all files created are still there (Fig. 
8). The uncatalog does not kill the file. 
However, the driver file will force your 
program to read the correct file and re- 
create the next one in line. 

Note that PROGRAMB reads the 
files, but never writes any. In this case, 
lines 130-170, the output maintenance 
subroutines, could be removed entirely. 

If your DOS allows you to kill files 

within a Basic program, logic could be 

installed to kill a file that is uncata- 
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1 REM PROGRAMB/BAS JANE N GOODALE 

2 REM 828 NO 121 STREET 

3 REM OMAHA, NE 6 8154 

10 CLEAR3000:DEFINTA-Z:CLS:PRINT@470, "RUNNING PROGRAM B":GOTO200 

80 REM I/O SUBROUTINE TO MAINTAIN CATALOG 

100 OPEN " I ",1," DRIVERXX/CAT": INPUT* l,ZRS:CLOSEl:ZSS=LEFTS(ZR$, 3) 
:ZF$=MIDS(ZRS,4,1) : ZF%=VAL ( ZFS) : ZXS=MIDS ( ZR$,5) 

110 FORZZ%=1TOZF%:ZR$(ZZ%) =LEFTS ( ZX$, 25) :ZI$(ZZ%) =LEFT$ ( ZR$ ( ZZ%) 
,8)+"/"+ZSS+":"+MIDS(ZRS(ZZ%) ,9,1) : IFZZ%<ZF%THENZX$=MID$ ( ZX S , 26) 

120 NEXTZZ%: RETURN 

130 ZG$=MID$(ZRS(ZZ%> ,7,2) : ZG%=VAL ( ZGS) +1 : IFZG% >99THENZG%=1 

140 ZG$=STRS(ZG%) :ZGS=MIDS(ZGS,2) : IFZG% <10THENZG$="0"+ZGS 

150 ZRS(ZZ%) =LEFT$(ZRS(ZZ%) , 6) +ZG$+MID$ ( ZR$ ( ZZ%) , 9 ,1) +LEFTS (TIME 

S,8)+"PROGRAMB" 

160 ZO$(ZZ%) =LEFTS(ZIS(ZZ%) , 6) +ZGS+MID$ ( ZI $ ( ZZ%) ,9) : RETURN 

170 ZR$=ZSS+ZFS:FORZZ%=lTOZF%:ZR?=ZR?+ZR?(ZZ%) : NEXTZZ% : OPEN'O" , 1 

, "DRIVERXX/CAT" : PRINT* 1 , ZRS : CLOSE1 : RETURN 

195 REM DEMONSTRATION PROGRAM WILL READ FILES 1 AND 3 

196 REM AND DISPLAY THEM. 

200 GOSUB100:OPEN"I",1,ZIS(D :OPEN" I" , 2 , ZI S ( 3) :CLS: PRINT-FILE 1 

FOLLOWS": PRINT 

210 INPUi#l,RS:PRINTRS:IFEOF(l)THEN220ELSEGOTO210 

220 PRINT:PRINT"FILE 3 FOLLOWS" : PRINT 

23 INPUT#2,R?:PRINTR$:IFEOF(2)THEN240ELSEGOTO230 

240 CLOSEl,2:PRINT:PRINT"END OF PROGRAM B" 

250 INPUT" <ENTER> TO CONTINUE" ; AS : RUN" CATALOGS/ BAS" 

Program Listing 3. PROGRAMB 



FILE DEFINITION 
ENTER 3 CHAR SYSTEM ID? INV 
ENTER NUMBER OF FILES FOR THE SYSTEM (1 TO 9)? 3 

FILE#1 DEFINITION 

ENTER 6 CHAR NAME? DETAIL 

ENTER DRIVE #? 1 

FILE #2 DEFINITION 

ENTER 6 CHAR NAME? INPUT1 

ENTER DRIVES? 2 

FILE #3 DEFINITION 

ENTER 6 CHAR NAME? SUMARY 

ENTER DRIVE #? 1 

Figure 2 



FILE STATUS FOR SYSTEM INV 



# 



FILESPEC 



1 DETAIL03/INV:1 

2 INPUT100/INV:2 

3 SUMARY03/INV:1 



LAST PGM 


DATE 


UNCATALOG 
Y/N 


PROGRAMA 


11/15/81 


-Y 


CATALOGS 


11/15/81 


-N 


PROGRAMA 


11/15/81 


- 


END OF FILES 





Figure 6 





FILE STATUS FOR SYSTEM INV 




# 


FILESPEC LAST PGM 


DATE 


1 

2 

3 


DETAIL02/INV:1 CATALOGS 
INPUT100/INV:2 CATALOGS 
SUMARY03/INV:1 PROGRAMA 
END OF FILES 

ANY KEY TO RETURN 

Figure 7 


11/15/81 
11/15/81 
11/15/81 



DRIVE 1 DATA0003 11/15/81 


39TRKS 53FDES 128 GRANS 


DRIVERXX/CAT SUMARYOO/INV 


SUMARY01/INV SUMARY02/INV 


SUMARY03/INV D ETA I LOO/I NV 


DETAIL01/INV DETAIL02/INV 


DETAIL03/INV 




DRIVE 2 DATA0003 11/15/81 


39TRKS 61 FDES 129 GRANS 


INPUT100/INV 




Figure 8 



SELECT ONE OF THE FOLLOWING: 

1 PRINT CATALOG STATUS 

2 UNCATALOG A FILE 

3 RUN PROGRAM A 

4 RUN PROGRAM B 

5 RETURN TO SYSTEM COMMAND 

CHOICE (DO NOT HIT <ENTER>) 
Figure 3 



FILE STATUS FOR SYSTEM INV 
FILESPEC LAST PGM DATE 



DETAIL00/INV:1 CATALOGS 

INPUT100/INV:2 CATALOGS 

SUMARY00/INV:1 CATALOGS 

END OF FILES 

ANY KEY TO RETURN 

Figure 4 



11/15/81 
11/15/81 
11/15/81 



loged and kill every file over N genera- 
tions old. 

Trying to uncatalog the 00 version of 
all files will not restart the system from 
scratch. In fact, it will do nothing at 
all. To restart the system, simply kill 
DRIVER XX/CAT. 
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# 



FILE STATUS FOR SYSTEM INV 
FILESPEC LAST PGM DATE 



1 DETAIL03/INV:1 PROGRAMA 11/15/81 

2 INPUT100/INV:2 CATALOGS 11/15/81 

3 SUMARY03/INV:1 PROGRAMA 11/15/81 

END OF FILES 



ANY KEY TO RETURN 

Figure 5 



Using this system requires that you 
have one and only one system's data on 
your data disk. It cannot now handle 
more than one catalog on the same disk 
since the catalog, which is the driver 
file, is called DRIVERXX/ CAT in 
every case. 

A more elaborate cataloging system 
could be developed to kill files and 
maintain unique driver files for each 
system, with names such as DRIVE- 
INV/CAT, DRIVEPAY/CAT and 
DRIVEREC/CAT. The number of 
files per system could be unlimited by 
using a driver file of more than one 
record. 

However, the maintenance program 



and subroutines would be much more 
complicated. As they are presented 
here, if compressed and with all com- 
ments removed, Catalogs takes 2605 
bytes of memory and the I/O sub- 
routine takes 503 bytes of memory. 

I keep a raw copy of each of these 
available for use in any application 
program systems that will do much file 
manipulation. The application pro- 
gram is started at line 200 of PRO- 
GRAMA or PROGRAMB. Install 
your own menu driver in Catalogs by 
changing line 330 and lines 370-380. 

So what does all this mean? A file 
you want to call DETAIL.. /INV can 
be called DETAIL00/ INV when the 
catalog is initialized. More impor- 
tantly, it will be DETAIL01/INV for 
the first run, DETAIL02/INV for the 
second run, DETAIL03/INV for the 
third run and so on. No operator inter- 
vention is necessary once the catalog is 
established. It also means you always 
have a file to go back to if you goof the 
current run, by using the uncatalog 
feature. ■ 



Jane Goodale (828 
Omaha, NE 68154) is 
Western Electric: 



N. 121 St., 
employed by 



MULTIDOS 



• IS THE DOS WITH THE MOST EFFICIENT DISK BASIC INTERPRETER 

• IS THE DOS WITH THE ORIGINAL & STILL THE BEST SINGLE STEP BASIC 

• IS THE MOST COMPATIBLE OPERATING SYSTEM ON THE MARKET 

• IS EASY TO LEARN — EASY TO USE ! 

MULTIDOS does the following AUTOMATICALLY! 



ADJUSTS 

DISABLES 
INTERRUPTS 

EXECUTES 

PREVENTS 

READS 

STEPS 

TOTALS 

SENSES 



for CPU speeds of 1.77 thru 5.32 MHz without the need for slowdown 
during disk I/O. 

when CLOAD, CSAVE, or SYSTEM is entered from the command mode 
(Model I). 

the most commonly used Library command, DIR, with one keystroke. 

system hanging, even without a diskette in drive ZERO. 

single density, double density, Model I and Model III diskettes. 

machine language programs for debugging (controlled execute). 

free diskette space on all mounted diskettes. 

type of double density hardware (RS or others). 



"Oioboofy q)oc8 3k ^Bette/t" 





VISA & MasterCard 

WELCOMED 

Foreign Orders Add $10.00 
For Shipping & Handling 

* For Model I Orders Only * 
Please specify Single, Double 
or P Density. 



— MAILORDERS — 

Cosmopolitan Electronics Corporation 

P.O. BOX 89 • PLYMOUTH, MICHIGAN 48170 

•••••••• 

— TECHNICAL INFORMATION — 

Cosmopolitan Electronics Corporation 



$99 



95 



C/O VERNON HESTER 
42403 Old Bridge Road • Canton, Ml 4811 



(313) 397-3126 



$3.00 For 
Shipping & Handling 

Michigan Residents 
Add 4% Sales Tax 

COD. Orders Add $1.50 

Personal Checks Take 
2 Weeks To Clear 



■See List of Advertisers on Page 563 
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UTILITY 



Directory Information, Please 



by Charles Knight 



N 



o disk directory can suit everyone's needs. 
But this one, written for LDOS, has enough 
flexibility to be adapted with relative ease. 



Almost on Day 1, the average disk- 
drive owner finds he needs to catalog his 
programs and data files. Many pro- 
grams do the job, but none of them 
can be all-inclusive. 

They range from simple programs 
that store only a program name and 
disk number to more elaborate pro- 
grams that let you add to the file. Some 
use a simple CMD"DIR" statement 
and PEEK the filespecs from the screen, 
severely limiting their usefulness, while 
others use machine-language disk-read 
routines and require only a single-den- 
sity disk with its directory on track 17. 

All such disk catalog programs that 
I've seen use memory to store the infor- 
mation and write the file to disk after 
sorting and processing the file in memo- 
ry. This method is fast, but has one ma- 
jor disadvantage: it only lets you store a 
fixed number of file names at a time. If 
you have too many, you must break 
your catalog up into several smaller 
files. If you use a printout to locate a 
file, you can spend quite some time to 
find which of a group of printouts con- 
tains the entry for the desired file. You 
also can't create one large sorted print- 
out of all of your files. 

I wrote this database management 
system to get around this limitation. I 
did have to make a trade-off though — 
because the program can deal with a 
database much larger than available 
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memory, the data files will take a long 
time to sort. This is a problem inherent 
in any hardware design using 5!4 -inch 
floppies, since data must be moved 
around physically on the disk and disk- 
access speed is limited. A 5,000-record 
file can take overnight to sort. 

But most of us do sleep and go to 
work, and you can use these times. 
Also, most databases don't need con- 
stant sorting. I sort at three- to six- 
month intervals. 

And if your database is small (under 
800 items), the sort time is only a few 
seconds. 

Requirements 

The program had to read and catalog 
all of my disks whether they were single- 
or double-density regardless of what 
operating system created them. I 
couldn't accommodate the Pcrcom 
DBLDOS format (which is also the 
NEWDOS80 standard), but I don't use 
these two much, anyway. I use LDOS 
almost exclusively. 

I wanted to know at a glance not only 
which disk my file was on, but also 
something about that file. Since I often 
have several versions of a similarly 
named program, I needed to know the 
file size and attributes to identify the 
file. Also, I wanted to know whether the 
disk it was on was single- or double-den- 
sity, and whether that disk had any free 



space left. In addition, I wanted to print 
labels for the disks as they were read in 
by the system so I could label them 
promptly — before I got them out of or- 
der again. 

LDOS offered locations in memory 
where all the information I wanted was 
kept, and it was a simple matter to ex- 
tract it and place it within my database. 
Since I do use an occasional single-den- 
sity disk formatted under DOSPLUS, 
NEWDOS80 version 1, and NEWDOS 
2.1,1 wanted to have my database pro- 
gram handle its repair to LDOS 
readable status for me. 

The one common feature I didn't 
need was the ability to add user com- 
ments about the file, since I'm too lazy 
to use such a feature anyway. 

The database system I came up with 
consists of these program modules: 

• MAGIDEX/CMD— Machine lan- 
guage convenience loader. 

• MAGIDEX/BAS— Menu program 
to call up the other modules. 

• DREADER/BAS— Directory reader 
and database builder. 

• SORT/BAS— Sort program for 
LDOS 5.1.0 and later. 

• SORT50/BAS— Sort program for 
LDOS 5.0.3 and earlier. 

• PRINT/BAS— Module for printing 
out the database. 

• UTILITY/B AS— Module for chang- 
ing the database defaults. 

MAGIDEX/CMD is a convenience 
loader for the rest of the system. You 
can enter LBasic and simply run MAG- 
IDEX, but that requires more typing 
and lacks elegance. The source code 
here is in ED AS format. If you use ED- 
TASM, you'll have to put each graphics 
character on a separate line with its own 



DEFB statement. This loader uses a 
jump vector at X'4405' that will load 
and execute a load file format program. 
LBasic, of course, is such a program. 
This vector is in TRSDOS also, but its 
use is severely limited for Basic pro- 
grams by those annoying and rarely 
needed HOW MANY FILES and 
MEMORY SIZE messages. By pointing 
the HI. register pair to a buffer that 
contains the command to be executed, 
followed by a carriage return and a 
jump to this vector, the command in the 
buffer will be executed along with any 
parameters that happen to be with it. 

This loader module also displays 
some pleasing graphics while LBasic is 
loading and executing. You don't have 
to type in this machine-language loader, 
but you'll save time and have a more 
professional-looking software package. 

MAGIDEX/BAS serves as a menu 
from which the other modules are 
called, and ties them together into a 
complete database-management sys- 
tem. It first checks to see if the system 
has been initialized by searching for a 
data file named TRANSFER/DAT, 
which contains all the data items that 
must be passed from program to pro- 
gram. If TRANSFER/DAT isn't there, 
MAGIDEX/BAS will assume that the 
system has not been initialized. 

Much of the screen is devoted to a 
dynamic graphics presentation. This as- 
sures you that the machine is still run- 
ning, and improves the program's ap- 
pearance. The menu will also display 
your name, the number of disks, and 
the number oi' files currently in the sys- 
tem. If you haven't built your files yet, 
it'll tell you that instead. 

You're given four options. The first 
is "Enter more disks," which you select 
if you're running the program for the 
first time or if you've got some new pro- 
grams to add. It calls the DREADER/ 
BAS module and sets up the system to 
read the file names and other disk data 
from your disks. 

The second is "Sort data." This 
module checks which version of LDOS 
you're running and calls the proper sort 
module. 

The third option is "Print Disk 
Data," which loads the printout mod- 
ule that searches the database and prints 
out the information you've catalogued. 

The final option, "End Program," 
returns you to LDOS command level 
after displaying a short message. You 
should always exit MAGIDEX this way 
to be sure that all files are closed. 

DREADER/BAS 

The DREADER/BAS module is the 



heart of the system. It reads in the disks 
one at a time, assigns each one a disk 
number, and builds the database. It also 
lets you select certain options. If this is 
the first time you've run the program, 
or if you're starting a new database, 
you'll be asked your name, which will 
become a part of the system and will be 
used on the printouts and in the menu 
program. 

Next, you're asked if you want to in- 
clude invisible files. Normally, the only 
ones you'll have are those that are part 
of your operating system; you won't 
want to include them, so answer "N." 
(You can answer yes or no questions in 
either upper- or lowercase.) 

Now you enter the number of the 
disk drive you want to use to hold your 
files. You must leave the disk in 
that drive while you're running the 
database, or you might lose all your 
data. You can change drives only by us- 
ing the UTILITY/BAS program de- 
scribed later. 

Next, you're asked if you want to 
print disk labels as the disks are read in. 
If you answer "Y," be sure your printer 
is loaded with standard mailing labels 
such as those sold by Radio Shack. The 
information printed on the label will 
be the disk name and date, amount of 
free space in both grans and K, disk size 
and number of sides, single- or double- 
density, and the number of cylinders on 
the disk. 

Now (and each time the system has 
finished with a disk) you'll be prompted 
"Enter the drive containing the disk to 
be read:" and a blinking question mark 
for a cursor. If you're finished catalog- 
ing disks, answer with "@," and the 
system will close files and return you to 
the menu. Do this periodically to be 
sure that a parity error or some other 
malfunction doesn't leave you with an 
unusable set of data files, and a greatly 
expanded vocabulary as well. 

Suppose you answer with "2." At 
this point, the program will begin read- 
ing the GAT sector of the disk in drive 2 
to determine its name, date, and 
amount of free space. This information 
will be printed at the top of the screen. 

Next, the program will open the di- 
rectory of the target disk as a random 
file and begin to read in all files, dis- 
carding those that have been killed or 
are system files. As each file is cata- 
logued, it is displayed on the screen, to- 
gether with its attributes and its size. 
Two files show on the screen at one 
time, so if you have a speed-up modifi- 
cation, you'll have to be a fast reader to 
keep up. When the program finishes 
reading the disk, you'll get the prompt 



again to enter a drive number. 

If for any reason LDOS or LBasic 
can't open the file DIR/SYS on the tar- 
get disk, you'll receive the prompt "Di- 
rectory not readable by LDOS, do you 
wish to attempt to repair it?" If you an- 
swer "N," you'll again be prompted to 
enter the drive number. If you answer 
"Y," the file REPAIR/CMD, which 
comes with all versions of LDOS past 
5.0.2, must be on one of the disks in the 
system — preferably in drive 0. This pro- 
gram is then executed; if the repair is 
successful, the disk can now be read. If 
not, you'll be told so and returned to the 
drive number prompt. No harm is done 
to a disk that cannot be repaired. 

If the disk has anything wrong that 
makes its directory unreadable, you'll 
reach this part of the program. This 
option is necessary because TRSDOS 
and NEWDOS 2.1 write an incorrect 
hash code for the file DIR/SYS, and 
the operating system can't find that 
file. It's worth noting that the hash 
code for BASIC/CM D on a TRSDOS 
disk is also incorrect, but this one 
does work. Under LDOS, the direc- 
tory data address mark has nothing 
whatever to do with its ability to read 
the directory from LBasic as though 
it were a random data file. 

While you're running the DREAD- 
ER/BAS module, you may want to 
have MONITOR/GMD from Misosys 
resident to intercept disk errors and give 
you a chance to repeat a sector write in 
the event of an error. This will mess up 
the nice graphics on the screen, but it 
may save your data files by giving you 
second and third tries at a sector write. I 
also recommend running with SYS1 
through SYS3 and SYS8 and SYS10 
resident (LDOS 5.1 only), to speed up 
the disk reading operation. You'll have 
to get them back out of memory, 
though, before you try to sort the file. 

You will suffer a total program crash 
if you get a disk I/O error while writing 
the file TRANSFER/DAT after you've 
read in all your disks and requested a re- 
turn to the menu; the program will hang 
in an error-trap loop. Since TRANS- 
FER/DAT is written to just before 
returning to the menu, the odds of such 
a crash happening are slim, so I haven't 
written code for this possibility. 

Manipulating the Data 

SORT/BAS and SORT50/BAS are 

the data-manipulating hands of the sys- 
tem. After you've read in all your disks, 
it's time to sort your data file into al- 
phabetical order. As mentioned above, 
if you have more than 800 filespecs in 
your file, you should allow quite a 
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while. A 1,000-record file will take 
about two hours to sort; a 5,000-record 
file will probably require overnight. The 
number of disks you have doesn't mat- 
ter. Only the number of filespecs is im- 
portant. 

I've got some 2,800 records in my li- 
brary, and it takes about six hours to 
sort them. I store the records on a sin- 
gle-density system disk, so you can 
imagine the total capacity of the system. 

The sort can be postponed for now 
and the printout module will still work, 
but the printout won't be sorted. In 
fact, it will be a printout by disk in the 
order in which they were read. You can 
still use the sequential search features in 
the system, though. If the file is less 
than 800 records, the entire file is 
brought into memory for the sort. In ei- 
ther event, you should back up the files 
before trying to sort them because of 
the large amount of disk I/O going on. 
The module for LDOS 5.0 uses a shell- 
sort algorithm and the LSET statement 
to by-pass Microsoft's garbage-collec- 
tion routines. Because all of the strings 
being sorted are the same length (32 
bytes), this LSET technique is the fast- 
est, and it's a whole lot easier than using 
VARPTR and POKE. If you're using 
LDOS 5.1, the records are pulled into 
memory and the CMD"0" machine- 
language sort of LBasic is used. 

The versatility built into these sort 
modules keeps you in control of the 
tradeoffs necessary due to memory lim- 
itation. If you restrict yourself to short 
files as other catalog programs require, 
the sort will be quick; if you prefer a 
larger database, you can have that as 
well. You can't quite have your cake 
and eat it too, but you've got more flexi- 
bility than with most software. 

PRINT/BAS 

Think of PRINT/BAS as the mouth 
of the database system. From this mod- 
ule, you get hard copy and video. The 
ultimate function of any database-man- 
agement system is the printout. This 
module provides several options. 

Option 1 — Print file to printer. This 
sends the entire file to the printer in the 
order in which it is stored on the disk. 
(Either as the files were read or alpha- 
betically, depending on whether you've 
sorted the file.) You're asked for a start- 
ing and an ending record number. If 
you press enter twice, you send the en- 
tire file to the printer. The output is for- 
matted to print nine filespecs per page, 
and each filespec is outdented from the 
rest of the information for easy refer- 
ence. You can print the entire file once 
and keep the information in a binder. 
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This printout contains nearly all the 
information in the directory about the 
file except its location on the disk. Of 
course, the inventive programmer can 
add that, too, but I don't need that 
much information. Each page is num- 
bered and has a title header printed at its 
top. You can select the short-form 
printout option to save paper or if you 
have a slow printer, but the printout 
won't contain nearly as much informa- 
tion about the files. The long-form 
printout is the reason for this program 
and is what makes it unique among di- 
rectory management systems. 

Option 2 — Search for a specific file. 
This option lets you search for a partic- 
ular filespec, partspec, or extension. It 
is an instring sequential search. 

You're asked to enter the filespec or 
partspec to be searched for. For exam- 
ple, if you input /BAS, you'll find all 
files that have /BAS as an extension. 
BAS finds BASCOM, HELP/BAS, 
and BASIC/CMD. Use only uppercase, 
since that's how the filespecs are stored. 

Then you're asked if you want output 
to your printer. Any input other than 
"Y" or "y" outputs to the screen only. 
Each file is displayed on the screen; if 
you don't specify printer output, you're 
prompted to press enter for the next rec- 
ord. Should the search not find any- 
thing, you're automatically returned to 
the menu. Whenever the Hashing 
"enter" appears on the screen, you can 
press the up arrow instead of enter and 
return to the print module menu. Most 
printouts also abort to the menu if you 
hold the up arrow down. Disk I/O and 
other errors return to the menu too, but 
you're told that first and asked to press 
the enter key. 

Option 3 — Printout of all files to the 
screen. This is the same as option 1 ex- 
cept that output is to the video only. 
Pressing enter displays the next record; 
pressing the up arrow aborts back to the 
print module menu. The lower part of 
the screen clears just before the display 
of each file. 

Option 4 — Return to master menu. 
This is the proper way to exit the print 
module and return to the database 
master-menu. Note that the number 4 is 
used in both the print module and the 
menu for the exit option (making it 
easier to remember). 

Option 5 — Printout of header data. 
This option prints out information 
about the disks only, not about the files 
on them. The printout is such that you 
can cut it out and file it with or on the 
disk jacket. 

Option 6 — Printout of files by disk. 
This is a sequential search and printout 



routine. It asks for the starting and end- 
ing disk number; pressing enter twice 
here defaults to print the entire file. 
Each record comes from the HEAD- 
ER/DAT file, and the DIRECTRY/ 
DAT file is searched for files that match 
this disk number. The output is directed 
to the screen or both printer and screen. 
The defaults output the entire file to the 
screen only. 

Since this sequentially searches the 
whole file once for each disk, it can take 
quite a while to perform for all disks on 
a very large file. If you're making a 
printout, you won't mind taking time 
out for a Coke or watching something 
on tv while the computer does. the dirty 
work for you. 

All of the program modules include a 
routine used on initialization. You must 
determine if a file called TRANS- 
FER/DAT exists. If not, some of the 
modules return to the menu. In the case 
of the menu itself, it displays certain 
messages to note that the system is not 
yet initialized. In the MAGIDEX/BAS 
program, this routine is at lines 160 to 
280. By placing the open statement after 
an ON ERROR GOTO statement, you 
can determine the existence of the file 
TRANSFER/DAT and take appropri- 
ate action. 

The routine for blinking all the 
graphics blocks in MAGIDEX/BAS is 
a loop at lines 720 to 820. This loop exe- 
cutes until you press a key between 1 
and 4. Each time the loop executes, the 
value of CK increases by two. If that 
value exceeds 30, it sets to 5 to keep the 
flashing graphics bars within the limits 
of the screen. The PEEK in line 880 
checks the OSVERS within LDOS to 
determine which of the two sort mod- 
ules should be loaded. 

In SORT/BAS, the first order of 
business is to determine the length of 
the data file. This value is contained 
within TRANSFER/DAT and is read 
into the variable IN. Regardless of the 
actual number of records in DIREC- 
TRY/DAT, the system assumes that the 
value read in is the length of the file. 
Thus, you should make sure that you al- 
ways use the correct TRANSFER/DAT 
to keep from ruining your database. If 
you have more than 800 files, the exter- 
nal sort in lines 520 to 720 runs. If not, 
the routine at 780 to 1020 executes. If 
you meet an out-of-memory error, the 
program tells you that the SYSGEN is 
probably too large and reminds you to 
reduce it by aborting to line 1040. If you 
are running under LDOS 5.0, the mod- 
ule SORT50/BAS executes instead of 
SORT/BAS. The major difference is in 
lines 820 to 1300. SORT0/BAS has a 



shell-sort algorithm. Although you 
can't run SORT50/BAS under LDOS 
5.1, the sort is slightly slower; instead of 
taking about a minute for 800 files, it 
takes about six. Since LBasic has the 
CMD"0" function, it's foolish not to 
use it. They both perform the same on 
files longer than 800 records. You may 
elect not to key in the sort routine you 
don't need, but MAG1DEX/BAS must 
have its line 880 modified accordingly. 

The DREADER/BAS module is 
where most of the work is done. The 
AB$ array is set to the attributes a file 
can have. Should you ever receive the 
display of "*****" for a file's attri- 
butes, copy it to another disk: its di- 
rectory entry has been clobbered. Bits 
0,1, and 2 of the first byte of a file pri- 
mary directory entry, or FPDE, contain 
the attributes of a file. The value thus 
obtained is used as the subscript to print 
out the correct text to match the attri- 
butes of a file. The same technique is 
used with MO$ to select the text for 
the month. 

Lines 280 and 300 define two func- 
tions that will be called often during 
program execution. Line 280 removes 
the right blanks from a filcspec that is 
less than eight characters long, while 
line 300 defines the function for adding 
the colon before the drive specification. 

The main directory-read loop begins 



at line 640. First, the file DIR/SYS on 
the requested drive. opens with a logical 
record length of 1 and the subroutine at 
line 1680 reads its granule allocation, or 
GAT table. Then the directory reopens 
with a logical record length of 32 bytes. 
As soon as the disk is read, the drive 
code table, or DCT, contains all the in- 
formation about density, size, etc. and 
all you need to do is PEEK it out. Since 
the DCT is exactly 10 bytes long, just 
multiply the drive number by 10 and 
add the result to the start of the DCT to 
get the DCT for the correct drive. 

The DCT for drive begins at 18176, 
but the first byte you're concerned with 
is at 18179. This byte contains the densi- 
ty and size of the disk just accessed. 
Based on the value of the proper bit, 
SD$ is set to indicate the correct condi- 
tion in line 680 and D8$ is set in line 700. 
Bit 5 in the next byte tells you that the 
disk is two-sided if it is set. The Device 
command in LDOS reads the DCTs in a 
similar manner and reports on their 
status, which LDOS remembers accord- 
ing to the last disk accessed by 
that drive. By adding 1 to the num- 
ber PEEKed from 18182, you can see 
how many cylinders were on the last 
disk read. 

After fielding the buffer in line 820 to 
match the bytes in the directory you 
want to read, the program enters a loop 



beginning at line 860. Line 900 tests bits 
4 and 7 to determine that the file hasn't 
been killed or that the entry is not a file 
extended directory entry, or FXDE. 
The next line tests bit 3 and the flag to 
indicate whether invisible files are to be 
included and exits if both tests pass. 
You won't normally want to include 
system files in the directory, so they're 
eliminated in line 940. After the pro- 
gram decides that the file is to be includ- 
ed, the filespec is constructed in line 960 
by adding a slash after the filespec and 
before the extension. At this time, two 
subroutines are called to determine the 
file's attributes and unpack the data in- 
to a format more recognizable by us hu- 
mans. The logical record length is ad- 
justed in line 1040. This value will be the 
actual LRL if it is anything but zero, but 
if it's zero, then the true LRL is 256. By 
checking the password hash codes in 
lines 1060 and 1100, the program sees 
whether the file is password protected 
and, if so, whether its password is 
PASSWORD. Of course, if you had all 
day to read each directory you could de- 
code each password to one that would 
work, but that isn't the purpose of a 
disk directory management program. 

The code in line 1140 removes the 
slash mark added earlier if the file has 
no extension. Then a subroutine is 
called which calculates the size of the 
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file both in granules and kilobytes. At 
this point, after the information ap- 
pears on the screen, the data is written 
into the file DIRECTRY/DAT and the 
procedure repeats for the next directory 
entry. When the directory has been 
completely read, the files are closed to 
update the EOF pointer so that the files 
won't be completely lost if an I/O error 
occurs. Then control is passed back to 
line 540, where the process can be re- 
peated on the next disk in your library. 

The subroutine at line 1860 calculates 
the free space on the disk by reading the 
GAT table and checking each bit of 
each byte to determine if the granule it 
represents is allocated or free. Only the 
high four bits are checked, since this is 
all that LDOS uses. In line 2120, the 
number of free granules is converted in- 
to K and the subroutine returns with EE 
equal to the number of free grans and 
EK equal to the amount of free space. 

The subroutine at line 2180 writes the 
data to the file DIRECTRY/DAT, 
which contains information about the 
files, while the subroutine at line 2340 
handles writes to the file HEADER/ 
DAT, which contains information 
about the disk. As you can see, the rela- 
tive sizes of these two data files will vary 
depending on how many files are on 



each disk. A pointer stored within DI- 
RECTRY/DAT points to the correct 
data in HEADER/DAT. This is why 
it's not possible to calculate exactly how 
many disks may be stored in a given 
amount of disk space. I'll wager, 
though, that a double-density 40-track 
data disk will hold more files than you'll 
ever have. 

The screen graphics routine is next at 
line 2620. This is called at program ini- 
tialization; the screen is redrawn each 
time you call the program REPAIR/ 
CMD, since it clears the screen before 
executing. The data-input routine is at 
line 2700. This versatile routine accepts 
only a predetermined amount of char- 
acters, and returns with the input stored 
in TT$ only after you hit the enter key. 
Before you call it, S and E must be load- 
ed with the starting and ending points 
on the screen where input is to be ac- 
cepted. The length of the input string is 
the difference between them. The 
routine takes care of calculating this 
and keeps the result stored in C. 

The file TRANSFER/DAT is written 
to in the routine at line 3020. The data 
stored in this file is VI, the flag indicat- 
ing whether or not the operator wants to 
include invisible files; D2 and D2$, the 
drive number that the data files will be 



written on; DN, the current highest disk 
number assigned; IN, the number of 
filespecs currently stored in the system; 
and KT$, your name. This file will nev- 
er occupy more than a granule of disk 
space, but it must be present to let the 
programs communicate with each 
other. 

The rest of the program contains the 
error-trapping routines. If an error oc- 
curs that the program hasn't planned 
for, control passes to line 3340, which 
jumps to 3020, the exit routine. The 
screen shows the error-code number 
while the menu program is loading. 
This procedure assures you that all files 
are closed and have their directory 
properly maintained, should recovery 
be necessary. 

I dislike reconstructing data files, so I 
exit the DREADER/BAS program after 
every 15 or 20 disks have been read and 
make a back-up of all three data files. 

PRINT/BAS 

PRINT/BAS is the longest of the 
modules. It reads the data files created 
by DREADER/BAS and outputs them 
to the screen or printer. After you ini- 
tialize, control passes to line 980, which 
displays a menu on the screen. Line 
1220 is a loop that prints a moving ar- 



■^ model in 48K mm 

m 2 DRIVES #1600 M 
W 1 DRIVE $1400 ^B 

P31 Green Phosphor CRT $85 
RS232 $65 
| FDC Card $130 
4.0 Track TANDON DRIVE (SS)$195 
TANDON DRIVE PARTS CALL 


1 

* MODEL III TECHNICAL MANUAL 

Written by factory technician 
to accompany Radio Shacks Tech. 
Reference Manual. Packed with rare 
Hardware information. 25Pages $10 

RADIO SHACKS TECH. REFERENCE MANUAL | 

$11 


* SERVICES 

We repair all Model III boards 
and Model III systems - overnight - 
in most cases. Tandon drive repair, i 
Call for details. 


* NO CHARGE TO INSTALL GREEN SCREEN 

OR RS232 IN NEW COMPUTER 

NEXT DAI SHIPMENT. 
120 DAI GUARANTEE ON ALL ITEMS 
j PRICES REFLECT CASH DISCOUNT 
SHIPPING EXTRA 
VISA MASTERCHARGE AMER. EXPRESS 


************ 

ALAMO COMPUTER 00. 

1234 AVANT 

SAN ANTONIO, TEXAS 78210 

(512) 534-7782 

************ 
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row as a prompt. The ON. . .GOTO 
statement in line 1 360 goes to the proper 
routine; otherwise, the position of the 
arrow advances and the loop repeats. 

The routines at line 1400 and line 300 
are similar. They print the entire file, 
though part of the file can be printed if 
you know the record number range. I 
wrote these routines separately to let 
you modify the printout format without 
affecting the video. The code is longer, 
but more versatile. 

Line 2040 provides pagination, so I 
recommend that no printer filter be resi- 
dent or that you do a RESET *PR be- 
fore running this program. You might 
wish to add line 30 in PRINT/BAS to 
read: 30 CMD"RESET *PR. The 
printout never exceeds 64 characters in 
width, and six filespecs are printed on 
each page. 

The search routine beginning at line 
2160 is a sequential search using the IN- 
STR function of LBasic. I could have 
used a tree search that would be faster, 
but such a search would require a sorted 
file. This short routine finds any filespec 
that contains the sequence of entered 
characters regardless of where in the 
filespec that sequence occurs. Line 2420 
samples the keyboard during each com- 
pare and aborts if you press the up 
arrow. 

The subroutine at line 3720 paginates 
by checking the current line number 
stored in the printer device control 
block, or DCB, and comparing it with 
50 to see if a full page has been printed. 
If so, a form feed goes to the printer and 
a new header prints across the top of the 
page. You can select the range of disk 
numbers to be retrieved; press enter 
twice to default to print the entire file. 

The routines beginning at line 3820 
are a copy of the other file-scanning 
routines, but with the statements in a 
different order and a somewhat differ- 
ent format. This lets you print out the 
files by their disk number rather than al- 
phabetically. If you've sorted your 
database, the files will be alphabetized 
within each group; otherwise, they'll be 
in the order in which they were read 
from the disk's directory. 

The error trap in this module (line 
5000) is not as complicated as that in the 
DREADER/BAS module. Its purpose 
is to return you to the menu if any error 
should occur. To let you debug, the er- 
ror code and line number are displayed, 
and you must press the enter key to re- 
turn to the menu. 

Even though it is less than a full sec- 
tor in total length, the file TRANS- 
FER/DAT contains information that 
the program modules cannot function 



without. If this file does not exist some- 
where in the system, all of the modules 
will assume that you haven't initialized 
the system yet. Some will abort back to 
the main menu; others will prompt you 
to initialize. In any case, if you have any 
other file named TRANSFER/DAT, 
the program will read it; if it isn't the 
right one, pandemonium will break 
loose. In fact, this file is so important 
that nothing in the system can be ac- 
cessed without it. 

A disadvantage of the system is that 
if you buy another drive and wish to 
change the disk you're storing your data 
on, you can't do so without modifying 
the data within this file. You also might 
be faced with a reconstruct of one of the 
other files, so I included a utility to deal 
with these needed changes to TRANS- 
FER/DAT. Since you won't normally 
be entering this module as part of run- 
ning this program, this utility has no 
special menu selection. You type 
RUN"UTILITY/BAS"; it will prompt 
you through its operation. You can 
change any of the system data here that 
you want to; the changes are not perma- 
nent until you exit the program. Know 
what you are doing and work on a back- 
up of the file! Even though you can 
abort without making your changes 
permanent, you can destroy all your 
files if you aren't careful. When you're 
finished editing TRANSFER/DAT, the 
utility will return you to the main menu. 

MAGIDEX/CMD 

The sole purpose of the file MAGI- 
DEX/CMD is to load and execute LBa- 
sic and then load and execute the pro- 
gram MAGIDEX/BAS. You need not 
key in this part of the program if you 
don't want to or if you don't know how 
to use an editor/assembler. It is present- 
ed here in the format used by EDAS, 
and will have to be modified for ED- 
TASM. You'll need to change lines such 
as 210 into two separate line numbers, 
each with one byte and one DEFB op- 
code. Lines to be changed are 180, 210, 
220, 230, 240, 250, 260, 270, 280, 290, 
and 300. Lines 120, 130, and 140 should 
be deleted since EDTASM does not rec- 
ognize these pseudo-ops. This loader 
sets up a temporary buffer at X'BOOO' 
for the command LBASIC RUN 
"MAGIDEX/BAS" and a concluding 
carriage return. Since no part of this 
buffer can be clobbered by the loaded 
program, 1 have ORGed it in the middle 
of RAM, well out of harm's way. This 
loader merely places some graphics and 
a message on the screen and jumps to 
X'4405' with the HL register pair point- 
ing to the command to be executed. 



This vector is in TRSDOS and NEW- 
DOS, and I think in all the other 
DOSes, and can be used as a way to 
protect your programs from prying 
eyes. Here I've used it for convenience, 
as the programs can be executed from 
LDOS Ready and will return to com- 
mand level when finished. Even in this 
simplified form, such a loader could 
confuse the new computer user into 
thinking that your program is tamper- 
proof, especially if you add passwords 
to all the modules. 

If you're using a Model III, you'll 
have to change a couple of lines. Do not 
key in SORT50/BAS because there nev- 
er was an LDOS 5.0 for the Model III. 
In the module MAGIDEX/BAS, make 
line 880 read: RUN"SORT/BAS". In 
the SORT/BAS module, delete lines 
160 and 180. In the module PRINT/ 
BAS, you may want to change the up 
arrow to one of the special characters 
available on your computer, because a 
Hashing left bracket is not particularly 
attractive. This should be done in line 
1260. The address X'4405' will have to 
be changed to the correct one for the 
Model III also. Consult your LDOS 
manual for the address of the @RUN 
vector. These should be the only 
changes required for operation on a 
Model II under LDOS 5.1. 

If you decide to key in these pro- 
grams, I recommend that you make 
each statement that contains an ON 
ERROR GOTO statement into a REM 
so that the error traps won't throw you 
when you're debugging your typing. 
This is good advice for any program, 
but particularly this one, since an error 
can cause an immediate return to the 
menu module and the unrecoverable 
loss of the program you're trying to de- 
bug. After you've corrected all your 
typing mistakes, you can remove the 
REM tokens. 

Be sure to name the programs exactly 
as shown, because each module calls the 
other and they must have the right 
name. If you're running an LDOS earli- 
er than 5.1.2, you should name the 
menu module simply MAGIDEX in- 
stead of MAGIDEX/BAS to allow for 
the difference in default extension 
handling in LDOS 5.1.2. 

Disk-drive catalog programs are like 
spouses: there's only one that's just 
right for you. This one is exactly right 
for me, but I've tried to make it easy to 
modify so that you can make it just 
right for you.H 

Charles Knight can be reached at 
2708 Roberts Circle, Arlington, TX 
76010. 
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GRAPHICS 



Tiger Graphics 



by Barbara dinger 



Use the IDS-445 Paper 
Tiger to print graphics 
using Basic, Pascal, and 
Assembly language. 



My selection of a printer was based 
on three things: quality, price, and 
graphics capabilities. The IDS-445 — 
often called the Paper Tiger — gave me 
everything 1 wanted in a printer except 
lowercase descenders. However, there 



Program Listing 1 

5 'EXAMPLE 1 

10 DEFUSR0=&H7C08:DEFUSR1=&H7D17 :DEFUSR2=&H7D65 

20 DEFUSR3=&H7C01:CLS 

30 DEFINT I,J,T,U,V 

40 I6=16:I8=18:P5=.5 

50 INPUT"INPUT H";H:POKE&H7DF7,H:POKE&H7DF8,0 

60 INPUT"INPUT K";K:POKE&H7DF9,K:POKE&H7DFA,0 

70 INPUT"INPUT PHIGH";I:POKE 32239, I: POKE 32240 ,0 :V5=I8*I 

80 INPUT"INPUT PWIDE";I:POKE 32241, I: POKE 32242,0 

90 Z=USR0(W) 

100 DEF FNY(X)=2*X-3 

110 INPUT"ENTER THE DOMAIN" ;A1 ,A2 

120 I1=INT(I6*(A1+H) +P5) : I2=INT( 16* ( A2+H) +P5) 

130 FOR U=I1 TO I2:Z=USR3(U) 

140 V=INT(I8*(K+FNY(U/I6-H) ) +P5) 

150 IF V<0 OR V> V5 THEN 210 ELSE Z=USR1(V) 

160 IF U=I1 THEN 210 

170 IF ABS(T-V)<3 THEN 210 

180 IF T>V THEN J1=V+1:J2=T-1 

190 IF T<V THEN J1=T+1:J2=V-1 

200 FOR I3=J1 TO J2 STEP 2 : Z=USR1 ( 13) :NEXT 13 

210 T=V 

220 NEXT U 

225 Z=USR2(W) 

230 END 



is a great difference between having a 
printer with graphics capabilities and 
actually using it to draw graphs. 

The programs in this article illus- 
trate how to use the full graphics ca- 
pabilities of the Tiger by controlling 
the individual dots. In fact, these pro- 
grams graph functions as they would 
appear on standard graph paper with 
one-quarter-inch grids. 

This article is in two sections; the pro- 
grams in the first part are written in 
Level II Disk Basic using NEWDOS80, 
but will run under TRSDOS 2.3 as well 
as NEWDOS + . With some modifica- 
tions they will run with Level II Basic 
and at least 16K of memory. The 



The Key Box 

Model I 
32K RAM 

105-445 Printer 
Pascal 80 
Tiny Pascal 











Program Listing 2 








00001 




;TIGERGRAPH 








00002 




; BARBARA CLINGER 








00003 




; DEPARTMENT OF MATHEMATICS 






00004 




;WHEATON COLLEGE 








00005 




; NORTON, 


MASS. 2766 








00006 


i 












00007 










7C01 




00010 




ORG 


7C01H 


; START OF GETU 


7C01 


CD7F0A 


00020 


GETU 


CALL 


0A7FH 




7C04 


22FB7D 


00030 




LD 


(U) ,HL 




7C07 


C9 


00040 




RET 




;END OF GETU 


7C08 




00050 




ORG 


$ 


; START OF AXES 


7C08 


ED5BEF7D 


00060 


AXES 


LD 


DE, (PHIGH) 


;X-Y AXES AT (H0,K0) IN 

Listing 2 continues 
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Listing 2 continued 










7C0C 


3E12 


00070 


LD 


A f 18 


THE PAGE 


7C0E 


0E00 


00080 


LD 


C,0 




7C10 


CDDE7D 


00090 


CALL 


MULT 


PAGEH=18*PHIGH 


7C13 


22F57D 


00100 


LD 


(PAGEH) ,HL 




7C16 


ED5BF17D 


00110 


LD 


DE, (PWIDE) 




7C1A 


3E10 


00120 


LD 


A, 16 




7C1C 


0E00 


00130 


LD 


C,0 




7C1E 


CDDE7D 


00140 


CALL 


MULT ; 


PAGEW=16*PWIDE 


7C21 


22F37D 


00150 


LD 


(PAGEW) ,HL 




7C24 


7D 


00160 


LD 


A f L 




7C25 


4C 


00170 


LD 


C,H 




7C26 


ED5BEF7D 


00180 


LD 


DE, (PHIGH) 




7C2A 


CDDE7D 


00190 


CALL 


MULT ; 


3 * ( PAGEW) * ( PH IGH ) EQUALS 


7C2D 


EB 


00200 


EX 


DE,HL 


THE NUMBER OF BYTES IN 


7C2E 


3E03 


00210 


LD 


A, 3 


;THE PAGE 


7C30 


0E00 


00220 


LD 


C,0 




7C32 


CDDE7D 


00230 


CALL 


MULT j 


(HL) =3*(PAGEW) *(PHIGH) 


7C35 


44 


00240 


LD 


B f H 




7C36 


4D 


00250 


LD 


C,L 




7C37 


2100A0 


00260 ZERO 


LD 


HL,PAGE , 


ZERO THE PAGE 


7C3A 


3600 


00270 ZLOOP 


LD 


(HL) ,0 




7C3C 


23 


00280 


INC 


HL 




7C3D 


0B 


00290 


DEC 


BC 




7C3E 


78 


00300 


LD 


A f B 




7C3F 


Bl 


00310 


OR 


C 




7C40 


20F8 


00320 


JR 


NZ, ZLOOP 


SEE IF PAGE IS ZEROED 


7C42 


3E00 


00330 


LD 


A,0 




7C44 


32FB7D 


00340 


LD 


(U) ,A 


U MAKES LEFT HASH MARK 


7C47 


3E20 


00350 


LD 


A,20H 


ON THE Y-AXIS 


7C49 


32FD7D 


00360 


LD 


(V) ,A 


V MAKES THE RIGHT HASH 


7C4C 


3AF77D 


00370 


LD 


A,(H0) 


MARK ON Y-AXIS 


7C4F 


FE00 


00380 


CP 





SEE IF Y-AXIS = V-AXIS 


7C51 


CA597C 


00390 


JP 


Z, ISEQU 




7C54 


3E20 


00400 


LD 


A,20H 




7C56 


32FB7D 


00410 


LD 


(U) ,A 




7C59 


2AF37D 


00420 ISEQU 


LD 


HL, (PAGEW) 




7C5C 


7D 


00430 


LD 


A,L 




7C5D 


4C 


00440 


LD 


C,H 




7C5E 


110300 


00450 


LD 


DE,3 




7C61 


CDDE7D 


00460 


CALL 


MULT 


•FIND 3*PAGEW=NO. SPACES 


7C64 


E5 


00470 


PUSH 


HL 


; BETWEEN Y MARKS 


7C65 


3E10 


00480 


LD 


A, 16 




7C67 


0E00 


00490 


LD 


C,0 




7C69 


ED5BF77D 


00500 


LD 


DE, (H0) 




7C6D 


CDDE7D 


00510 


CALL 


MULT 


•FIND 16*H 


7C70 


1100A0 


00520 


LD 


DE,PAGE 




7C73 


19 


00530 


ADD 


HL,DE 


•PAGE+16*H 


7C74 


E5 


00540 


PUSH 


HL 




7C75 


2AEF7D 


00550 


LD 


HL, (PHIGH) 


# OF Y HASH MARKS 


7C78 


45 


00560 


LD 


B,L 




7C79 


El 


00570 


POP 


HL 




7C7A 


Dl 


00580 


POP 


DE 




7C7B 


22037E 


00590 MARKY 


LD 


(TEMP) ,HL 




7C7E 


DD2A037E 


00600 


LD 


IX, (TEMP) 


IX POINTER TO Y-AXIS 


7C82 


3AFB7D 


00610 


LD 


A,(U) 




7C85 


DD77FF 


00620 


LD 


(IX+255) ,A 


MARK LEFT OF Y-AXIS 


7C88 


3AFD7D 


00630 


LD 


A,(V) 




7C8B 


DD7701 


00640 


LD 


(IX+1) ,A 


MARK RIGHT OF Y-AXIS 


7C8E 


19 


00650 


ADD 


HL,DE 


FOR NEXT HASH MARK 


7C8F 


10EA 


00660 


DJNZ 


MARKY 




7C91 


2AF37D 


00670 


LD 


HL, (PAGEW) 


BEGIN TO MARK X-AXIS 


7C94 


7D 


00680 


LD 


A,L 




7C95 


4C 


00690 


LD 


C,H 




7C96 


ED5BF97D 


00700 


LD 


DE, (K0) 




7C9A 


CDDE7D 


00710 


CALL 


MULT j 


FIND K*PAGEW 


7C9D 


110300 


00720 


LD 


DE,3 




7CA0 


7D 


00730 


LD 


A,L 


Listing 2 continues 
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Listing 2 conn 


nued 










7CA1 


4C 


00740 


LD 


C,H 




7CA2 


CDDE7D 


00750 


CALL 


MULT 


(HL)=PAGE+3*K*( PAGEW) 


7CA5 


1100A0 


00760 


LD 


DE,PAGE 


POINTS X-AXIS 


7CA8 


19 


00770 


ADD 


HL,DE 




7CA9 


2B 


00780 


DEC 


HL 




7CAA 


E5 


00790 


PUSH 


HL 




7 CAB 


110F00 


00800 


LD 


DE,15 




7CAE 


A7 


00810 


AND 


A 




7CAF 


ED52 


00820 


SBC 


HL,DE 




7CB1 


111000 


00830 


LD 


DE f 16 




7CB4 


E5 


00840 


PUSH 


HL 


(HL) =PAGE+3*K* (PAGEW) -16 


7CB5 


2AF17D 


00850 


LD 


HL, (PWIDE) 


LEFTMOST PART OF X-AXIS 


7CB8 


45 


00860 


LD 


B,L 




7CB9 


05 


00870 


DEC 


B 


# HASH MARKS ON X-AXIS 


7CBA 


El 


00880 


POP 


HL , 


IS ( PAGEW) -1 


7CBB 


7E 


00890 MARKX 


LD 


A, (HL) 




7CBC 


F602 


00900 


OR 


2 


MAKE DOT OVER X-AXIS 


7CBE 


77 


00910 


LD 


(HL) ,A 




7CBF 


E5 


00920 


PUSH 


HL 




7CC0 


D5 


00930 


PUSH 


DE 




7CC1 


ED5BF37D 


00940 


LD 


DE , ( PAGEW) 




7CC5 


19 


00950 


ADD 


HL,DE 




7CC6 


22037E 


00960 


LD 


(TEMP) ,HL 




7CC9 


DD2A037E 


00970 


LD 


IX , (TEMP) 




7CCD 


DD7E00 


00980 


LD 


A, (IX) 




7CD0 


F620 


00990 


OR 


20H 


MAKE DOT UNDER X-AXIS 


7CD2 


DD7700 


01000 


LD 


(IX) ,A 




7CD5 


Dl 


01010 


POP 


DE 




7CD6 


El 


01020 


POP 


HL 




7CD7 


A7 


01030 


AND 


A 




7CD8 


ED52 


01040 


SBC 


HL,DE 


MOVE LEFT FOR NEXT MARK 


7CDA 


10DF 


01050 


DJNZ 


MARKX 




7CDC 


2AEF7D 


01060 YAXIS 


LD 


HL, (PHIGH) 




7CDF 


7D 


01070 


LD 


A,L 




7CE0 


4C 


01080 


LD 


C,H 




7CE1 


110300 


01090 


LD 


DE,3 




7CE4 


CDDE7D 


01100 


CALL 


MULT 


3*(PHIGH)=# OF BYTES FOR 


7CE7 


E5 


01110 


PUSH 


HL 


Y-AXIS 


7CE8 


3E10 


01120 


LD 


A, 16 




7CEA 


0E00 


01130 


LD 


C,0 




7CEC 


ED5BF77D 


01140 


LD 


DE,(H0) 




7CF0 


CDDE7D 


01150 


CALL 


MULT j 


FIND 16*H 


7CF3 


1100A0 


01160 


LD 


DE,PAGE 




7CF6 


19 


01170 


ADD 


HL,DE , 


PAGE+3*(H) POINTS TO 


7CF7 


Dl 


01180 


POP 


DE , 


START OF Y-AXIS 


7CF8 


43 


01190 


LD 


B,B 




7CF9 


ED5BF37D 


01200 


LD 


DE , ( PAGEW) 




7CFD 


363F 


01210 YLOOP 


LD 


(HL) f 3FH 


3FH MAKES COLUMN 6 DOTS 


7CFF 


19 


01220 


ADD 


HL,DE 




7D00 


10FB 


01230 


DJNZ 


YLOOP 




7D02 


2AF37D 


01240 


LD 


HL, (PAGEW) 


START OF X-AXIS 


7D05 


2B 


01250 


DEC 


HL 




7D06 


44 


01260 


LD 


B,H 




7D07 


4D 


01270 


LD 


C,L 




7D08 


El 


01280 


POP 


HL 




7D09 


7E 


01290 XLOOP 


LD 


A,(HL) 




7D0A 


F601 


01300 


OR 


1 


MAKES ONE DOT FOR AXIS 


7D0C 


77 


01310 


LD 


(HL) ,A 




7D0D 


2B 


01320 


DEC 


HL 


MOVE LEFT FOR NEXT DOT 


7D0E 


0B 


01330 


DEC 


BC 


DECREASE COUNTER 


7D0F 


78 


01340 


LD 


A,B 




7D10 


Bl 


01350 


OR 


C 




7D11 


FE00 


01360 


CP 







7D13 


C2097D 


01370 


JP 


NZ, XLOOP 


SEE IF DONE WITH X-AXIS 


7D16 


C9 


01380 


RET 




END OF AXES 


7D17 




01390 


ORG 


$ 


BEGIN OF PLOT 


7D17 


CD7F0A 


01400 PLOT 


CALL 


0A7FH 


GET V FROM BASIC 

Listing 2 continues 



328 • 80 Micro, Anniversary 1983 



Listing 2 continued 










7D1A 7C 


01410 


LD 


A,H ; 


TO PLOT (U,V) — DIVIDE V 


7D1B 4D 


01420 


LD 


C,L 


BY 6, GET Q AND R THEN 


7D1C 1E06 


01430 


LD 


E,6 


SET BIT 5-R IN BYTE 


7D1E 1600 


01440 


LD 


D,0 


PAGE+Q*( PAGEW) +U 


7D20 CDC87D 


01450 


CALL 


DIVIDE 




7D23 57 


01460 


LD 


D,A 




7D24 59 


01470 


LD 


E,C 




7D25 ED53FF7D 


01480 


LD 


(QUOT) ,DE 


SAVE Q 


7D29 22017E 


01490 


LD 


(RMDER) ,HL ; 


SAVE R 


7D2C 3AF37D 


01500 


LD 


A f (PAGEW) 




7D2F 0E00 


01510 


LD 


C,0 


DIVISOR ON DE 


7D31 ED5BFF7D 


01520 


LD 


DE , ( QUOT) 


ON EXIT QUOTIENT IN AD 


7D35 CDDE7D 


01530 


CALL 


MULT 


REMAINDER IN HL 


7D38 ED4BFB7D 


01540 


LD 


BC,(U) 




7D3C 09 


01550 


ADD 


HL,BC 




7D3D 0100A0 


01560 


LD 


BC,PAGE 




7D40 09 


01570 


ADD 


HL f BC ; 


ADD ADDR OF PAGE 


7D41 22037E 


01580 


LD 


(TEMP) ,HL 




7D44 DD2A037E 


01590 


LD 


IX, (TEMP) 




7D48 210500 


01600 


LD 


HL,5 




7D4B ED5B017E 


01610 


LD 


DE, (RMDER) j 


FIND 5 MINUS RMDER 


7D4F A7 


01620 


AND 


A ; 


DETERMINE WHICH BIT 


7D50 ED52 


01630 


SBC 


HL,DE 


TO SET 


7D52 1601 


01640 


LD 


D,l 




7D54 7D 


01650 


LD 


A,L 




7D55 B7 


01660 


OR 


A 




7D56 2805 


01670 


JR 


Z , RDONE 


GO NO MORE ROTATES 


7D58 47 


01680 


LD 


B,A 




7D59 CB22 


01690 RLOOP 


SLA 


D 


ROTATE TO SET BIT 


7D5B 10FC 


01700 


DJNZ 


RLOOP 




7D5D DD7E00 


01710 RDONE 


LD 


A, (IX) 


GET CONTENTS OF BYTE 


7D60 B2 


01720 


OR 


D 


INSERT NEW INFO IN BYTE 


7D61 DD7700 


01730 


LD 


(IX) ,A 


STORE BACK INTO BYTE 


7D64 C9 


01740 


RET 




?END OF PLOT 


7D65 


01750 


ORG 


$ 


j BEGIN OF PRINT 


7D65 3E03 


01760 PRINT 


LD 


A, 3 


. ** 


7D67 CDBD7D 


01770 


CALL 


OUTCHR 


;PUT 445 INTO GRAPHICS 


7D6A 0E00 


01780 


LD 


C,0 




7D6C ED5BEF7D 


01790 


LD 


DE, (PHIGH) 




7D70 CDDE7D 


01800 


CALL 


MULT 




7D73 2B 


01810 PLOOP 


DEC 


HL 


; COUNTER VERTICALLY IS 


7D74 22FB7D 


01820 


LD 


(U) ,HL 


; (U)=3*(PHIGH)-1 


7D77 EB 


01830 


EX 


DE,HL 




7D78 2AF37D 


01840 


LD 


HL, (PAGEW) 




7D7B 7D 


01850 


LD 


A,L 




7D7C 4C 


01860 


LD 


C,H 




7D7D CDDE7D 


01870 


CALL 


MULT 


; (HL) =U*( PAGEW) 


7D80 1100A0 


01880 


LD 


DE,PAGE 




7D83 19 


01890 


ADD 


HL,DE 


; (HL) =PAGE+U*( PAGEW) 


7D84 110000 


01900 


LD 


DE,0 


;IS THE COUNTER ACROSS 


7D87 7E 


01910 GETCHR 


LD 


A,(HL) 




7D88 FE03 


01920 


CP 


3 


;**IF CHAR=3, PRINT TWICE 


7D8A CCBD7D 


01930 


CALL 


Z, OUTCHR 


;SEND CHARACTER 


7D8D CDBD7D 


01940 


CALL 


OUTCHR 


;SEND CHARACTER 


7D90 13 


01950 


INC 


DE 


; INCREASE POINTER 


7D91 23 


01960 


INC 


HL 


; INCREASE POINTER 


7D92 E5 


01970 


PUSH 


HL 


;SAVE POINTER 


7D93 2AF37D 


01980 


LD 


HL, (PAGEW) 


; CHECK-SEE IF LINE DONE 


7D96 2B 


.01990 


DEC 


HL 




7D97 A7 


02000 


AND 


A 




7D98 ED52 


02010 


SBC 


HL,DE 




7D9A 7C 


02020 


LD 


A,H 




7D9B B5 


02030 


OR 


L 




7D9C El 


02040 


POP 


HL 




7D9D C2877D 


02050 


JP 


NZ, GETCHR 


; CONTINUE IF NOT DONE 


7DA0 3E03 


02060 


LD 


A, 3 


;**SEND END OF LINE SGNAL 


7DA2 CDBD7D 


02070 


CALL 


OUTCHR 


Listing 2 continues 
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Listing 2 continued 












7DA5 


3E0B 


02080 




Ld 


A, 0BH 


. ** 


7DA7 


CDBD7D 


02090 




CALL 


OUTCHR 




7DAA 


2AFB7D 


02100 




LD 


HL,(U) 


; CHECK-SEE IF PAGE DONE 


7 DAD 


7C 


02110 




LD 


A,H 




7 DAE 


B5 


02120 




OR 


L 




7DAF 


C2737D 


02130 




JP 


NZ f PLOOP 


; CONTINUE IF NOT DONE 


7DB2 


3E03 


02140 


DONE 


LD 


A, 3 


;**SIGNAL TO EXIT GRAPHICS 


7DB4 


CDBD7D 


02150 




CALL 


OUTCHR 




7DB7 


3E02 


02160 




LD 


A, 2 


. ** 
i 


7DB9 


CDBD7D 


02170 




CALL 


OUTCHR 




7DBC 


C9 


02180 




RET 




;RET TO CALLING PROG 


7DBD 


F5 


02190 


OUTCHR 


PUSH 


AF 


;SUBR TO SEND CHAR 


7DBE 


CDD105 


02200 


CHCKP 


CALL 


5D1H 


; CHECK STATUS OF PRINTER 


7DC1 


20FB 


02210 




JR 


NZ, CHCKP 


;WAIT IF NOT READY 


7DC3 


Fl 


02220 




POP 


AF 




7DC4 


32E837 


02230 




LD 


(37E8H) ,A 


;SEND IT 


7DC7 


C9 


02240 




RET 




;RET TO PRINT 


7DC8 


210000 


02250 


DIVIDE 


LD 


HL,0 


;FROM ZAKS 


7DCB 


0610 


02260 




LD 


B,16 


;ON ENTRY DIVIDEND IN AC 


7DCD 


CB11 


02270 


DLOOP 


RL 


C 


DIVISOR IN HL 


7DCF 


17 


02280 




RLA 




;ON EXIT QUOTIENT IN AC 


7DD0 


ED6A 


02290 




ADC 


HL,HL 


REMAINDER IN HL 


7DD2 


ED52 


02300 




SBC 


HL,DE 




7DD4 


3001 


02310 




JR 


NC,$+3 




7DD6 


19 


02320 




ADD 


HL f DE 




7DD7 


3F 


02330 




CCF 






7DD8 


10F3 


02340 




DJNZ 


DLOOP 




7DDA 


CB11 


02350 




RL 


C 




7DDC 


17 


02360 




RLA 






7DDD 


C9 


02370 




RET 




;END OF DIVIDE SUBROUTINE 


7DDE 


0610 


02380 


MULT 


LD 


B,16 


;FROM ZAKS 


7DE0 


210000 


02390 




LD 


HL, 


;ON ENTRY (A) =LSB MULTCND 


7DE3 


CB3 9 


02400 


MLOOP 


SRL 


C 


(C) =MSB MULTCND 


7DE5 


IF 


02410 




RRA 




; (DE) MULTIPLIER 


7DE6 


3001 


02420 




JR 


NC, MLOOP 1 


;ON EXIT (HL)=PRODUCT 


7DE8 


19 


02430 




ADD 


HL f DE 




7DE9 


EB 


02440 


MLOOP1 


EX 


DE,HL 




7DEA 


29 


02450 




ADD 


HL,HL 




7DEB 


EB 


02460 




EX 


DE,HL 




7DEC 


10F5 


02470 




DJNZ 


MLOOP 


- 


7DEE 


C9 


02480 




RET 


;END OF 


MULT SUBROUTINE 


7DEF 
0002 




02490 
02500 


PHIGH 


EQU 
DEFS 


$ 
2 






7DF1 




02510 


PWIDE 


EQU 


$ 




0002 




02520 




DEFS 


2 


changes for Level II Basic are given at 


7DF3 




02530 


PAGEW 


EQU 


$ 


the end of this section. 


0002 




02540 




DEFS 


2 


The second section introduces new 


7DF5 




02550 


PAGEH 


EQU 


$ 


techniques and examples of graphing. 


0002 




02560 




DEFS 


2 


However, these applications are devel- 


7DF7 




02570 


H0 


EQU 


$ 


oped in Pascal-80 rather than Basic. 


0002 




02580 




DEFS 


2 


The Tigergraph program is modified to 


7DF9 




02590 


K0 


EQU 


$ 


be used with Pascal-80. 


0002 




02600 




DEFS 


2 




7DFB 




02610 


U 


EQU 


$ 




0002 




02620 




DEFS 


2 


Part I 


7DFD 




02630 


V 


EQU 


$ 




0002 
7DFF 
0002 
7E01 




02640 
02650 
02660 
02670 


QUOT 
RMDER 


DEFS 
EQU 
DEFS 
EQU 


2 
$ 
2 

$ 


The graphics dot-plotting mode 
provides the capability to control 
through software each print needle 


0002 




02680 




DEFS 


2 


during horizontal scans of the print 


7E03 




02690 


TEMP 


EQU 


$ 


head across a page. The Tiger enters 


0002 




02700 




DEFS 


2 


the graphics mode when the control 


A000 




02710 


PAGE 


EQU 


0A000H 


character ASCII ETX (control C or 


0000 




02720 




END 




hexadecimal 03) is received. In the 


0000E 


TOTAL 


ERRORS 








graphics mode, the printer uses a 
raster scan technique allowing a verti- 
cal column of seven dots across a 
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THE MAGIC 
IS AT YOUR FINGERTIPS. 



Dosplus II magic. 
For you and your business. 



The TRS-80 model II was created to help you take care of your business. DOSPLUS II was 
created to help your TRS-80 help you and your business even more. 

DOSPLCIS II replaces your O.E.M. dos with an ultra- sophisticated operating system that is 
incredibly faster, more reliable and is totally compatible with all standard business oriented 
software designed for use with the model II. The result is a computer/operating system that far 
exceeds manufacturer's specs — with more potential and more capacity to be of service to you. 

DOSPLCIS II operating systems are available for either your floppy or hard disk drives. The hard 
drive operating system is compatible with Radio Shack QuCeS, Corvus Micro Mainframe, VR 
Data and other popular hard drive sub-systems. 

DOSPLUS II...AII the quality and dependability you'd expect from DOSPLGS. 



D05PIU5II 



DOSPLUS first in quality! 
First in the industry! 



A Division of Breeze/QSD. Inc. 
1 1500 Stemmons Fwy.. Dallas. Texas 75229 
To order call toll free 1 -800-527-7432 
For product information (214) 484-2976 



MICRO SYSTEMS SOFTWARE, INC. 

430 1 18 Oak Circle 

Boca Raton. FL 33431 " 384 

To order call toll free I -800-327-8724 

For product information (305) 983-3390 



TRS-80 and Radio Shack are registered trademarks of Tandy Corporation, Inc. 



sSee List of Advertisers on Page 563 
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page (the seventh dot being repeti- 
tious unless printing the bottom row). 
Bit 7 is not used in the graphics mode 
and the remaining seven dot positions 
correspond to bits 0-6 of a memory 
byte organized as shown in Figs. 1 
and 2. 

When the printer is in the graphics 
mode, each control character must be 
preceded by the control character 03 H. 
For example, to exit graphics mode the 
characters 03 H followed by 02H must 
be sent to the printer. Consequently, 
when you want to send 03 H as data and 
not have it be interpreted as a control 
code, it is necessary to send 03 H to the 
printer twice. The control characters 
used in this article are 03H to enter the 
graphics mode, 0BH for vertical tab 
(end-of-line signal), and 02H to exit 
graphics. 

The initial outline for the program 
consisted of the step-by-step process I 
use when I draw a graph. The resulting 
programs ended up closely following 
that process. The procedure goes as fol- 
lows: First take a clean piece of graph 
paper (I prefer to use graph paper with 
one-quarter-inch grids.) On this paper 
draw the coordinate axes and mark off 
units. Second, plot enough points to de- 
termine the shape of the curve. Finally, 
fill in the sketch using the points as 
guides. 

The three main portions of Tiger- 
graph (Program Listing 2) follow the 
original outline closely. The Axis rou- 
tine zeros the page (clean paper), draws 
the coordinate axes, and marks off the 
units. The Plot routine does just that; it 
plots individual points, and the Print 
routine sends the information to the Ti- 
ger. Surprisingly enough, even when 
plotting points in adjacent spaces, if the 
graph is rising or falling rapidly, it is 
necessary to do some vertical filling in 
of points on the graph. 

Now let's discuss the physical proper- 
ties of the Tiger and define some terms I 
find useful. Visualize a blank page con- 
taining many spaces, each of which 
must either remain blank or have a dot 
printed in it. The term "page" will refer 
to a rectangular array of spaces of a pre- 
determined size. In fact, page is a mem- 
ory block and contains the information 



RECEIVED 
CHARACTER 
BIT 0= LSB 
BIT 6 = MSB 




332 



Figure I 
80 Micro, Anniversary 1983 



5 'POLAR EQUATIONS 

6 'CHANGE LINE 100 TO DESIRED POLAR EQUATION 

10 DEFUSR0=&H7C08:DEFUSR1=&H7D17:DEFUSR2=&H7D65 

20 DEFUSR3=&H7C01:CLS 

30 DEFINT I,J,T,U,V 

40 I6=16:I8=18:P5=.5 

50 INPUT"INPUT H";H:POKE&H7DF7,H:POKE&H7DF8,0 

60 INPUT"INPUT K";K:POKE&H7DF9,K:POKE&H7DFA,0 

70 INPUT"INPUT PHIGH";I:POKE 32239, 1:POKE 32240, ( 

80 INPUT"INPUT PWIDE";I:POKE 32241, 1:POKE 32242, ( 

90 Z=USR0(W) 

100 DEF FN R(A)=2*(1 - COS(A)) 

130 FOR A=0 TO 6.2 STEP .05 

140 U=INT(I6*(H+FN R( A) *COS ( A) ) +P5) : Z=USR3 (U) 

145 V=INT(I8*(K+FN R( A) *SIN( A) ) +P5) : Z=USRl ( V) 

220 NEXT A 

225 Z=USR2(W) 

Program Listing 3 



:V5=Ii 



Program Listing 4 

10 'PROGRAM CONICS/BAS 

15 'BARBARA CLINGER 

20 'DEPARTMENT OF MATHEMATICS 

25 'WHEATON COLLEGE 

3 'NORTON, MASS. 02766 

40 DEFUSR0=&H7C0 8:DEFUSR1=&H7D17:DEFUSR2=&H7D65 

45 DEFUSR3=&H7C01 

50 DEFINT I,J,T,U,V 

55 I6=16:I8=18:P5=.5 

57 PRINT"PHIGH = PAGE HEIGHT PWIDE = PAGE WIDTH 

60 INPUT"INPUT PHIGH";I:POKE 32239, IrPOKE 32240 ,0 :V5=I8*I 

65 INPUT-INPUT PWIDE" ; I :POKE 32241, IrPOKE 32242,0 

70 INPUT"INPUT H0";H:POKE&H7DF7,H:POKE&H7DF8,0 

75 INPUT"INPUT K0" ;K: POKE&H7DF9 ,K:POKE&H7DFA, 

80 Z=USR0(W) 

85 INPUT"CHOICES (1) INPUT CONIC (2) DRAW (3) END"; I 

90 ON I GOTO 100,95,725 

95 Z=USR2(W) :GOTO 85 'ZERO PAGE AND DRAW AXES 

100 PRINT"CHOICES OF CONICS TO GRAPH: " ;TAB(30) " (1) LINE 



105 PRINT TAB(30) 

110 PRINT TAB(30) 

115 PRINT TAB (30) 

120 PRINT TAB(30) 



"(2) PARABOLA 

"(3) CIRCLE 

"(4) ELLIPSE 

"(5) HYPERBOLA 
125 INPUT"ENTER THE APPROPRIATE NUMBER ";J 
130 IF J<1 OR J>5 THEN 100 
135 ON J GOTO 150,320,450,450,565 
145 'DRAW LINE 

150 PRINT"OPTIONS FOR FORM OF LINE: " ;TAB( 30) " (1) TWO-POINT 
155 PRINT TAB(30) ;"(2) POINT-SLOPE 
16 INPUT" ENTER THE APPROPRIATE NUMBER"; I 
165 IF Kl OR I>2 THEN 150 
170 INPUT"ENTER XI AND Y1";X1,Y1 
175 IF 1=1 THEN 195 
180 INPUT"ENTER THE SLOPE" ;M 
185 X2=X1+1:Y2=Y1+M 
190 GOTO 205 

195 INPUT"ENTER X2 AND Y2";X2,Y2 
200 IF X1=X2 THEN 270 

205 IF XK=X2 THEN 215 ELSE X3=Xl :X1=X2 :X2=X3 
210 Y3=Y1:Y1=Y2:Y2=Y3 
215 U1=I6*(X1+H) :V1=I8*(Y1+K) 
220 U2=I6*(X2+H) :V2=I8*(Y2+K) 

225 M=(V2-V1)/(U2-U1) :B= (U2*V1-U1*V2) / ( U2-U1) 
230 INPUT "ENTER DOMAIN" ;A1 ,A2 

235 I1=INT(I6*(A1+H)+P5) : I2=INT( 16* ( A2+H) +P5) 
240 FOR 1=11 TO 12 
245 Z=USR3(I) 
250 V=INT(M*I+B+P5) 
255 GOSUB 685 
260 NEXT I 
26 5 GOTO 85 

270 INPUT"LINE IS PARALLEL TO Y-AXIS, INPUT RANGE OF Y'S";Y1,Y2 
275 J1=INT(I8*(Y1+K)+P5) : J2=INT( 18* (Y2+K) +P5) 
280 U=INT(I6*(X1+H)+P5) :Z=USR3(U) 
285 FOR I3=J1 TO J2 
290 IF I3>V5 OR I3<0 THEN 300 
295 Z=USR1(I3) 
300 NEXT 13 
305 GOTO 85 
315 'GRAPH PARABOLA 

320 PRINT"TWO OPTIONS: (1) OPENS UP/DOWN (2) OPENS LEFT/RIGHT" 
325 PRINT" (1) (X-Hl) [2=M(Y-K1) (2) ( Y-Kl) [ 2=M(X-H1) 

Listing 4 continues 



for the axes and the graph. 

The vertical spacing of dots is con- 
stant for all characters per inch and is 



fixed at .014 inch per dot. The horizon- 
tal spacing must be chosen to give spac- 
ing as close to .014 as possible. The 



I1=I6*(H+H1) 
I2=I6*(H+H1) 

*SQR(M*(I-16*(H+H1) ) )+P5) 



L is! inn 4 continued 

330 INPUT" ENTER APPROPRIATE NUMBER"; J 

335 INPUT"ENTER THE CONSTANTS Hi, Kl , AND M";H1,K1,M 

340 INPUT"ENTER THE DOMAIN " J II, 12 

345 I1=INT(I6*(I1+H) +P5) : I2=INT( 16* ( I2+H) +P5) 

350 IF J=2 THEN 385 

355 A=9/(128*M) 

360 FOR 1=11 TO I2:Z=USR3(I) 

365 V=INT(I8*(K+K1)+A*(I-I6*(H+H1) ) [2+P5) 

370 GOSUB 685 

375 NEXT I 

3 80 GOTO 85 

385 IF M>0 AND Il<I6*(H+Hl) THEN 

390 IF M<0 AND I2>I6*{H+Hl) THEN 

395 FOR 1=11 TO I2:Z=USR3(I) 

400 V=INT(I8*(K+K1)+(I8/SQR(I6 

405 GOSUB 685 

410 NEXT I 

415 FOR 1=11 TO I2:Z=USR3(I) 

420 V=INT(I8*(K+K1) -(I8/SQR(I6) ) *SQR(M* ( I-I6* (H+Hl) ) )+P5) 

425 GOSUB 685 

430 NEXT I 

435 GOTO 85 

445 'GRAPH CIRCLE OR ELLIPSE 

450 INPUT"ENTER THE COORDINATES OF THE CENTER" ; Hi ,K1 

455 U=INT(I6*(H+H1) +P5) : V=INT( 18* (K+Kl) +P5) 

460 Z=USR3(U) :Z=USR1(V) 'PLOT THE CENTER 

465 IF J=3 THEN INPUT"ENTER THE RADIUS SQUARED" ;A:B=A: GOT0475 

470 INPUT"ENTER A AND B SQUARED"; A, B 

475 INPUT"ENTER THE DOMAIN" ;A1 ,A2 

480 IF AKHl-SQR(A) THEN Al=Hl-SQR(A) 

485 IF A2>H1+SQR(A) THEN A2=Hl+SQR(A) 

490 I1=INT(I6*(H+A1)+P5) : I2=INT( 16* (H+A2) +P5) 

495 M=(9*SQR(B) )/(8*SQR(A) ) :M1=I6 [ 2*A:M2=I6* (H+Hl) 

500 FORI=Il TO I2:Z=USR3(I) 

505 IF MK(I-M2)[2 THEN V=INT( 18* ( K+Kl) +P5) :GOTO 515 

510 V=ILIT(I8*(K+K1)-M*SQR(M1-(I-M2) [2)+P5) 

511 IF 1=11 THEN T1=V 

512 IF 1=12 THEN T2=V 
515 GOSUB 685 

520 NEXT I 

525 FOR 1=11 TO I2:Z=USR3(I) 

530 IF MK(I-M2) [2 THEN V=INT( 18* (K+Kl) +P5) :GOTO 540 

535 V=INT(I8*(K+K1)+M*SQR(M1-(I-M2) [2)+P5) 

536 IF 1=11 THEN T3=V 

537 IF 1=12 THEN T4=V 

5 40 GOSUB 6 85 

545 NEXT I 

546 I=I1+1:T=T2:V=T4:G0SUB 685 

547 Z=USR3(I1) :T=T1:V=T3: GOSUB 685 
550 GOTO 85 

555 'GRAPH 'GRAPH HYPERBOLA 

565 PRINT"TWO OPTIONS: (1) REAL AXIS PARALLEL TO X-AXIS 

570 PRINT" (2) REAL AXIS PARALLEL TO Y-AXIS 

575 INPUT"INPUT APPROPRIATE INTEGER"; J 

580 INPUT"ENTER THE CONSTANTS Hi AND Kl";Hl,Kl 

585 INPUT"INPUT A AND B SQUARED"; A, B 

590 INPUT" ENTER DOMAIN" ;A1 ,A2 

595 M=((-l) [J) *I6[2*A:M1=(I8*SQR(B))/(I6*SQR(A)) 

600 M2=I6*(H+H1) :M3=INT(I6*(H+H1-SQR(A) ) +P5) :M4=INT( 16* (H+H1+ 

605 I1=INT(I6*(H+A1)+P5) : I2=INT( 16* (H+A2) +P5) -1 

610 FOR 1=11 TO 12 

615 IFJ=1 AND I>M3 AND KM4 THEN I=M4 :T=INT( 18* ( K+Kl) +M1*SQR( 

620 Z=USR3(I) 

625 V=INT(I8*(K+K1)+M1*SQR( (I-M2) [2+M)+P5) 

630 GOSUB 685 

635 NEXT I 

637 IF 1=12 THEN T4=V 

640 FOR 1=11 TO 12 

645 IFJ=1 AND I>M3 AND KM 4 THEN I=M4 :T=INT( 18* (K+Kl) -M1*SQR( 

650 Z=USR3(I) 

6 55 V=INT(I8*(K+K1)-M1*SQR( (I-M2) [2+M)+P5) 
660 GOSUB 685 

665 NEXT I 

670 GOTO 85 

680 'SUBROUTINE TO FILL, IF NECESSARY 

685 IF V<0 OR V>V5 THEN 715 ELSE Z=USRl(V) 

690 IF 1=11 THEN 715 

695 IF ABS(T-V)<3 THEN 715 

700 IF T>V THEN J1=V+1 : J2=T-1 

705 IF T<V THEN J1=T+1 : J2=V-1 

710 FOR I3=J1 TO J2 STEP 2 : Z=USRl ( 13) :NEXT 13 

715 T=V 

7 20 RETURN 
7 25 END 



print density of a line (characters per 
inch) controls the horizontal dot spac- 
ing, the options being 8.3, 10, and 12 cpi 
(16 cpi is not recommended for graph- 
ics). At 12 cpi the spacing is .0156 inch 
per dot and is the option nearest to .014 
inch. The vertical spacing of .014 inch 
per dot gives 72 dots per inch. Thus, 18 
vertical dots give a unit of one-quarter 
inch. At 12 characters per inch, the hor- 
izontal spacing is .0156 per dot (64.2 
dots per horizontal inch) giving a 
16-dot-per-one-quarter-inch unit. The 
error this scale produces is minimal; for 
example, if a page is to be a square with 
6 inches on each side, the difference in 
the dimensions is only .0576 of an inch 
— certainly not obvious to the human 
eye. Thus, using 12 cpi is satisfactory 
to produce the desired units. 

In order to simplify the placement of 
a dot within a space in a page, I have in- 
troduced a set of u-v coordinates where 
the units are horizontal and vertical 
spaces. This system is only for reference 
and is never printed. The origin of the 
u-v system is at the bottom left corner of 
the page. 

In addition to referring to rows of 
spaces or columns of spaces, the term 
"line" is introduced. Since each pass of 
the print head controls six vertical dots, 
the term line is defined to be six rows of 
spaces, i.e., six spaces high by the num- 
ber of columns in a page. In fact, a line 
corresponds to one pass of the print 
head. The problem of placing a dot in a 
page is simply one of selecting the line 
and column in which a dot is located, 
then setting the appropriate bit. 

In Fig. 3 the page is two inches square 
and has eight units in each direction. 
Thus there are 8 x 16= 128 columns in 
the u direction, 8x18 = 144 rows in the 



SQR(A) )+P5) 
;i-M2) [2+M)+P5) 

I-M2) [2+M) +P5) 
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v direction, and 144/6 = 24 lines — each 
line containing 128 bytes. The dot A in 
Fig. 3 that is in the 18th column, 10th 
row of the page has for its u-v coordi- 
nates (18, 10). You must set bit 1 in byte 
146 and send it to the printer to print 
this dot. When an entire page is sent to 
the printer, it will be sent from the top 
line down to line 0. 

To compute the memory require- 
ments for a page, multiply the number 
of columns by the number of lines. 
In a 2-by-2 page, the memory require- 
ment is 128x24 = 3,072 (COO in hexa- 
decimal). In the case of a 16K machine, 
the maximum size page is approximate- 
ly 2-by-2 square inches with eight units 
in each direction. Another limitation on 
the page size results from the POKE 
statements in Basic — the second argu- 
ment (the value) must be an integer and 
must be less than 256. For the program 
Tigergraph as listed, the dimensions of 
the page should be no more than 15 
units wide by 14 units high since 15 x 16 
= 240 is less than 256 and 14 x 18 = 252 
is also less than 256. 

In most cases these maximum dimen- 
sions are adequate since they give a page 
measuring 3.75 inches wide by 3.5 
inches high. However, in Tigergraph all 
variables are double-precision integers; 
so by POKEing both the least-signifi- 
cant and most-significant bytes of the 
coordinates of a point into memory, 
you can use a larger page. In Tigergraph 
the starting location of page is A000H 
(40,960 in decimal) and the origin is 
7C01H (31,745 in decimal). For a ma- 
chine with 16K memory, use 7000H 
(28,672 in decimal) for page and 7C01H 
for the origin. 

Using the definitions above, the crux 
of the problem is to make specific dots 
print. Not printing in a space is simple 
— send a zero for that bit. Printing a 
dot in a given space uses two simple 
concepts: integer division and the great- 
est-integer function. 

In elementary school, the first type 
of division you encounter is integer 
division; an integer A divided by a 
nonzero integer B gives a quotient Q 
and a remainder R, where R is equal 
to or greater than zero and less than 
B. For example, 10 divided by 6 gives 
a quotient 1 and a remainder of 4. 
Notice that the quotient is given by 
the greatest-integer function, denoted 
in Basic by INT. That is, INT(10/6) 
equals INT(1.666. . .) equals 1. 

By definition, the greatest-integer 
function (INT) is defined to be the lar- 
gest integer not exceeding the argument 
of the function: 

334 • 80 Micro, Anniversary 1983 



INT(2.49) = 2 
INT(2.999) = 2 



INT(3.001) = 3 
INT(3) = 3 



A second property of the Basic INT 
function is: Given a real number x, the 
integer nearest x is found by INT(x + 
.5). For example, the integer nearest 
2.49 is 2, and INT(2.49+.5) equals 
INT(2.99) equals 2. The integer nearest 
2.51 is 3, and INT(2.51 + .5) equals 



FIRST 
PASS OF 

PRINT HEAD 



Mil 



INT(3.01) equals 3. 

More information on the greatest-in- 
teger function and its properties can be 
found in most number-theory texts. 

Two examples illustrate the proce- 
dure by which dots can be printed. Con- 
tinuing with the example of a 2-by-2 
page, the points A and B marked on 
Fig. 3 correspond to Examples 1 and 2, 
respectively. 



SECOND 
PASS OF 

PRINT HEAD 




TO PRINT THE THREE DOTS : 



N BINARY 



OOO IOOOO 
0000 1000 
OOOOOI 00 



IN HEXADECIMAL 



IN DECIMAL 



Figure 2 
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COLUMN 


BYTE 




BYTE 128 




BYTE 256 


BYTE 23-128 




COLUMN 1 


BYTE 1 




BYTE 129 




BYTE 257 






COLUMN 2 


BYTE 2 




BYTE 130 










COLUMN 3 


BYTE 3 














COLUMN 16 


BYTE 16 




BYTE 144 




(to) BYTE 272 






COLUMN 17 


BYTE 17 




BYTE 145 










COLUMN 18 


BYTE IS 




BYTE 146 (>] 


























COLUMN 126 


BYTE 126 




BYTE 254 










COLUMN 127 


BYTE 127 




BYTE 255 
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Figure 3 
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Figure 4 



INPUT H? 4 

INPUT K? 4 

INPUT PHIGH? 8 

INPUT PWIDE? 8 

ENTER THE DOMAIN? - 4,4 

Figure 5 



"LEARNING IS CHILD'S PLAY WITH EDUGAMES® BY CLS" 




INNOVATIVE TECHNIQUES ADD EXCITEMENT AND CHALLENGE I 



• Fast moving, high scoring, instant execution holds interest 

• All options user-controlled for maximum "hands-on" experience 

• Multi-list capability; create own lists; add, delete, change at will; basic 
word list included with each program 

• Timing/recordkeeping features challenge user to upgrade, allow for 
competition 

• Choice of lists; grade levels; language difficulty; print out; speed and 
more 

• Perfect for all the family; customize to individual needs 

• Mathflash option; all arithmetic functions by curriculum objective 

FOR HOME OR SCHOOL, CREATE LARGE VARIETY OF EXCITING, INTERESTING, 
CHALLENGING LESSON UNITS IN GAME OR PRACTICE FORM 

All EDUGAMES® fully tested at Center for Unique Learners 
• Field tested (grade 1 - college) • Debugged by teacher/programmers • Related to teaching objectives 

The Center for Unique Learners is a non-profit teaching institution working with youngsters ana adults at every grade level It 
is directed by Dr Nancy Dworkin. noted expert, author, lecturer, international consultant on reading and teaching systems 

WORDFLASH® - beginning to complex language manipulation 

• Practice spelling, recognition, grammar, by words or sentences 

• Alphabet or random order: control number ot attempts and timing, size Ot letters 

• Final printout cross tabulates words used, errors, error patterns, number o> attempts 
each word, percent correct first try. percent correct total, raw score, modified score (disk only) 

Cassette Version 

Disk Version (includes extensive 
record keeping function and 
other options) 

WORDMAZE® - endless puzzles in random array 

• Choice of puzzle width, length, number of words; printouts by identical puzzles or different with same lisi 

• Answer key on screen/pnnl 

• High Score "Hall of Fame" constantly updated tdisi only! 



ARCADE VERSIONS 

I Above plus option for multiple players competing usin 
puzzle matrix: individual running score maintained 

II Both above plus option for two players, same puzz 















ingsamew 


rds with different 




le at same 


Disk Only 

me! True, arcade challenge -great exciter 
Disk Only 


... $49.95 
nent 
. . . $59.95 



MATHFLASH® 

• Add. subtract, multiply, divide 

• Full control options as above plu 



WORDFLASH®/WORDMAZE®/MATHFLASH® 



nath-related options such as decimal, carrying, borrow 

As option with either of above 

MATHFLASH* alone 

Cassette Version 

Disk Version 



$24 95 
$39 95 



.00 




Combination system, all 3 programs 

Manual only full educational documentation, suggested 

uses, etc (cost credited) $10.00 

Expanded multi-teacher/multi-student recording school 

system available inquire 



CLS Associates 

Computer Learning Systems 
P.O. BOX 6147, SILVER SPRING, MARYLAND 20906, (301) 924-2551 



ORDER FORM 




Please send 




O WORDFLASH" 




o Cassette 


... $19 95 


u Disk 


... $49 95 


c WORDMAZE* 




c Cassette 


... $19 95 










□ ARCADE II (Disk Only) 




o MATHFLASH* 




a Add to any above 


... $10 00 


MATHFLASH"- alone 






... $19 95 


a Disk 


. . , $39 95 






Manual alone 




WORDFLASH" 


... $1000 


3 WORDMAZE* 




Check equipment. 




n TRS-80 




□ Model I 




□ Model III 




□ Single disk 




□ Two disk 




□ APPLE II+ 




TRSttO is a IraJimark tf Radio Shad 




APPLE is Ihr tmimark or APPLE Corporation 




O ADD $2.00 SHIPPING IN U S.A. 




a ADD $4.00 COD 




c MASTERCHARGE DVISA 








Exp Date 


Name 


Address 


C.itv 


^<*< p ... Zip 



■See List of Advertisers on 
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Example 1 

Suppose the dot A in the page is 18 
spaces in the u direction and 10 spaces 
up, i.e., A(u,v) = (18,10). A is in line 1 
and column 18; so, you want to set bit 1 
of byte number 146. In fact, the quo- 
tient (found by the greatest-integer 
function) gives you the means to deter- 
mine which byte a given point is in. In 
this example, divide 10 by 6 getting the 
quotient Q = 1 and R =4. (Six is used as 
a divisor because there are six rows per 



INPUT H? 4 
INPUT K? 2 
INPUT PHIGH? 4 
INPUT PWIDE? 12 
ENTER THE DOMAIN? 



Y = SIN(X) 



Figure 6 



INPUT H? 4 
INPUT K? 4 
INPUT PHIGH? 8 
INPUT PWIDE? 8 
ENTER THE DOMAIN? 



4,4 



Y = X*(X - 2)*(X - 1)*(X + 1)*(X + 2) 
Figure 7 




INPUT H? 4 
INPUT K? 4 
INPUT PHIGH? 8 
INPUT PWIDE? 8 

Figure 8 
336 • 80 Micro, Anniversary 1983 



line.) The quotient 1 gives the line in 
which the byte is located, and five mi- 
nus the remainder (5-4=1) is the bit 
we wish to set. In order to set bit 1 of 
that byte, we store 00000010 in binary (2 
in decimal) into it. Since each line of the 
page consists of 128 bytes, the byte in 
line 1, column 18 is 1 x 128+ 18= 146th 
byte into the page. 

Example 2 

The point B(u,v) = (16,13) is in line 2, 
column 16. You must insert a 1 in bit 4 
of byte 272. Dividing 13 by 6, you find 
the quotient is 2 and the remainder is 1. 
Thus, the point B (in line 2) is in byte 
2 x 128 + 16 = 272 and the bit to be set 
is 5 - 1 =4. 

In both examples the bytes would be 
offset by the starting address of the 
page. For example, if the starting ad- 
dress of page is 7000H, the byte of Ex- 
ample 2 is 28672 + 2 x 128 + 16. 

In general, to plot an arbitrary point 
(A,B), proceed as follows: Divide B by 
6; get the quotient Q and the remainder 
R. Insert 1 into bit (5-R) of the byte 
in the page given by (PAGE) + Qx 
(PAGEW) 4- A, where (PAGEW) is the 
number of columns in page and 
(PAGE) is the starting address in mem- 
ory of the page. 

Unfortunately, graphs in the u-v 
coordinate system are too small to be 
useful. Besides, we think of points in 
terms of an x-y system. Beginning 
with a point in the x-y system necessi- 
tates a change of coordinates to the 
u-v system in order to plot the specific 
point. Before going into more detail 
on the transformation of coordinates 
— found in most texts in analytic ge- 
ometry or introduction to calculus — 
an example is helpful. Continuing 
with the square 2-by-2 page, suppose 
I want the x-y coordinate axes to be 
two quarter-inch units to the right of 
the v axis and three quarter-inch units 
above the u axis. (See Fig. 4.) 

Since each vertical unit is 18 spaces, 
the x axis is 3 x 1 8 = 54 spaces up from 
the bottom of the page. Similarly, the y 
axis is 2 x 16 = 32 spaces from the left 
edge of the page. To plot the point P, 
whose coordinates are (2,2) in the x-y 
coordinate system, you see that the 
point is a total of four units or 4 x 16 = 
64 spaces in the u direction and is five 
units or 5 x 18 = 90 spaces in the v direc- 
tion. Hence, to plot the point (2,2) in 
the x-y system, you actually plot the 
point (64,90) in the u-v system. 

In changing from the x-y coordinate 
system to the second coordinate system 
(the u-v coordinate system), with the or- 
igin of the second system at the point 



( — H,-K) (H and K are positive inte- 
gers given in terms of the x-y coordi- 
nates), the change of coordinates would 
be u = x + H and v = y + K. 

However, not only are you translat- 
ing the axes, but you also want to shrink 
the units from quarter-inch units hori- 
zontally and vertically to one space in 
each direction in the u-v system. That 
transformation of coordinates is given 
by u = 16(x + H) and v = 1 8(y + K). 

The following convention is followed 
throughout the programs in this article: 

The integers H and K for the place- 
ment of the x-y coordinate system into a 
page are positive integers. H equals the 
number of units the y axis is to the right 
of the v axis and K equals the number of 
units the x axis is above the u axis. Thus, 
the transformation of coordinates are: 
First, to change from the u-v system to 
the x-y system, u=16(x + H) and v = 
18(y + K). Second, to change from the 
x-y system to the u-v system: x = 
(u/16)-H and y = (v/18)-K. (Don't 
panic — the programs do this for you.) 

Once the coordinate system has been 
changed, it is also necessary to change 
the variables in the defining relation of 
the function. That is, if I graph the 
function y = f(x) in the x-y system, then 
the equivalent function in the u-v sys- 
tem will be (v/18)-K = f( (u/16)-H), 
or equivalently v = 1 8(K + f(u/16 - H)). 

For example, for (H,K) = (2,3) and 
for the function given by the equation 
y = 3x + sin(x), substituting x = u/16 - 2 
andy = v/18-3givesv/18-3 = 3(u/16 
-2) + sin(u/16-2). 

Simplifying the last equation gives 
v = 18(3 + 3(u/16 - 2) + sin(u/16 - 2) ). 

The values of u and v are calculated 
in a Basic program and sent to the Plot 
routine in Tigergraph. The values for u 
generated in the Basic program are gen- 
erated as integers, but the values of v 
computed using the formula above usu- 
ally are not. Since u and v represent 
spaces, you must send the nearest inte- 
ger value for v. As pointed out above, 
this is accomplished by using the INT 
function: v = INT(18*(K + f(u/16 - H)) 
+ .5), or in general, v = INT(v + .5). 

For example, Program Listing 1 (EX- 
AMPLE 1/BAS) is a Basic program 
that uses Tigergraph to draw the line 
y = 2x - 3. The equation of this function 
is defined in line 1 00, and values of v are 
computed in line 140. 

Prior to running EXAMPLE1/BAS, 
load TIGER/OBJ, and then call Basic. 
The memory size should be set to 
31,743, then when the program is run, 
six numbers must be supplied in re- 
sponse to the input statements in lines 
50, 60, 70, 80, and 1 10. The values for 



H, K, PHIGH, and PWIDE must be 
positive integers, but the values for the 
domain can be real numbers. (H and K 
are defined above, PHIGH, PWIDE, 
and the domain are defined in the next 
paragraph.) A list of the responses and 
the resulting graph are shown in Fig. 5. 

Here is a brief description of the Ba- 
sic program. Lines 10 and 20 give the 
starting addresses of the four routines 
of Tigergraph. The first routine, called 
by USRO, inserts zeros into the page and 
draws the x and y coordinate axes with 
hash marks at quarter-inch intervals. 
USR3 and USR1 send the appropriate 
values of u and v, respectively, into the 
Plot routine. USR2 sends the page to 
the Tiger. Line 20 also clears the screen. 

Line 30 defines all variables with 
names beginning with 1, J, T, U, and V 
to be integer variables. Line 40 defines 
the variables 16, 18, and P5 to be 16, 18, 
and .5, respectively. Using variable 
names, the program runs faster than it 
would if the specific values were used in 
the computational portions of the pro- 
gram. (See the section on speeding up 
execution in the Level II Basic 
Reference Manual.) 

Lines 50 and 60 ask for the coordi- 
nates (H,K), which place the x-y axes as 
described above. In the Tigergraph list- 
ing and CONICS/BAS, H and K are 
represented by HO and K0. 

Lines 70 and 80 ask for values that 
define the length of the page in memo- 
ry. In particular, PHIGH is the number 
of units for the y axis, each unit being 
one-quarter inch. Thus, the answer of 
eight units makes the y axis 2 inches 
high. PWIDE is the number of units for 
the x axis, and again an answer of eight 
gives an x axis 2 inches wide. In Tiger- 
graph these numbers are double-preci- 
sion integers, so the values are POKEd 
into the least -significant byte and zero is 
POKEd into the most-significant byte. 

Line 90 calls USRO, which zeros the 
PAGE and draws the axes. Line 100 de- 
fines the function to be graphed. 

Line 1 10 asks for the domain of the 
function. That is, it asks for the range 
of the x value for which the graph is to 
be drawn. These values must be equal to 
or greater than - H and less than or 
equal to PWIDE- H. 

Line 120 converts the domain of the 
function in terms of x to the equivalent 
domain in terms of u. These values for 
the domain of u are then used in line 
130, u going from the lower limit to the 
upper limit of the domain. Also in this 
line, USR3 sends the current value of 
u to the Plot routine of Tigergraph. The 
function must be defined for all x values 
in its domain. 



Line 140 computes the corresponding 
values for v. Line 150 tests the value of v 
to be sure that it lies within the upper 
and lower boundaries of the page. Spe- 
cifically, v must be nonnegative and less 
than or equal to the number of rows in 
the page, which is 18 times (PHIGH). 
Only i f the value of v is within these lim- 
its is it sent into Plot. 

Lines 160-210 test for the vertical 
separation between consecutive v val- 
ues, and if they are too widely spaced, 
points are plotted to fill in the gap. Spe- 
cifically, line 160 tests to see if the cur- 
rent v value is the first point or not. If it 
is the first point, no filling is necessary. 
Otherwise, when the last computed val- 
ue of v (stored in variable T) is more 
than two spaces from the current v val- 
ue, the gap is filled in. Lines 180 and 190 
determine whether the fill goes up or 
down, and line 200 does the filling. Line 
210 saves the current v value in T to be 
the previous value next time through 
this loop. 

Line 220 ends the loop begun in line 
130. Line 225 uses the Tigergraph's 
Print routine to print the page. 

This program can be run for func- 
tions that are defined for all x's in the 
domain and, at least piecewise, continu- 
ous — that is, continuous at all but a fi- 
nite number of points. All functions 
must give y explicitly as a function of x. 
By definition, a function is single val- 
ued. In order to graph other functions, 
simply change the definition in line 100. 
(See Figs. 6 and 7.) It is possible to 
graph several functions on the same 
graph. In order to do this, run the Basic 
program as it is for the first function. 
Next, edit the Basic program by deleting 
line 90; otherwise, the first graph will be 
erased. Then change line 100 to define 
the new function and run the program 
again. 

Tigergraph has four main routines, 
labeled in the listing as Getu, Axes, 
Plot, and Print. The role of each rou- 
tine has been discussed above. The vari- 
ables within the program are PHIGH, 
the number of units for the y axis; 
PWIDE, the number of units for the x 
axis; PAGEW, the number of spaces 
for the u axis (16 x PWIDE); PAGEH, 
the number of spaces for the v axis 
(18 x PHIGH); HO and K0, the place- 
ment of the x and y axes in the page; U 
and V, the point to be placed into the 
page; and PAGE, the starting memory 
address for the page. 

Other routines in Tigergraph are for 
computational purposes. The subrou- 
tines for double-precision addition and 
multiplication are from How to Pro- 
gram the Z80 by Rodnay Zaks. 



Now that the specifics of the pro- 
gramming techniques are completed, 
there are two Basic programs that I find 
useful. The first is POLAR/BAS (Pro- 
gram Listing 3) and the second is CON- 
ICS/BAS (Program Listing 4). 

A particularly tedious type of func- 
tion to graph is one that is given in terms 
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INPUT H? 3 
INPUT K? 3 
INPUT PHIGH? 6 
INPUT PWIDE? 6 

R = 2*SIN(2*A) 
Figure 9 
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INPUT H? 3 
INPUT K? 3 
INPUT PHIGH? 6 
INPUT PWIDE? 6 

R = 2*COS(3*A) 

Figure 10 

Standard Form of Conies 

(1) Parabola: vertex at (h,k) 

(a) (x-h) 2 = M(y-k) opensupif"M>0 

opens down if M<0 

(b) (y - k) 2 = M(x h) opens right if M>0 

opens left if M<0 

(2) Cirele: Center at (h,k), radius r 
(x-h)' + (y-k) 2 r 2 

(3) Ellipse: center at (h,k) 
(x-h) 2 + (y-k) 2 =1 

a 2 b 2 

major axis parallel to x axis if a>b 
major axis parallel to y axis if a<b 

(4) Hyperbola: center at (h,k) 

(a) (x h) 2 _ (y - k) 2 = , 

a 2 b 2 

real axis parallel to x axis 

(b) -(x h) 2 + (y-k) 2 ^, 

a 2 b 2 

real axis parallel to y axis 

Figure II 
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of polar coordinates. The program PO- 
LAR/BAS graphs the equation R = 2(1 
- COS(A) ), and the resulting graph is 
given in Fig. 8. In POLAR/BAS, the 
polar equation is defined in line 100. 
Lines 140 and 145, in addition to chang- 
ing to the u-v coordinate system, also 
change from polar coordinates to rec- 
tangular coordinates. Recall that this 
change of coordinates is given by 
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>RUN 

INPUT H? 7 

INPUT K? 6 

INPUT PHIGH? 8 

INPUT PWIDE? 14 

CHOICES (1) INPUT CONIC 

(2) DRAW (3) END? 1 
CHOICES OF CONICS TO GRAPH: 

(l)LINE 

(2) PARABOLA 

(3) CIRCLE 

(4) ELLIPSE 

(5) HYPERBOLA 

ENTER THE APPROPRIATE NUMBER? 4 
ENTER THE COORDINATES OF THE 

CENTER? 1,2 
ENTER A AND B SQUARED? 24,6 
ENTER THE DOMAIN? -7,7 

Figure 12 



x = r cosA 
y = r sinA 

where A is the angle (in radians) going 
from the polar axis to the line segment 
joining (x,y) and the origin. Therefore, 
lines 140 and 145 result from the follow- 
ing: First, changing from polar to rec- 
tangular coordinates gives 

x = 2(1 - cosA)cosA 
y = 2(1 -cosA)sinA 

Then changing to the u-v coordinates 
using x = u/16-H and y = v/18-K 
gives 



16 



-H=2(l -cosA)cosA 



-K = 2(l-cosA)sinA 



/ 



S 



-••/'•' 



X\ 



-*!. 



HYPERBOLA x 2 -y 2 = l 
ASYMPTOTES y=±x 

Figure 13 



and this simplifies to 

u = 16[H + 2(1 - cosA)cosA] 
v = 18[K + 2(l-cosA)sinA] 

The final program (CONICS/BAS) 
draws the various conic sections. This 
program lets you graph any combina- 
tion of lines, parabolas, circles, ellipses, 
and hyperbolas using one set of coordi- 
nate axes. To use this program, it is nec- 
essary to have the equation of a conic in 
its standard form. (See Fig. 11 for a 
summary of the standard forms of the 
conies.) Since the program is rather 
long, I have kept its prompts as brief as 
possible. 

The program to line 80 is identical to 
the corresponding portions in Program 
Listing 1, and the discussion of CON- 



CIRCLE (x- l) 2 + (y- l) 2 = 9 
TANGENT LINE AT (2,3,83) 

Figure 14 











Prog 


ram Listing 5 










00001 




;TIGERGRAPH 










00002 




/BARBARA CLINGER 










00003 




/DEPARTMENT OF MATHEMATICS 








00004 




;WH EATON COLLEGE 










00005 




; NORTON 


, MASS. 02766 










00006 


i 














00007 


i 










7C01 




00010 




ORG 


7C01H 






7C01 


CD7F0A 


00012 




CALL 


0A7FH 


;GET NUMBER 




7C04 


7D 


00013 


" 


LD 


A,L 






7C05 


FE00 


00014 




CP 





/COMPARE IT TO ZERO 




7C07 


C20E7C 


00016 




JP 


NZ f N0TZ 


;JUMP IF NOT ZERO 




7C0A 


CD1C7C 


00018 




CALL 


AXES 






7C0D 


C9 


00020 




RET 








7C0E 


FE01 


00022 


NOTZ 


CP 


1 


/•COMPARE IT TO ONE 




7C10 


C2177C 


00024 




JP 


NZ ,NOTO 


;JUMP IF NOT ONE 




7C13 


CD2C7D 


00026 




CALL 


PLOT 






7C16 


C9 


00028 




RET 








7C17 


CD7B7D 


00030 


NO TO 


CALL 


PRINT 


;MUST BE 3 




7C1A 


C9 


00032 




RET 








7C1B 


00 


00050 




NOP 




,-START OF AXES 




7C1C 


ED5B057E 


00060 


AXES 


LD 


DE f (PHIGH) 


;X-Y AXES AT (H0,K0) 


IN 


7C20 


3E12 


00070 




LD 


A r 18 


THE PAGE 




7C22 


0E00 


00080 




LD 


C,0 


Listing 


.5 continues 
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Listing 5 continued 










7C24 


CDF47D 


00090 


CALL 


MULT 


;PAGEH=18*PHIGH 


7C27 


220B7E 


00100 


LD 


(PAGEH) ,HL 




7C2A 


ED5B077E 


00110 


LD 


DE, (PWIDE) 




7C2E 


3E10 


00120 


LD 


A, 16 




7C30 


0E00 


00130 


LD 


C,0 




7C32 


CDF47D 


00140 


CALL 


MULT 


;PAGEW=16*PWIDE 


7C35 


22097E 


00150 


LD 


(PAGEW) f HL 




7C38 


7D 


00160 


LD 


A,L 




7C39 


4C 


00170 


LD 


C,H 




7C3A 


ED5B057E 


00180 


LD 


DE, (PHIGH) 




7C3E 


CDF47D 


00190 


CALL 


MULT 


; 3* ( PAGEW) *( PHIGH) EQUALS 


7C41 


EB 


00200 


EX 


DE,HL 


; THE NUMBER OF BYTES IN 


7C42 


3E03 


00210 


LD 


A, 3 


;THE PAGE 


7C44 


0E00 


00220 


LD 


C f 




7C46 


CDF47D 


00230 


CALL 


MULT 


; (HL) =3* (PAGEW) *( PHIGH) 


7C49 


44 


00240 


LD 


B f H 




7C4A 


4D 


00250 


LD 


C f L 




7C4B 


210070 


00260 ZERO 


LD 


HL,PAGE 


;ZERO THE PAGE 


7C4E 


3600 


00270 ZLOOP 


LD 


(HL) ,0 




7C50 


23 


00280 


INC 


HL 




7C51 


0B 


00290 


DEC 


BC 




7C52 


78 


00300 


LD 


A,B 




7C53 


Bl 


00310 


OR 


C 




7C54 


20F8 


00320 


JR 


NZ r ZLOOP 


;SEE IF PAGE IS ZEROED 


7C56 


3E00 


00330 


LD 


A f 




7C58 


32117E 


00340 


LD 


(U) ,A 


;U MAKES LEFT HASH MARK 


7C5B 


3E20 


00350 


LD 


A,20H 


; ON THE Y-AXIS 


7C5D 


32137E 


00360 


LD 


(V) , A 


;V MAKES THE RIGHT HASH 


7C60 


3A0D7E 


00370 


LD 


A, (H0) 


MARK ON Y-AXIS 


7C63 


FE00 


00380 


CP 





;SEE IF Y-AXIS = V-AXIS 


7C65 


CA6D7C 


00390 


JP 


Z f ISEQU 




7C68 


3E20 


00400 


LD 


A,20H 




7C6A 


32117E 


00410 


LD 


(U) ,A 




7C6D 


2A097E 


00420 ISEQU 


LD 


HL, (PAGEW) 




7C70 


7D 


00430 


LD 


A,L 




7C71 


4C 


00440 


LD 


C,H 




7C72 


110300 


00450 


LD 


DE,3 




7C75 


CDF47D 


00460 


CALL 


MULT 


;FIND 3*PAGEW=NO. SPACES 


7C78 


E5 


00470 


PUSH 


HL 


; BETWEEN Y MARKS 


7C79 


3E10 


00480 


LD 


A,16 




7C7B 


0E00 


00490 


LD 


C,0 




7C7D 


ED5B0D7E 


00500 


LD 


DE, (H0) 




7C81 


CDF47D 


00510 


CALL 


MULT 


;FIND 16*H 


7C84 


110070 


00520 


LD 


DE,PAGE 




7C87 


19 


00530 


ADD 


HL,DE 


;PAGE+16*H 


7C88 


E5 


00540 


PUSH 


HL 




7C89 


2A057E 


00550 


LD 


HL, (PHIGH) 


;# OF Y HASH MARKS 


7C8C 


45 


00560 


LD 


B,L 




7C8D 


El 


00570 


POP 


HL 




7C8E 


Dl 


00580 


POP 


DE 




7C8F 


22197E 


00590 MARKY 


LD 


(TEMP) ,HL 




7C92 


DD2A197E 


00600 


LD 


IX, (TEMP) 


;IX POINTER TO Y-AXIS 


7C96 


3A117E 


00610 


LD 


A,(U) 




7C99 


DD77FF 


00620 


LD 


(IX+255) ,A 


;MARK LEFT OF Y-AXIS 


7C9C 


3A137E 


00630 


LD 


A,(V) 




7C9F 


DD7701 


00640 


LD 


(IX+1) ,A 


;MARK RIGHT OF Y-AXIS 


7CA2 


19 


00650 


ADD 


HL,DE 


;FOR NEXT HASH MARK 


7CA3 


10EA 


00660 


DJNZ 


MARKY 




7CA5 


2A097E 


00670 


LD 


HL, (PAGEW) 


; BEGIN TO MARK X-AXIS 


7CA8 


7D 


006 80 


LD 


A f L 




7CA9 


4C 


00690 


LD 


C,H 




7CAA 


ED5B0F7E 


00700 


LD 


DE, (K0) 




7CAE 


CDF47D 


00710 


CALL 


MULT 


;FIND K* PAGEW 


7CB1 


110300 


00720 


LD 


DE,3 




7CB4 


7D 


00730 


LD 


A,L 




7CB5 


4C 


00740 


LD 


C,H 




7CB6 


CDF47D 


00750 


CALL 


MULT 


; (HL)=PAGE+3*K* (PAGEW) 

Listing 5 continues 
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Listing 5 con 


inued 










7CB9 


110070 


00760 


LD 


DE,PAGE 


; POINTS X-AXIS 


7CBC 


19 


00770 


ADD 


HL,DE 




7CBD 


2B 


00780 


DEC 


HL 




7CBE 


E5 


007 90 


PUSH 


HL 




7CBF 


110F00 


00800 


LD 


DE,15 




7CC2 


A7 


00810 


AND 


A 




7CC3 


ED52 


00820 


SBC 


HL,DE 




7CC5 


111000 


00830 


LD 


DE,16 




7CC8 


E5 


00840 


PUSH 


HL 


; (HL)=PAGE+3*K*( PAGEW) -16 


7CC9 


2A077E 


00850 


LD 


HL, (PWIDE) 


; LEFTMOST PART OF X-AXIS 


7CCC 


45 


00860 


LD 


B,L 




7CCD 


05 


00870 


DEC 


B 


;# HASH MARKS ON X-AXIS 


7CCE 


El 


00880 


POP 


HL 


;IS ( PAGEW) -1 


7CCF 


7E 


00890 MARKX 


LD 


A,(HL) 




7CD0 


F602 


00900 


OR 


2 


;MAKE DOT OVER X-AXIS 


7CD2 


77 


00910 


LD 


(HL) ,A 




7CD3 


E5 


00920 


PUSH 


HL 




7CD4 


D5 


00930 


PUSH 


DE 




7CD5 


ED5B097E 


00940 


LD 


DE, (PAGEW) 




7CD9 


19 


00950 


ADD 


HL,DE 




7CDA 


22197E 


00960 


LD 


(TEMP) ,HL 




7CDD 


DD2A197E 


00970 


LD 


IX, (TEMP) 




7CE1 


DD7E00 


00980 


LD 


A, (IX) 




7CE4 


F620 


00990 


OR 


20H 


;MAKE DOT UNDER X-AXIS 


7CE6 


DD7700 


01000 


LD 


(IX) ,A 




7CE9 


Dl 


01010 


POP 


DE 




7CEA 


El 


01020 


POP 


HL 




7CEB 


A7 


01030 


AND 


A 




7CEC 


ED52 


01040 


SBC 


HL,DE 


;MOVE LEFT FOR NEXT MARK 


7CEE 


10DF 


01050 


DJNZ 


MARKX 




7CF0 


2A057E 


01060 YAXIS 


LD 


HL, (PHIGH) 




7CF3 


7D 


01070 


LD 


A,L 




7CF4 


4C 


01080 


LD 


C,H 




7CF5 


110300 


01090 


LD 


DE,3 




7CF8 


CDF47D 


01100 


CALL 


MULT 


;3*(PHIGH)=# OF BYTES FOR 


7CFB 


E5 


01110 


PUSH 


HL 


; Y-AXIS 


7CFC 


3E10 


01120 


LD 


A, 16 




7CFE 


0E00 


01130 


LD 


C,0 




7D00 


ED5B0D7E 


01140 


LD 


DE, (H0) 




7D04 


CDF47D 


01150 


CALL 


MULT 


;FIND 16*H 


7D07 


110070 


01160 


LD 


DE,PAGE 




7D0A 


19 


01170 


ADD 


HL,DE 


;PAGE+3*(H) POINTS TO 


7D0B 


Dl 


01180 


POP 


DE 


; START OF Y-AXIS 


7D0C 


43 


01190 


LD 


B,E 




7D0D 


ED5B097E 


01200 


LD 


DE, (PAGEW) 




7D11 


363F 


01210 YLOOP 


LD 


(HL) ,3FH 


;3FH MAKES COLUMN 6 DOTS 


7D13 


19 


01220 


ADD 


HL,DE 




7D14 


10FB 


01230 


DJNZ 


YLOOP 




7D16 


2A097E 


01240 


LD 


HL, (PAGEW) 


; START OF X-AXIS 


7D19 


2B 


01250 


DEC 


HL 




7D1A 


44 


01260 


LD 


B,H 




7D1B 


4D 


01270 


LD 


C,L 




7D1C 


El 


01280 


POP 


HL 




7D1D 


7E 


01290 XLOOP 


LD 


A,(HL) 




7D1E 


F601 


01300 


OR 


1 


; MAKES ONE DOT FOR AXIS 


7D20 


77 


01310 


LD 


(HL) ,A 




7D21 


2B 


01320 


DEC 


HL 


;MOVE LEFT FOR NEXT DOT 


7D22 


0B 


01330 


DEC 


BC 


; DECREASE COUNTER 


7D23 


78 


01340 


LD 


A,B 




7D24 


Bl 


01350 


OR 


C 




7D25 


FE00 


01360 


CP 







7D27 


C21D7D 


01370 


JP 


NZ, XLOOP 


;SEE IF DONE WITH X-AXIS 


7D2A 


C9 


01380 


RET 




;END OF AXES 


7D2B 


00 


01390 


NOP 




; BEGIN OF PLOT 


7D2C 


2A137E 


01400 PLOT 


LD 


HL,(V) 


;LOAD V INTO HL 


7D2F 


7C 


01410 


LD 


A,H 


;TO PLOT (U,V) — DIVIDE V 


7D30 


4D 


01420 


LD 


C,L 


;BY 6, GET Q AND R THEN 

Lining 5 continues 
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ICS/BAS begins at line 85. Note, as 
mentioned above, that HO and KO refer 
to the placement of the axes. Line 85 
gives the prompt 

CHOICES (1) INPUT CONIC (2) DRAW 
(3) END 

Entering a 3 stops the program and re- 
turns to Basic's ready prompt. A reply 
of 2 sends the page to the printer and re- 
turns to line 85. The first option lets you 
select the type of conic and enter it into 
the page. This case also returns to the 
prompt at line 85. 

Line 90 is a three-way branch; the ac- 
tion taken depends upon the response to 
line 85. Lines 100-125 determine the 
type of conic to be graphed. The op- 
tions are line, parabola, circle, ellipse, 
or hyperbola. Line 130 is an error trap 
to ensure a proper reply at this point of 
the program. 

Line 135 is a five-way branch, and the 
action taken depends upon the response 
made to line 125. Since each branch is 
essentially a subprogram to graph one 
of the conies, I will discuss each branch 
individually. For each option, the final 
prompt is for the domain. When neces- 
sary, the program restricts the domain 
to values of x for which the function is 
defined. The final step of each option is 
a jump to line 85. Lines 145-305 branch 
for a straight line. 

Selecting the line option initiates a se- 
ries of prompts; the first is 

OPTIONS FOR FORM OF LINE: 

(1) TWO-POINT 

(2) POI NT-SI. OPF. 

If the two-point form is selected, then 
the coordinates of the points must be 
entered. There is a prompt for each 
point and the data is entered in the form 
X,Y (first coordinate, comma, second 
coordinate, enter). If the x coordinates 



"Si. 



of both points are the same, then the 
line is parallel to the y axis. This is the 
only way such a line can be entered. If 
this is the case, the prompt "Line is par- 
allel to the y axis, input range of y's" is 
given. In response, enter the smallest 
value of y, then the largest value of y 
(separated by a comma) for which this 
line is to be graphed. 

If the second option is selected, there 
are two prompts: one for the coordi- 
nates of the point and the other for the 
slope of the line. 

The program does not accept lines 
given in the y-intercept form (y = 
mx + b). This form is a special case of 
the point-slope form, using the slope m 
and the point (0,b). It also does not ac- 
cept lines in the form ax + by = c. This 
form also can be entered using the 
point-slope form where the point is (0, 
c/b) and the slope is given by m = 
( - a/b). The remainder of this branch is 
devoted to the task of inserting the line 
into the page. 

Lines 315-435 branch for a parabola. 
Selecting the option for the parabola 
gives the prompt "(1) Opens Up/Down 
(2) Opens Left/Right." There are two 
forms for the equation of a parabola 
with its vertex at the point (H1,K1), 
they are (X-H1) 2 = M(Y-K1), which 
opens up if M is greater than zero or 
down if M is less than zero, and (Y - 
K1) 2 = M(X-H1), which opens to the 
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PARABOLA y 2 = 2(x + 2) 
LINE y = x-2 

Figure 15 



PHIGH = PAGE HEIGHT 

PWIDE = PAGE WIDTH 

INPUT PHIGH? 10 

INPUT PWIDE? 14 

INPUT HO? 1 

INPUT K0? 5 

CHOICES (1) INPUT CONIC 

(2) DRAW (3) END? 1 
CHOICES OF CONICS TO GRAPH: 

(l)LINE 

(2) PARABOLA 

(3) CIRCLE 

(4) ELLIPSE 

(5) HYPERBOLA 

ENTER THE APPROPRIATE NUMBER? 4 
ENTER THE COORDINATES OF THE 

CENTER? 5,1 
ENTER A AND B SQUARED? 20,7 
ENTER THE DOMAIN? -1,13 

Figure 16 



right if M is greater than zero or left if 
M is less than zero. Next, a prompt for 
the values HI, Kl, and M is given. En- 
ter the three values on the same line, 
separated by commas. If the parabola 
opens left or right, it requires two func- 
tions to graph it — one for the upper half 
and one for the lower half. Lines 360- 
375 do the computations for up/down 
parabolas and lines 385^35 do the 
left/right ones. 

Lines 445-550 branch for a circle or 
ellipse. The standard form for the circle 
with its center at (H1,K1) and radius R 
is given by (X - HI) 2 + (Y - Kl) 2 = R 2 . 

The standard form for the ellipse 
with its center at (H1,K1) is: 

(X-Hl)' + (Y-Kl)^ i 
A 2 B 2 

In the equation of an ellipse, if A is 
greater than B, the major axis is paral- 
lel to the x axis. If A is less than B, the 
major axis is parallel to the y axis. If A 
equals B, the figure is a circle. Using 
these relations between A and B, I 
combined the computations for a cir- 
cle and an ellipse into one routine. 
The test for which type conic is done 
in line 465. The first prompt in this 
routine is for the center: "Enter the 
coordinates of the center." 

Enter the values for HI and Kl , sepa- 
rated by a comma. If the conic is a cir- 
cle, the next data entered must be the 
square of the radius. This allows the use 
of a radius such as \/T without having 
to enter its decimal approximation. If 
the conic is an ellipse, then the squares 
of A and B must be entered — for the 
same reason the square of the radius is 
given. Circles and ellipses require two 
functions — one for the upper half and 
one for the lower half. The lower por- 
tion is drawn in lines 500-515 and the 
upper part in lines 525-545. 

Lines 555-670 branch for a hyper- 
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Listing 5 continued 










7D31 


1E06 


01430 


LD 


E,6 


•SET BIT 5-R IN BYTE 


7D33 


1600 


01440 


LD 


D, 


; PAGE+Q* ( PAGEW) +U 


7D35 


CDDE7D 


01450 


CALL 


DIVIDE 




7D38 


57 


01460 


LD 


D,A 




7D39 


59 


01470 


LD 


E,C 




7D3A 


ED53157E 


01480 


LD 


(QUOT) f DE 


;SAVE Q 


7D3E 


22177E 


01490 


LD 


(RMDER) f HL 


;SAVE R 


7D41 


3A097E 


01500 


LD 


A, (PAGEW) 




7D44 


0E00 


01510 


LD 


C,0 


; DIVISOR ON DE 


7D46 


ED5B157E 


01520 


LD 


DE, (QUOT) 


?ON EXIT QUOTIENT IN AD 


7D4A 


CDF47D 


01530 


CALL 


MULT 


• REMAINDER IN HL 


7D4D 


ED4B117E 


01540 


LD 


BC, (U) 




7D51 


09 


01550 


ADD 


HL,BC 




7D52 


010070 


01560 


LD 


BC , PAGE 




7D55 


09 


01570 


ADD 


HL,BC 


•ADD ADDR OF PAGE 


7D56 


22197E 


01580 


LD 


(TEMP) ,HL 




7D59 


DD2A197E 


01590 


LD 


IX, (TEMP) 




7D5D 


210500 


01600 


LD 


HL, 5 




7D60 


ED5B177E 


01610 


LD 


DE, (RMDER) 


•FIND 5 MINUS RMDER 


7D64 


A7 


01620 


AND 


A 


;DETERMINE WHICH BIT 


7D65 


ED52 


01630 


SBC 


HL,DE 


j TO SET 


7D67 


1601 


01640 


LD 


D,l 




7D69 


7D 


01650 


LD 


A,L 




7D6A 


B7 


01660 


OR 


A 




7D6B 


2805 


01670 


JR 


Z, RDONE , 


GO NO MORE ROTATES 


7D6D 


47 


01680 


LD 


B, A 




7D6E 


CB22 


016 90 RLOOP 


SLA 


D 


ROTATE TO SET BIT 


7D70 


10FC 


01700 


DJNZ 


RLOOP 




7D72 


DD7E00 


01710 RDONE 


LD 


A,(IX) 


GET CONTENTS OF BYTE 


7D75 


B2 


01720 


OR 


D , 


INSERT NEW INFO IN BYTE 


7D76 


DD7700 


01730 


LD 


(IX) ,A 


STORE BACK INTO BYTE 


7D79 


C9 


01740 


RET 




END OF PLOT 


7D7A 


00 


01750 


NOP 




BEGIN OF PRINT 


7D7B 


3E03 


01760 PRINT 


LD 


A, 3 


** 


7D7D 


CDD37D 


01770 


CALL 


OUTCHR 


PUT 445 INTO GRAPHICS 


7D80 


0E00 


01780 


LD 


C,0 




7D82 


ED5B057E 


01790 


LD 


DE,(PHIGH) 




7D86 


CDF47D 


01800 


CALL 


MULT 




7D89 


2B 


01810 PLOOP 


DEC 


HL 


COUNTER VERTICALLY IS 


7D8A 


22117E 


01820 


LD 


(U) ,HL 


(U)=3*(PHIGH)-1 


7D8D 


EB 


01830 


EX 


DE,HL 




7D8E 


2A097E 


01840 


LD 


HL, (PAGEW) 




7D91 


7D 


01850 


LD 


A,L 




7D92 


4C 


01860 


LD 


C,H 




7D93 


CDF47D 


01870 


CALL 


MULT , 


(HL)=U*( PAGEW) 


7D96 


110070 


01880 


LD 


DE,PAGE 




7D99 


19 


01890 


ADD 


HL,DE 


( HL) =PAGE+U* ( PAGEW) 


7D9A 


110000 


01900 


LD 


DE,0 


IS THE COUNTER ACROSS 


7D9D 


7E 


01910 GETCHR 


LD 


A, (HL) 




7D9E 


FE03 


01920 


CP 


3 


**IF CHAR=3, PRINT TWICE 


7DA0 


CCD37D 


01930 


CALL 


Z, OUTCHR 


SEND CHARACTER 


7DA3 


CDD37D 


01940 


CALL 


OUTCHR 


•SEND CHARACTER 


7DA6 


13 


01950 


INC 


DE 


INCREASE POINTER 


7DA7 


23 


01960 


INC 


HL 


•INCREASE POINTER 


7DA8 


E5 


01970 


PUSH 


HL 


;SAVE POINTER 


7DA9 


2A097E 


01980 


LD 


HL, (PAGEW) 


; CHECK-SEE IF LINE DONE 


7DAC 


2B 


01990 


DEC 


HL 




7 DAD 


A7 


02000 


AND 


A 




7 DAE 


ED52 


02010 


SBC 


HL,DE 




7DB0 


7C 


02020 


LD 


A,H 




7DB1 


B5 


02030 


OR 


L 




7DB2 


El 


02040 


POP 


HL 




7DB3 


C29D7D 


02050 


JP 


NZ, GETCHR 


; CONTINUE IF NOT DONE 


7DB6 


3E03 


02060 


LD 


A, 3 


;**SEND END OF LINE SGNAL 


7DB8 


CDD37D 


02070 


CALL 


OUTCHR 




7DBB 


3E0B 


02080 


LD 


A,0BH 


. ** 


7DBD 


CDD37D 


02090 


CALL 


OUTCHR 


Listing 5 continues 
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Listing 5 


continued 












7DC0 


2A117E 


02100 




LD 


HL, (U) 


•CHECK-SEE IF PAGE DONE 


7DC3 


7C 


02110 




LD 


A f H 




7DC4 


B5 


02120 




OR 


L 




7DC5 


C2897D 


02130 




JP 


NZ,PLOOP 


•CONTINUE IF NOT DONE 


7DC8 


3E03 


02140 


DONE 


LD 


A, 3 


;**SIGNAL TO EXIT GRAPHICS 


7DCA 


CDD37D 


02150 




CALL 


OUTCHR 




7DCD 


3E02 


02160 




LD 


A, 2 


. ** 


7DCF 


CDD37D 


02170 




CALL 


OUTCHR 




7DD2 


C9 


02180 




RET 




•RET TO CALLING PROG 


7DD3 


F5 


02190 


OUTCHR 


PUSH 


AF 


•SUBR TO SEND CHAR 


7DD4 


CDD105 


02200 


CHCKP 


CALL 


5D1H 


•CHECK STATUS OF PRINTER 


7DD7 


20FB 


02210 




JR 


NZ, CHCKP 


•WAIT IF NOT READY 


7DD9 


Fl 


02220 




POP 


AF 




7DDA 


32E837 


02230 




LD 


(37E8H) ,A 


•SEND IT 


7DDD 


C9 


02240 




RET 




RET TO PRINT 


7DDE 


210000 


02250 


DIVIDE 


LD 


HL,0 


FROM ZAKS 


7DE1 


0610 


02260 




LD 


B,16 


ON ENTRY DIVIDEND IN AC 


7DE3 


CB11 


02270 


DLOOP 


RL 


C 


DIVISOR IN HL 


7DE5 


17 


02280 




RLA 




ON EXIT QUOTIENT IN AC 


7DE6 


ED6A 


02290 




ADC 


HL,HL 


REMAINDER IN HL 


7DE8 


ED52 


02300 




SBC 


HL,DE 




7DEA 


3001 


02310 




JR 


NC,$+3 




7DEC 


19 


02320 




ADD 


HL,DE 




7DED 


3F 


02330 




CCF 






7DEE 


10F3 


02340 




DJNZ 


DLOOP 




7DF0 


CB11 


02350 




RL 


C 




7DF2 


17 


02360 




RLA 






7DF3 


C9 


02370 




RET 




END OF DIVIDE SUBROUTINE 


7DF4 


0610 


02380 


MULT 


LD 


B,16 


FROM ZAKS 


7DF6 


210000 


02390 




LD 


HL,0 


ON ENTRY (A)=LSB MULTCND 


7DF9 


CB3 9 


02400 


MLOOP 


SRL 


C 


(C) =MSB MULTCND 


7DFB 


IF 


02410 




RRA 




(DE) =MULTIPLIER 


7DFC 


3001 


02420 




JR 


NC,MLOOPl 


ON EXIT (HL)=PRODUCT 


7DFE 


19 


02430 




ADD 


HL,DE 




7DFF 


EB 


02440 


MLOOP1 


EX 


DE,HL 




7E00 


29 


02450 




ADD 


HL,HL 




7E01 


EB 


02460 




EX 


DE f HL 




7E02 


10F5 


02470 




DJNZ 


MLOOP 




7E04 


C9 


02480 




RET 


;END OF MULT SUBROUTINE 


7E05 




02490 


PHIGH 


EQU 


$ 




0002 




02500 




DEFS 


2 


0002 


02620 DEFS 2 


7E07 




02510 


PWIDE 


EQU 


$ 


7E13 


02630 V EQU $ 


0002 




02520 




DEFS 


2 


0002 


02640 DEFS 2 


7E09 




02530 


PAGEW 


EQU 


$ 


7E15 


02650 QUOT EQU $ 


0002 




02540 




DEFS 


2 


0002 


02660 DEFS 2 


7E0B 




02550 


PAGEH 


EQU 


$ 


7E17 


02670 RMDER EQU $ 


0002 




02560 




DEFS 


2 


0002 


02680 DEFS 2 


7E0D 




02570 


H0 


EQU 


$ 


7E19 


026 90 TEMP EQU $ 


0002 




02580 




DEFS 


2 


0002 


02700 DEFS 2 


7E0F 




02590 


K0 


EQU 


$ 


7000 


02710 PAGE EQU 7000H 


0002 




02600 




DEFS 


2 


0000 


02720 END 


7E11 




02610 


U 


EQU 


$ 


00000 TOTAL 


ERRORS 



bola. The hyperbola has two possible 
forms for its equation: 

TWO OPTIONS: 

(1) REAL AXIS PARALLEL TO X AXIS 

(2) REAL AXIS PARALLEL TO Y AXIS 

The equation for the real axis parallel to 
the x axis is 

(X-H1) ; _ (Y-K1) ; = 1 
A ! B 2 

and for the real axis parallel to the y 



axis is 

- (X-H1)^(Y-K1) ; = 1 
A 2 B 2 

After selecting option 1 or 2, enter the 
center's coordinates. In the case of the 
hyperbola, the center is the midpoint of 
the line joining the two vertices of the 
hyperbola. Then, as was the case for the 
ellipse, enter the squares of the con- 
stants A and B. It takes two functions to 
draw a hyperbola that opens up and 



down, namely one for the upper portion 
and one for the lower portion. For a hy- 
perbola that opens left and right, it 
takes four functions — upper and lower 
parts of both branches. Obviously, this 
is the slowest type of function to graph. 
Using variables Ml through M4, as de- 
fined in lines 595 and 600, I condensed 
the computational portions of this seg- 
ment of the program. These same con- 
stants also were used to redefine the do- 
main of the hyperbola that opens left 
and right, if necessary. 
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Consider the following example. Giv- 
en the equation for the ellipse: X 2 + 
4Y 2 - 2X + 16Y = 7. First, put the equa- 
tion into standard form by collecting 
the terms as shown, then completing the 
square: 

(x 2 -2x ) + 4(y 2 + 4y ) = 7 
(x 2 -2x+l) + 4(y 2 + 4y + 4) = 7+ 1 + 16 
(x-l) ; + 4(y + 2) 2 = 24 

Dividing by 24 gives the standard form 
(x-D a + (y + 2)' = 1 

24 6 

This equation, in standard form, gives 
the values of (H1,K1) = 1, -2), A 2 = 24, 
and B 2 = 6. Use the values HO = 7 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. C.O.D. and 
charge cards accepted. 




VfSA- 



PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo, CA 
93401. InCal. call 
(800) 592-5935 or 
(805) 543-1037. 

.-•207 



COMPUTER REPAIRS 
CONSULTATIONS 




E & G UMLOR ENTERPRISES 

RFD#l,Box48A 
FITZWILLIAM, NH 03447 

Offering Sales 

COMPUTER HARDWARE and PERIPHERALS 

also. . . . 

REPAIR SERVICE-TAPE DUPLICATION 

BASIC PROGRAM MODIFICATION 

APPUCATION SOFTWARE WRITTEN 

For Further Information Call: 

(603) 585-3142 . ni 



and K0 = 6 to place the x-y axes. Figure 
12 shows the prompts, the answers, and 
the graph of this ellipse. The time the 
program takes to insert the ellipse into 
the page is about 80 seconds. Figures 
13-17 give various examples of graph- 
ing conic sections using CONICS/BAS. 

The changes necessary for a 16K Lev- 
el II machine are not difficult. These 
changes result from the difference be- 
tween the USR calls in Disk Basic and 
Level II Basic, and the lack of the DEF- 
FN command. The program segment 
given in Listing 5 modifies Tigergraph 
to Tigerl6K. (Insert or change the lines 
as necessary.) The portion that replaces 
Getu is a subprogram designed to call 
the appropriate routines. In particular, 
when the command USR(N) is given 
from Basic, the argument N (N must be 
0, 1, or 2) is entered into Tiger 16K with 
the command CALL 0A7FH. If N is 
zero, the Axes subroutine is called. If N 
is one, the Plot subroutine is called. 
Otherwise, N must be two and the Print 
subroutine is called. 

If any other changes are made, the 
addresses that are POKEd into the Ba- 



-i 1 1 1 



Figure 19 



sic program must be changed to match 
the resulting addresses of the variables 
H, K, PHIGH, and PWIDE when Ti- 
ger 16K is compiled. 

Program Listing 6 is equivalent to 
Program Listing 1 , except it is compati- 
ble with Level II Basic. The differences 
are: Line 10 POKEs the starting address 
of the Tiger 16K. Line 20 is deleted. Line 
90 is changed to Z = USR(0), where the 
argument being zero causes the page to 
be zeroed and the coordinate axes to be 
drawn. 

Line 100 is deleted. Line 130 Z = 
USR3(U) is replaced by two POKE 
statements. These statements POKE U 
into the appropriate memory locations. 
Line 140 defines the function to be 
graphed and changes it to the u-v coor- 
dinate system. Lines 150 and 200 re- 
place Z = USR 1 (V) by two POKE state- 
ments. These statements POKE V into 
the appropriate memory page locations. 

With page's starting address at 
7000H, the page size must be less than 
or equal to 0C00H, or 3,072 in deci- 
mal. The page size (number of bytes) 
is computed by 3(PHIGH)(16)(PWIDE). 
Since this number should not exceed 
3,072, (PHIGH) x (PWIDE) must be 
less than or equal to 64. 

Tigergraph can be adapted to a dif- 
ferent printer, as long as it operates sim- 
ilarly to the Paper Tiger. (Compare the 
control codes and Figs. 1 and 2 with 
your owner's manual.) All output is 
done in the Print routine; I have marked 
the lines that are Tiger control codes 
with a double asterisk in the comment 
column. One word of caution: If 
changes are made in Tigergraph, then it 
might be necessary to change the POKE 
statements that correspond to H, K, 
PHIGH, and PWIDE, to the new ad- 
dresses for those variables. 



Program Listing 6 



I:V5=I8*I 



POKE 16526, 01: POKE 16527,124 
DEFINT I,J,T,U,V 
I6=16:I8=18:P5=.5 

INPUT-INPUT H";H:P0KE 32269, H:P0KE 32270,0 
INPUT"INPUT K";K:POKE 32271, K:P0KE 32272,0 
INPUT" INPUT PHIGH " ; I : P0KE3 226 1,1: POKE3 226 2 , 1 
INPUT" INPUT PWIDE" ; I : P0KE3 2263 , 1 : POKE3 226 4 , 1 
Z=USR(0) 

110 INPUT"ENTER THE DOMAIN" ;A1 ,A2 
120 I1=INT(I6*(A1+H) +P5) : I2=INT( 16* ( A2+H) +P5) 
130 FOR U=I1 TO I2:P0KE 32273, U.-POKE 32274,0 
140 V=INT(I8*(K+2*(U/I6-H) -3) +P5) 

150 IFV<0 OR V> V5 THEN 210ELSEPOKE32275 , V: P0KE32276 ,0 : Z=USR( 1) 
IF 1=11 THEN 210 
IF ABS(T-V)<3 THEN 210 
IF T>V THEN J1=V+1: J2=T-1 
IF T<V THEN J1=T+1: J2=V-1 

FOR I3=J1 TO J2 STEP 2 : P0KE32275, V: P0KE32276 , : Z=USR( 1) 
210 T=V 
220 NEXT U 
225 Z=USR(2) 
230 END 



90 



160 
170 

180 
190 
200 
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Part II 
Tiger Graphics with Pascal-80 

Pascal-80 is a standard version of 
Pascal. It has omitted a few features of 
standard Pascal, but the omissions are 
offset by several extra, very useful 
features. 

The system operates under TRSDOS 
and NEWDOS40, but not NEW- 
DOS80. Pascal-80 is distributed 



through TSE-Hardside, 6 South Street, 
Milford, NH 03055 and costs $99.95. 

The manual provided with Pascal-80 
is brief; in fact, it is too brief. Because 
of the minimal documentation, the best 
way to become familiar with Pascal-80 
is to select a book on standard Pascal 
and to try each feature. However, even 
this method has its problems. For exam- 
ple, in the section describing the exten- 



sions to standard Pascal, the Call func- 
tion is described: 

CALL(ADDRESS, VALUE) places a value (0- 
255) into the A register, and calls the address. It 
returns the contents of the A register after the call 
(type INTEGER). 

However, the manual fails to give the 
very important information that if a 
machine-language subprogram uses the 



0000 


PROGRAM TABS; 


0003 


VAR X: ARRAY ( .1..55.) OF CHAR; 


0016 


BEGIN 


001B 


CLS; 


001C 


X:=' 123 4567 8901234567 8901234567 890123 4567 890123 4567 890123 45'; 


005A 


WRITELN(X) ; 


006B 


WRITELN(CHR(201) , 'A' ,CHR(201) ,'B 1 ,CHR(201) , f C) 


0089 


END. 




Program Listing 7 













Program Listing 8 








00010 


;TIGERPAS 










00020 


; BARBARA CLINGER 








00030 


; DEPARTMENT OF 


MATHEMATICS 






00040 


;WHEATON COLLEGE 








00050 


; NORTON 


, MASS. 


02766 








00060 


i 












00070 


;TO OPERATE FROM PASCAL-i 


30 PROGRAMS 






00080 


;JULY 2 


, 1982 










00090 


i 








F500 




00100 




ORG 


0F500H 




F500 


C321F5 


00110 




JP 


START 




F503 




00120 


PHIGH 


EQU 


$ 


NO. OF UNITS FOR Y-AXIS 


F505 




00130 


PWIDE 


EQU 


$+2 


NO. OF UNITS FOR X-AXIS 


F507 




00140 


H0 


EQU 


$+4 


FIRST COORDINATE OF ORIGIN 


F509 




00150 


K0 


EQU 


$+6 


SECOND COORDINATE OF ORIGIN 


F50B 




00160 


U 


EQU 


$+8 


1ST COORD. OF POINT TO PLOT 


F50D 




00170 


V 


EQU 


$+10 


2ND COORD. OF POINT TO PLOT 


F50F 




00180 


PAGEH 


EQU 


$+12 


#OF DOTS FOR Y-AXIS 


F511 




00190 


PAGEW 


EQU 


$+14 


# OF DOTS FOR X-AXIS 


F513 




00200 


TEMP 


EQU 


$+16 




F515 




00210 


QUOT 


EQU 


$+18 




F517 




00220 


RMDER 


EQU 


$+20 




F519 




00230 


LINES 


EQU 


$+22 


# OF LINES IN A PAGE 


0012 




00240 


18 


EQU 


18 


# OF DOTS PER (1/4) IN. VERTICAL 


0010 




00250 


16 


EQU 


16 , 


# OF DOTS PER (1/4) IN HORIZONTAL 


0006 




00260 


DOTS 


EQU 


6 


# DOTS PER 1 PASS PRINT HEAD : 


D000 




00270 


PAGE 


EQU 


0D000H 




001E 




00280 




DEFS 


30 








00290 


; FIRST 


PART OF PROGRAM I 


)ECIDES WHICH PORTION OF PROGRAM 






00300 


; TO EXECUTE — 


= ZERO TI 


IE PAGE 






00310 






1=DRAW TI 


IE AXES 






00320 






2=PLOT PC 


)INT (U,V) 






00330 






3=SEND PI 


\GE TO PRINTER 


F521 


FE00 


00340 


START 


CP 







F523 


C22AF5 


00350 




JP 


NZ,NOTZEI 


I ;JUMP IF NOT ZERO 


F526 


CD40F5 


00360 




CALL 


ZERO 




F529 


C9 


00370 




RET 




Listing 8 continues 
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Listing 8 conti 


ued 












F52A 


FE01 


00380 


NOTZEF 


CP 


1 


; COMPARE IT TO ONE 


F52C 


C233F5 


00390 




JP 


NZ r NOTONE 


;JUMP IF NOT ONE 


F52F 


CD90F5 


00400 




CALL 


AXES 




F532 


C9 


00410 




RET 






F533 


FE02 


00420 


NOTONE 


CP 


2 


; COMPARE IT TO TWO 


F535 


C23CF5 


00430 




JP 


NZ,NOTTWO 




F538 


CD48F6 


00440 




CALL 


PLOT 




F53B 


C9 


00450 




RET 






F53C 


CD9EF6 


00460 


NOTTWC 


CALL 


PRINT 


;MUST BE THREE 


F53F 


C9 


00470 




RET 






F540 


00 


00480 


ZERO 


NOP 




; START OF ZERO 






00490 


;ZERO 


SETS ALL 


MEMORY IN PAGE TO ZERO. IT ALSO CALCULATES 






00500 


; SOME 


OF THE VARIABLES FOR 


THE REST OF THE PROGRAM. ZERO 






00510 


;MUST 


BE CALLED 


BEFORE USING OTHER ROUTINES IN THIS 






00520 


; PROGRAM. 






F541 


ED5B03F5 


00530 




LD 


DE, (PHIGH) 




F545 


3E12 


00540 




LD 


A, 18 




F547 


0E00 


00550 




LD 


C,0 




F549 


CD17F7 


00560 




CALL 


MULT 


;FIND PAGEH=I8*PHIGH 


F54C 


220FF5 


00570 




LD 


(PAGEH) ,HL 




F54F 


ED5B05F5 


00580 




LD 


DE, (PWIDE) 




F553 


3E10 


00590 




LD 


A, 16 




F555 


0E00 


00600 




LD 


C,0 




F557 


CD17F7 


00610 




CALL 


MULT 


;FIND PAGEW=I6*PWIDE 


F55A 


2211F5 


00620 




LD 


(PAGEW) ,HL 




F55D 


2A0FF5 


00630 




LD 


HL f (PAGEH) 


;FIND NUMBER OF LINES 


F560 


7C 


00640 




LD 


A,H 


;IN PAGE=# DOTS VERTICAL 


F561 


4D 


00650 




LD 


C,L 


; DIVIDED BY DOTS, ROUND 


F562 


110600 


00660 




LD 


DE,DOTS 


;UP IF NECESSARY 


F565 


CD01F7 


00670 




CALL 


DIVIDE 




F568 


57 


00680 




LD 


D f A 




F569 


59 


00690 




LD 


E,C 


;QUOT INTO DE 


F56A 


7D 


00700 




LD 


A,L 


;SEE IF RMDER IS ZERO 


F56B 


B4 


00710 




OR 


H 




F56C 


FE00 


00720 




CP 







F56E 


CA72F5 


00730 




JP 


Z, LINER 


;IF RMDER=0, LINES=QUOT 


F571 


13 


00740 




INC 


DE 


; OTHERWISE LINES=QUOT+l 


F572 


ED5319F5 


00750 


LINER 


LD 


(LINES) ,DE 




F576 


2A11F5 


00760 




LD 


HL , ( PAGEW) 


;FIND NO. OF BYTES IN 


F579 


7D 


00770 




LD 


A,L 


;PAGE = (LINES) *( PAGEW) 


F57A 


4C 


00780 




LD 


C,H 




F57B 


ED5B19F5 


00790 




LD 


DE r (LINES) 




F57F 


CD17F7 


00800 




CALL 


MULT 


; (HL)=( LINES) *( PAGEW) 


F582 


44 


00810 




LD 


B,H 




F583 


4D 


00820 




LD 


C,L 




F584 


2100D0 


00830 




LD 


HL,PAGE 


;ZERO THE PAGE 


F587 


3600 


00840 


ZLOOP 


LD 


(HL) ,0 




F589 


23 


00850 




INC 


HL 




F58A 


0B 


00860 




DEC 


BC 




F58B 


78 


00870 




LD 


A,B 




F58C 


Bl 


00880 




OR 


C 




F58D 


20F8 


00890 




JR 


NZ f ZLOOP 


;SEE IF PAGE IS ZEROED 


F58F 


C9 


00900 




RET 






F590 


00 


00910 


AXES 


NOP 




; BEGIN OF AXES 






00920 


;THIS 


DRAWS THE 


COODINATE AXES WITH ORIGIN (H0,K0) 






00930 


;THE X 


-AXIS IS 


I8*K0 UNITS 


UP FROM BOTTOM OF PAGE 






00940 


;THE Y 


-AXIS IS 


I6*H0 UNITS 


FROM LEFT OF PAGE 






00950 


; HASH 


MARKS ARE 


MADE EVERY 


16 DOTS ON X-AXIS AND EVERY 






00960 


;I8 DOTS ON THE 


Y-AXIS 




F591 


ED5B09F5 


00970 


XAXIS 


LD 


DE, (K0) 




F595 


3E12 


00980 




LD 


A, 18 




F597 


0E00 


00990 




LD 


C r 




F599 


CD17F7 


01000 




CALL 


MULT 




F59C 


220DF5 


01010 




LD 


(V) ,HL 


; (HL)=I8*K0=UNITS UP 


F59F 


2A11F5 


01020 




LD 


HL , ( PAGEW) 




F5A2 


2B 


01030 




DEC 


HL 


Listing 8 continues 
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IX register, it is necessary to save the 
value in the register upon entry into the 
subprogram and to restore it before re- 
turning to the calling program. 

Another item not in the manual is the 
ability to use CHR to perform a tab — 
similar to its use in Tiny Pascal and Ba- 
sic. Specifically, a tab on the video 
screen is accomplished by using the con- 
trol codes 192-255 as follows: If x is an 
integer from 192-255 (inclusive), then 
the command CHR(x) in a write state- 
ment causes the cursor to be moved X 
spaces to the right. That is, CHR(192) 
does not move the cursor, CHR(193) 
moves the cursor one place right, 
CHR(194) moves it two places to the 
right, and so forth. In Tabs (Program 
Listing 7) an example of using tabs is 
given. It illustrates printing in columns 
10, 20, and 30. 

At the left of each line in the Pas- 
cal-80 listing there is a hexadecimal 
number. It gives the number of bytes of 
code compiled to that point. Although 
these are not real line numbers, at times 
I will refer to specific lines in a program 
using these numbers. 

Changes to Tigergraph 

The changes to adapt Tigergraph to 
be used with a Pascal-80 program result 
from the differences in the Call com- 
mands between Basic and Pascal-80. 
Recall that in the Level II and Disk Ba- 
sic, the argument of the Call command 
must be in the range from - 32,786 to 
32,767 inclusive, and it is passed into the 
HL register pair by the special ROM 
Call— Call 0A7FH. In Pascal-80 the ar- 
gument must be in the range from 0-255 
inclusive, and it is automatically placed 
in the A register. 

In the Tigerpas listing (Program List- 
ing 8), the variables are defined in the 
first few lines of the program. The short 
routine immediately following the defi- 
nitions of the variables gives Tigerpas a 
single entry point. The origin of Tiger-, 
pas is 0F500H (decimal 62,720) and this 
address is used in the Call command 
from a Pascal-80 program. Just as in a 



POKE statement in Basic, when an ad- 
dress is greater than 32767, the address 
is calculated by -(65536 -real 
address). Thus, the address used in a 
Pascal-80 program for Tigerpas is 
-(65536-62720)= -2816. 

In the Pascal-80 programs, the con- 
stant TIGER = -2816 is defined and 
the Call to Tigerpas has the form Z: = 
CALL(TIGER,N) 0<N<3. The argu- 
ment N is placed in the A register and 
Tigerpas begins execution at Start. 
The value of N determines which sub- 
routine in Tigerpas is to be used. 

If N = 0, the Zero subprogram is 
called and the memory-page block is set 
to zero. (Page is defined in Part I to be 
the memory area for the graph.) This 
routine also initializes variables for the 
remaining subroutines and must be 
called first. 

If N = 1 , the Axes subprogram is exe- 
cuted and the x-y coordinate axes are in- 
serted into page. Zero and Axes were 
one subroutine in Tigergraphics. 

If N =2, the Plot subprogram is exe- 
cuted and a point is inserted into the 
page. Prior to making this Call, the val- 
ues of U and V must be POKEd into 
their respective locations in memory. 
The ROM Call 022CH has been added 
to Plot. This ROM routine blinks an as- 
terisk on the screen in the upper right 
hand corner of the monitor. The pur- 
pose of this call is to provide a signal 
during the execution that the program is 
running and has not wandered off into 
the nether world. Care should be used 
with this ROM Call since it uses all 
registers. 

If N = 3, the Print subprogram is exe- 
cuted and the page is sent to the printer. 

The last chances in Tigergraph were 
made to adapt Tigerpas so it could be 
used with other dot-matrix printers with 
graphics capabilities. These changes al- 
low flexibility in the number of dots per 
unit on the x-y coordinate axes and the 
number of vertical dots printed by a sin- 



gle pass of the print head. 

Memory Allocations 

Pascal-80 resides in memory from 
21,760-40,639 (5500H-9EBFH). Pro- 
grams are stored beginning at 40,704 
(9F00H) in what I assume is the text- 
editor buffer area, and compiled pro- 
grams are stored immediately after that 
area. The placement of the Page and the 
machine-language program Tigerpas is 
made in such a way to maximize the 
memory available to Pascal-80 pro- 
grams. In particular, Tigerpas begins at 
62,720 (F500H) and the page starts at 
53,248 (D000H). This choice for the 
page results from the memory require- 
ment for a 14-by-14 page (9,408 bytes). 

If these allocations result in problems 
for the Pascal programs, there are two 
options: 

Reduce the size of the page and in 
Tigerpas equate page to the appropriate 
larger number, or 

Save and run the Pascal programs us- 
ing the W and X commands. The W 
command from the monitor saves a ma- 
chine-code "object" program file, and 
the X command executes an object pro- 



DOG GOT CAT AT ( 0,5.5999999999997) 
VELOCITY OF DOG: 2 VELOCITY OF CAT: 0.: 
ORIGIN AT ( 1,1) 
PHIGH: 9 PWIDE: 14 

Figure 21 
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CAT GOT TO THE TREE 

VELOCITY OF DOG: 2 VELOCITY OF CAT 

ORIGIN AT (1,1) 

PHIGH: 9 PWIDE: 14 
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Listing 8 continued 












F5A3 


220BF5 


01040 




LD 


(U) ,HL 


;U RANGES FROM (PAGEW) TO 


F5A6 


211000 


01050 




LD 


HL, 16 


;ZERO FOR X-AXIS 


F5A9 


2B 


01060 




DEC 


HL 




F5AA 


E5 


01070 




PUSH 


HL 




F5AB 


CD48F6 


01080 


XLOOP 


CALL 


PLOT 




F5AE 


El 


01090 




POP 


HL 




F5AF 


7D 


01100 




LD 


A,L 




F5B0 


FE00 


01110 




CP 







F5B2 


CAB9F5 


01120 




JP 


Z, LOOPX 




F5B5 


2B 


01130 




DEC 


HL 




F5B6 


C3D9F5 


01140 




JP 


TESTU 




F5B9 


2A0DF5 


01150 


LOOPX 


LD 


HL, (V) 




F5BC 


2B 


01160 




DEC 


HL 




F5BD 


220DF5 


01170 




LD 


(V) f HL 




F5C0 


CD48F6 


01180 




CALL 


PLOT 




F5C3 


2A0DF5 


01190 




LD 


HL, (V) 




F5C6 


23 


01200 




INC 


HL 




F5C7 


23 


01210 




INC 


HL 




F5C8 


220DF5 


01220 




LD 


(V) f HL 




F5CB 


CD48F6 


01230 




CALL 


PLOT 




F5CE 


2A0DF5 


01240 




LD 


HL,(V) 




F5D1 


2B 


01250 




DEC 


HL 




F5D2 


220DF5 


01260 




LD 


(V) ,HL 




F5D5 


211000 


01270 




LD 


HL, 16 




F5D8 


2B 


01280 




DEC 


HL 




F5D9 


E5 


01290 


TESTU 


PUSH 


HL 




F5DA 


2A0BF5 


01300 




LD 


HL,(U) 




F5DD 


7D 


01310 




LD 


A,L 




F5DE 


B4 


01320 




OR 


H 




F5DF 


FE00 


01330 




CP 







F5E1 


CAEBF5 


01340 




JP 


Z , ENDX 




F5E4 


2B 


01350 




DEC 


HL 




F5E5 


220BF5 


01360 




LD 


(U) ,HL 




F5E8 


C3ABF5 


01370 




JP 


XLOOP 




F5EB 


El 


01380 


ENDX 


POP 


HL 




F5EC 


ED5B07F5 


01390 


YAXIS 


LD 


DE f (H0) 




F5F0 


3E10 


01400 




LD 


A, 16 




F5F2 


0E00 


01410 




LD 


C,0 




F5F4 


CD17F7 


01420 




CALL 


MULT 




F5F7 


220BF5 


01430 




LD 


(U) ,HL 


; (HL) =I6*H0=UNITS LEFT 


F5FA 


2A0FF5 


01440 




LD 


HL, (PAGEH) 


;V RANGES FROM (PAGEH) TO 


F5FD 


2B 


01450 




DEC 


HL 


;ZERO FROM Y-AXIS 


F5FE 


220DF5 


01460 




LD 


(V) ,HL 




F601 


211200 


01470 




LD 


HL,I8 




F604 


2B 


01480 




DEC 


HL 




F605 


E5 


01490 




PUSH 


HL 




F606 


CD48F6 


01500 


YLOOP 


CALL 


PLOT 




F609 


El 


01510 




POP 


HL 




F60A 


7D 


01520 




LD 


A,L 




F60B 


FE00 


01530 




CP 







F60D 


CA14F6 


01540 




JP 


Z , LOOPY 




F610 


2B 


01550 




DEC 


HL 




F611 


C334F6 


01560 




JP 


TESTV 




F614 


2A0BF5 


01570 


LOOPY 


LD 


HL,(U) 




F617 


2B 


01580 




DEC 


HL 




F618 


220BF5 


01590 




LD 


(U) ,HL 




F61B 


CD48F6 


01600 




CALL 


PLOT 




F61E 


2A0BF5 


01610 




LD 


HL,(U) 




F621 


23 


01620 




INC 


HL 




F622 


23 


01630 




INC 


HL 




F623 


220BF5 


01640 




LD 


(U) ,HL 




F626 


CD48F6 


01650 




CALL 


PLOT 




F629 


2A0BF5 


01660 




LD 


HL,(U) 




F62C 


2B 


01670 




DEC 


HL 




F62D 


220BF5 


01680 




LD 


(U) ,HL 




F630 


211200 


01690 




LD 


HL,I8 




F633 


2B 


01700 




DEC 


HL 


Listing 8 continues 
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Listing 8 continued 












F634 


E5 


01710 


TESTV 


PUSH 


HL 




F635 


2A0DF5 


01720 




LD 


HL,(V) 




F638 


7D 


01730 




LD 


A,L 




F639 


B4 


01740 




OR 


H 




F63A 


FE00 


01750 




CP 







F63C 


CA46F6 


01760 




JP 


Z , ENDY 




F63F 


2B 


01770 




DEC 


HL 




F640 


220DF5 


01780 




LD 


(V) ,HL 




F643 


C306F6 


01790 




JP 


YLOOP 




F646 


El 


01800 


ENDY 


POP 


HL 




F647 


C9 


01810 




RET 




;END OF AXES 


F648 


DDE5 


01820 


PLOT 


PUSH 


IX 


; BEGIN OF PLOT 






01830 


;THIS 


ROUTINE 


INSERTS POINT (U 


,V) INTO PAGE. VALUES 






01840 


;FOR U 


AND V 


MUST BE INSERTED 


INTO (U) AND (V) PRIOR 






01850 


;TO CALLING THIS ROUTINE. 




F64A 


CD2C02 


01860 




CALL 


022CH 


; CAUSES * TO BLINK 


F64D 


2A0DF5 


01870 




LD 


HL, (V) 


;LOAD V INTO HL 


F650 


7C 


01880 




LD 


A f H 


;TO PLOT (U,V) —DIVIDE V 


F651 


4D 


01890 




LD 


C,L 


;BY DOTS, GET Q AND R THEN 


F652 


1E06 


01900 




LD 


E f DOTS 


;SET BIT R IN BYTE 


F654 


1600 


01910 




LD 


D,0 


; PAGE+Q* ( PAGEW) +U 


F656 


CD01F7 


01920 




CALL 


DIVIDE 




F659 


57 


01930 




LD 


D f A 




F65A 


59 


01940 




LD 


E,C 




F65B 


ED5315F5 


01950 




LD 


(QUOT) ,DE 


;SAVE Q 


F65F 


2217F5 


01960 




LD 


(RMDER) ,HL 


;SAVE R 


F662 


3A11F5 


01970 




LD 


A, (PAGEW) 




F665 


0E00 


01980 




LD 


C,0 


; DIVISOR IN DE 


F667 


ED5B15F5 


01990 




LD 


DE, (QUOT) 


;ON EXIT QUOTIENT IN AD 


F66B 


CD17F7 


02000 




CALL 


MULT 


; REMAINDER IN HL 


F66E 


ED4B0BF5 


02010 




LD 


BC f (U) 




F672 


09 


02020 




ADD 


HL,BC 




F673 


0100D0 


02030 




LD 


BC,PAGE 




F676 


09 


02040 




ADD 


HL,BC 


;ADD ADDR OF PAGE 


F677 


2213F5 


02050 




LD 


(TEMP) ,HL 




F67A 


DD2A13F5 


02060 




LD 


IX, (TEMP) 




F67E 


210600 


02070 




LD 


HL,DOTS 


;DOTS-l =# PRINT NEEDLES 


F681 


2B 


02080 




DEC 


HL 




F682 


ED5B17F5 


02090 




LD 


DE, (RMDER) 


; 5- (RMDER) DETERMINES 


F686 


A7 


02100 




AND 


A 


; WHICH BIT TO SET 


F687 


ED52 


02110 




SBC 


HL,DE 




F689 


1601 


02120 




LD 


D,l 




F68B 


7D 


02130 




LD 


A,L 




F6 8C 


B7 


02140 




OR 


A 




F68D 


2805 


02150 




JR 


Z, RDONE 


;GO NO MORE ROTATES 


F68F 


47 


02160 




LD 


B,A 




F690 


CB22 


02170 


RLOOP 


SLA 


D 


; ROTATE TO SET BIT 


F692 


10FC 


02180 




DJNZ 


RLOOP 




F694 


DD7E00 


02190 


RDONE 


LD 


A r (IX) 


;GET CONTENTS OF BYTE 


F697 


B2 


02200 




OR 


D 


; INSERT NEW INFO IN BYTE 


F698 


DD7700 


02210 




LD 


(IX) ,A 


; STORE BACK INTO BYTE 


F69B 


DDE1 


02220 




POP 


IX 




F69D 


C9 


02230 




RET 




;END OF PLOT 


F69E 


3E03 


02240 


PRINT 


LD 


A,3 


;PUT 445 INTO GRAPHICS 


F6A0 


CDF6F6 


02250 




CALL 


OUTCHR 


;SEND 3 


F6A3 


0E00 


02260 




LD 


C,0 




F6A5 


ED5B03F5 


02270 




LD 


DE,(PHIGH) 




F6A9 


CD17F7 


02280 




CALL 


MULT 




F6AC 


2B 


02290 


PLOOP 


DEC 


HL 


; COUNTER VERTICALLY IS 


F6AD 


220BF5 


02300 




LD 


(U) ,HL 


; (U)=3*(PHIGH) -1 


F6B0 


EB 


02310 




EX 


DE,HL 




F6B1 


2A11F5 


02320 




LD 


HL, (PAGEW) 




F6B4 


7D 


02330 




LD 


A,L 




F6B5 


4C 


02340 




LD 


C,H 




F6B6 


CD17F7 


02350 




CALL 


MULT 


; (HL)=U*( PAGEW) 


F6B9 


1100D0 


02360 




LD 


DE,PAGE 


Listing 8 continues 
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gram created by the W command. This 
gives maximum memory during execu- 
tion since the system loads the program 
into memory on top of the compiler and 



monitor sections of Pascal-80. 

To get a rough idea of the memory 
requirements of a Pascal-80 program, 
consider the program Liner (Program 



Listing 9). This program has approxi- 
mately 70 lines of text, not counting the 
blank lines used for cosmetic spacing. 
The text of Liner is from 40,704-43,362 



Listing 8 continued 












F6BC 19 


02370 




ADD 


HL,DE 


; (HL) =PAGE+U*(PAGEW) 


F6BD 110000 


02380 




LD 


DE,0 


;IS THE COUNTER ACROSS 


F6C0 7E 


02390 


GETCHR 


LD 


A,(HL) 




F6C1 FE03 


02400 




CP 


3 


;IF CHAR=3, SEND IT TWICE 


F6C3 CCF6F6 


02410 




CALL 


Z, OUTCHR , 


SEND CHARACTER 


F6C6 CDF6F6 


02420 




CALL 


OUTCHR , 


SEND CHARACTER 


F6C9 13 


02430 




INC 


DE 


INCREASE POINTER 


F6CA 23 


02440 




INC 


HL 


INCREASE POINTER 


F6CB E5 


02450 




PUSH 


HL 


SAVE POINTER 


F6CC 2A11F5 


02460 




LD 


HL r (PAGEW) 


CHECK-SEE IF LINE DONE 


F6CF 2B 


02470 




DEC 


HL 




F6D0 A7 


02480 




AND 


A 




F6D1 ED52 


02490 




SBC 


HL,DE 




F6D3 7C 


02500 




LD 


A,H 




F6D4 B5 


02510 




OR 


L 




F6D5 El 


02520 




POP 


HL 




F6D6 C2C0F6 


02530 




JP 


NZ, GETCHR 


CONTINUE IF NOT DONE 


F6D9 3E03 


02540 




LD 


A, 3 


SEND END OF LINE SIGNAL 


F6DB CDF6F6 


02550 




CALL 


OUTCHR 




F6DE 3E0B 


02560 




LD 


A,0BH 




F6E0 CDF6F6 


02570 




CALL 


OUTCHR 




F6E3 2A0BF5 


02580 




LD 


HL, (U) 


CHECK-SEE IF PAGE DONE 


F6E6 7C 


02590 




LD 


A,H 




F6E7 B5 


02600 




OR 


L 




F6E8 C2ACF6 


02610 




JP 


NZ , PLOOP j 


CONTINUE IF NOT DONE 


F6EB 3E03 


02620 


DONE 


LD 


A, 3 j 


SIGNAL TO EXIT GRAPHICS 


F6ED CDF6F6 


02630 




CALL 


OUTCHR 




F6F0 3E02 


02640 




LD 


A, 2 




F6F2 CDF6F6 


02650 




CALL 


OUTCHR 




F6F5 C9 


02660 




RET 




RET TO CALLING PROG. 


F6F6 F5 


02670 


OUTCHR 


PUSH 


AF 


SUBR TO SEND CHAR 


F6F7 CDD105 


02680 


CHCKP 


CALL 


5D1H 


CHECK STATUS OF PRINTER 


F6FA 20FB 


02690 




JR 


NZ, CHCKP 


WAIT IF NOT READY 


F6FC Fl 


02700 




POP 


AF 




F6FD 32E837 


02710 




LD 


(37E8H) ,A 


SEND IT 


F700 C9 


02720 




RET 




RET TO PRINT 


F701 210000 


02730 


DIVIDE 


LD 


HL,0 


FROM ZAKS 


F704 0610 


02740 




LD 


B,16 


ON ENTRY DIVIDEND IN AC 


F706 CB11 


02750 


DLOOP 


RL 


C 


DIVISOR IN DE 


F708 17 


02760 




RLA 




ON EXIT QUOTIENT IN AC 


F709 ED6A 


02770 




ADC 


HL,HL 


REMAINDER IN HL 


F70B ED52 


02780 




SBC 


HL,DE 




F70D 3001 


02790 




JR 


NC,$+3 




F70F 19 


02800 




ADD 


HL r DE 




F710 3F 


02810 




CCF 






F711 10F3 


02820 




DJNZ 


DLOOP 




F713 CB11 


02830 




RL 


C 




F715 17 


02840 




RLA 






F716 C9 


02850 




RET 




•END OF DIVIDE SUBROUTINE 


F717 0610 


02860 


MULT 


LD 


B,16 


•FROM ZAKS 


F719 210000 


02870 




LD 


HL,0 


•ON ENTRY (A)=LSB MULTCND 


F71C CB39 


02880 


MLOOP 


SRL 


C 


; (C) =MSB MULTCND 


F71E IF 


02890 




RRA 




; (DE)=MULTIPLIER 


F71F 3001 


02900 




JR 


NC,MLOOPl 


;ON EXIT (HL)=PRODUCT 


F721 19 


02910 




ADD 


HL r DE 




F722 EB 


02920 


MLOOP1 


EX 


DE,HL 




F723 29 


02930 




ADD 


HL,HL 




F724 EB 


02940 




EX 


DE,HL 




F725 10F5 


02950 




DJNZ 


MLOOP 




F727 C9 


02960 




RET 


;END OF 1 


WJLT SUBROUTINE 


0000 


02970 




END 






00000 TOTAL 


ERRORS 
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Program Listing 9 

0000 PROGRAM LINER; 

0003 CONST TIGER=-2816;ADRU=-2805;ADRV=-2803; 
000C I6=16;I8=18; 

000C VAR I r J,U,V f Z, WIDTH, HEIGHT, H0,K0, INCREMENT: INTEGER; 
0034 Hl,Kl,X,Y:REAL; 

004 4 ANSWER: CHAR; 
0048 

0048 PROC INIT(VAR PWIDE,PHIGH,H0 ,K0 : INTEGER) ; 

0061 CONST ADRH0=-2809;ADRK0=-2807;ADRPHIGH=-2813;ADRPWIDE=-2811; 

0062 BEGIN 

0067 WRITELN('HOW MANY UNITS FOR X-AXIS AND FOR Y-AXIS'); 

009C READ(PWIDE,PHIGH) ; 

00A9 POKE(ADRPHIGH,PHIGH) ; POKE ( ADRPHIGH+1 ,0) ; 

00BC POKE(ADRPWIDE,PWIDE) ; POKE (ADRPWIDE+1 ,0) ; 

00CF WRITELN( 'ENTER H0 AND K0 TO PLACE THE ORIGIN'); 

00FF READ(H0,K0) ; 

010C POKE(ADRH0,H0) ; POKE ( ADRH0+1 , 0) ; 

011F POKE(ADRK0,K0) ; POKE ( ADRK0+1 , 0) 

0132 END; (*INIT*) 
0133 

0133 FUNC MIN(X,Y: INTEGER) : INTEGER; 
013F BEGIN 

0145 IF X<Y THEN MIN:=X ELSE MIN:=Y 

0169 END; (*MIN*) 

016C 

016C FUNC MAX(X,Y: INTEGER) -.INTEGER; 

017 8 BEGIN 

017E IF X<Y THEN MAX:=Y ELSE MAX:=X 

01A2 END; (*MAX*) 

01A5 

01A5 PROC FILL(X,Y:INTEGER) ; 

01B1 VAR A1,A2,V: INTEGER; 

01BE BEGIN 

01C3 A1:=MAX(MIN(X,Y) ,0)+l; 

01E0 A2:=MIN(MAX(X,Y) , HEIGHT) -1; 

0201 V:=A1; 

020B WHILE V<=A2 DO 

021A BEGIN 

021A POKE(ADRV,V) ; POKE(ADRV+l ,0) ; 

022D V:=V+2; 

023C Z:=CALL(TIGER,2) 

0246 END 

0248 END;(*FILL*) 

024C 

024C PROC LINE; 

0250 VAR Al,A2,U,V,OLDV: INTEGER; 

0265 X1,Y1,X2,Y2,M,B:REAL; 

027D BEGIN 

0282 WRITELN( 'ENTER COORDINATES OF FIRST POINT'); 

02AF READ(X1,Y1); 

02BC WRITELN( 'ENTER COORDINATES OF SECOND POINT'); 

02EA READ(X2,Y2) ; 

02F7 WHILE (X10X2) OR (YlOY2) DO 

0313 BEGIN 

0313 IF Y1=Y2 THEN INCREMENT: =2 ELSE INCREMENT: =1; 

0335 IF (X10X2) THEN 

0344 BEGIN 

0344 Al : =MIN( ROUND ( 16 *(X1+H0) ) , ROUND ( 16* (X2+H0) ) ) ; 

0373 A2 : =MAX( ROUND ( 16 *(X1+H0) ) ,ROUND( 16* (X2+H0) ) ) ; 

03A2 M:=(Y1-Y2)/(X1-X2) ; 

03C1 B:=(X1*Y2-X2*Y1)/(X1-X2) ; 

03EE U:=A1; 

03F8 WHILE U<=A2 DO 

0407 BEGIN 

0407 V:=ROUND(I8*(K0+M*(U/I6-H0) +B) ) ; 

0439 IF (V>=0) AND (V<=HEIGHT) THEN 

Listing 9 continues 
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Listing 9 continued 



0451 BEGIN 

0451 IF V=HEIGHT THEN V:=HEIGHT-1; 

046F POKE(ADRU,U) ; P0KE(ADRU+1 ,0) ; 

0482 POKE(ADRV,V) ; POKE( ADRV+1 ,0) ; 

0495 Z:=CALL(TIGER,2) 

04 9F END; 

04A1 IF(U =A1) THEN OLDV:=V; 

04BA IF(ABS(V-OLDV) >3) THEN FILL(V,OLDV) ; 

04DD U:=U+ INCREMENT; 

04EE OLDV:=V 

04F6 END 

04F8 END 

04FB ELSE 

04FE BEGIN 

04FE U:=ROUND(I6*(X1+H0) ) ; 

0516 IF U=WIDTH THEN U:=U-2; 

0534 POKE(ADRU,U) ; P0KE(ADRU+1 ,0) ; 

0547 FILL(ROUND(I8*(Y1+K0) ) , ROUND( 18* (Y2+K0) ) ) 

057 END; 

0570 X1:=X2;Y1:=Y2; 

0584 WRITELN( 'ENTER NEXT POINT — TO END THIS SEQUENCE OF LINES'); 

05C0 WRITELN( 'ENTER THE SAME POINT TWICE'); 

05E7 READ(X2,Y2) 

05F4 END 

05F4 END; (*LINE*) 

05F8 

05F8 BEGIN 

05F8 WRITELN( 'THIS PROGRAM ALLOWS YOU TO DRAW A SEQUENCE OF'); 

0632 WRITELN( 'LINES. TO END A SEQUENCE, ENTER THE SAME POINT'); 

066D WRITELN( 'TWICE. THEN YOU HAVE THE OPTION OF STARTING A'); 

06A7 WRITELN('NEW SEQUENCE OF LINES OR PRINTING THE GRAPH'); 

06DF INIT(WIDTH, HEIGHT, H0,K0) ; 

06EE WIDTH:=I6*WIDTH; HEIGHT: =I8*HEIGHT; 

070C Z :=CALL( TIGER, 0) ; 

0716 WRITELN('DO YOU WANT AXES DRAWN (Y OR N) ' ) ; 

0742 REPEAT ANSWER: =INKEY UNTIL ANSWEROCHR( 0) ; 

0756 IF ANSWER = 'Y' THEN Z : =CALL (TIGER, 1) ; 

076F LINE; 

0772 REPEAT 

0772 BEGIN 

0772 WRITELN('DO YOU WANT TO DO ANOTHER SEQUENCE OF LINES?'); 

07AB WRITELN('(Y OR N) — N PRINTS THE PAGE AND ENDS THIS'); 

07E1 WRITELN( 'PROGRAM. ') ; 

07F6 REPEAT ANSWER: =INKEY UNTIL ANSWEROCHR( 0) ; 

080A IF ANSWER='Y' THEN LINE; 

081 A END; 

081A UNTIL ANSWER='N' ; 

0827 Z:=CALL(TIGER,3) 

0831 END. 



Program Listing 10 

J00 PROGRAM SCALER; 

J03 CONST TIGER=-2816;ADRU=-2805;ADRV=-2803; 

J0C 16=16; 18=18; 

J0C TYPE POINT=ARRAY( .1. .2.) OF REAL; 

112 VAR I, J, U,V,Z, WIDTH, HEIGHT, H0,K0,OLDV: INTEGER; 

I3A XSCALER,YSCALER:REAL; 

142 ANSWER: CHAR; 

146 

146 PROC INIT(VAR PWIDE,PHIGH,H0 ,K0: INTEGER) ; 

I5F CONST ADRH0=-2809;ADRK0=-2807;ADRPHIGH=-2813;ADRPWIDE=-2811; 

160 BEGIN 



Listing 10 continues 
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Listing 10 continued 



0065 WRITELN('HOW MANY UNITS FOR X-AXIS AND FOR Y-AXIS'); 

009A READ(PWIDE,PHIGH) ; 

00A7 POKE(ADRPHIGH r PHIGH) ; POKE(ADRPHIGH+l , 0) ; 

00BA POKE(ADRPWIDE,PWIDE) ; POKE(ADRPWIDE+l , 0) ; 

00CD WRITELN( 'ENTER H0 AND K0 TO PLACE THE ORIGIN'); 

00FD READ(H0,K0) ; 

010A POKE(ADRH0,H0) ; POKE( ADRH0+1 , 0) ; 

011D POKE(ADRK0,K0) ; POKE( ADRK0+1 ,0) 

0130 END; (*INIT*) 
0131 

0131 FUNC MIN(X,Y: INTEGER) : INTEGER; 
013D BEGIN 

0143 IF X<Y THEN MIN:=X ELSE MIN:=Y 

0167 END;(*MIN*) 

016A 

016A FUNC MAX(X,Y: INTEGER) : INTEGER; 

0176 BEGIN 

017C IF X<Y THEN MAX:=Y ELSE MAX:=X 

01A0 END; (*MAX*) 

01A3 

01A3 PROC FILL(X,Y:INTEGER) ; 

01AF VAR Al ,A2,V: INTEGER; 

01BC BEGIN 

01C1 Al:=MAX(MIN(X,Y) ,0)+l; 

01DE A2:=MIN(MAX(X,Y) , HEIGHT) -1; 

01FF V:=A1; 

0209 WHILE V<=A2 DO 

0218 BEGIN 

0218 POKE(ADRV r V) ; POKE (ADRV+1 , 0) ; 

022B V:=V+2; 

023A Z:=CALL(TIGER,2) 

0244 END 

0246 END;(*FILL*) 

024A 

024A FUNC F(X:REAL) :REAL; 

0252 BEGIN F: =(X-6) *X* (X+10) 

0276 END; ( *FUNC F*) 

027B 

027B 

027B BEGIN 

027B INIT(WIDTH, HEIGHT, H0,K0) ; 

028A WIDTH :=I6*WIDTH; HEIGHT:=I8*HEIGHT; 

02A8 Z :=CALL( TIGER, 0) ; 

02B2 WRITELN('DO YOU WANT AXES DRAWN (Y OR N) ' ) ; 

02DE REPEAT ANSWER: =INKEY UNTIL ANSWEROCHR( 0) ; 

02F2 IF ANSWER = 'Y' THEN Z : =CALL( TIGER, 1) ; 

030B WRITELN( 'ENTER THE SCALE FACTOR FOR X-AXIS'); 

0339 READ(XSCALER) ; 

0340 WRITELN( 'ENTER THE SCALE FACTOR FOR Y-AXIS'); 
03 6 E READ(YSCALER) ; 

0375 

037 5 FOR U:=0 TO WIDTH DO 

0389 BEGIN 

03 89 V:=ROUND(18*(K0+(1/YSCALER) *F (XSCALER* (U/16-H0) ) ) ) ; 

03C4 IF (V>=0) AND (V<=HEIGHT) THEN 

03DC BEGIN 

03DC POKE(ADRU,U) ; POKE(ADRU+l ,0) ; 

03EF POKE(ADRV,V) ;POKE( ADRV+1 ,0) ; 

0402 Z:=CALL(TIGER,2) 

040C END; 

040E IF U=0 THEN OLDV:=V; 

0423 IF ABS(V-OLDV) >2 THEN FILL(V,OLDV) ; 

0446 OLDV:=V 

044E END; 

0453 Z:=CALL(TIGER,3) 

045D END. 
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Figure 23 

(9F00H-A962H), and its compiled ver- 
sion is from 43,520-45,290 (AA00H- 
BOEAH). This leaves the memory area 
from 45,290 to 53,248 free. All the pro- 
grams in this article fit within these lim- 
its and it is not necessary to use the W 



A and X commands. 

Pascal-80 Programs for Graphing 

In the following Pascal-80 pro- 
grams, certain procedures and func- 
tions are equivalent to segments of 
the Basic programs in Part I. I have 
tried, as much as possible, to keep the 
same names for the variables as in the 
Basic programs. Liner incorporates 
the functions and procedures com- 
mon to the Pascal-80 programs that 
call Tigerpas. These procedures are 
described below. 

Procedure INIT initializes the vari- 
ables. HO, KO, PHIGH, and PWIDE 
have the same meaning as in the Basic 
programs in Part I, namely for the 
placement of the x-y coordinate axes 
and for the number of units for the 
lengths of the x and y axes. Their values 
are entered using a read statement and 
the four values are POKEd into the ap- 
propriate memory locations. The ad- 
dresses for these variables are defined in 



the CONST declaration statement. 

Functions MIN and MAX each have 
two arguments X and Y, and return the 
minimum and maximum of X and Y, 
respectively. 

Procedure Fill is similar to the sub- 
routine in the Basic programs. It is used 
to fill the vertical gaps in graphs that are 
rising or falling rapidly. The statements 
defining the values Al and A2 find the 
vertical range of the v values to be filled 
and keep their values within the boun- 
daries of the page. For example, in find- 
ing the lower limit Al, first find the 
minimum of X = V and Y = OLDV. To 
keep the v values nonnegative, take the 
maximum of the MIN(X,Y) and 0. Sim- 
ilarly, the upper limit A2 is found. The 
Pascal-80 function Round finds the in- 
teger nearest its argument. The equiva- 
lent statement in the Basic programs is 
INT(argument + .5). Once Al and A2 
have been determined, the rest of the 
procedure sends the appropriate values 
to the Plot subroutine. 
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Program Listing II 

PROGRAM DOGCAT; 

CONST TIGER=-2816;ADRU=-2805;ADRV=-2803; 

I6=16;I8=18; 

TYPE POINTS=ARRAY( .1. .2.) OF REAL; 

VAR I,J,U,V,Z,PWIDE,PHIGH , H0 ,K0 ,STOPDOG,STOPCAT: INTEGER ; 

WIDTH , HEIGHT: INTEGER; 
Hl,Kl,Xl,Yl,X2,Y2,K,DOGVELOCITY,CATVELOCITY:REAL; 

DOG , CAT , TREE : POINTS ; 
ANSWER: CHAR; 

PROC INIT; 

CONST ADRH0=-280 9;ADRK0=-2807;ADRPHIGH=-2813;ADRPWIDE=-2811; 

BEGIN 

PWIDE:=14; PHIGH:=9; H0:=1; K0:=1; 

POKE (ADRPHIGH, PHIGH) ; POKE( ADRPHIGH+1 f 0) ; 

POKE (ADRPWIDE, PWIDE) ; POKE( ADRPWIDE+1 , 0) ; 

POKE(ADRH0 f H0) ; POKE (ADRH 0+1 , 0) ; 

POKE(ADRK0,K0) ; POKE(ADRK0+1 , 0) 
END; (*INIT*) 

FUNC MIN(X ,Y: INTEGER) : INTEGER; 
BEGIN 

IF X<Y THEN MIN:=X ELSE MIN:=Y 
END; (*MIN*) 

FUNC MAX(X,Y: INTEGER) : INTEGER; 
BEGIN 

IF X<Y THEN MAX:=Y ELSE MAX:=X 
END;(*MAX*) 

PROC FILL(X,Y: INTEGER) ; 
VAR Al f A2 f V: INTEGER; 

Listing II continues 
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You could spend hours 
typing in your programs, 

Or you 
could get 




ALL THE MAJOR 

PROGRAM LISTINGS 

FROM EACH MONTH 

OF 80 MICRO ON 

CASSETTE OR DISK 



With LOAD 80 

you'll avoid all the hassles 

while enjoying all the benefits 



•FOR SPECIAL ANNIVERSARY 

ISSUE CASSETTE SEE AD 

ELSEWHERE IN ISSUE. 



What exactly is LOAD 80? Simply put, it is a monthly dump of 
the major program listings in each issue of 80 MICRO. Since it 
was introduced in April of 1981, hundreds of TRS-80* users like 
yourself have discovered the advantages and benefits of LOAD 
80. This comes as no surprise to Wayne Green, the innovative 
publisher who created LOAD 80. He knew from experience how 
frustrating and time consuming it was to keyboard and debug 
even a single published program, let alone all the major pro- 
gram listings in an issue of 80 MICRO. He was sure that a great 
many people were just as frustrated as he was and would jump 
at the opportunity to have those programs available in "ready- 
to-load" form. 

Wayne couldn't have been more right. LOAD 80 has been a 
boom to TRS-80 users, allowing them to spend more time ac- 
tually using their computers, while at the same time saving 
them a lot of aggravation and a good deal of money. 



And now you can enjoy all the benefits of the major program 
listings in 80 MICRO without the aggravation of kevboarding 
and debugging them. Start your subscription to LOAD 80 with 
this month's issue and save close to 30% on the monthly price. 
And with a year's subscription, your cost per month (for an 
average of 10 programs per cassette or disk) is about what it 
would cost you to purchase one program at retail prices. Plus 
you get the extra added advantage of having the complete 
documentation for the major programs in that month's issue of 
80 MICRO, so loading your cassette or booting up your disk 
should present no problem at all. 

To order your LOAD 80 subscription, or this month's issue 
only, simply fill in the attached card or the coupon below (a pho- 
tocopy is acceptable) and send it to: LOAD 80, 80 Pine Street, 
Peterborough, NH 03458. You can also order back issues of 
LOAD 80. For complete details, look for the LOAD 80 back 
issues advertisement in this magazine, or see your local dealer. 



LOAD 80 disks are TRSDOS 2.3 formatted, single density and floppy-sided. They will not contain an operating system. Sin- 
gle drive users need a copy utility; Model III users need the TRS-DOS 1.2/1.3 Convert utility. Source code files may not be use- 
able on the Model III. 



Yes, I want January LOAD 80 



YES, I want to save money. I'll subscribe to LOAD 80 
on disk beginning with this month's issue. . .$199.97 

YES, I want a cassette of this month's LOAD 80 for 
$9.97 each (plus $1.50 per tape for postage and 
handling). 



Name: 

Address:. 
City: 



D Visa □ Am. Ex □ MasterCard 
n Check/Money order 



I : YES, I want to save money. Sign me up for a year of 
LOAD 80 beginning with this month's cassette. . . 
$99.97 for 12 issues. 

- YES, I want this month's LOAD 80 on disk for $19.97 
each (plus $1.50 per disk for postage and handling). 



.State: 



-Zip: 



Signature: 



_Card# 



Exp. Date: 



LOAD 80 is manufactured by Instant Software, a subsidiary of WAYNE GREEN INC., 
expressed or implied that LOAD 80 will do anything other than save you typing. 



Pine St., Peterborough, NH 03458. There is no warranty 

Foreign air mail, please inquire. 



*TRS-80 is a trademark of Tandy Corp. 
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Listing li continued 






0181 


BEGIN 




0186 


A1:=MAX(MIN(X,Y) r 0) +1 ; 




01A3 


A2:=MIN(MAX(X,Y) ,HEIGHT)-1; 




01C4 


V:=A1; 




01CE 


WHILE V<=A2 DO 




01DD 


BEGIN 




01DD 


POKE(ADRV,V) ; POKE ( ADRV+1 , 0) ; 




01F0 


V: =V+2 ; 




01FF 


Z:=CALL(TIGER,2) 




0209 


END 




020B 


END; (*FILL*) 




020F 






020F 


PROC LINE; 




0213 


VAR Al,A2,U,V,OLDV,I:INTEGER; 




022C 


M , B : REAL ; 




0234 


BEGIN 




0239 


IF (X10X2) THEN 




0248 


BEGIN 




0248 


Al : =MIN( ROUND ( 16 *(X1+H0) ) , ROUND ( 16* (X2+H0) ) ) ; 




0277 


A2:=MAX(ROUND(I6*(X1+H0) ) , ROUND( 16* (X2+H0) ) ) ; 




02A6 


M:=(Y1-Y2)/(X1-X2) ; 




02C5 


B:=(X1*Y2-X2*Y1)/(X1-X2) ; 




02F2 


FOR U:=A1 TO A2 DO 




030A 


BEGIN 




030A 


V:=ROUND(I8*(K0+M*(U/I6-H0)+B) ) ; 




033C 


IF (V>=0) AND (V<=HEIGHT) THEN 




0354 


BEGIN 




0354 


IF V=HEIGHT THEN V:=HEIGHT-1; 




0372 


POKE ( ADRU ,U); POKE ( ADRU+1 , ) ; 




0385 


POKE(ADRV,V) ; POKE( ADRV+1 ,0) ; 




0398 


Z:=CALL(TIGER f 2) 




03A2 


END; 




03A4 


IF(U =A1) THEN OLDV:=V; 




03BD 


IF(ABS(V-OLDV) >2) THEN FILL(V,OLDV) ; 




03E0 


OLDV:=V 




03E8 


END 




03EA 


END 




03ED 


ELSE 




03F0 


BEGIN 




03F0 


U:=ROUND(I6*(X1+H0) ) ; 




0408 


IF U=WIDTH THEN U:=U-2; 




0426 


POKE(ADRU r U) ; POKE (ADRU+1 f 0) ; 




0439 


FILL(ROUND(I8*(Y1+K0) ) r ROUND( 18* ( Y2+K0) ) ) 




0462 


END 




0462 


END; (*LINE*) 




0463 






0463 


PROC MOVE (K:REAL; VAR X r Y:POINTS); 




0473 


VAR M f P,Q r DISTANCE : REAL; 




0484 


BEGIN 




0489 


P:=Y(.1.)-X(.l.) ; Q:=Y(.2.)-X(.2.) ; 




04CB 


DISTANCE: =SQRT(SQR(P) +SQR(Q) ) ; 




04E2 


IF (DISTANCE <= K) THEN 




04F1 


BEGIN 




04F1 


Xl:=Y(.l.) ; Y1:=Y(.2.) ; 




0515 


END 




0515 


ELSE 




0518 


BEGIN 






Listing II 


'ontinues 



356 • 80 Micro, Anniversary 1983 



Listing II continued 



0518 
0529 
0569 
0569 
058D 
0590 
05B2 
05B5 
05B5 
05B5 
05B8 
05D6 
05E0 
060C 
0620 
0639 
0659 
0677 
0697 
06A1 
06AB 
06B7 
06B7 
06F0 
06F9 
070C 
074F 
0759 
076C 
0784 
0790 
0797 
07A4 
07D3 
07 EB 
0815 
0833 
085A 
088C 
08B9 



M:=K/DISTANCE; 

Xl:=X(.l.) + M*P; Y1:=X(.2.) + M*Q; 
END; 
X2:=X(.l.) ; Y2:=X(.2.) ; 
LINE; 

X(.l.) :=X1; X(.2.) :=Y1 
END; (*MOVE*) 

BEGIN 
IN IT; 
WIDTH: =I6*PWIDE; HEIGHT: =I8*PHIGH; 

Z :=CALL( TIGER, 0) ; 

WRITELN( 'DO YOU WANT AXES DRAWN (Y OR N) ' ) ; 

REPEAT ANSWER:=INKEY UNTIL ANSWEROCHR( 0) ; 

IF ANSWER = 'Y 1 THEN Z : =CALL( TIGER, 1) ; 

DOG( .1.) :=13; DOG(.2.):=0; 

CAT(.1.):=0; CAT(.2.):=0; 

TREE(.l.) :=0; TREE(.2.) :=8; 

DOGVELOC I TY : = 2 . ; 

CATVELOCITY : =1 . 5 ; 

STOPDOG:=0; STOPCAT:=0; 

REPEAT 

IF((CAT(.l.)=TREE(.l.)) AND (CAT( . 2 . ) =TREE( . 2 . ) ) ) 
THEN STOPCAT:=l 

ELSE MOVE (DOGVELOCITY f DOG , CAT) ; 

IF(STOPCAT=l)OR((DOG(.l.)=CAT(.l.))AND(DOG(.2.)=CAT(.2.))) 

THEN STOPDOG:=l 
ELSE MOVE (CATVELOCITY, CAT, TREE) ; 
UNTIL (STOPDOG=l) OR (STOPCAT=l); 
Z:=CALL(TIGER,3) ; 



WRITELN(LP) ; 
IF (STOPCATOl 



THEN 



DOG(.2.) :3,') ') 



CAT AT ( ' ,DOG( .1.) :3 



i i 
r r r 



ELSE WRITELN(LP, 'CAT GOT TO THE TREE'); 
WRITELN( LP, 'VELOCITY OF DOG: ', DOGVELOC I TY, 

' VELOCITY OF CAT: ' , CATVELOCITY) ; 
WRITELN(LP, 'ORIGIN AT ( ' ,H0, ' , ' ,K0, ') ') ; 
WRITELN(LP, 'PHIGH: ',PHIGH,' PWIDE: ' ,PWIDE) 
END. 



Procedure Line is designed to draw a 
sequence of connected line segments. 
That is, given a sequence of points PI, 
P2, P3, ...Line draws the line seg- 
ments PI to P2, P2 to P3, and so forth. 
The procedure begins by asking for the 
first two points, and the line segment 
joining these two points is inserted into 
the page. After the line segment is 
drawn, the user is asked for the next 
point in the sequence. If the point en- 
tered is the same as the last point en- 
tered, the procedure ends; otherwise the 
While loop continues and the next line 
segment is drawn. 

Vertical lines and nonvertical lines 
must be done in different cases, just as 



in the Basic programs in Part I. The var- 
iable INCREMENT is assigned a val- 
ue of one or two, according to whether 
or not the line segment is vertical or not 
vertical, respectively. INCREMENT is 
used to space the dots of the graph, and 
without this change in INCREMENT, 
vertical lines are darker when graphed. 
In addition, it saves time by reducing 
the number of computations and 
POKEs to be performed. 

When control returns to the body 
of the program, the user has the op- 
tion of beginning a new line-segment 
sequence. Depending upon the an- 
swer, the program either ends or uses 
the Line procedure again. Figure 18 



was drawn using Liner. 

Change the Scale of a Graph 

There comes a time in the graphing of 
functions when the implicit restriction 
on the domains and ranges of functions 
to be graphed must be overcome. For 
example, if we want to graph the na- 
tional debt over the past 50 years, ob- 
viously the graph must be scaled to fit 
within the dimensions of the maximum 
size page permitted. The program 
Scaler (Program Listing 10) is an exam- 
ple of graphing a function for x's in the 
range from - 20 to 20 and y's ranging 
from -400 to 400, within the dimen- 
sions of a 2-by-2 page. In the previous 
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000C 
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0052 
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00F5 
00F6 
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0108 
012C 
012F 
012F 
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0141 
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02F2 
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030A 



Program Listing 12 

PROGRAM BUGS; 

CONST TIGER=-2816;ADRU=-2805;ADRV=-2803; 

I6=16;I8=18; 

TYPE POINTS=ARRAY( .1. .2.) OF REAL; 

VAR I , J, U , V f Z, WIDTH , HEIGHT, H0 ,K0 : INTEGER; 

H1,K1,X1,Y1,X2,Y2,K:REAL; 

A, B,C,D f OLDA: POINTS ; 

ANSWER: CHAR; 

PROC INIT(VAR PWIDE,PHIGH,H0,K0:INTEGER) ; 

CONST ADRH0=-2809;ADRK0=-2807;ADRPHIGH=-2813;ADRPWIDE=-2811; 

BEGIN 

PWIDE:=14; PHIGH:=14; H0:=7; K0:=7; 

POKE(ADRPHIGH,PHIGH) ; POKE(ADRPHIGH+l , 0) ; 

POKE(ADRPWIDE,PWIDE) ; POKE(ADRPWIDE+l ,0) ; 

POKE(ADRH0,H0) ; POKE( ADRH0+1 ,0) ; 

POKE(ADRK0,K0) ; POKE(ADRK0+1 , 0) 
END; (*INIT*) 

FUNC MIN(X,Y: INTEGER) : INTEGER; 
BEGIN 

IF X<Y THEN MIN:=X ELSE MIN:=Y 
END; (*MIN*) 

FUNC MAX(X,Y: INTEGER) : INTEGER; 
BEGIN 

IF X<Y THEN MAX:=Y ELSE MAX:=X 

END; (*MAX*) 

PROC FILL(X f Y: INTEGER) ; 
VAR Al f A2,V: INTEGER; 
BEGIN 

Al:=MAX(MIN(X f Y) f 0)+l; 

A2:=MIN(MAX(X f Y) f HEIGHT)-l; 

V:=A1; 

WHILE V<=A2 DO 
BEGIN 

POKE(ADRV,V) ; POKE(ADRV+l , 0) ; 
V:=V+2; 

Z:=CALL(TIGER f 2) 
END 
END; (*FILL*) 

PROC LINE; 

VAR Al,A2,U r V,OLDV f IrlNTEGER; 

M f B:REAL; 
BEGIN 

IF (X10X2) THEN 

BEGIN 

A1:=MIN(ROUND(I6*(X1+H0)) f ROUND ( 16* (X2+H0) ) ) ; 

A2 : =MAX( ROUND ( 16 *(X1+H0)) , ROUND( 16* (X2+H0) ) ) ; 
M:=(Y1-Y2)/(X1-X2) ; 
B:=(X1*Y2-X2*Y1)/(X1-X2) ; 
FOR U:=A1 TO A2 DO 
BEGIN 

V:=ROUND(I8*(K0+M*(U/I6-H0)+B)) ; 

Listing 12 continues 
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Turn your 
computer into 
an advanced 
operating 
system. . . 



SUPER UTILITY PLUS The most powerful pro- 
gram of its kind! Machine language, stand-alone 
program with its own I/O routines. No ROM or 
DOS calls. Works on single AND double density 
systems. Features ZAP, PURGE, FORMAT, 
DISK COPY, TAPE COPY, DISK REPAIR, 
MEMORY, FILE, and CONFIGURE SYSTEM 
functions. Very sophisticated, menu driven, single 
RAM resident program. A must for every serious 
TRS-80 disk installation. 
48K RAM Model I & III Disk 

DOSPLUS 3.4 The fastest, smoothest, easiest to 
use Disk operating system for your TRS-80! Jam- 
packed with powerful options: BASIC Array Sort, 
Tape/Disk — Disk/Tape Utility, Controlled Screen 
Input, Random Access and ASCII modification on 
Diskdump, BASIC Checks for Active "DO", 
Backup and Format from a "DO" file, and much 
much more. Energize your operating system with 
DOSPLUS 3.4! 
TRS-80 2 for Model I, 1 for Model III Disk 

Instant Software 

Peterborough, N.H. 03458 USA A subsidiary of Wayne Green Inc. 

The best software under the sun. 




Use Instant 

Software's Utilities 

for your TRS-80* 

Enhance 

•Accelerate 

•Expand. 

KEY COMMANDER Easy editing of programs, 
and direct entry of graphics into Basic programs 
are yours with this highly sophisticated yet easy to 
use utility package. Features On Screen Editing, 
Graphic Print Statement, Assignable Keys, and 
Total Flexibility. Automatically relocates into 
high memory and protects itself in memory. 
Enhance the power and capabilities of your 
keyboard! 
Model I/Model III 16K and up Tape 



ABE Accelerate your writing and editing of Basic 
programs with the Advanced Basic Editor. Dra- 
matically improves your Basic editing and pro- 
gramming capabilities by providing such indis- 
pensable features as Formatted Screen, Global 
Search and Replace, Line Copy Ability, Assign- 
able Keys, Called From Basic. Advance your skills 
as a programmer with ABE. 
Model I 32K TRSDOS 2.3 or NEWDOS 80 v2 
Disk in 32K & 48K version. 



To place your order for Instant Software Programs, call toll free 
1-800-258- 5473 
outside US & Canada call Worldwide Media 212/686-1520 

'TRS-80 is a trademark of the Radio Shack division of Tandy Corp. 




Yes I want to order: 

ABE @ $19.95 ea. 

Key Commander @ $29.95 ea. 

Super Utility Plus @ $74.95 ea. 



ANU80 



_Dos Plus 3.4 Single Density @ $149.95 ea. 
. Dos Plus 3.4 Double Density @ $149.95 ea. 
.Dos Plus 3.4 Mod III Version @ $149.95 ea. 



Shipping & Handling $2.50 

For CO. D. orders add $1.50 extra 

VISA MC 



Total of above_ 
_AE ___ 



.Check 



Name. 



Card# 



.Money Order 



Address 
City _ 
State _ 



Zip 



Interbank # 
Exp. Date 
Signature 



Instant Software 

Peterborough. N.H. 03458 USA A subsidiary ol Wayne Green 



Call toll free 1-800-258-5473 

Outside U.S. & Canada call Worldwide Media 212-686-1520 

118 
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Listing 12 continued 

033C IF (V>=0) AND (V<=HEIGHT) THEN 

0354 BEGIN 

0354 IF V=HEIGHT THEN V:=HEIGHT-1; 

0372 POKE(ADRU f U) ; P0KE(ADRU+1 ,0) ; 

0385 POKE(ADRV f V) ; POKE( ADRV+1 ,0) ; 

0398 Z:=CALL(TIGER,2) 

03A2 END; 

03 A4 IF(U =A1) THEN OLDV:=V; 

03BD IF(ABS(V-OLDV) >2) THEN FILL( V, OLDV) ; 

03E0 OLDV:=V 

03E8 END 

03EA END 

03ED ELSE 

03F0 BEGIN 

03F0 U:=ROUND(I6*(X1+H0) ) ; 

040 8 IF U=WIDTH THEN U:=U-2; 

0426 POKE(ADRU f U) ; POKE( ADRU+1 , 0) ; 

0439 FILL(ROUND(I8*(Y1+K0)) , ROUND( 18* (Y2+K0) ) ) 

0462 END 

0462 END; (*LINE*) 
0463 

0463 PROC MOVE(VAR X,Y:POINTS); 
046F VAR M,P,Q:REAL; 

047C BEGIN 

0481 P:=Y(.1.)-X(.l.) ; Q: =Y( .2. ) -X( .2 . ) ; 

04C3 M:=K/SQRT(SQR(P)+SQR(Q) ) ; 

04E1 X1:=X(.1.)+M*P; Yl:=X( .2.) +M*Q; 

0521 X2:=X(.l.); Y2:=X(.2.); 

0545 LINE; 

0548 X(.1.):=X1; X(.2.):=Y1 

056A END; (*MOVE*) 

056D 

056D PROC SQUARE; 

0571 BEGIN 

0577 X1:=6;Y1:=6; X2: =-6 ; Y2: =6 ;LINE; X2:=6; Y2:=-6; LINE; 

05B7 X1:=-6;Y1:=-6;LINE; X2:=-6 ;Y2:=6 ;LINE 

05E7 END; (*SQUARE*) 

05E8 

05E8 BEGIN 

05E8 INIT(WIDTH, HEIGHT, H0,K0) ; 

05F7 WIDTH:=I6*WIDTH; HEIGHT: =I8*HEIGHT; 

0615 Z:=CALL(TIGER f 0) ; 

061F WRITELN('DO YOU WANT AXES DRAWN (Y OR N) ' ) ; 

064B REPEAT ANSWER: =INKEY UNTIL ANSWEROCHR( 0) ; 

065F IF ANSWER = 'Y' THEN Z : =CALL(TIGER f 1) ; 

067 8 SQUARE; 

067B K:=1.0; 

0685 A(.l.) :=6 ;A(.2.) :=6; 

06A7 B(.l.):=-6 ;B(.2.):=6; 

06CB C(.l.):=-6; C(.2.):=-6; 

06F1 D(.l.):=6; D(.2.):=-6; 

0715 OLDA(.l.) :=A(.l.) ; OLDA( .2 .) :=A( .2 .) ; 

07 49 FOR I:=0 TO 40 DO 

07 5B BEGIN 

07 5B MOVE(A f B) ; MOVE(B,C) ; MOVE(C,D) ;MOVE(D f OLDA) ; 

077F OLDA(.l.) :=A(.l.) ; OLDA( .2 . ) : =A( .2 .) 

07B1 END; 

Lilting 12 continues 
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Listing 12 continued 

07B6 Z:=CALL(TIGER,3) 

07C0 END. 



Program Listing 13 

0000 PROGRAM SOLUTION; 

0003 CONST TIGER=-2816;ADRU=-2805;ADRV=-2803; 

000C I6=16;I8=18; 

000C VAR I,J,U,V, Z, WIDTH, HEIGHT, H0,K0: INTEGER; 

0030 XI, Y1,X2,Y2,R, ALPHA, BETA: REAL; 

004C ANSWER: CHAR; 

0050 

0050 PROC INIT(VAR PWIDE,PHIGH ,H0 ,K0 : INTEGER) ; 

006 9 CONST ADRH0=-2809;ADRK0=-2807;ADRPHIGH=-2813;ADRPWIDE=-2811; 

006A BEGIN 

006F PWIDE:=14; PHIGH:=14; H0:=7; K0:=7; 

008F POKE(ADRPHIGH,PHIGH) ; POKE ( ADRPHIGH+1 , 0) ; 

00A2 POKE(ADRPWIDE,PWIDE) ; POKE ( ADRPWIDE+1 ,0) ; 

00B5 POKE(ADRH0,H0) ; POKE( ADRH0+1 ,0) ; 

00C8 POKE(ADRK0,K0) ; POKE(ADRK0+1 ,0) 

00DB END; (*INIT*) 

00DC 

00DC FUNC MIN(X,Y: INTEGER) : INTEGER; 

00E8 BEGIN 

00EE IF X<Y THEN MIN:=X ELSE MIN:=Y 

0112 END; (*MIN*) 

0115 

0115 FUNC MAX(X,Y: INTEGER) : INTEGER; 

0121 BEGIN 

0127 IF X<Y THEN MAX:=Y ELSE MAX:=X 

014B END; (*MAX*) 

014E 

014E PROC FILL(X,Y: INTEGER) ; 

015A VAR A1,A2,V: INTEGER; 

0167 BEGIN 

016C A1:=MAX(MIN(X,Y) ,0) +1; 

0189 A2:=MIN(MAX(X,Y) , HEIGHT) -1; 

01AA V:=A1; 

01B4 WHILE V<=A2 DO 

01C3 BEGIN 

01C3 POKE(ADRV,V) ; POKE ( ADRV+1 ,0) ; 

01D6 V:=V+2; 

01E5 Z:=CALL(TIGER,2) 

01EF END 

01F1 END;(*FILL*) 

01F5 

01F5 PROC LINE; 

01F9 VAR Al, A2,U,V,OLDV, I: INTEGER; 

0212 M,B:REAL; 

021A BEGIN 

021F IF (X10X2) THEN 

022E BEGIN 

022E A1:=MIN(ROUND(I6*(X1+H0)) ,ROUND( 16* (X2+H0) ) ) ; 

025D A2:=MAX(ROUND(I6*(X1+H0)) , ROUND ( 16* (X2+H0) ) ) ; 

028C M:=(Y1-Y2)/(X1-X2) ; 

Lilting 13 continues 
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Living 13 continues 

02AB B:=(Xl*Y2-X2*Yl)/(Xl-X2) ; 

02D8 FUR U:=A1 TO A2 DO 

02F0 BEGIN 

02F0 V: =ROUND ( 18* (K0+M* (U/I6-H0) +B) ) ; 

0322 IF (V>=0) AND (V<=HEIGHT) THEN 

033A BEGIN 

033A IF V=HEIGHT THEN V:=HEIGHT-1; 

0358 POKE(ADRU,U) ; POKE(ADRU+l ,0) ; 

036B POKE(ADRV,V) ; POKE(ADRV+l ,0) ; 

037 E Z : =CALL ( TIGER, 2) 

03 88 END; 

03 8A IF(U =A1) THEN OLDV:=V; 

03A3 IF(ABS(V-OLDV) >2) THEN FILL(V,OLDV) ; 

03C6 OLDV:=V 

03CE END 

03D0 END 

03D3 ELSE 

03D6 BEGIN 

03D6 U:=ROUND(I6*(X1+H0) ) ; 

03 EE IF U=WIDTH THEN U:=U-2; 

040C POKE(ADRU,U) ; POKE(ADRU+l ,0) ; 

041F FILL(ROUND(I8*(Y1+K0)) , ROUND ( 18* (Y2+K0) ) ) 

0448 END 

0448 END; (*LINE*) 

0449 

449 PROC SQUARE; 

044D BEGIN 

0453 X1:=6;Y1:=6; X2:=-6 ;Y2: =6 ;LINE; X2:=6; Y2:=-6; LINE; 

0493 Xl:=-6;Y1:=-6;LINE; X2:=-6 ;Y2: =6 ;LINE 

04C3 END; (*SQUARE*) 

04C4 

04C4 BEGIN 

04C4 INIT(WIDTH f HEIGHT,H0,K0) ; 

04D3 WIDTH:=I6*WIDTH; HEIGHT: =I8*HEIGHT; 

04F1 Z :=CALL( TIGER , 0) ; 

04FB WRITELN( 'DO YOU WANT AXES DRAWN (Y OR N) ' ) ; 

0527 REPEAT ANSWER:=INKEY UNTIL ANSWEROCHR( 0) ; 

053B IF ANSWER = f Y' THEN Z : =CALL( TIGER, 1) ; 

0554 SQUARE; 

0557 POKE(ADRU+1,0) ;POKE(ADRV+l , 0) ; 

056B ALPHA:=PI/4; 

057E BETA:=6*SQRT(2) ; 

058E WHILE ALPHA<3*Pl/2 DO 

05AB BEGIN 

5AB R:=BETA*EXP(Pl/4-ALPHA) ; 

05D0 U : =ROUND ( 16 *(R*COS( ALPHA) + H0) ) ; 

05F3 V:=R0UND(I8*(R*SIN(ALPHA) + K0) ) ; 

0616 IF (V>=0) AND (V<=HEIGHT) AND (U>=0) AND (U<=WIDTH) THEN 

0644 BEGIN 

06 44 POKE(ADRU f U) ; 

06 4D POKE(ADRV,V) ; 

0656 Z:=CALL(TIGER r 2) 

0660 END; 

0662 ALPHA:=ALPHA+0.01 

066F END; 

0676 Z:=CALL(TIGER f 3) 

0680 END. 
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Figure 24 

examples, one-quarter inch on the 
graph has represented one unit on the 
coordinate axes. Now we need one- 
quarter inch in the x direction to be five 
x units, and one-quarter inch in the y 
direction to be 100 y units. 

In Scaler, the function to be graphed 
is F(x) = x 3 +4x 2 -60x. (See Fig. 18.) 
This function crosses the x axis at 
x= - 10, 0, and 6, and has a relative 
minimum point at (10/3,-118.5) and 
relative maximum point at (-6,280). 
By graphing this function for x's in the 
range from - 20 to 20 and for y's in the 
range from - 400 to 400, we get a graph 
that shows its critical points. In this ex- 
ample, the relationship between the u-v 
coordinate system and the scaled x-y 
system is given by: 

u = 16(1 + H0) for x = 5, v = 18(1 + K0) for y = 100 
u = 16(2 + HO) for x = 10, v = 1 8(2 + K0) for y = 200 

and so forth. Thus the relations u = 16 
(x/5 + HO) and v - 1 8(y/100 + K0), or 
x = 5(u/16-H0) and y=100(v/18- 
K0) will give the desired scaling. Substi- 
tuting these values for x and y into 
y = f(x), we get 100(v/l 8 - K0) = f(5(u/ 
16 - HO)), which simplifies to v = 18[K0 
+ (l/100)f(5(u/16-HO)) ]. 

In the general case, if S is the number 
of x units represented by one-quarter 
inch and Y is the number of y units rep- 
resented by one-quarter inch on the 
graph, then the changes of coordinates 
between the u-v and x-y coordinate sys- 
tems are u= 16(x/S + H0) and v = 
18(y/T + K0) and x = S(u/16 - HO) and 
y = T(v/18-K0). 

So, to graph the function y = f(x) us- 
ing the new scale, substituting the above 
equations for x and y we get T(v/18 - 
K0) = f(S(u/16 - HO) ), which simplifies 
to v = 18[K0 + (l/T)f(S(u/16-H0) ) ]. 

As before, we use v = ROUND(v). 
In Scaler the function F is defined in 




lines 024A-0276 and the value of v is 
computed in line 0389. The resulting 
graph in Fig. 18 has marks on the x 
axis representing five units and on the 
y axis representing 100 units. In Basic, 
after defining the function, the equa- 
tion v = INT(v + .5) accomplishes the 
same scaling from a Basic program. 

Curves of Pursuit 

Curves of pursuit are one of the most 
interesting and challenging types of dif- 
ferential equations. In this class of 
equations, an object A is chasing an ob- 
ject B— a dog chasing a cat, a hawk 
chasing a pigeon, or a submarine chas- 
ing a submarine. The goal of object B is 
to evade object A, through outrunning 
B or by. changing its direction or its 
velocity. 

The key to obtaining a graphic ap- 
proximation of the solution is the ability 
to program the concept of "move ob- 
ject A towards object B a specified dis- 
tance D." The process of sketching a 
graph for an equation of this type is 
straightforward, but often tedious. 
However, finding the solution of the 
differential equation can also be diffi- 
cult. A favorite question of a teacher of 
mathematics posed to students is, "Is 
your answer reasonable?" Comparing 
the graph of the solution to a graph 
done with "finite steps" is an easy test 
for correctness. 

In the following, I give two ex- 
amples of graphic approximations of 
the solutions of differential equa- 
tions. To tempt those readers not in- 
terested in differential equations, 
there is bound to be an interesting 
game built on the concept of moving 
A toward B a distance of D. 

The first example I call Dogcat (Pro- 
gram Listing 11). In this example, sup- 
pose a cat is sitting at a point in the x-y 
plane. Let that point be the origin, and 



Figure 25 

suppose further that to the north of the 
cat there is a tree, and to the east of the 
cat there is a dog. When the dog sees the 
cat, he begins to chase it; the dog always 
moves toward the cat a distance deter- 
mined by its velocity. At the same time 
the cat begins to run toward the tree. If 
the velocities of the dog and cat are 
known, together with the original dis- 
tances between the dog and the cat and 
the cat and the tree, then it is possible to 
determine whether or not the cat safely 
reaches the tree. 

In Dogcat the Line procedure has 
been changed slightly. The interactive 
portion has been removed and the new 
version plots a line segment joining two 
points (XI, Yl) to (X2,Y2). 

The Move procedure, called by 
MOVE(K,X,Y), moves the point X to- 
ward the point Y a distance of K units. 
The distance D between the two points 
X = (X1,X2) and Y = (Y1,Y2) is com- 
puted in line 52A. Recall that the dis- 
tance between the two points is given by 
the distance formula 



D = v'(Yl-Xl) 2 + (Y2-X2) ! 

If the distance is less than or equal to 
K (the distance to be moved), then the 
point X is moved to the point Y. Other- 
wise, the point X is moved K units 
toward the point Y along the line join- 
ing these two points. The parametric 
equations for the line joining these two 
points are 

x = (l-M)Xl+M*Yl 
y = (l-M)X2 + M*Y2 

In this form, M = gives the point 
(Xl,X2),M = lgivesthe point (Y1,Y2), 
and as M varies from to 1 , the point 
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on the line goes from the point X to the 
point Y. To move a distance K along 
this line from X, you must find the co- 
ordinates (x,y) for which the distance 
between this point and X is K. Using the 
distance formula again and solving for 
M gives 



M = 



V(Y1-X1) 2 + (Y2-X2) 2 



In the main body of the program 
(614H-814H), the initialization is done 
and lines 6A4H and 6C4H fix the origi- 
nal positions of the dog and cat. In this 
case, the distance between the dog and 
cat is 1 3 units and between the cat and 
the tree is eight units. Lines 702H and 
70BH define the velocities of the dog 
and cat. The moving of the dog toward 
the cat and cat toward the tree is accom- 
plished in the Repeat statement (lines 
71BH-7CCH), which continues until 
the dog reaches the cat or the cat reaches 
the tree. The graphs resulting from two 
sets of velocities are shown in Figs. 19 
and 20. The first shows the path of the 
dog in an example in which the cat 
reaches the tree and the second shows 
the path when the cat does not reach the 
safety of the tree. 

The final example is a well-known 



problem. In fact, its graph was the cov- 
er of Scientific American a few years 
ago. In this problem, you have a square 
with its center at the origin and sides 
parallel to the coordinate axes. At each 
corner of the square there is a bug. Each 
bug moves counterclockwise towards 
the bug "in front of it;" i.e., A moves 
toward B, B toward C, C toward D, 
and D toward A. It is also assumed that 
the distance between each bug is 2a 
units, and the bugs move at the same 
speed. 

Bugs (Program Listing 12) uses the 
same procedures and functions as Dog- 
cat. A Square procedure has been added 
that draws the initial square. The se- 
quence of moving each bug toward the 
one in front of it would theoretically 
take place simultaneously; however, 
that cannot be the case in a program. In 
order to model the simultaneous move- 
ment, you must remember to send bug 
D toward the point where bug A was at 
the previous instant. This is done using 
a point denoted OLDA, representing 
the previous position of A. The bug at 
D moves toward OLDA. Figures 21 , 22, 
and 23 show the resulting paths for the 
point A for values of K equal to 2, 1 , 
and 5. 



The solution of the differential equa- 
tion for the path of A is given by 



r \/2a e 



(H 



in polar equations, where the original 
position of bug A is the point (a, a). Pro- 
gram Listing 13 graphs the solution to 
this problem and the graph is shown in 
Fig. 24. This program is the Pascal 
equivalent of POLAR/BAS. (See Part 
I.) Comparing the graphs of the real so- 
lution to the graphs for the various val- 
ues of K, you can see the following: 
First, as K gets smaller, the approxima- 
tions to the graph of the solution get 
better. Second, the value K = .5 gives a 
good approximation to the graph of the 
solution. 

This article gives a set of programs 
that will produce the graph of many 
functions. However, no set of programs 
can be complete enough to fill every 
need. I hope 1 have provided enough in- 
sight into the programs so that they can 
be adapted to other situations. ■ 

Barbara dinger is a professor of 
mathematics at Wheaton College, Nor- 
ton, MA 02766. 



AXIMUM 



P.O. BOX 5636 • STATION "A" • CALGARY • ALBERTA • CANADA • T2H 1Y1 



CANADIANS 

All our software now available 
at the lower American prices 



Some Examples 

■ Scarfman 23.95 

■ Defence Comm 19.95 

■ Robot Attack 19.95 

■ Space Castle 19.95 

■ Meteoroids 19.95 

■ NewDos80 2.0 149.95 

■ Mod III 16K-10%Off 

■ 5-1/4" Disks 34.95 

■ 3M8" Disks 49.95 

■ Green Screens 37.95 

■ Cables from 39.95 

■ Rams-16K 24.95 



Other Products At 
Similar Savings 

■ Cornsoft Group 

■ Big Five 

■ Apple Games 

■ Atari Comp Games 

■ Adventure Inter. 

■ Instant Software 

■ Med Systems 

■ Spectral Assoc. 

■ Sub Logic 

■ Modem 80 

■ Printers 



MOST TRS-80 PROD 
AT 10% DISCOUNT 

Enclose cheque or 

Money order 

with all orders. 

Add 5% for Visa orders. 

Sorry no C.O.D.s 
No phone orders. 

ADD 1.50/ORDER 
FORSHIPP/HAND. 
3/4 WEEKS DEL. 
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64KCP/IM2.2 
FOR MODEL III 

$299. 







Now you can run WordStar, SuperCalc, 
SpellGuard, MailMerge and other CP/M 
based software on your TRS-80 Model III. 

And walk away with incredible savings. 

Memory Merchants new Shuffleboard 
HI is the first and only 64K CP/M 2.2 
system available for your Model \U. 

SOPHISTICATED DESIGN 

The Shuffleboard Ill's advanced design 
includes 16K of RAM, giving your Model 
III the power of full 64K CP/M 2.2, with- 
out interference of the ROM or the 
video memory. 

COMPLETE CP/M SYSTEM 

The Shuffleboard III is not a kit, nor a 
skeleton. You will receive a top quality, 
high performance system that is shipped 
to you completely assembled, burned-in, 
tested and insured with one of the 
industry's best warranties. 

i EASY INSTALLATION & USE 

Illustrated step-by-step instructions 
insure fail-safe installation and reliable 
operation. No permanent modifications, 
cut traces or soldering is required. 

The Shuffleboard III easily plugs into 
two existing sockets inside your Model III. 
Simple keyboard commands switch 
between CP/M and normal TRS-80 
operation. 

NO RISK TRIAL 

We are so convinced that you will 
be absolutely delighted with your 
Shuffleboard III system that we offer 
a no risk trial. After purchasing the 
Shuffleboard III system, you may return it 
(intact) for any reason within 15 days 
after shipment and we will refund the 
purchase price (less shipping). 

SHIPPED DIRECT FROM STOCK 

The Shuffleboard III is shipped to you 
direct from stock, normally within 48 
hours after receipt of your order. 

INTRODUCTORY PRICE 

For a limited time, Memory Merchant 
is offering the Shuffleboard III with CP/M 
2.2 at an introductory price of only $299. 

1 YEAR LIMITED WARRANTY 

The Shuffleboard Ill's reliability, through 
quality controlled production and proven 
performance, has enabled us to offer 
a full 1 year limited warranty 

HOW TO ORDER 

Please send check, money order, VISA 
or MASTERCHARGE (add ICA #) with 
your order. Sorry, no C.O.D's. Specify 
quantity desired. Shipping and handling 
charge is S5.00 per board (S9.00 outside 
USA & Canada)* California residents 
add 6% or 6'/2% Sales Tax where applicable. 
Credit card purchases may be telephoned 
to (415) 483-1008. Order Today! 

OEM and DEALER inquiries invited. 
"Air Mail shipments to Canada & all other countries. 

/jTJ™ ITIcmorv 



merchant 



14666 Doolittle Dr.,San Leandro,CA 94577 
Telephone (415) 483-1008 _ 4 6i 

Trademarks: Shuffleboard Ill/Memory Merchant. TRS-80 Model Ill/Tandy Corporation; MailMerge, WordStar/MicroPro; SuperCalc/Sorcim; Spe/IGuard/ISA. Inc.; CP/M 2.2/Digital Research 

Prices, terms and specifications are subject to change without notice. 



TUTORIAL 



Cobol on Your 80 



by Sam Perry 



L 



earning a new computer language can be a long 
tedious process, but this article leads you 
painlessly into the confusing world of Cobol. 



Learning Cobol on the TRS-80 is 
much like trying to find your way 
through a Scott Adams adventure — 
everything you need is there; the prob- 
lem is finding the information and then 
deciding what to do with it. 

This article will detail the fun- 
damentals of Cobol programming. In 
addition to reviewing the techniques 
for using Radio Shack's Cobol editor, 
compiler and runtime package, we will 
explore the basic elements of Cobol 
from the divisions of the Cobol pro- 
gram to setting up and processing se- 
quential files. 

Introduction to Cobol 

Cobol (Common Business-Oriented 
Language) is the most widely-used 
business-programming language to- 
day. As much as 80 percent of all new 
business application programs are 
written in Cobol. 

Although there are a number of 
reasons for Cobol's popularity, the 
two most commonly cited are the 
language's machine independence and 
self documentation. 

In short, machine independence 
means that a Cobol program written 
for one computer can be easily con- 
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verted to run on another. This machine 
independence is the result of the 
specifications for the language that 
have been laid down by the American 
National Standards Institute (ANSI or 
ANS). This means once you learn 
Cobol on the TRS-80, you are qual- 
ified to program in Cobol on any 
machine from micro to mainframe. 

The self-documenting nature of the 
language simplifies updating and 
debugging, thus reducing program- 
ming costs. 

Cobol's most serious drawback is its 
inability to handle complex mathe- 
matical computations; but then again, 
the language was not designed for that 
purpose. 

Choosing a Suitable Text 

Before undertaking the challenge of 
learning Cobol, you should acquire a 
suitable text. Radio Shack's Cobol 
editor, compiler and runtime programs 
make up an impressive package, but the 
reference manual is a weak link in the 
system. It is useless as an instructional 
text and of little value as a reference 
guide. Confusing and ambiguous state- 
ments such as "This variation of the 
Perform statement is used to augment 



the values referenced by one or more 
identifiers or index-names in an orderly 
fashion during the execution of a Per- 
form statement" are common. 

The book you select should be 
specifically for the ANSI '74 or ANS 
'74 version of Cobol. (ANSI meets 
every six years or so to decide on 
changes that should be made in Cobol. 
The version of Cobol offered by Radio 
Shack adheres to the 1974 standards.) 

Do not let titles such as "Structured 
Cobol" confuse you — Cobol is Cobol. 
("Structured" simply means the author 
will also present structured program- 
ming techniques.) I suggest any in- 
troductory book on the subject by 
Shelly and Cashman or Stern and Stern. 

Basic Cobol Terminology 

A program is merely a set of instruc- 
tions given to the computer by a pro- 
grammer. These instructions are coded 
in a computer language. 

Why not give the computer instruc- 
tions in English? The answer is simple. 
Since a computer cannot make judg- 
ments, the instructions we give it must 
be totally clear and singular in mean- 
ing. English is inherently ambiguous. 
For example, the phrase "take a seat" 
is clearly subject to two or more inter- 
pretations. Instructions written in a 
computer language have only one 
possible meaning. 

Programs written in computer lan- 
guages are referred to as "software," 
and the physical computer equipment 
is termed "hardware." 

Cobol is a compiled language, while 



Basic is interpreted. After keying in a 
Basic program you need merely type 
Run to execute the instructions found 
in the program lines. With Basic, the 
computer interprets and performs each 
instruction as it is encountered. (This is 
similar to a human interpreter trans- 
lating line by line as a foreigner 
speaks.) In Cobol, the entire program 
is translated (or compiled) before any 
of it is executed. (This is similar to the 
interpreter translating an entire speech 
before delivering the message.) 

The actual Cobol program lines that 
you type in are known as the source 
code. After typing in this source code it 
must be compiled into a form called ob- 
ject code. This object code is the trans- 
lated version of the Cobol program. It is 
the version that can be executed. 

Once the object code is created you 
can run it as often as you like without 
recompiling the source code. 

Finally, as the source code is being 
compiled, the compiler lists all syntax 
errors in your program (lines that 
break the rules of the language). These 
errors include misspellings, illegal use 
of data items or variables, and im- 
proper punctuation. 

While the compiler will locate and 
flag syntax errors, it cannot detect er- 
rors in program logic — when you tell 
the computer to do something other 
than what you intended. For example, 
if you tell the computer to subtract two 
numbers when you meant to add them, 
your program has a logic error. 

Included in Radio Shack's Cobol 
package are three major programs: 
editor, compiler, and runtime. 

To create, compile, and run a Cobol 
program you must understand the inter- 
relationships between these programs, 
and how each is properly executed. 

Following the instructions below, 
key in, compile and execute the Cobol 
program in Listing 1 . You can use your 
right arrow on the Model III and the 
tab key on the Model II to tab over to 
the next margin as you enter the code. 
You should be in the TRSDOS Ready 
state with a copy of your Cobol disk in 
drive 0. When executed, this program 
will allow you to key in a line and 
specify the position on the screen 
where you would like to see it printed. 

Step 1— The Program Editor (CEDIT) 

First, you must key in the source 
code. To do this you need to access the 
program editor — simply type CEDIT 
and press enter while in TRSDOS. After 
the program editor loads you are ready 
to begin keying in the source code. 

Although the TRS-80 Cobol refer- 



ence manual outlines a variety of op- 
tions available for the editor, there are 
only six essential commands: 

I Insert 

R Retype 

D Delete 

W Write to the disk 

L Load from the disk 

Q Quit the editor 

To type in a Cobol program you 
must get into the editor's insert mode. 
To do this simply press the letter I. 
Line 000100 will appear and you are 
ready to begin typing the first line. 
While entering lines, be sure to pay 
strict attention to spacing because, un- 
like Basic, it must be precise. Refer to 
the margin requirements in Fig. 1 for 
spacing details. 

After each line press enter and the 
next line number will appear auto- 
matically. When you complete the last 
line, press enter and then break to exit 
the insert mode. 

Before writing the source code to the 
disk, proofread the program lines. You 



can view the lines by pressing the up 
and down arrows. 

Should you find an error in a pro- 
gram line, the simplest way to make a 
correction is to retype the line. To do 
this simply type the letter R followed 
by the number of the line you wish to 
change. For example, when you enter 
R 120 the number 00120 will appear 
and you can retype the line. 

To delete lines, simply press the let- 
ter D followed by the number of the 
line you wish to delete from the pro- 
gram. The editor automatically re- 
numbers program lines after one is 
deleted on the Model III. 

When you are satisfied that the 
source code is entered correctly, store it 
on the disk by typing the letter W 
followed by the name of your pro- 
gram. (Note that the name must not be 
longer than eight characters and 
should not have an extension. Also, 
the name must begin with a letter and 
consist of only letters and digits — no 
blanks or special characters.) 

Now, to return to TRSDOS, press 



Margin Requirements Chart 


Columns Use 


Kxplanation 


1-6 Sequence numbers 


Used for reference 




to lines for purpose of 




insertion, change and 




deletion. 


7 Continuation or remark 


( - ) means continuation 




of data name or literal 




started on a previous line. 




(*) means that the line 




serves only as a comment 




or remark. 


8-1 1 Margin A 


Division, Section and 




Paragraph names must 




begin in this margin. 


12-72 Margin B 


Most Cobol entries, 




particularly in the 




procedure division, must 




begin in this margin. 


Coding Rules 


1) Division and Section names: 




a) Must begin in Margin A 




b) Must end with a period 




c) Must appear on a line alone 




2) Paragraph Names: 




a) Must begin in Margin A 




b) Must end with a period 




c) May appear on a line alone or with other entries 


d) Must always be followed by at least one space 


3) Statements: 




a) Must begin in Margin B 




b) Must end with a period 




c) May appear on a line alone or with other entries 


d) Must always be followed by at least one space 


Figure I 
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the letter Q. 

Step 2 — Compiling the 
Program (RSCOBOL) 

When the source code is safely 
stored on the disk, it is time to compile 
the program into object code. From 
TRSDOS, simply enter RSCOBOL 
filename. 

Two options in RSCOBOL allow you 
to see the source code as it is being com- 
piled. They are T, which displays the 
code on the terminal (screen), and P, 
which copies the code on the printer. 

RSCOBOL PROGRAMl T 
RSCOBOL PROGRAMl P 
RSCOBOL PROGRAMl T P 

As the program is compiled, if any 
errors are found, you must return to the 
editor (with CEDIT) and reload the 
source code (with L filename). Then 
make any corrections with the R and D 
commands. Rewrite the program to the 
disk with the W command and then end 
the session with Q. You are then ready 
to recompile the corrected program. 

Step 3 — Running the Program 
(RUNCOBOL) 

When an error-free version of the 



program is compiled, the object code 
can be executed. Do this in TRSDOS 
by typing RUNCOBOL filename. 

After you have successfully keyed 
in, compiled and executed the program 
in Listing 1, you can check your disk 
directory by entering D1R. You will see 



"Every Cob ol program 
must have four divisions: 

Identification, 

Environment, Data, and 

Procedure. " 



your program listed twice — as file- 
name/CBL and filename/COB. 

When you write your source code to 
the disk from the editor, the extension 
/CBL is appended to the filename you 
supply. Then, when the program is 
compiled, the object code is written to 
the disk with the extension /COB. You 
need to use extensions with the pro- 



grams only when referring to the file in 
a TRSDOS command such as Copy, 
Kill or List. 

The Cobol Program 

Every Cobol program must have 
four divisions: Identification, Envi- 
ronment, Data, and Procedure. These 
divisions are broken down into sec- 
tions, which arc subdivided into 
paragraphs, which are composed of 
statements. See Fig. 1 for a summary 
of the margin requirements and coding 
rules necessary for these entries. 

The Identification division serves to 
identify the program. Program-ID is 
the only required entry in this division. 
Other entries serve merely as documen- 
tation. Note that the program ID you 
assign need not be the same as the 
name you use to write the source code 
to the disk, although this is generally 
a good practice. 

In the Environment division, the 
computer the program is to be com- 
piled and run on must be listed. 
Although the actual computer name is 
merely for documentation, the entries 
must be made. In this division you 
must also assign the files you plan to 
use to devices. For example, you might 
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assign an output file to the printer or a 
sequential file to a disk. 

The Data division is where all data 
items (variables) used in the program 
must be defined. Unlike Basic, you can- 
not simply pick a variable out of thin 
air; it must be defined in this division 
before it can be used in the program. 

Another purpose of the Data divi- 
sion is to allow you to describe the 
fields within the files you intend to use. 
For example, if you plan to store 
names and addresses on the disk, you 
would have to define the fields (i.e. 
name, street, city, state, zip code, 
phone number) in the record. If you 
plan to use no files or variables in your 
program, which would rarely if ever be 
the case, you still must list the divi- 
sion's name in your program. 

Finally, the Procedure division is the 
portion of the program where the ac- 
tual instructions are entered. This is 
where you tell the computer what it is 
that you want done. This division most 
closely resembles the Basic program. 

Program Listing 2 will print the 
message "SHORTEST COBOL PRO- 
GRAM" on the screen. This is prob- 
ably about as short a program as can 
be written in Cobol — all divisions are 
present even though there are no en- 



tries for the Data division. 

Two frequently-used Cobol state- 
ments are Display and Accept. The 
text you select may not go into any 
detail on either statement, because 
these instructions are used primarily 
for displaying information on the 
screen and accepting it from the 
keyboard. Until recently, most Cobol 
programming was done by punching 
program lines into computer cards. 
There was no interaction between the 
programmer and the computer or the 
user and the computer. With the ad- 
vent of the computer terminal and 
microcomputer, a truly interactive 
Cobol program can now be written. 

Printing Messages on the Screen 

A variety of items can be printed on 
the screen: numeric and nonnumeric 
literals, figurative constants, and the 
contents of data items. 

A numeric literal is simply a value 
such as 10, 3, or - 15. It can also be 
called a constant since its value never 
changes in the course of a program. 

In contrast, a nonnumeric literal is 
any string of characters enclosed in 
quotes. Examples of nonnumeric lit- 
erals are "Hello", "919 872-1955", 
and "a*b?/d@$". These items can in- 



clude any printable character on the 
keyboard. 

Figurative constants are Cobol 
words that represent the value they de- 
scribe. Examples include zeros and 
spaces. 

Finally, data names are program- 
mer-defined terms used to represent 
data. In Basic they are called variables. 

Since we haven't discussed the Data 
division and the definition of data 
items, this explanation of Display will 
be restricted to printing literals. 

To print messages on the screen, 
refer to the RSCOBOL section of the 
Cobol reference manual under the 
Display statement. Display is the 
equivalent to Print in Basic. You 
should note the options Erase, Line, 
and Position are similar to Basic's 
CLS, and PRINT© respectively. To 
print the word "HELLO" on line 10 
beginning five spaces over on a clear 
screen you would use the following line 
in the Procedure division: 

DISPLAY "HELLO" LINE 10 
POSITION 5 ERASE. 

Look at Listings 1 and 2 — all Cobol 
statements found in the Procedure 
division must be located in paragraphs. 
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A paragraph must begin with a pro- 
grammer-created name that describes 
what the paragraph will instruct the 
computer to do. This is a form of self- 
documentation. 

Note that paragraph names begin in 
margin A (columns 8-11) and end with 
a period. Statements in the paragraph 
must begin in margin B (columns 
12-72) and also conclude with a 
period. As you can see from the sample 
listings, a statement can occupy two or 
more lines. It is concluded by a period. 

Accepting Input from the Keyboard 

Basic's powerful Input statement 
allows you to key in a response to a 
prompt. Cobol's Accept statement 
performs this same function. 

The format for the Accept statement 
is as follows: 

ACCEPT data-item. 

When executed, the computer waits 
for you to type in some information. 
The response is then assigned to the 
data-item just as it is assigned to a 
variable in Basic. 

A number of options can be used 
with Accept: Line, Position, Prompt, 
Tab, and Convert. An Accept state- 



ment asking for a person's name might 
look like this (note that the Display 
statement is necessary to print the 
prompt on the screen): 

DISPLAY "ENTER YOUR NAME:" 

LINE 5 POSITION 10. 
ACCEPT NAME-ITEM LINE 5 POSITION 

27 PROMPT TAB. 

The Display statement places the 
prompt Enter Your Name: on line 5 of 
the screen starting at tab position 10. 
Accept then allows you to key in the 
name starting on line 5 at position 27 
(which is at the end of the line dis- 
played). The option Prompt causes the 
computer to draw a solid line where 
your entry will be typed. Tab tells the 
computer to wait until you press Enter. 
You must use the Convert option 
when accepting numeric data that con- 
tains a decimal point. For example: 

DISPLAY "ENTER THE AMOUNT" LINE 

12 POSITION 5. 
ACCEPT AMOUNT-PAID LINE 12 

POSITION 22 PROMPT 

TAB CONVERT. 

Before a data item (such as name- 
item or amount-paid) can be used in an 
Accept statement, it must be defined in 



the Data division. With your textbook, 
begin work on defining data items (or 
variables) in the Data division. 

The Four Divisions 

Each Cobol program consists of 
four divisions: Identification, Envi- 
ronment, Data and Procedure. While 
each division can contain numerous 
entries, we will concentrate on the most 
frequently used. 

Figure 2 is a skeleton of the most 
commonly required entries. Consult 
this "cheat sheet" and the program 
listings provided as you read the fol- 
lowing sections. (Key in capitalized 
items exactly as they appear, and sup- 
ply all lowercase entries.) 

Identification Division 

Undoubtedly, the simplest division to 
code is the Identification division. As 
you can see in lines 100-150 of Fig. 2, 
the Identification division contains only 
Five paragraphs. The only required en- 
try is Program-ID. All other entries 
serve merely for documentation, but 
you should routinely include them. 

The program name, which follows 
Program-ID, identifies the program to 
the computer. It should consist of no 
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more than eight characters and must 
begin with a letter. The name can be 
made up of only letters and digits — no 
spaces or hyphens are allowed. The 
following are valid program names: 
PROGRAM 1, TEST and A 123. Re- 
member that this program name does 
not have to be the same as the name 
you use when writing the source code 
to the disk from CEDIT. 

You can make all other entries in this 
division using any characters on the 
keyboard, including spaces. For ex- 
ample, you could enter the date as 
August 28, 1982 or as 8/28/82. These 
are the only programmer-supplied en- 
tries in which you can use blanks. 

Earlier versions of Cobol allowed a 
Remarks entry in this division. With 
the ANSI '74 version, you can place re- 
marks anywhere in the program sim- 
ply by entering an asterick in col- 
umn 7 of the program line, followed by 
a comment or remark. Remarks are 
used primarily for additional notes 
within the source code of the program. 
They are for the programmer's benefit 
and are ignored when the program is 
compiled. 

Environment Division 

Entries in the Environment division 
cover the computer equipment, or 
hardware, used to compile and execute 
the program. Consequently, this divi- 
sion is the most machine-dependent 
portion of the program — entries de- 
pend entirely on the computer equip- 
ment you are using. Lines 170-230 of 
Fig. 2 outline the division. 

Although the Environment division 
can contain three sections, the two 
most commonly used are the Con- 
figuration and Input-Output sections. 
In the Configuration section, there are 
two required paragraphs: Source- 
Computer and Object-Computer. 
These paragraphs name the system on 
which the program is keyed in and ex- 
ecuted, respectively. These can be, and 
generally are, the same. 

Note that these and all other pro- 
grammer-created names (other than 
those found in the Identification divi- 
sion) must conform to the rules in Fig. 
3. It is important to remember that 
programmer-supplied names cannot 
contain any blanks. The hyphen is gen- 
erally used in lieu of the blank. 

Unlike the Configuration section, 
the Input-Output section is necessary 
only if your program will input or out- 
put information to devices such as a 
printer, disk drive, tape unit or card 
reader. Input is the movement of infor- 
mation into the computer by means of 



the keyboard, disk drives or other in- 
put device. Output, in contrast, is the 
flow of information from the com- 
puter to devices such as the printer or 
disk drives. An example of input 
would be reading names and addresses 
from a disk, while output could in- 



' "Output is the 

flow of information 

from the computer 

to devices such as 

the printer or disk drives. " 



volve printing mailing labels. 

With the TRS-80, you need only be 
concerned with the printer and disk 
drives when considering input and 
output. 

Before any device can be used for in- 
put or output, it must be assigned a 
filename. This is accomplished in the 



File-Control paragraph with a Select 
clause. As is illustrated in line 230 of 
Fig. 2, the Cobol word Select is fol- 
lowed by a file name that the program- 
mer creates; then the words ASSIGN 
TO are followed by the specifications 
of the device that the program will ad- 
dress. We will cover the specifications 
for the TRS-80 printer and disk drives 
later. 

Data Division 

The material covered in the Data 
division may appear difficult and per- 
haps abstract, but it will all come to- 
gether when we get into the Procedure 
division. If you find this section dif- 
ficult, read your textbook and then 
move on to the next division with con- 
fidence that the material covered here 
will soon become clear. 

You must describe all data items 
(variables) and files used in the pro- 
gram in the Data division. As you can 
see in Fig. 2, this division is made up of 
two sections: File and Working- 
Storage. 

A file is an overall classification of 
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00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 



IDENTIFICATION DIVISION. 
PROGRAM- ID. LISTINGl. 

AUTHOR. your name here. 

INSTALLATION. your location. 
DATE-WRITTEN. today's date here. 
SECURITY. UNCLASSIFIED. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. MODELIII-48K. 
OBJECT-COMPUTER. MODELIII-48K. 



DATA DIVISION. 

WORKING-STORAGE SECTION. 

1 STORAGE- AREAS . 

02 LINE-TYPED-IN 

02 POSITION-SELECTED 

02 WAIT-CHARACTER 



PICTURE X(50) 
PICTURE 99. 
PICTURE X. 



PROCEDURE DIVISION. 
PROGRAM- TITLE. 

DISPLAY "PROJECT 1" 

LINE 1 POSITION 23 ERASE. 
ACCEPT-LINE-ROUTINE . 

DISPLAY "TYPE IN A LINE AND PRESS <ENTER>." 

LINE 5 POSITION 10. 

ACCEPT LINE-TYPED-IN 

LINE 7 POSITION 10 TAB. 
ACCEPT-LINE-POSITION . 

DISPLAY "SELECT LINE NUMBER (1-15)" 

LINE 9 POSITION 10. 

ACCEPT POSITION-SELECTED 

LINE 9 POSITION 36 TAB. 
PRINT-MESSAGE-ON-LINE-SELECTED . 

DISPLAY LINE-TYPED-IN 

LINE POSITION-SELECTED POSITION 10 ERASE. 
ENTER-TO-CONTINUE. 

DISPLAY "PRESS <ENTER> TO CONTINUE OR <BREAK> TO STOP' 

LINE 16 POSITION 10. 

ACCEPT WAIT-CHARACTER 

LINE 16 POSITION 55. 
START- ROUTINE-OVER . 

GO TO PROGRAM-TITLE. 
END-PROGRAM. 

STOP RUN. 

END PROGRAM. 

Program Listing I. Screen printing program 
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data pertaining to a specific category. 
For example, a name and address file 
would contain names and addresses, 
similar to an address book. 

A record is a single unit within a file, 
such as an individual's name, address, 
and phone number. 

Fields within a record refer to the 
specific categories within the record. In 
the address book example, the fields 
would be name, street, city, state, zip 
code and phone number. 

In Cobol two types of fields are 
used — group items and elementary 
items. A group item is a field that is 
further subdivided. For example, in 



our address book we could have three 
main fields: name, address and phone. 
Since address is broken down into 
street, city, state and zip code, it is a 
group item. Items which are not fur- 
ther subdivided, such as name, street 
or phone, are termed elementary items. 
If the program is to address any 
files, either printer or disk, the files 
must be described in a FD (File De- 
scription) entry. Note that the letters 
FD must begin in margin A while the 
file name must be entered in margin B. 
Also, note that the file name appearing 
in the FD is the same as the name first 
defined in the Select clause of the En- 
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IDENTIFICATION DIVISION. 



PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

SECURITY. 



program-name, 
programmer's name, 
computer location, 
today's date, 
level of security. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER, computer-specifications. 
OBJECT-COMPUTER, computer-specifications. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT file-name ASSIGN TO device-specifications. 

DATA DIVISION. 

FILE SECTION. 

FD file-name 

BLOCK CONTAINS integer RECORDS 
RECORD CONTAINS integer CHARACTERS 
LABEL RECORDS ARE ^STANDARD or OMITTED! 
DATA RECORD is record-name. 

01 record-name. 



02 group-item. 

03 elementary-item 
03 elementary-item 

02 elementary-item 

02 elementary-item 

02 FILLER 



PICTURE lype(length). 
PICTURE type(length). 
PICTURE type(length). 
PICTURE type(Iength). 
PICTURE X(length). 



WORKING-STORAGE SECTION. 



01 



group-item. 
02 elementary-item 
02 elementary-item 
02 elementary-item 
02 elementarv-item 



PICTURE type(length). 
PICTURE type(length) VALUE "a value". 
PICTURE type(length) VALUE figurative const. 
PICTURE type(lcngth) value numeric literal. 



77 independent-data-item PICTURE type(length). 

PROCEDURE DIVISION, 
paragraph-name. 

COBOL statement. 

COBOL statement. 

COBOL statement, 
paragraph-name. 

COBOL statement. 

COBOL statement. 
TERMINATE-PROGRAM. 

STOP RUN. 

END PROGRAM. 

Figure 2. Cheat Sheet 



vironment division. There must be one 
FD for each file established in the 
Select clauses. 

Four clauses generally appear in the 
FD entry. (Refer to lines 280-310 of 
Fig. 2.) While the order in which the 
four clauses appear makes no differ- 
ence, Block Contains integer Records 
is presented first. This clause specifies 
how records are stored and retrieved. 
Consult your Cobol text for details on 
blocking factors. On the TRS-80 a 
blocking factor of one should be used 
(i.e., Record Contains 1 Records). De- 
spite the fact that one is singular, the 
word Records must be used. 

The Record Contains integer Char- 
acters clause specifies the size of the 
data record being described. Later the 
record will be described; at that time its 
length will be determined. An example 
is Record Contains 120 Characters. 

Although four clauses should be in- 
cluded in the FD entry, only one is ac- 
tually required — Label Records are 
Standard/Omitted. This clause is used 
to specify whether header and trailer 
labels are used on tape and disk. Check 
your text for specific details but simply 
remember to always use the word Stan- 
dard when describing a disk file and 
Omitted for a printer file. (Use Label 
Records are Standard for a disk file 
and Label Records are Omitted for a 
printer file.) 

The final clause of the FD entry is 
Data Record is record-name. In this 
clause it is up to the programmer to give 
a name to the records within the file de- 
scribed. Remember that the file was 
named in a Select clause of the Environ- 
ment division and now the record with- 
in that file must be given a name. An ex- 
ample is Data Record is Disk-Record. 

Only one period is found in the 
FD — it follows the final clause, thus 
ending the sentence. 

You may notice that some texts in- 
clude commas between clauses in the 
FD and throughout the program. The 
comma is optional — use it anywhere to 
aid readability, or omit it altogether. 

Following each FD entry must come 
a record description. Refer to lines 
320-380 of Fig. 2. The record descrip- 
tion begins with the number 01 in 
margin A followed by the record- 
name, which is coded in margin B. Ac- 
tual fields within the record are defined 
and described in this portion of the 
program. 

The relationship of the fields is 
specified by level numbers between 01 
and 49. See Fig. 4 for a description of a 
name/address record using level num- 
bers. In the example, note that the 
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higher level numbers indicate that the 
fields are subsets of the items with 
lower level numbers. Fields with iden- 
tical level numbers are independent of 
each other. 

Remember that group items are sub- 
divided. An example of a group item is 
Address. Elementary items are those 
fields which are not further sub- 
divided. In the example, the elemen- 
tary fields are Name, Street, City, 
State, Zip Code and Phone. It is up to 
the programmer to decide which fields 
are needed in a record description. Sev- 
eral additional examples of record 
descriptions will be provided in future 
listings. 

As can be seen in Fig. 4, each 
elementary item has an associated Pic- 
ture clause. This clause defines the 
length of the field and the type of data 
it can contain. 

In the Picture clause the letter A 
signifies that the data in the field is 
alphabetic. Such a field can contain 
only letters and blanks. 

The letter X defines an alpha- 
numeric field, one containing any 
character on the keyboard including 
letters, digits, blanks and special 
characters. 

Finally, 9 defines a field as numeric. 
Such a field can contain only digits, a 
sign and a decimal point. This is the 
only type data that can be used in 
mathematical operations. 

The length of the data field can be 
specified in one of two ways. To 
signify an alphanumeric field three 
characters in length, the Picture could 
be XXX or X(3). To maintain con- 
sistency, the second format is generally 
recommended. 

Looking at Fig. 4, the Name field is 
alphanumeric and 20 characters long. 
The Street and City fields are also 
alphanumeric and 20 characters long. 
A two-character alphanumeric field is 
set aside for State, while a five-charac- 
ter alphanumeric field is defined for 
Zip Code. 

Many people question the use of 
alphanumeric for Zip Code. They 
argue that the zip code is a number and 
should be defined as numeric. While 
Zip Code can be correctly defined as 
numeric, you should generally define a 
field as numeric only if the program 
performs mathematical calculations 
using the value. There is no need to 
add, subtract, multiply or divide a zip 
code, therefore there is no reason for 
defining it as numeric. The same logic 
applies to the Phone field, which is 
also defined as alphanumeric. 

You can determine the overall record 



length by totaling the length of each 
field in Fig. 4. This total (80) appears in 
the Record Contains integer Characters 
clause of the Data division's FD entry. 
In this case the clause would be Record 
Contains 80 Characters. 

In line 380 of Fig. 2, the Cobol word 
Filler is found. This reserved word (a 
word that has a predefined meaning) 



"You should define 

a field as 

numeric only if 

the program performs 

mathematical calculations 

using the values. " 



can be used to define any field that will 
not be addressed by name in the Pro- 
cedure division. It can be used only in 
the Data division, and must be defined 
as alphanumeric. The sample listings 
here and later will clarify the use of 
Filler. 

In the Working-Storage section you 
must define all data items (variables) to 
be used for purposes other than input 
or output to files. Lines 390-450 of 
Fig. 2 provide a skeleton of what this 
section might look like. It is difficult to 
know which items you will need in this 
section until you begin preparing the 



Procedure division. 

In general, here is where counters 
and accumulators are initialized, page 
headings are assigned to data items and 
general-purpose data items are named 
and described. 

This section differs from the file sec- 
tion in that an initial value can be as- 
signed to each data item. This value is an 
alphabetic or alphanumeric value en- 
closed in quotes and called a nonnumeric 
literal. (Note that some texts show the 
nonnumeric literal enclosed in single 
quotes. On the TRS-80 it is necessary to 
always use double quotes.) The value can 
also be a numeric value, which is called a 
numeric literal, or a figurative constant, 
such as zeros or spaces. 

In the Working-Storage section, 
group items and elementary items are 
established using the level numbers 
01-49. Level 77 can be used in this sec- 
tion to define an independent item — 
one having no relationship to any group 
item. Generally all data items in this sec- 
tion can be included as subordinate to a 
group item even if the group item has a 
name such as General-Purpose-Items or 
Work-Areas. 

Procedure Division 

In this final division of the Cobol 
program, you give the computer a set of 
instructions to carry out. These instruc- 
tions are included in paragraphs, sub- 
divided into sentences and statements. 

Each instruction or set of related in- 
structions must begin with a paragraph 



1) Name can be from 1 to 30 characters in length. 

2) Allowable characters include: 

a) letters 

b) numbers 

c) hyphens 

3) No embedded blanks are allowed or other punctuation. 

4) At least one character must be a letter. 

5) Name cannot begin or end with a hyphen. 

6) No two hyphens can be used together. 

7) Names must be unique. 

8) Names cannot be reserved words. 

9) Names should be meaningful. 

Figure 3. Rules for forming programmer-supplied names 



00300 01 


DISK-RECORD. 




00310 


02 NAME 


PICTURE X(20). 


00320 


02 ADDRESS. 




00330 


03 STREET 


PICTURE X(20). 


00340 


03 CITY . 


PICTURE X(20). 


00350 


03 STATE 


PICTURE X(2). 


00360 


03 ZIP-CODE 


PICTURE X(5). 


00370 


02 PHONE 


PICTURE X(13). 




Figure 4. Lengths of each field 
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name conforming to the rules for pro- 
grammer-supplied names shown in 
Fig. 3. A paragraph name should de- 
scribe the purpose or function of the 
statements enclosed in the paragraph. 
The more descriptive, the better. Valid 
paragraph names include Display- 
Heading-on-Screen, or Calculate- 
Payroll-Deductions. 

In theory, a paragraph should per- 
form only one function. If this is the 
case, anytime a particular function 
needs to be performed, control can be 
sent to the paragraph needed. 

The Procedure division is much like 
a Basic program. As a matter of fact, 
many Cobol statements are very 
similar to those found in Basic. Figure 
5 provides a chart of similar Cobol and 
Basic statements. 

There is no set of rules for coding the 
Procedure division. No two programs 
will have exactly the same Procedure 
division, although they may have 
similar routines. 

One routine which must appear in 
each Procedure division is the para- 
graph to end the program. In Fig. 2, 
this paragraph is named Terminate- 
Program, although you could name it 
anything you like. The Cobol state- 
ment Stop Run makes program execu- 
tion cease. The optional instruction 
End Program tells the compiler that it 
has reached the end of the source-code 
listing. 

To further illustrate the statements 
and techniques required in the Pro- 
cedure division (and throughout the 
Cobol program), let's examine a 
sample program that asks the user to 
enter his name and address and then 
sends this information to the printer. 

Program Listing 3 contains the 
source code of the Cobol program. 
Before output can be sent to the 
printer, a number of entries must be 
made throughout the program. Here 
we will trace the entries necessary to 
create a printer file, describe a print 
record and output to the printer. 

The first reference to the print file 
occurs in a Select clause of the En- 
vironment division as is shown in line 
230. For the TRS-80, the line Select file 



name Assign to Print, "Printer" must 
be used. It is up to you to supply the 
file name. (Programmers often use the 
name PRNT as their printer file name.) 

Another reference to the printer file 
must be made in an FD entry of the File 
section of the Data division, as shown 
in lines 270-310. As you recall, any 
programmer-supplied name can be 
used for the data record name. In line 
3 10 we chose the name Print-Line since 
each record will represent one line on 
the printer. 

Following the FD comes the record 
description. When setting up a printer 
file, this entry can be quite simple. As 
shown in line 320, the record can be 
simply a line 132 alphanumeric char- 
acters long. It is not necessary to define 
any fields in the Print-Line — data can 
simply be moved into this Print-Line 
and output to the printer. 

On some printers it is necessary to 
define the record as containing 133 
characters, with the first representing a 
carriage return. This should not be done 
on the TRS-80, though — define your 
Print-Line as having 132 characters. 

The next reference to the printer file 
is made in the Procedure division. Here 
you must follow four steps to enable the 
program to output to the printer. 

First, you must open the file. The 
Open statement allows the program to 
gain access to the file. (It is similar to 
opening a file cabinet drawer before 
having access to the files inside.) 

The format for the Open statement 
is shown in line 410. Note that the 
word Open is followed by Output. This 
sets the printer file up as an output file. 
The final word in the Open statement is 
the name of the file you wish to 
open — PRNT, in this case. 

After opening the file you must 
move the information you want 
printed to the Print-Line. This is done 
through the Move statement. In line 
560 the name you typed, which has 
been stored in a data item, is moved to 
the Print-Line. 

Once the information to be printed 
has been moved to the Print-Line, it 
can be output to the printer with the 
Write statement. In line 570 the Write 



Program Listing 2. Shortest Cobol program 




00100 IDENTIFICATION DIVISION. 




00110 PROGRAM-ID. LISTING2. 




00120 




00130 ENVIRONMENT DIVISION. 




00140 CONFIGURATION SECTION. 




00150 SOURCE-COMPUTER. MODELI I-64K . 




00160 OBJECT-COMPUTER. MODELII-64K. 




00170 






Listing 2 continues 



statement sends the contents of the 
Print-Line to the printer. 

The final statement required is 
Close. This statement instructs the 
computer to make the file no longer 
available for access. Close the file only 
after you have output all that is 
necessary. The format for closing a 
printer file is shown in line 630 — Close 
PRNT. 

As I pointed out earlier, the Open 
statement is used to gain access to the 
file named. It can refer to either a 
printer or disk file. 

The Move statement is used to copy 
the contents of one data item (the send- 
ing field) into another (the receiving 
field). The contents of the sending field 
are unchanged after the move, while the 
original contents of the receiving field are 
destroyed and replaced by those from 
the sending field. We will discuss ad- 
ditional details on the Move statement in 
the section on editing data items. 

After data to be sent to the output file 
has been moved to an output record 
such as the Print-Line, it can be sent out 
to the file with the Write statement. 

The Write statement instructs the 
computer to output the contents of the 
record specified to the file with which it 
is associated. In Listing 3, the record 
Print-Line is associated with the 
printer file named PRNT. When Write 
Print-Line is executed, the contents of 
the record Print-Line are output to the 
PRNT file. 

Finally, the Close statement is used 
to terminate access to a particular file. 
All files must be closed before the pro- 
gram is ended. 

Line by Line 

Line 100 — this division name is 
always the first line in the program. 

Line 110 — Program-ID is the only 
required entry in the Identification 
division. The name following must be 
eight characters or less and contain 
only letters and numbers. 

Lines 120-150 — these lines provide 
details for documentation purposes. 
These entries can contain any character 
on the keyboard, including blanks. 

Line 160 — here we left a blank line 
between divisions to aid readability of 
the program. 

Line 170 — the second division name 
appears here. 

Line 180 — this is always the first 
section in the Environment division. 

Lines 1 90-200 — these two paragraphs 
name the equipment on which the pro- 
gram will be written and executed. 
Usually both entries are identical. 

Line 210 — the second section in this 
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Listing 2 continued 

00180 DATA DIVISION. 

00190 

00200 PROCEDURE DIVISION. 

00210 DISPLAY-PARAGRAGH. 

00220 DISPLAY "SHORTEST COBOL PROGRAM" ERASE. 

002 30 TERMINATE-PROGRAM. 

00 240 STOP RUN. 

00250 END PROGRAM. 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 



IDENTIFICATION DIVISION. 

PROGRAM- ID. 

AUTHOR. 

INSTALLATION. 

DATE- WRITTEN. 

SECURITY. 



PROJECT2. 
student's name, 
JTC. 

04/21/82. 
UNCLASSIFIED. 



MODELII-64K. 
MODELII-64K. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER . 
OBJECT-COMPUTER . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT PRNT ASSIGN TO PRINT, "PRINTER". 

DATA DIVISION. 
FILE SECTION. 
FD PRNT 

BLOCK CONTAINS 1 RECORDS 

RECORD CONTAINS 132 CHARACTERS 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS PRINT-LINE. 
01 PRINT-LINE PICTURE X(132) 

WORKING-STORAGE SECTION. 
01 ADDRESS- IN-FIELDS. 

03 NAME-IN PICTURE X(30). 

03 STREET- IN PICTURE X(30). 

03 CITY-STATE-IN PICTURE X(30). 

PROCEDURE DIVISION. 
OPEN-FILE-TO-PRINTER . 

OPEN OUTPUT PRNT. 
DISPLAY-AND-ACCEPT-DATA. 

DISPLAY "ENTER NAME:" 

LINE 3 POSITION 10 ERASE. 

ACCEPT NAME- IN 

LINE 3 POSITION 22 PROMPT "." TAB. 

DISPLAY "ENTER STREET:" 

LINE 5 POSITION 8. 

ACCEPT STREET-IN 

LINE 5 POSITION 22 PROMPT "." TAB. 

DISPLAY "ENTER CITY & STATE:" 

LINE 7 POSITION 2. 

ACCEPT CITY-STATE-IN 

LINE 7 POSITION 22 PROMPT "." TAB. 
MOVE-AND-PRINT-DATA. 

MOVE NAME- IN TO PRINT-LINE. 

WRITE PRINT-LINE. 

MOVE STREET-IN TO PRINT-LINE. 

WRITE PRINT-LINE. 

MOVE CITY-STATE-IN TO PRINT-LINE. 

WRITE PRINT-LINE. 
CLOSE-PRINTER-FILE . 

CLOSE PRNT. 
TERM I NATE - PROGRAM . 

STOP RUN. 

END PROGRAM. 

Program Listing 3. A name priming program 



Program Listing 4. Storing names in a sequential file 


00100 IDENTIFICATION DIVISION 




00110 PROGRAM- ID. 


SEQOUT. 


00120 AUTHOR. 


SAM PERRY. 


00130 INSTALLATION. 


JTC. 


00140 DATE-WRITTEN. 


APRIL 4, 1982. 


00150 SECURITY. 


UNCLASSIFIED. 


00160 




00170 ENVIRONMENT DIVISION. 




00180 CONFIGURATION SECTION. 




00190 SOURCE-COMPUTER. 


MODELIII-48K. 




Listing 4 continues 



SOFTWARE CONCEPTS 

DALLAS TEXAS 



SPECIAL DELIVERY 

Now is the time to turn your TRS-80 and 

your text editor into a REAL word processing 

machine. 

EXCELLENT... Creative Computing Review. 

State of the Art... 80 Microcomputing 

Review. 

• Maintain your mail list 

• Print personalized FORM letters. 

• Free format labels 

• 100% machine language 

• Enter names at typist speeds 

• Use with Scripsit, Lazywriter, Electric Pencil 

(we sell them all!) 

• Extract selected names 

• Boldface & underscore 

• Get your form letters past the secretary's desk! 

XTRA Special Delivery Includes 
all of the above PLUS: 

• Disk Sorts 

• Multi Label printer 

• Key definitions 

This is the LAST mailing list you 
will ever have to buy!! 

FOR YOUR MODEL I OR III: 

(requires minimum 32K & single drive) 

SPECIAL DELIVERY jior 

XTRA SPRCIAL DELIVERY ZZZZZZZZ $199 

TOR YOUR MODEL II 

(requires Scripsit 2.0) 
SPECIAL DELIVERY $ 199 

Over 2800 satisfied customers 
(plus 12 that won't speak to us any more) 

Electric Pencil 2.0 $80.00 

Lazywriter $165.00 

Scripsit $95.00 

(Most TRS software available at similar discounts. CALL!) 

SOFTWARE CONCEPTS 

105 Preston Valley Shopping Center 
Dallas, Texas 75230 

Our retail store is located at the SW corner of 
Preston & LBJ 

(214) 458-0330 

MasterCard, Visa, American Express, COD 

C43 



-See List of Advertisers on Page 563 
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BAUDY HOUSE 

COMPUTER PRODUCTS 

950 Scott Lake Road 
Pontiac, MI 48054 



GUESS WHAT? 

Last month we sold MX-80 
Printer Ribbons for 814.00 each! 
this month we've gone CRAZY!! 

MX-80 or MX-70 RIBBONS 

NOW 

2 for ^15.00 
DISKETTES 

VERBATEM DATA LIFE 

double density 40 track 
box of 10 827.00 a box 

2 or more boxes 825.00 a box 

NASHUA 

double density 40 track 
box of 10 825.00 a box 

2 or more boxes 823.00 a box 

TRS-80* MODEL III 

48K 2-40 track disk drives and 

a free copy of Multldos or 

Dosplus Just 81 ,795.00 

plus shipping 



FANTASTIC 
GAME SALE 

GREAT FOR CHRISTMAS 
GIVING! — ORDER NOW!!! 



FORBIDDEN PLANET disk 837.96 
FORBIDDEN CITY disk 37.96 

HYPERLIGHT PATROL disk 17.95 
DEFIANCE disk 22.95 

PANIK disk 22.95 

PANIK cassette 17.95 



ALSO 
HOW ABOl'T THESE SPECIALS* 



DDS 875.00 

(disk download system, smart terminal) 
DFT 24.95 

(direct file transfer utility) 

COLOR DFT cassette 19.95 

'New for color 
MULTIDOS 99.95 

DOSPLUS 129.95 

OUTHOUSE 19.95 

CYBORG cassette 19.95 

CYBORG disk 24,95 

COLOR LASER COMMAND 10.95 

COLOR SPACE WAR 21 .96 

COLOR SCARFMAN 19.95 



MODELIII-48K. 



WELCOME 
VISA/MASTERCARD/CHECKS/COD 

All Software orders subject to $3.00 
shipping and handling 
313-683-8388 Order Line 
313-682-9550 Info Line 
313-683-5076 Data Line 
MI residents add 4% sales tax 

♦TRS-80 is a trademark of Tandy Corp. 



Listing 4 continued 

00200 OBJECT-COMPUTER. 

00210 INPUT-OUTPUT SECTION. 

00220 FILE-CONTROL. 

00 230 SELECT NAME-FILE 

00240 ASSIGN TO OUTPUT "NAMEFILE/SEQ" . 

00250 

00260 DATA DIVISION. 

00270 FILE SECTION. 

00280 FD NAME-FILE 

00290 BLOCK CONTAINS 1 RECORDS 

00300 RECORD CONTAINS 30 CHARACTERS 

00310 LABEL RECORDS ARE STANDARD 

00 320 DATA RECORD IS NAME-RECORD. 

003 30 01 NAME-RECORD. 

00340 02 NAME-FIELD PICTURE X(30). 

00350 

00360 PROCEDURE DIVISION. 

00370 OPEN-SEQUENTIAL-DISK-FILE. 

00380 OPEN OUTPUT NAME-FILE. 

00390 DISPLAY-PROMPT. 

00400 DISPLAY "ENTER 'END' AS LAST NAME' 

00410 LINE 2 POSITION 20 ERASE. 

00420 DISPLAY "ENTER NAME" 

00430 LINE 6 POSITION 14. 

00440 ACCEPT-NAME. 

00450 ACCEPT NAME-FIELD 

00460 LINE 6 POSITION 28 PROMPT "." TAB. 

00470 IF NAME-FIELD = "END" 

00480 GO TO CLOSE-DISK-FILE. 

00490 WRITE-TO-DISK. 

00 500 WRITE NAME-RECORD. 

00510 LOOP-ROUTINE. 

00 520 GO TO ACCEPT-NAME. 

00530 CLOSE-DISK-FILE. 

00540 CLOSE NAME-FILE. 

00 5 50 TERMINATE-PROGRAM. 

00560 STOP RUN. 

00570 END PROGRAM. 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 



IDENTIFICATION DIVISION. 

PROGRAM- ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

SECURITY. 



SEQIN. 

SAM PERRY. 

JTC. 

APRIL 5, 1982. 

UNCLASSIFIED. 



MODELIII-48K. 
MODELIII-48K. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER . 
OBJECT-COMPUTER . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NAME-FILE 

ASSIGN TO INPUT "NAMEFILE/SEQ". 

DATA DIVISION. 

FILE SECTION. 

FD NAME-FILE 

BLOCK CONTAINS 1 RECORDS 
RECORD CONTAINS 30 CHARACTERS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS NAME-RECORD. 

01 NAME-RECORD. 

02 NAME-FIELD PICTURE X(30) 

PROCEDURE DIVISION. 
OPEN-SEQUENTIAL-DISK-FILE. 

OPEN INPUT NAME-FILE. 
DISPLAY-HEADING . 

DISPLAY "READING IN NAMES" 

LINE 2 POSITION 24 ERASE. 
READ-FROM-DISK. 

READ NAME-FILE 

AT END GO TO CLOSE-DISK-FILE. 
PRINT-NAME-ON-SCREEN. 

DISPLAY NAME-RECORD. 
LOOP-ROUTINE. 

GO TO READ-FROM-DISK. 
CLOSE-DISK-FILE. 

CLOSE NAME-FILE. 
TERMI NATE - PROGRAM . 

STOP RUN. 

END PROGRAM. 

Program Listing 5. Record Retrieval 



376 • 80 Micro, Anniversary 1983 




Mod III 



GRAFYX SOLUTION 



& 



$299.95 



• 512 x 192 Dot Graphics increases resolution 16 X (better than Apple) 

• Extensive Business, Personal, Educational, and Scientific applications 

• 14 BASIC commands set and reset Points, Lines, Circles, Boxes, etc. 

• Allows Display and Printout of detailed Lipe, Bar, and Pie graphs 

• 80 Character/line display compatible with BASIC programs and DOS 

• Price includes 98K bits memory, 30 programs, 52 page manual 

• Plug-in, clip-on board eliminates soldering for easy installation 







$40 



X 



VALID ii-i to 12-31-82 



After purchasing Cr.ify« Soln. i>r 80-Gr.ifix, return thi* 
coupon Willi remsir.iuon form to receive rebdto. 




Mod I, III 80-GRAFIX® $169.95 „« 

• Create and Save 128 programmable hi-resolution characters/shapes 

• Characters are generated within an 8 x 12 matrix (Mod I: 6 x 12) 

• Great for creating game figures, symbols, and alternate character sets 

• Excellent software support (20 programs) & extensive documentation 

• Module easily installs within the computer with no soldering 



Manual only $15 
Products guaranteed 
Dealers welcome 



Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 



FREE shipping 
Prepaid or COD 
Tx. res add 5% 



y*See List of Advertisers on Page 563 
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division, required only if disk or 
printer files are to be used. 

Line 220 — this paragraph name is al- 
ways required after the entry in line 210. 

Line 230 — here the Select clause al- 
lows you to create a file name and as- 
sign it to a device (printer or disk drive). 
In this case, a printer file is established. 

Line 240 — blank to aid readability. 

Line 250 — the third division name 
appears here. 

Line 260 — if any files are named in 
Select clauses they must be described 
here in the File section. 

Line 270 — FD (File Description) en- 
try begins with FD followed by the file 
name created in the Select clause. 

Line 280 — this line defines the block- 
ing factor. On the TRS-80, always use 
one. 

Line 290 — specifies the number of 
characters in the record. 

Line 300 — Omitted must always be 
used with printer files while Standard 
must be used with disk files. 

Line 310 — in this line the record in 
the file is named. This is a programmer- 
supplied name. 

Line 320 — following the FD must 
come the record description, which be- 
gins with 01 followed by the record 
name just defined. While the record is 
often subdivided into fields, it is not 
necessary to do so with a printer record. 
This record is simply defined as having 
132 characters, which is the length of 
the line on most printers. 

Line 330 — here the name of the sec- 
ond section in the division appears. 

Line 340 — this programmer-supplied 
group item name describes the data 
items which follow. 

Line 350 — this data item will hold the 
name that the user types in. Remember 
that data items named here in the 
Working-Storage section are not part of 
input or output. Although this item is 
used to allow the user to key in a name 
and is later moved to the Print-Line for 
output, it is not actually part of the in- 
put or output record. Print-Line is the 
only record used in this program. 

Lines 360-370 — these two fields will 
hold the user's street, city and state 
address. 

Line 380 — blank to aid readability. 

Line 390 — the fourth division name 
appears here. 

Line 400— this is a paragraph name. 

Line 410 — the Cobol statement Open 
is used to gain access to the printer file. 

Line 420 — this paragraph name de- 
scribes the function of the following 
statements. 

Line 430-440 — these two lines make 
up a Display statement. While the entire 
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statement could have been placed on 
one line, it is more readable like this — 
the period in line 440 marks the end of 
the statement. The Display instruction 
tells the computer to place on the screen 
the item following the word Display. 
The line clause specifies the line number 
on the screen where the message should 
be placed. The Position clause tells the 
computer how far to tab over before 
displaying the message. Finally, Erase 
clears the screen before printing the 
message. 

Lines 450-460 — these two lines make 
up an Accept statement. Again, the pe- 
riod in line 460 marks the end of the 
statement. The Accept statement tells 
the computer to pause while the user 
types in a response (in this case, to the 
message printed by lines 430-440). This 
response is then placed in the data item 
specified after the word Accept (Name- 
In, in this case). Line tells the computer 
the screen line number where the keyed- 
in response is to be displayed. Position 
specifies how far to tab before display- 
ing the response. Prompt "." tells the 
computer to prompt the user by placing 
a string of periods on the screen where 
the response is to be typed. Any charac- 
ter can be used inside the quotes. If no 
quotes or characters are used, Prompt 
displays a solid line. 

Lines 470-480— see lines 430-440. 

Lines 490-500— see lines 450-460. 

Lines 510-520— see lines 430-440. 

Lines 530-540— see lines 450-460. 

Line 550 — this paragraph name de- 
scribes the function of the statements 
included in it. 

Line 560 — the Move instruction 
copies the contents of the First item 
(sending field) into the second item (the 
receiving field). In this case the contents 
of Name-In are moved into the Print- 
Line. Remember that Name-In contains 
the name the user enters. This Move 
step is necessary before the record 
Print-Line can be written to the printer. 

Line 570 — Write moves the contents 
of the record specified out to the file. In 
this case the contents of Print-Line are 
moved out to the printer and thus 
printed. 

Line 580 — once again, Move is used 
to move the contents of the first data 
item to the second. Here the contents of 
Street-In are moved to the Print-Line. 
This destroys the previous contents of 
Print-Line and replaces them with the 
new item. 

Line 590 — again, the contents of the 
Print-Line are sent to the printer. 

Lines 600-610 — this is the same as 
lines 560-570 and lines 580-590, except 
this time the contents of the data item 



City-State-In are moved to the Print- 
Line and sent out to the printer. 

Line 620 — here the paragraph name 
specifies what the instructions following 
will do. 

Line 630 — the Close statement closes 
the file specified. This must be done be- 
fore the program is terminated. If we 
wanted to print other information we 
would not have closed the file yet. 

Line 640 — here the final paragraph 
name specifies the actions to be taken. 

Line 650 — Stop Run causes the pro- 
gram to stop running. The execution is 
complete. 

Line 660 — this line tells the compiler 
that this is the end of the program. 

Now is the time to write your first 
Cobol program. Using the material pre- 
sented so far, and relying heavily on 
Fig. 2, code a simple program. If your 
system includes a printer, create a print- 
er file and output to it. Perhaps write a 
simple program that asks the user a 
series of questions and prints the re- 
sponses on the printer. If you get error 
messages, consult your Cobol manual. 

Probably the most common use of 
the computer in the business environ- 
ment is for storage and retrieval of in- 
formation. The computer has a distinct 
advantage over the file cabinet — it can 
be programmed to store and recall in- 
formation, and also process the 
records and present them in a report 
format. 

Sequential Files 

A disk file is much like a folder kept 
in a file cabinet — it contains records 
pertaining to some particular category. 
For example, a sales file may contain 
information on the performance of a 
company's sales force. 

File, record, and field are the three 
key terms used when referring to disk 
files. 

A sequential file is one of three com- 
mon Cobol types. It is perhaps the 
simplest and, therefore, generally the 
first learned. 

The term "sequential" actually re- 
fers to the access mode used for storing 
and retrieving records from the disk. 
Records are stored and recalled in the 
order in which they are entered. 

As you can see, there are disadvan- 
tages in this method of disk access. For 
example, if you want to retrieve the 
900th record, you have to read the pre- 
ceding 899. This can be time-con- 
suming, even for a computer. 

Probably the best way to visualize the 
notion of sequential access is to think of 
a music album stored on tape. When 
listening to the album on a tape player, 



to hear the last song, you must play 
through all the songs preceding it. This 
is unlike a record album, where you can 
lift the needle and place it on the last 
track. This second type of access is 
termed direct, relative, or random. 

If you wish to hear the entire album, 
there is no disadvantage in sequential 
access. In the same sense, if you plan to 
process all of the records in your disk 
file, there is no disadvantage in sequen- 
tial access. Sequential files are only a 
disadvantage when you must retrieve 
an individual record — then they can be 
inefficient. 

Creating a Sequential File 

A number of entries are required in a 
Cobol program to create a sequential 
disk file. These entries are similar to 
those used to set up a printer file be- 
cause a printer file is actually a sequen- 
tial file. 

Program Listing 4 stores names on 
the disk in a sequential file. The pro- 
gram is written in the traditional ap- 
proach, as opposed to the structured 
approach, which we will discuss later. 

The first reference to the sequential 
disk file is found in a Select clause of 
the Environment division's File-Con- 
trol section, as is shown in lines 
230-240. 

Following the Cobol word Select 
comes a file name created by the pro- 
grammer. After the Assign To portion 
of the clause must come the word Out- 
put, Input or Input-Output. The word 
Output tells the computer that the file 
will be used in this particular program 
only for output — records will be writ- 
ten to the file but not retrieved from it. 
Input means that this program will 
only input, or read, records from the 
file. Input-Output signifies that the file 
will be used for both input and output 
in this program. 

The final entry in the Assign To 
clause is the actual name that the file 
will be stored under on the disk. This 
does not have to be the same as the file 
name listed after the word Select, 
which is the name used inside the pro- 
gram to refer to the file. 

In the example we selected the disk file 
name NAMEFILE/SEQ. This is part of 
the device specifications and must adhere 
to TRSDOS filespecs requirements. In 
brief, a TRSDOS file name can consist 
of eight characters or less followed by a 
slash and up to three more characters. 
The name must begin with a letter, but 
can also contain numbers. No blanks or 
other characters are allowed in the name. 
We chose NAMEFILE/SEQ because 
NAMEFILE refers to the contents of the 



file, while SEQ reminds us that the file is 
sequential. In this case the full device- 
specifications entry is Output "NAME- 
FILE/SEQ". 

The next reference to the disk file 
comes in the Data division in a FD 
entry. Lines 280-320 present a typical 
disk-file FD entry. Note the entry Label 
Records Are Standard — remember that 
Standard is required with disk files 
while Omitted is used with printer files. 
We chose the name Name-Record in 
this case to represent a disk record, since 
the file will be made up of names. 

Lines 330-340 make up the record 
description, which here is simply a 
record containing one field. The Pic- 
ture clause shows that Name-Field will 
contain 30 alphanumeric characters. 

Finally, the disk file is referenced in 
the Procedure division. There it is 
treated like a printer file — we use the 
statements Open, Move, Write and 
Close to gain access to the file and out- 
put records to it. 

Just as in a printer file, the disk file 
must be opened before it can be ac- 
cessed. It can be opened as an Output 
file, Input file or I-O (Input-Output) 
file. Do not forget that the Select clause 
specified how the file could be used. 

With Open Output Name-File, the 
disk file is opened for output only. 
When the file is opened as an Output 
file, you can use it only to receive rec- 
ords output from the computer. 

The first record output from the disk 
file in the Output mode will be placed in 
the first position in the file. If the file 
did not exist on the disk before the 
Open Output statement, then it is cre- 
ated. If the file did already exist on the 
disk, it is opened and its previous con- 
tents are lost. An existing file, whose 
contents should not be destroyed, must 
be opened with either Input or I-O. 
We'll discuss these modes later. 

Two statements you can use for 
placing a value into a data item are 
Move and Accept. When we set up a 
printer file (see Listing 3) data was ac- 
cepted and then moved to the printer 
record. Now we'll show how the move 
can sometimes be avoided and infor- 
mation accepted directly into a field of 
the record. 

In lines 450-460 we used the data 
item Name-Field in an Accept state- 
ment. When the user types in the name, 
it is placed immediately in the record 
field. Line 500 shows that the record 
can then be written directly to the disk. 

Often it is necessary to define data 
items in the Working-Storage section 
that will be used to accept input from 
the keyboard. The information ac- 



cepted by these data items can then be 
moved into the appropriate fields. In 
this example we have simply taken a 
short cut. 

When no other records are to be 
added to the file, it must be closed as is 
shown in line 540. 

In the Procedure division of Listing 
4 you'll find two new statements: If 
and Go To. 

Before exploring these Cobol instruc- 
tions, let's look at the overall purpose of 
the program in Listing 4 and the steps 
required to achieve this goal. 

Figure 6 is a flowchart of the pro- 
gram. A flowchart is a graphic repre- 
sentation of the steps in a computer 
program. The flowchart is made up of 
symbols, lines and arrows. The sym- 
bols represent the type of operation 
while the lines and arrows show the 
flow of execution. 

An oval symbol represents the be- 
ginning or end of a program. The rec- 
tangle signifies a process such as Open, 
Close or Move, while the trapezoid 
means an input or output operation 
such as Read, Write, Display or Accept. 
Finally, a diamond represents a decision 
to be made with statements such as If ... 
Else and Go To ... Depending. 

The Program 

First, the disk file is opened. Then, a 
prompt to the user to enter a name is 
displayed on the screen. 

Next, through the Accept statement, 
the user is allowed to type in the name 
he wishes stored on the disk. 

The decision block shows that if the 
name End is entered the program is to 
be terminated; if it is not End, the name 
entered is to be stored on the disk. 

After the record is written to the disk, 
control of the program returns to the 
paragraph in which the user is asked to 
enter a name. Here the user can enter 
another name or the word End. 

You should be able to find the para- 
graphs in Listing 4 corresponding to 
each symbol on the flowchart. 

The Cobol statements If and Go To 
appear in lines 470-480. Line 470, 
which says, If Name-Field = "END", 
simply means that if the value accepted 
for Name-Field is the word End, then 
do whatever comes next (before the 
period). If Name-Field does equal End 
then the instruction on line 480 is to be 
executed. If it does not equal End then 
the remainder of the sentence (up to 
the period) is to be ignored and the fol- 
lowing sentence executed. The instruc- 
tion in line 480 is indented two spaces 
merely to aid readability — this indi- 
cates that it is to be executed only when 
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the If condition is true. 

In summary, the Cobol word If is al- 
ways followed by a condition. If that 
condition is true then the remainder of 
the If sentence is executed. When the 
condition is not true, the remainder of 
the sentence is ignored and the pro- 
gram continues with the next sentence. 
Any number of instructions can follow 
the condition in the If statement, not 
just one as is the case in this program. 

When the condition in line 470 is 
true, the instruction in 480 is executed. 
In line 480 the instruction Go To Close- 
Disk-File tells the computer to jump to 
the paragraph named Close-Disk-File. 
The statement Go To means just what 
it says — go to the paragraph named 
and do not do anything else on the 
way. Control is transferred directly to 
the paragraph named. The instructions 
found there are executed and the pro- 
gram continues from that point. 

In Listing 4 we used the Go To state- 
ment again in the Loop-Routine to 
transfer control back to the Accept- 
Name paragraph. 

You should generally avoid the Go 
To statement whenever possible be- 
cause it completely transfers control to 
another part of the program. The un- 
restricted use of Go To can lead to a 
program that is difficult to debug or 
even read. See the section on structured 
programming for more details. 

Sequential Input 

Now that we've covered the tech- 
niques for setting up a sequential out- 
put disk file and storing information 
on the disk, let's focus on the details 
needed to input, or to read the records 
back from, the disk file. 

Program Listing 5 reads the records 
created by the program in Listing 1 and 
displays them on the screen. 

To treat the file as an input file, you 
must change only one entry before the 
Procedure division. Line 240 in Listing 
5 tells the computer that the file will be 
used for input only in this program. 

Before the file can be accessed, it must 
be opened as shown in line 380. Note 
that the file is opened as an Input file. 

After the file is opened, this pro- 
gram displays a message on the screen 
to let the user know that records are to 
be read from the disk. 

Just as the Write statement is used to 
output to a file, the Read statement re- 
trieves a record from the disk (see line 
430). Since the access mode is sequen- 
tial, the records are read in the order 
they were stored — first in, first out 
(FIFO). 

It is important to note that the disk 
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file name is used with the Read instruc- 
tion while the record name is used with 
Write. That is to say, you write a rec- 
ord but read a file. 

Also, note that the Read statement 
contains an At End clause (see line 
440). (Remember that a sentence does 
not end until the period. Lines 430-440 
make up one instruction.) 

Always use the At End clause with the 
Read statement to tell the computer what 
is to be done after the last record in the 
file has been read. This clause is similar 
to the If statement in that it is only ex- 
ecuted when the condition is true. 

The Read statement's At End clause 
is activated when the computer tries to 
read a record after all have been read. 
The instructions following the At End 
are then, and only then, executed. 

As can be seen in lines 430-440, when 
the computer tries to read beyond the 
last record in the file, control is trans- 
ferred to the Close-Disk-File paragraph 
and the program is terminated. 

After the record is read, line 460 dis- 
plays the contents of the Name-Field 
on the screen. Note that the Display 
statement can be used without the Line 
and Position clauses — without them, 
the item is simply displayed on the next 
available line on the screen. 

Line 480 sends control of the pro- 
gram back to the Read statement, 
where another record is retrieved from 
the disk file. This loop continues until 
the At End condition is met. 

Structured Programming Techniques 

The programs in Listing 4 and Listing 
5 were written in the traditional ap- 
proach — execution flows from top to 
bottom with little concern for structure. 

In an effort to bring about a more 
standardized method of programming, 
structured programming was developed. 

Structured programming is a tech- 
nique in which a program is written in 
modules. Each module performs a 
single function. Whenever a particular 
function needs to be executed, the 
paragraph containing that module is 
executed. Control then returns to a 
main-logic paragraph which directs the 
program sequencing (see Listing 6). 

Line 480 executes the Display- 
Prompt paragraph, and then control 
returns to line 490. 

In 490 a more sophisticated and 
powerful Perform instruction is em- 
ployed — Perform ... Until. Here the 
statement instructs the computer to ex- 
ecute the Read-From-Disk-And-Dis- 
play paragraph until the EOF-Flag 
equals one. 

When the Perform ... Until state- 



ment is used, the paragraph named is 
executed and then the condition is 
tested. If it is not true, the paragraph is 
again executed and tested. This con- 
tinues until the condition is true, at 
which time control moves on to the 
sentence after the Perform instruction. 

In the case of line 490, the paragraph 
Read-From-Disk-And-Display will 
continue to be executed until the EOF- 
Flag equals 1 . Remember that it was in- 
itially set to zero in line 420. 

The Read-From-Disk-And-Display 
paragraph first displays the contents of 
the Name-Field last read from the disk. 
In line 570 it then attempts to read the 
next record. If a valid record is re- 
trieved from the disk, line 490 causes 
the paragraph to be executed again. If 
the end of file is reached and the At 
End condition is true, the value 1 is 
moved into the data item EOF-Flag. 
Then, when line 490 tests the value of 
the EOF-Flag it finds it equal to one 
and moves on to line 500. 

In the Read-From-Disk-And-Display 
paragraph, it is essential that the Display 
statement precede the Read statement. 
This is because the condition in line 490 is 
tested only after the entire paragraph has 
been executed. Therefore it is important 
that the final instruction in the para- 
graph be to place the one in the EOF- 
Flag data item— this prevents displaying 
the last record twice. That is why the first 
Read must be executed in the Mail-Logic 
paragraph. 

The purposes behind structured pro- 
gramming are many. Its primary goal 
is to make it easier for one programmer 
to read or modify another's work. 
Also, debugging a program is easier 
since individual modules can be tested 
apart from the entire program. Finally, 
a team of programmers can work on a 
single program, with each writing in- 
dividual modules that will later be 
merged. 

An example of a structured program 
is in Listing 6. This program performs 
exactly the same task as the one in 
Listing 5, but the program is controlled 
by a single paragraph — Main-Logic. 

A comparison of the two listings re- 
veals several changes. Lines 1 10-150 of 
Listing 6 contain remarks, signified by 
the asterisk in column 7 of each line. 

The next change is lines 400-420 of 
Listing 6 — a Working-Storage section is 
present. In this section, a data item 
named EOF-Flag is created for use in 
the Procedure division. Note that the 
item is given an initial value of zero. 

The Procedure division of Listing 6 
is controlled by a Main-Logic para- 
graph that directs the flow of the pro- 



gram. A line-by-line analysis of this 
paragraph will clarify techniques of 
structured programming, as well as in- 
troduce a new Cobol statement. 

Line 460 simply opens the disk file 
for input. 

In line 470 the first record from the 
disk file is read. Note the At End clause 
is present in case the file contains no 
records. Although this is highly un- 
likely, a good program should be pre- 
pared to handle any plausible situation. 

The Perform statement is intro- 
duced in line 480. This statement is 
similar to the Go To instruction — it 
sends control of the program to the 
paragraph named. However, after the 
named paragraph is executed, control 
returns to the instruction following the 
Perform statement. This instruction 
allows the Main-Logic paragraph to 
execute modules throughout the pro- 
gram and still maintain control. 

Printing the Report 

With the few Cobol statements we 
have covered, it is possible to store 
data on the disk, retrieve it, and output 
it to the printer in a report format. 
While we'll cover additional details for 
printing reports later, let's consider a 
few fundamentals. All references ap- 
ply to Listing 7. 

First, we need a program that creates 
both disk and printer files. To do this 
we will merely combine the entries 
covered in the sections on printer and 
disk files. 

Note the two Select clauses in lines 
290-300 as well as the two FDs in lines 
340-460. These are just like those 
presented in the sections on disk and 
printer files. 

The technique of defining page 
headings in the Working-Storage sec- 
tion is introduced in lines 480-540. 
This technique allows you to create 
page and column headings here and 
print them later simply by moving the 
item into the Print-Line and then 
writing it to the printer. 

A closer look at Page-Heading, cre- 
ated in lines 480-510, shows how the 
heading is to be printed. Line 490 defines 
the first 10 columns of the heading as 
spaces. Following these 10 spaces comes 
the actual title defined in line 500. This 
title is 21 characters long and has the val- 
ue "N A M E R E P O R T." Finally, 
101 spaces follow the title, using the 
entire 132 characters of the Print-Line. 

It is always a good habit to define 
headings as 132 characters long. When 
the heading is moved into the Print-Line, 
it will clear out any other characters that 
may have been stored in the line. 
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IDENTIFICATION DIVISION. 
**************************************** 

*** SEQUINl *** * 

READ RECORDS FROM THE DISK * 

Using Structured Approach * 

**************************************** 

PROGRAM- ID. SEOINl. 

AUTHOR. SAM PERRY. 

INSTALLATION. JTC . 

DATE-WRITTEN. APRIL 5, 1982. 

SECURITY. UNCLASSIFIED. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER . 
OBJECT-COMPUTER . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NAME-FILE 

ASSIGN TO INPUT "NAMEFILE/SEQ" . 



MODELIII-48K. 
MODELIII-48K. 



DATA DIVISION. 
FILE SECTION. 
FD NAME-FILE 

BLOCK CONTAINS 1 RECORDS 

RECORD CONTAINS 30 CHARACTERS 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS NAME-RECORD. 
01 NAME -RECORD. 

02 NAME-FIELD PICTURE X(30). 
WORKING-STORAGE SECTION. 
01 WORK- AREAS. 

02 EOF-FLAG PICTURE 9(1) VALUE 0. 

PROCEDURE DIVISION. 
MAIN-LOGIC. 

OPEN INPUT NAME-FILE. 

READ NAME-FILE AT END MOVE 1 TO EOF-FLAG. 

PERFORM DISPLAY-PROMPT. 

PERFORM READ-FROM-DISK-AND-DISPLAY UNTIL EOF-FLAG = 1, 

CLOSE NAME-FILE. 

STOP RUN. 
DISPLAY-PROMPT. 

DISPLAY "READING IN NAMES" 

LINE 2 POSITION 24 ERASE. 
READ-FROM-DISK-AND-DISPLAY . 

DISPLAY NAME-RECORD. 

READ NAME-FILE AT END MOVE 1 TO EOF-FLAG. 

Program Listing 6. An example of a structured program 
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Figure 6. Flowchart of Program Listing 4 

Remember, when programming on 
computers other than the TRS-80, you 
may have to define the Print-Line as 
having 133 characters. When this is the 
case, always define the first character 
as a space to allow for the carriage- 
return character. 

In the description of the headings, 
note the use of the Cobol word Filler in 



place of field names. Filler is to be used 
in the Data division to define any field 
that will not be addressed by name in 
the Procedure division. The headings 
will only be referred to by their 01 group 
name — field names are unnecessary. 
See lines 610-640 for clarification. 

The Procedure division begins by 
opening the disk and printer files. 
Although both files can be opened with 
a single Open instruction, it is more 
readable to use two instructions on 
separate lines. Note that the disk file is 
opened as an Input file, while the 
printer file is opened for Output. 

Headings are output to the printer in 
lines 600-640. Line 640 includes a vari- 
ation on the Write statement. Write to 
the printer can be used with an After 
Advancing or Before Advancing (in- 
teger) Lines clause. This clause is used 
to advance the printer the specified 
number of lines either before or after 
the contents of the Print-Line are 
printed. 

In line 720, the After Advancing 2 
Lines clause is used to double-space be- 
tween names. 

According to the ANSI '74 stan- 
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Program Listing 7 

IDENTIFICATION DIVISION, 
***************************************** 
**** REPORT1 *** * 

* READ RECORDS FROM THE DISK * 

* AND PRINT A SIMPLE REPORT * 

* Using Traditional Approach * 
***************************************** 

PROGRAM- ID. REPORT1. 

AUTHOR. SAM PERRY. 

INSTALLATION. JTC . 

DATE-WRITTEN. APRIL 5, 1982. 

SECURITY. UNCLASSIFIED. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NAME-FILE ASSIGN TO INPUT 



MODELIII-48K. 
MODELIII-48K. 



'NAMEFILE/SEQ 1 



SELECT PRNT ASSIGN TO PRINT, "PRINTER". 

DATA DIVISION. 
FILE SECTION. 
FD NAME-FILE 

BLOCK CONTAINS 1 RECORDS 

RECORD CONTAINS 30 CHARACTERS 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS NAME-RECORD. 
01 NAME -RECORD. 

02 NAME-FIELD PICTURE X(30). 
FD PRNT 

BLOCK CONTAINS 1 RECORDS 

RECORD CONTAINS 132 CHARACTERS 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS PRINT-LINE. 
01 PRINT-LINE PICTURE X(132). 

WORKING-STORAGE SECTION. 
01 PAGE-HEADER. 

02 FILLER 

02 FILLER 

02 FILLER 
01 SUB-HEADER. 

02 FILLER 



PICTURE X(10) VALUE SPACES. 
PICTURE X(21) VALUE "NAME 
PICTURE X(101) VALUE SPACES. 

PICTURE X ( 6 ) VALUE " NAMES : " . 



REPORT" 



Listing 7 continues 



dards the integer in the After Ad- 
vancing clause can be any number 
from 1 to 100. On the TRS-80 you can 
use values higher than 100. 

Finally, note the Move instruction 
used in line 690. This statement moves 
spaces into the Print-Line to clear it 
before use. Since the Name-Field ac- 
counts for only the left 30 columns of 
the Print-Line, there is a chance that 
the right 102 columns could contain 
characters from a previous Move. 

Some Homework 

Write a program to store and re- 
trieve names and addresses on a disk. 
The information should then be 
printed in mailing-label format. 

Numeric Data 

Up to this point, we've said little about 
numeric data. All our Move and Accept 
statements have used alphanumeric data 
items to manipulate nonnumeric literals. 
Here, we'll consider the special rules that 
apply to numeric items. 

First, let's examine the procedure 
for defining numeric data items in the 
Data division. As you may recall, nu- 
meric data items are accompanied by a 
Picture clause consisting of 9s. A Pic- 
ture of 9(3) represents a data item that 
can contain a value consisting of three 
digits, such as 312 or 999. Such a field 
can also contain values less than 100, 
such as 23 or 76 but these values are ac- 
tually stored as 023 and 076. 

To define a numeric data item that 
contains decimal places, use the char- 
acter V where the decimal point should 
appear. For example, Picture 999V99 
represents a numeric item with three 
places on the left of the decimal and 
two on the right. You could also write 
this clause as Picture 9(3)V9(2). 

When using numeric data items con- 
taining a decimal, remember that the 
decimal is not actually stored as part of 
the value. For example, the value 
321 .28 would be stored in memory and 
on the disk as 32128. Therefore, the 
Picture clause 9(3)V9(2) would have a 
field length of five. The decimal point 
is only implied, and is not actually 
stored in the data item. 

A numeric-data item containing a 
decimal place can be assigned a value 
in the Working-Storage section, using 
the following format: Picture 9(3) 
V9(2) Value 123.45. Be sure to include 
the decimal point in the Value clause. 

This method of storing a decimal 
value without the decimal point was 
designed to conserve memory and disk 
space. This convention requires addi- 
tional programming effort, however. 
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Keep it Clean. 

Protect Your Investment 

Protect your TRS-80 Model III keyboard with our 

dustcover made from rigid smoked bronze plastic. 

Its low silhouette was custom designed to fit with 

the TRS-80 Model Ill's contemporary design, and 

provides the protection your keyboard requires. 





Send check or money order for $12.00 to: 

Nat Hellman III, Inc., 5951 East Firestone Blvd. 

South Gate, CA 90280 ^sos 
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□ prices on LNWSOs, NEC printers., □ 
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7180 Woodrow Wilson Dr 
Los Angeles, CA 90068 
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WILL CHANGE THE WAY 
YOU THINK ABOUT YOUR TRS-80! 



THE MOST POWERFUL WORD PROCESSOR AND ALL PUR- 
POSE COMPUTER PROGRAM AVAILABLE FOR THE TRS-80. 

LOOK AT ALL THESE FEATURES 

1 . INSERT characters, words, lines, paragraphs or other files. 

2. DELETE characters, words, lines, paragraphs. 

3. COLUMNS. CopyArt II can be instructed to print your text from one to 
six columns. Super easy to use! No complicated commands. Great for 
doing newsletters, magazine layouts etc. NO MORE CUT AND PASTE! 

4. SORTING. Sort lines of text by any field. Sorts up to 650 items in less 
then 7 seconds. Sort indices, table of contents, names, words or whatever 
in descending or ascending order. Used with CopyArt s math function it is 
great for small Inventories, Receivables, Payables etc. 

5. Screen widths from 32-255 characters wide. Screen widths can be 
changed to allow formatting your text as you want. 

6. MATH. Built in MATH function for doing calculations on columns or 
rows. Used with the SORT command, CopyArt II can do a small inventory 
of 200-300 items, or keep track of small receivables or payables, general 
ledgers or home financial reports. Super floating point precision up to 32 
digits! 

7. 'GRAPHICS. CopyArt has a built in graphics program that allows in- 
serting graphics within your text. Drawings, graphs, illustrations, car- 
toons etc. may be used within newsletters or company reports. Graphics 
commands include: Plot between points, Circles, Squares, Fill, Erase. 
Draw, Move, Pixel cursor controls and more. 

8. 'GRAPHIC CHARACTERS. CopyArt has a built in graphics character 
generator. Used for typesetting large letters from 3 to 25 times normal 
size! Yes, you can even print characters down the page as well as across. 
Black on white or white on black. 

9. JUSTIFICATION is fully supported. 'Proportional spaced justify is sup- 
ported. 

10. 'SUPER or SUB-SCRIPT. 
11. UNDERLINING. 
12.BOLDFACTING. 

13. 'CHANGE CHARACTER SIZE or PITCH within your document. Charac- 
ter size changes for dot matrix printers with capability. Pitch change for 
daisy wheel printers with capability. 

14. HELP. Help is available for all the commands at the touch of a key 
while using the word processor. Super for training inexperienced sec- 
retaries. Great reminder for experienced people as well. MENU DRIVEN 
Help for over 45 commands. 



DOES ALL THIS... 
& MUCH, MUCH MORE! 




COD and Credit Cards 
CALL TOLL FREE to order: 
1-800-528-1149 



•163 



SIMUTEK 

Computer Products Inc. 



SIMUTEK COMPUTER PRODUCTS INC., 4897 E. SPEEDWAY BLVD., TUCSON, AZ 85712, (602)323-9391 

DEALER. DISTRIBUTOR. & PRINTER/MANUFACTURER INQUIRIES INVITED 

TRS-80 and Scrips!! ar? TM of Radio Shack a Tandy corp. 

'Indicates printer must have capability to do function. 
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For example, when you print or dis- 
play a numeric-data item, the decimal 
point will not be included. You must 
edit all numeric data before output to 
the screen or printer — we'll discuss 
editing later. 

If a numeric-data item contains a 
negative value, then the Picture clause 
describing the item must be signed — it 
must contain the character S. Picture 
S9(3) describes a numeric-data item 
that can contain a positive or negative 
three-digit number. 

When calculating the length of a 
signed field, you should count the S 
character. In the example above, the 
field length is four. (When punching 
computer cards, an additional column 
is not needed to record the sign, but on 
the TRS-80 the space is required for the 
plus or minus sign.) 

Accepting numeric data from the key- 
board presents a special set of problems. 

First, when accepting numeric data 
from the keyboard, a Convert clause 
must be used in the Accept statement. 
The Convert clause is used to align the 
decimal point typed in by the user with 
the V in the numeric data item's Picture. 
A sample Accept statement is as follows: 
Accept Number-1 Line 10 Position 10 
Prompt Convert Tab. (Remember that 
the order of the clauses in the Accept 
statement makes no difference.) 

Forgetting to use the Convert clause 
when accepting numeric data can cause 
unpredictable results. 



(While Convert is not a standard 
ANSI Cobol word, it is also used on 
systems other than the TRS-80.) 

An Accept statement using a data 
item with a Picture of 9(3)V9(2) will al- 
low you to enter only five characters, 
including the decimal point. There- 
fore, even though the data item is de- 
signed to hold three digits to the left of 
the decimal place and two to the right, 
a value this large cannot be keyed in. 
Perhaps the simplest solution to this 
problem is to define a Picture larger 
than that actually needed. 

The best way to understand all of the 
details involved in accepting numeric 
data is to write a sample program 
which tests various combinations of 
Picture clauses. 

Editing Numeric Data 

Before numeric data can be output 
to the screen or printer, it must be 
edited. Editing allows you to define ex- 
actly how the values will be dis- 
played — you can suppress leading 
zeros, insert dollar signs, and add com- 
mas. A numeric value that is stored on 
the disk as 123456789 can be printed as 
$1,234,567.89— clearly a far more 
meaningful value. 

Numeric values are edited by mov- 
ing them from a numeric-data item 
into an edit-data item. All edit-data 
items are defined in the Working- 
Storage Section. 

Examples of editing operations are 



Symbol 
Z 



CR 
DB 



Meaning 

Substitute blanks for leading zeroes 

Insert decimal point 

Insert comma 

Insert + sign if value is positive and - sign if value is negative 

Insert - sign if value is negative 

Insert S sign as first character 

Append CR to value if item is negative 

Append DB to value if item is negative 

Insert asterisk in place of leading zero 

Insert a blank in this position 



Send 


ng Field 


Receiving Field 


Picture 


Contents 


Edit Picture 


Edited Results 


9(3)V9(2) 


12345 


S 999.99 


$ 123.45 


9(3)V9(2) 


00123 


$ ZZZ.99 


$ 1.23 


9(3)V9(2) 


00123 


$ $$$$.99 


$1.23 


9(5)V9(2) 


0000123 


$**,***.99 


j****, 23 


S9(6) 


- 123456 


+ zzz.zzz 


- 123,456 


9(9) 


246871977 


999B99B9999 


246 87 1977 


S9(3) 


-123 


zzz- 


123- 


S99V99 


- 1234 


$ ZZ.99CR 


$ 12.34CR 


99V99 


0000 


$ ZZ.99 


$ .(X) 



Figure 7. A summary of Edit symbols 



shown in Program Listing 8. Note that 
the numeric data item is moved into the 
edit data item and then the edit data 
item is printed or displayed. 

Figure 7 contains a summary of the 
edit symbols, along with the results of 
some sample editing. 

The edit character Z suppresses lead- 
ing zeros. A value of 000123 can be 
printed as 123 with this character in the 
edit Picture. 

Generally, it is not a good idea to fill 
the entire edit Picture with Zs — a value 
of zero would be displayed as a blank. 
Include at least one 9 in the Picture 
clause (use Picture ZZZ.99 rather than 
Picture ZZZ.ZZ). 

The decimal point is used in the edit 
Picture to tell the computer where to 
align the implied decimal point of the 
numeric-data item with the actual deci- 
mal point of the edit-data item. For ex- 
ample, a numeric-data item with a Pic- 
ture of 999V9 and a value of 1234 can 
be moved into an edit-data item with a 
Picture of ZZZZ.99. The edited result 
is the value 123.40 — the decimal points 
align themselves. 

The dollar-sign edit character is used 
to place a $ before a number. If you use 
more than one $, they act as zero- 
suppression characters. For example, 
when the value 1234 is moved into the 
edit field $$$$$.99, the result is $12.34. 
If the same value is moved into the 
field $ZZZZ.99, the result is $ 12.34. 

The comma-edit character is used to 
insert a comma in the appropriate loca- 
tion of a value. For example, the value 
123456 can be moved into an edit-data 
item with a Picture 999,999. When the 
edit item is sent to the screen or printer, 
the value 123,456 is displayed. 

Asterisks can be used in the edit Pic- 
ture to replace leading zeros to be re- 
placed by asterisks. This is done 
primarily when printing paychecks. 

A leading or trailing plus or minus 
sign can be added to a value by includ- 
ing - or + in the edit Picture. If a 
minus sign is included, it is printed 
only when the value is negative. If the 
value is positive, no sign is printed. 
When the plus sign is used in the edit 
Picture, + is printed with the value 
when it is positive or unsigned and - 
when it is negative. 

The symbols CR (credit) and DB 
(debit) can be printed with a negative 
value simply by ending the edit Picture 
with these letters. Note that these sym- 
bols are printed only with negative 
values. 

Although there are additional edit 
symbols, the final one we'll consider is B 
for blank. Placing a B in the edit field in- 
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Listing 7 continued 



00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 



02 FILLER 



PICTURE X(126) VALUE SPACES. 



PROCEDURE DIVISION. 
OPEN-DISK-PRINTER-FILE. 

OPEN INPUT NAME-FILE. 

OPEN OUTPUT PRNT. 
PRINT-HEADINGS. 

MOVE PAGE-HEADER TO PRINT-LINE. 

WRITE PRINT-LINE. 

MOVE SUB-HEADER TO PRINT-LINE 

WRITE PRINT-LINE AFTER ADVANCING 2 LINES. 
READ-RECORD-FROM-FILE. 

READ NAME-FILE 

AT END GO TO TERMINATE-PROGRAM. 
MOVE-DATA-TO-PRINT-LINE. 

MOVE SPACES TO PRINT-LINE. 

MOVE NAME-FIELD TO PRINT-LINE. 
WRITE-REPORT-ITEM. 

WRITE PRINT-LINE AFTER ADVANCING 2 LINES. 
LOOP-ROUTINE. 

GO TO READ-RECORD-FROM-FILE. 
TERM I NATE - PROGRAM . 

STOP RUN. 

END PROGRAM. 



Add 




Formal 1 


Add item-1 To itcm-2. 




or Add item-1 item 2 To item-3. 


Example 


Add AMT-1 AMT-2 To AMT-3. 


Lie fore 


2 4 6 


A Her 


2 4 12 


Format 2 


Add item-1 To item-2 Giving item-3. 




or Add item-1 item 2 To item-2 Giving item-3. 


Example 


Add AMT-1 To AMT-2 Giving AMT-3. 


Before 


2 8 6 


After 


2 8 10 


Subtract 




Formal 1 


Subtract item-1 From item-2. 




or Subtract item-1 item-2 From item-3. 


Example 


Subtract AMT-1 AMT-2 From AMT-3. 


Before 


6 3 20 


After 


6 3 11 


Format 2 


Subtract item-1 From item-2 Giving item-3. 


Example 


Subtract 3 From 7 Giving Result-1. 


Before 


3 7 12 


After 


3 7 4 


Multiply 




Format 1 


Multiply item-1 By itcm-2. 


Example 


Multiply Amount- 1 By Amount-2. 


Before 


3 5 


After 


3 15 


Format 2 


Multiply item-1 By item-2 Giving item-3. 


Example 


Multiply AMT-1 By AMT-2 Giving AMT-3. 


Before 


6 5 10 


After 


6 5 30 


Divide 




Formal 1 


Divide item-1 Into item-2. 


Example 


Divide AMT-1 Into AMT-2. 


Before 


2 6 


After 


2 3 


Format 2 


Divide item-1 j By/Into! item-2 Giving item-3. 


Example 


Divide AMT-1 Into AMT-2 Giving AMT-3. 


Before 


2 6 18 


After 


2 6 3 


Figure 8. 


General formats for the Add ins true! ion 




MORE REASONS YOU SHOULD CONSIDER 
MOVING UP TO OUR COMPREHENSIVE PROGRAM... 

15. SUPER EASY TO LEARN editing features. Logical key choices. 

16. Hyphenation 

17. SPELLING checkers like the 74,000 word Scripsit Dictionary work 

great with CopyArt II. 

18. CHAINING. Chain files together to make books or manuals hundreds 

of pages long. 

19. CENTERING. 

20. HEADERS and FOOTERS. You can even put graphics within headers 

for super page layouts. 

21. PAGE NUMBERING. Page numbers can appear at the top or bottom 

of the page. 

22. DOS COMMANDS from within the editor. Kill files, check free space 

or get directories easily. 

23. CUSTOMIZED PRINTER driver. Since your printer has features that 

other printers don't, CopyArt II will be supplied with the printer driver of 

your choice below. Each printer driver is custom made to provide you 

with commands for each of your printer's fine capabilities. If you have 

more than one printer, order other printer drivers for only $19.95 each. 

Printer drivers are available for: 



Smith Corona Daisy Wheel TP-1 
Brother Daisy Wheel 
C-itoh Starwriters and 
Prowriters all. 
PMC P- inter 
Centronics 737, 739 
Diablo 620 



•Radio Shack LP IV, V, VI, 
VII, VIII and Daisy Wheel II 

• Epson MX-80, MX-80/FT, MX-100 
with or without graftrax. 

• Okidata Microline 80. 82a, 
83a and 84 

• NEC 8023 

OTHERS COMING SOON. Call if you don't see your printerl 
24. Unprotected diskette. Unlimited backups can be made. 
25.MAILIST/MAILMERGE INCLUDED. CopyArt II comes with a mailist 
program that stores over 2,000 names on a MOD III diskette. These 
names can be sorted by any field and have a special field for your code. 
You can make PERSONALIZED FORM LETTERS that will take the follow- 
ing codes from the mailist and insert them in your text. FIELDS IN- 
CLUDE: Mr. or Ms., Last name, First name, Business name, City, State, 
up to 9 digit ZIP code and your own special 2 character code. ANY OF 
THESE fields can be inserted within your form letter wherever you want. 
You can print form letters or mailing labels to all the people on your list 
or to specific codes only. CopyArt makes it easy. 



DOES ALL THIS... 
& MUCH, MUCH MORE! 



COD and Credit Cards 
CALL TOLL FREE to order: 
1-800-528-1149 
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SIMUTEK 

Computer Products Inc. 




SIMUTEK COMPUTER PRODUCTS INC., 4B97 E. SPEEDWAY BLVD., TUCSON, kl 85712, (602) 323-9391 

DEALER. DISTRIBUTOR. & PRINTER/MANUFACTURER INQUIRIES INVITED 

TRS-80 and Scripsll are TM ol Radio Shack a Tandy corp. 

"Indicates printer must have capability to do function. 
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serts a blank in the location it occupies. 
For example, a social-security number 
stored as the value 123456789 could be 
moved into an edit data item with the 
Picture 999B99B9999. When the edit 
item is output to the printer or screen it 
would look like this: 123 45 6789. 

Arithmetic Operations 

The arithmetic operations available 
in Cobol include Add, Subtract, Mul- 
tiply, Divide, and Compute. 

The Add instruction is used to per- 
form addition on numeric-data items. 
There are two general formats for the 
Add instruction (see Fig. 8). 

The first format allows you to sum 
data items. All data items in the in- 
struction are first summed, and then 
the result is moved into the data item 
following the word To. The only item 
in the operation whose value is 
changed is the final data item. This is 
the case with all operations involving 
Add, Subtract, Multiply and Divide. 

In the second format the clause Giv- 
ing is included in the instruction. When 
Giving is used in any arithmetic opera- 
tion, the data item following the word 
receives the result of the operation. 
The example in Fig. 8 under the second 
format of the Add statement shows 
that the items to the left of the word 
Giving are summed and the result 
placed in the final data item. 

Since the data item following Giving 



does not actually participate in the op- 
eration, and only acts as a receiving 
field, it can be an edit-data item. All 
other items must be either numeric- 
data items or numeric literals. This is 
the case in all arithmetic statements. 

Subtract is used to perform subtrac- 
tion on numeric items. As with the Add 
statement, there are two formats for 
Subtract. Figure 8 shows that the first 
format simply sums all of the data items 
and numeric literals before the word 
From and then subtracts this amount 
from the data item following From. 

In format 2, the Giving clause is 
added. In this case, the subtraction is 
performed and the result moved into 
the data item following the word Giv- 
ing. As with the Add statement and all 
other arithmetic statements, the data 
item following Giving does not partici- 
pate in the operation; it acts only as a 
receiving field. 

This is a good place to point out two 
general rules about the Cobol arith- 
metic statements Add, Subtract, Mul- 
tiply and Divide. 

First, only the value of the final data 
item is ever changed. If this final data 
item follows the word Giving, it does 
not participate in the actual arithmetic 
operation but acts only as a receiving 
field. When the Giving clause is not in- 
cluded, the final data item participates 
in the operation and then acts as the re- 
ceiving field for the result. 



000100 
000110 

000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 



Program Listing 8. Examples of editing operations 
IDENTIFICATION DIVISION. 

:************************************** 

* COBOL 1 — BUDGET PROJECT * 

* Module 1 — Store Data * 

* Using Traditional Approach * 
*************************************** 

PROGRAM-ID. WORK6. 

AUTHOR. student's name. 

INSTALLATION. JTC 

DATE-WRITTEN. MAY 19 82 

SECURITY. UNCLASSIFIED. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER . 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT BUDGET-FILE ASSIGN TO OUTPUT 



MODELIII-48K. 
MODELIII-48K. 



' BUDGET/ SEQ' 



DATA DIVISION. 

FILE SECTION. 

FD BUDGET-FILE 

BLOCK CONTAINS 1 RECORDS 
RECORD CONTAINS 44 CHARACTERS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS BUDGET-RECORD. 

01 BUDGET-RECORD. 

02 EMPLOYEE-NUMBER 
02 EMPLOYEE-NAME 
02 BUDGET- AMOUNT 
02 CURRENT-EXPENSE 

WORKING- STORAGE SECTION. 

77 RESPONSE PICTURE X. 



PICTURE X(5) . 

PICTURE X(25) . 

PICTURE 9(5)V99. 

PICTURE 9(5)V99. 



PROCEDURE DIVISION. 
OPEN-OUTPUT-DISK-FILE. 

OPEN OUTPUT BUDGET-FILE. 



Listing 8 continues 



Second, a data item following the 
word Giving can be a numeric or edit- 
data item, while all others must be either 
numeric-data items or numeric literals. 

The Multiply statement is limited be- 
cause only two values can be multiplied 
in a single instruction. Nonetheless, 
there are two formats for the statement 
(see Fig. 8). 

In the first format, the two values 
are multiplied and the result is placed 
in the final data item. The second for- 
mat is used to multiply the two items to 
the left of the word Giving and then 
place the result in the final data item. 

With Divide, as with the other arith- 
metic statements, there are two general 
formats. The first forrnat shown in Fig. 
8 divides the value represented by item-1 
into the value represented by item-2. 
The result is then stored in item-2. 

The second format causes the two 
data items to the left of the word Giv- 
ing to be divided; the result is placed in 
the final data item. Note that when 
using this second format, item-1 can be 
divided by or into item-2. For example, 
if 2 is divided into 6 the quotient is 3. If 
2 is divided by 6 the quotient is .333. 

The final, and most powerful, of the 
Cobol arithmetic statements is the 
Compute instruction. Figure 9 is a list 
of the arithmetic symbols used with 
Compute as well as some examples 
using the statement. 

With the Compute statement, the 
data item to the left of the equals sign 
always acts as the receiving field. It 
does not take part in the computation. 
For example, Compute Sum =2 + 2, 
would make Sum equal to 4. The com- 
putation to the right of the equal sign is 
completed and the result is moved into 
the data item to the left of the sign. 

When using the Compute instruction 
to perform complex calculations, 
remember the mathematical hierarchy 
of operations as is shown in Fig. 9. For 
example, Compute Average = 10 + 20 
+ 30/3, does not calculate the average. 
As can be seen in the hierarchy of op- 
erations, multiplication and division are 
performed before addition and subtrac- 
tion. In this example the data item 
Average would equal 40. To actually 
calculate the average, you must use 
parentheses to instruct the computer to 
perform the addition before the divi- 
sion: Compute (10 + 20 + 30) / 3. 

Two additional options can be used 
with all arithmetic statements. They 
are Rounded and On Size Error. 

You can use the Rounded option to 
round a number off to a specified 
decimal place. For example, the state- 
ment Subtract Discount From Amount 
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Listing 8 continued 



500480 
500490 
100500 
(00510 
J00520 
100530 
100540 
100550 
100560 
100570 
100580 
100590 
100600 
100610 
000620 
000630 
000640 
000650 
000660 
000670 



100700 
100710 
100720 
100730 
100740 
100750 
100760 
100770 
100780 
100790 



DISPLAY-PROMPTS. 

DISPLAY "INPUT BUDG 
LINE 1 POSITION 15 ERASE. 
DISPLAY "EMPLOYEE NUMBER:" 
LINE 5 POSITION 8. 
DISPLAY "EMPLOYEE NAME:" 
LINE 7 POSITION 10. 
DISPLAY "AMOUNT BUDGETED:" 
LINE 9 POSITION 8. 
DISPLAY "CURRENT EXPENSE:" 
LINE 11 POSITION 8. 
ACCEPT-BUDGET-DATA . 

ACCEPT EMPLOYEE-NUMBER 

LINE 5 POSITION 25 PROMPT ". 

ACCEPT EMPLOYEE-NAME 

LINE 7 POSITION 25 PROMPT ". 

ACCEPT BUDGET-AMOUNT 

LINE 9 POSITION 25 PROMPT ". 

ACCEPT CURRENT-EXPENSE 

LINE 11 POSITION 25 PROMPT ' 
WRITE-DATA-TO-DISK . 

WRITE BUDGET-RECORD. 
ASK-IF-MORE-DATA. 

DISPLAY "MORE DATA TO ENTER 

LINE 15 POSITION 10. 

ACCEPT RESPONSE 

LINE 15 POSITION 3 8 TAB. 

IF RESPONSE EQUAL "Y" 

GO TO DISPLAY-PROMPTS. 
TERMINATE PROGRAM. 

CLOSE BUDGET-FILE. 

STOP RUN. 

END PROGRAM. 



CONVERT TAB. 



CONVERT TAB. 



(Y/N) 



Compute 

Symbols Used With Compute 
+ = Add 

- = Subtract 

* Multiply 

/ = Divide 

** = Exponentiate (Not supported on TRS-80) 

Hierarchy of Operations 

1 . ( ) Items in parentheses arc evaluated first 

2. ** Exponentiations are performed next 

3. */ Multiplication and division occur next 

4. + - Finally, addition and subtraction 

Examples using Compute 
Compute Amount- 1 - 35. 

This statement moves the value 35 into the data item 
Amount- 1. 

Compute Tax = .05 * Amount. 

Amount is multiplied by .05 with the product being moved 
into the data item Tax. 

Compute Total = AMT-1 + AMT-2 + AMT-3. 

Here AMT-1, AMT-2 and AMT-3 arc totaled. 
The sum is moved into Total. 

Compute Average = (AMT- 1 + AMT-2 + AMT-3) / 3 . 

The three amounts are added first and then the sum is 
divided by three. This amount is then moved into Average. 

Figure 9. Arithmetic symbols used with Compute 



Program Listing 9. 



IDENTIFICATION DIVISION, 
t************************************** 



30101 
30116 

10120* COBOL I — BUDGET PROJECT * 

30130* Module II — Print Report From Data * 
30140* Traditional Method * 

)0^50******* ******************************** 

10160 PROGRAM-ID. WORK5. 

10170 AUTHOR. student's name. 

10180 INSTALLATION. JTC. 

Listing 9 continues 




^c>p^rf1I 



WILL CHANGE THE WAY 

YOU THINK ABOUT 

YOUR TRS-80! 



26. SIMPLE CURSOR commands. Simply use the arrow keys to move 
your cursor around the text. The screen will scroll both vertically and 
horizontally. Shift arrows take you to the beginning or end instantly. 

27. SCREEN DUMP. Prints whatever is on the screen to the printer. 

28. COMPLETE MARGINS CONTROL. You tell CopyArt II what margins 
you desire. You can even change margins within the same text. You may 
also have parts of your text with 2 columns, some with one etc. It's 
super easy to use. 

29. BASIC PROGRAMS can be edited easily. CopyArt is really useful for 
inserting graphics within quoted strings to give your programs super 
animation without the hastle of calculating the CHR$ of the graphics! 
30. VISfCALC files can be loaded into CopyArt II to be manipulated 
easily. Great when you want to accompany your Visicalc reports with 
written reports, GRAPHS and BOLDFACING etc. Visicalc reports up to 
255 wide can be loaded. 

31 . SPECIAL SCRIPSIT FILE LOADER. Allows you to load your old Scrip- 
sit files without having to save them in ASCII. Copyart will also load 
Pencil files and other normal ASCII files. 

32. 'CUSTOM KEYS. Let's you make special keys for special characters. 
Allows for printing Spanish accents etc. 

33. CONTROL CODES. Lets you insert special printer control codes in 
your text. CODES between and 255. 

34. BLOCK MOVE. Simple and powerful block move. Lets you move 
paragraphs or lines of text around easily. No complicated marker set- 
tings required. 

35. FIND/REPLACE/REPEAT. Lets you find a string of characters and 
replace them with any other string of characters up to 20,000 times! 
WILDCARD search also supported. 

36. Professional Manual in easy to understand English. 

Copyart II requires a TRS-80 Model I or III, (or PMC-80 or LNW), 48k 
and 2 disk drives with Newdos-80, Ldos, Multidos, Dosplus or TRS00S. 
Double density disk drives recommended for the Model I. 

ff%rWS^Ar\- 1 1 THIS PROGRAM DOES IT ALLS 

PLEASE SPECIFY which COMPUTER and PRINTER 
you have when ordering. 

Copyart II with one printer driver 149.99 

Additional printer drivers 19.95 each 

Scripsit Dictionary 139.95 




COD and Credit Cards 
CALL TOLL FREE to order: 
1-8O0-528-1149 

Or send check or money 
order to: 



SIMUTEK 

Computer Products Inc. 



**See List of Advertisers on Page 563 



SIMUTEK COMPUTER PRODUCTS INC., 4897 E. SPEEDWAY BLVD., TUCSON, AZ 85712, (602) 323-9391 

DEALER, DISTRIBUTOR, & PRINTER/MANUFACTURER INQUIRIES INVITED 

TRS-80 and Scripsit are TM of Radio Shack a Tandy corp. 

'Indicates printer must have capability to do function. 
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Listing 9 continued 



000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 
000820 
000831! 
000841 
00085G 
00086C 
000871 



DATE-WRITTEN. 
SECURITY. 



MAY 1982 
UNCLASSIFIED. 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT BUDGET-FILE ASSIGN TO INPUT 



MODEL III-48K. 
MODEL III-48K. 



"BUDGET/SEQ' 



SELECT PRNT ASSIGN TO PRINT "PRINTER". 

DATA DIVISION. 
FILE SECTION. 
FD BUDGET-FILE 

BLOCK CONTAINS 1 RECORDS 

RECORD CONTAINS 44 CHARACTERS 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS BUDGET-RECORD. 

BUDGET-RECORD. 

02 EMPLOYEE-NUMBER PICTURE X(5). 

02 EMPLOYEE-NAME PICTURE X(25). 

02 BUDGET-AMOUNT PICTURE 9(5)V99. 

02 CURRENT-EXPENSE PICTURE 9(5)V99. 

PRNT 

BLOCK CONTAINS 1 RECORDS 

RECORD CONTAINS 132 CHARACTERS 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS PRINT-LINE. 
01 PRINT-LINE PICTURE X(132) . 
WORKING-STORAGE SECTION. 
01 HEADERS. 



II 



FD 



HEADER-1. 
03 FILLER 
03 LITERALl 
03 FILLER 
HEADER- 2. 
03 FILLER 
LITERAL2 
LITERAL3 
LITERAL4 
LITERAL5 
LITERAL-6 
DETAIL-LINE-1. 
03 FILLER 

EMPLOYEE-NUMBER-OUT 
FILLER 

EMPLOYEE-NAME-OUT 
FILLER 

BUDGET- AMOUNT-OUT 
FILLER 

CURRENT-EXPENSE-OUT 
FILLER 
BALANCE-OUT 
FILLER 
02 DETAIL-LINE-2. 
03 FILLER 
03 LITERAL-7 
03 TOTAL-OUT 
03 FILLER 
WORK-AREAS . 
02 TOTAL-COUNTER 
02 BALANCE 



PICTURE X(35) 
PICTURE X(13) 
PICTURE X(84) 



VALUE 
VALUE 
VALUE 



SPACES . 

"BUDGET REPORT" 
SPACES. 



03 
03 
03 
03 
03 



PICTURE X(5) VALUE SPACES. 
PICTURE X(10) VALUE "EMP #' 



PICTURE X(30) 
PICTURE X(12) 
PICTURE X(16) 
PICTURE X(59) 



VALUE 
VALUE 
VALUE 
VALUE 



"EMPLOYEE NAME' 
'BUDGET AMT". 
"CURRENT EXP". 
"BALANCE". 



VALUE SPACES. 



VALUE SPACES. 



PICTURE X(5) 

PICTURE X(5) , 

PICTURE X(5) 

PICTURE X(25) . 

PICTURE X(5) VALUE SPACES. 

PICTURE Z(4) 9.99 

PICTURE X(5) VALUE SPACES. 

PICTURE Z(4) 9.99 

PICTURE X(5) VALUE SPACES. 

PICTURE Z(6) 9.99CR. 

PICTURE X(49) VALUE SPACES. 

PICTURE X(64) . 

PICTURE X(7) VALUE "TOTAL". 

PICTURE Z(6) 9.99CR. 

PICTURE X(49) VALUE SPACES. 



PICTURE S9(7)V99 VALUE ZERO. 
PICTURE S9(7)V99 VALUE ZERO. 



000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
001160 
001170 
001180 



PROCEDURE DIVISION. 
OPEN-DISK-PRINT-FILE. 

OPEN INPUT BUDGET-FILE. 

OPEN OUTPUT PRNT. 
PRINT-HEADINGS. 

MOVE HEADER-1 TO PRINT-LINE. 

WRITE PRINT-LINE BEFORE ADVANCING 3 LINES. 

MOVE HEADER-2 TO PRINT-LINE. 

WRITE PRINT-LINE BEFORE ADVANCING 2 LINES. 
READ-RECORD-FROM-FILE. 

READ BUDGET-FILE 

AT END GO TO MOVE-TOTAL-TO-PRINT-LINE. 
MOVE-DATA-TO-PRINT-LINE . 

MOVE EMPLOYEE-NUMBER TO EMPLOYEE-NUMBER-OUT. 

MOVE EMPLOYEE-NAME TO EMPLOYEE-NAME-OUT. 

MOVE BUDGET- AMOUNT TO BUDGET-AMOUNT-OUT. 

MOVE CURRENT-EXPENSE TO CURRENT-EXPENSE-OUT. 
CALCULATE-BALANCE . 

SUBTRACT CURRENT-EXPENSE FROM BUDGET-AMOUNT GIVING BALANCE. 
MOVE-BALANCE-TO-PRINT-LINE. 

MOVE BALANCE TO BALANCE-OUT. 
ADD-BALANCE-TO-TOTAL . 

ADD BALANCE TO TOTAL-COUNTER. 
WRITE-REPORT-ITEM. 

WRITE PRINT-LINE FROM DETAIL-LINE-1. 
LOOP-ROUTINE. 

GO TO READ-RECORD-FROM-FILE. 
MOVE- TOTAL-TO-PRINT-LINE. 

MOVE TOTAL-COUNTER TO TOTAL-OUT. 
PRINT-FINAL-TOTAL. 

WRITE PRINT-LINE FROM DETAIL-LINE-2 

AFTER ADVANCING 2 LINES. 
TERMINATE- PROGRAM . 

CLOSE BUDGET-FILE PRNT. 

STOP RUN. 

END PROGRAM. 



Giving Total Rounded would subtract 
Discount from Amount, move the dif- 
ference to the receiving field Total and 
round the total to fit in the Picture of 
the receiving field. If the difference 
was 12.75 and the Picture for Total 
9(2), then the value 13 would be stored 
in Total. Note that all rounding is done 
at the .5 level. 

You can use the On Size Error op- 
tion to take special action if the re- 
ceiving field in an arithmetic operation 
is not large enough. If this option is not 
used, the value will simply be truncated 
and no error message will appear. For 
example, if you try to move the value 
324 into a data item with a Picture of 
9(2), the value 24 will be moved into 
the item and 3 will simply be lost. 

Size errors occur under two condi- 
tions — when the receiving field is too 
small to hold the value being moved 
into it, and when division by zero is at- 
tempted. Note the following example: 
Multiply Amount-1 By Amount-2 Giv- 
ing Amount-3 On Size Error Perform 
Error-Routine. This statement instructs 
the computer to multiply Amount-1 by 
Amount-2 and move the result into 
Amount-3. If the data item Amount-3 is 
not large enough to contain the result, 
the On Size Error clause is activated, 
and, in this case, the paragraph named 
Error-Routine is executed. 

Logical Operators 

Through the use of the logical oper- 
ators And and Or, you can test com- 
pound conditions. At times it is nec- 
essary to perform a particular function 
only when two or more specific condi- 
tions exist. For example, if it is over 85 
degrees and the swimming pool is full 
of water, then go for a swim. This 
compound condition states that you 
will only swim if both conditions are 
true, signified by the word And. 

In Cobol the And operator can be 
used in statements such as If Amount 
Is Less Than 100 And Budget Is Equal 
To 75 Display "Adequate Funds". 
Only when the two conditions are true 
will the Display statement be executed. 

The word Or is used in Cobol in pre- 
cisely the same way it is used in 
English. The sentence, "If you have a 
ticket or $5 then you can get into the 
movie," means that if you have either 
the ticket or the money then you can 
enter. It is necessary to meet only one 
condition in an Or statement. 

A Cobol example of Or is If Name-1 
Is Equal To "Mary" Or Name-1 Is 
Equal To "Sue" Display Phone- 
Number. If Name-1 contains either 
name then the contents of the data item 
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Phone Number will be printed on the 
screen. 

In the examples using And and Or, I 
used the relational operator Is Equal 
To. Actually, I could have chosen a 
number of operators — see Fig. 10. 

Final Programming Project 

Let's have a final program so we can 
review the instructions and concepts 
covered here. The assignment actually 
consists of two programs — one that ac- 
cepts data from the keyboard and 
stores it on the disk, and another that 
reads in the data and prints a report. 

Before the data can be accepted and 
written to the disk, the file specifi- 
cations must be made clear. Each rec- 
ord will consist of 44 characters. There 
will be four fields containing an 
employee's number, name, budget 
amount and current expense. The field 
lengths are as follows: employee 
number = 5 characters; name = 25 
characters; budget amount = 7 char- 
acters; and current expense = 7 
characters. 

The first program should create the 
disk file, which will be called Budget- 
File in the program and BUDGET/ 
SEQ on the disk. 

The program should prompt the 
user to enter the employee number, 
name, budget amount, and current ex- 
pense. This data should then be written 
to the disk and the user asked if he 
wishes to enter another person's 
record. If so, ask for the data again 
and store it on the disk; if not, close the 
file and end the first program. 

Using sample programs, you should 
find this first program a fairly simple 
exercise. Although the program is pre- 
sented in Listing 9, try to write your 
own version first. 

Once the first program is completed, 
key in the data presented in Fig. 1 1 . Ob- 
viously, you will only enter the four 
field items for each employee. Your sec- 
ond program will calculate the balance. 

The second program requires that 
the data stored on the disk be retrieved 
and a report printed. 

This report should present the 
employee's number, name, budget 
amount, current expense and balance. 
The balance for each employee is cal- 
culated by subtracting the current ex- 
pense from the budget amount — simply 
use the Cobol Subtract statement. Fi- 
nally, the report should contain the 
grand total of each employee's balance. 
To do this, a running total must be 
maintained as each record is processed. 

The report format is shown in Fig. 
1 1 . Note the use of a title and column 



[Data-name I 

Literal 
Arithmetic-expression] 



Is | Not! 



Less Than 
Greater than 
Ljfqual to J 



[Data-name. 
Literal. 
Arith-exp. 



] 



Figure 10. Operators 





BUDGET REPORT 






EMP# 


EMPLOYEE NAME BUDGET AMT 


CURRENT EXP 


BALANCE 


10001 


THOMAS, ROY 500.00 


250.00 


250.00 


10002 


BOWIE, WENDELL 300.00 


450.00 


150.00CR 


10003 


L1PPARD, CINDY 300.00 


150.00 


150.00 






TOTAL 


250.00 




Figure 11. Data and Report formal 





headings, as well as the final total 
located at the bottom. Also, the CR 
(credit) option has been used in the edit 
data items. Remember that this causes 
negative values to be accompanied by 
the letters CR. 

This second program is more com- 
plex than the first, but try to write your 
own before studying the program 
shown in Listing 9. 

Common Cobol Programming Errors 

Probably the most common Cobol 
error is improper spelling and punctu- 
ation while keying in the source code. 
Periods are often omitted and key 
words misspelled. The simple solution 
to this is to carefully proofread your 
program. Those mistakes that you do 
not find will be flagged by the compiler. 

Don't substitute the letter O for the 
number zero. Note that the zero has a 
slash through it. Typists must also 
remember that, to the computer, the let- 
ter 1 is not the same as the number one. 

When describing numeric Picture 
clauses, it is a common mistake to use 
the . instead of the V. Remember that 
the decimal point must be represented 
by a V in the Picture clause of numeric- 
data items. 

Probably one of the most difficult 
errors to locate occurs when a program 
line extends beyond column 72. As the 
program is compiled an error message 
will be generated but upon proofread- 
ing the line no error can be found. Re- 
member that the compiler ignores col- 
umns 73 through 80 and does not see 
any instructions located there. To cor- 
rect this error, use two program lines 
for a single instruction. 

Despite your efforts, nearly every 
program that you write will initially 



contain syntax errors. Your job will be 
to locate and correct them. 

The compiler flags the errors that it 
finds while compiling the source code 
and will display them on the screen or 
printer at your request. Sending error 
messages to the printer is best — those 
on the screen quickly scroll past, mak- 
ing it difficult to read them. 

Although I have not found a way to 
make the Model III pause while com- 
piling, the Model II pauses if you 
depress the space bar. By pausing, you 
are given time to read the messages on 
the screen. Press the enter key to re- 
sume compiling. 

If you have a printer, compile with 
the full listing going to the printer (use 
RSCOBOL file name P). 

Figure 12 provides a sample of a 
printout from the compiler, complete 
with errors. 

The compiler flags the location of an 
error with a dollar sign. It then places 
another dollar sign where the compila- 
tion process resumes. In other words, it 
jumps over the error and begins com- 
piling again. 

Each $ is later followed by a mes- 
sage. The messages are numbered and 
refer to either the first or second dollar 
sign. Look at program line number 350 
in Fig. 12. Below it are two messages 
numbered 1 and 2. The first refers to 
the first $ in line 350, while the second 
refers to the next $ in the line. 

An examination of the two messages 
shows that a syntax error has been 
found by the compiler at the start of 
line 350. What is the error? 

Actually, there is no error in line 
350. The error occurred in line 340, 
where a period was omitted. The com- 
piler did not discover the error until it 
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TRS-80 Model II COBOL (RM/COBOL 1.2) 
SOURCE FILE: ERROR 



7/21/82 13.50.45 PAGE 
OPTION LIST: T P 



LINE DEBUG PG/LN 



name . 



PROJECT2. 

student's 

JTC. 

04/21/82. 

UNCLASSIFIED. 



MODELII-64K. 
MODELII-64K. 



1 000100 IDENTIFICATION DIVISION. 

2 000110 PROGRAM-ID. 

3 000120 AUTHOR. 

4 000130 INSTALLATION. 

5 000140 DATE-WRITTEN. 

6 000150 SECURITY. 

7 000160 

8 000170 ENVIRONMENT DIVISION. 

9 000180 CONFIGURATION SECTION. 
L0 000190 SOURCE-COMPUTER. 
LI 000200 OBJECT-COMPUTER. 
L2 000210 INPUT-OUTPUT SECTION. 

13 000220 FILE-CONTROL. 

14 000230 SELECT PRNT ASSIGN TO PRINT, "PRINTER". 
L5 000240 

16 000250 DATA DIVISION. 

17 000260 FILE SECTION. 
000270 FD PRNT 

000230 BLOCK CONTAINS 1 RECORDS 

000290 RECORD CONTAINS 132 CHARACTERS 

000300 LABEL RECORDS ABE OMITTED 

000310 DATA RECORD IS PRINT-LINE. 

000320 01 PRINT-LINE PICTURE X(132) 

000330 WORKING -STORAGE SECTION. 
000340 01 ADDRESS- IN-FIELDS 
000350 03 NAME- IN PICTURE X(30). 

S S 

1) SYNTAX *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 

2) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 
000360 03 STREET- IN PICTURE X(30). 

S 
1) LEVEL *E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 
000370 03 CITY-STATE-IN PICTURE X(30). 

000380 

000390 PROCEDURE DIVISION. 
S 
1) SCAN RESUME *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 
1000 000400 OPEN-FILE-TO-PRINTER. 
000410 OPEN OUTPUT PRNT. 

8 000420 DISPLAY-AND-ACCEPT-DATA. 



E 


E 


E*E*E*E 


E*E*E*E 


W*VT 


W*W 


W*W*W*W*W*W 


E 


E 


E*E 


E*E*E*E*E*E 



>000 
>000 
>000 



1) 

>001< 



8 000430 

000440 

2 000450 

IDENTIFIER 
000460 

SCAN RESUME 
000470 
000480 



DISPLAY "ENTER NAME:" 
LINE 3 POSITION 10 ERASE. 
ACCEPT NAME-IN 

s 

»E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E' 
LINE 3 POSITION 22 PROMPT "." TAB, 



E*E*E*E*E*E*E*E*E*E*E*E*E*E 



*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W' 
DISPLAY "ENTER STREET:" 
LINE 5 POSITION 8. 



TRS-80 Model II COBOL (RM/COBOL 
SOURCE FILE: ERROR 



7/21/82 13.50.45 
OPTION LIST: T P 



LINE DEBUG PG/LN 
40 >001C 000490 



1) IDENTIFIER 
000500 



ACCEPT STREET- IN 
$ 
*E*E*E*E*E*E*E*E*E*E*E*E 
LINE 5 POSITION 22 PROMPT 



'E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E' 



1 ) SCAN RESUME 
>001E 000510 
000520 
>0026 000530 

1) IDENTIFIER 
000540 

1 ) SCAN RESUME 



TAB. 
S 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 
DISPLAY "ENTER CITY & STATE:" 
LINE 7 POSITION 2. 
ACCEPT CITY-STATE-IN 
S 
*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E»E*E> 
LINE 7 POSITION 22 PROMPT "." TAB. 

$ 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W« 



W*W*W*W*W*W*W*W*W*W*W> 



E*E*E*E*E*E*E*E*E*E*E' 



W*W*W*W*W*W*W*W*W*W*W< 



46 >002A 000550 MOVE-AND-PRINT-DATA. 



47 >002A 000560 

'*** 1) IDENTIFIER 

'*** 2) SCAN RESUME 

48 >002C 000570 

49 >0034 000580 

..». I ) IDENTIFIER 
.*** 2) SCAN RESUME 

50 >0036 000590 

51 >003E 000600 



1) IDENTIFIER 

2) SCAN RESUME 
>0040 000610 
>004A 000620 CLOSE-PRINTER-FILE. 
>004A 000630 CLOSE PRNT. 
>0052 000640 TERMINATE-PROGRAM. 
>0052 000650 STOP RUN. 

000660 END PROGRAM. 



MOVE NAME- IN TO PRINT-LINE. 

s s 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 

WRITE PRINT-LINE. 

MOVE STREET-IN TO PRINT-LINE. 

s s 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 

WRITE PRINT-LINE. 

MOVE CITY-STATE-IN TO PRINT-LINE. 
S S 

*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 
*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 

WRITE PRINT-LINE. 



E*E 
W*W< 


E*E*E*E*E*E*E*E*E 
W* W* W* W* W* W* W* W* W 


E*E*E*E*E*E*E*E*E*E*E 
W*W*W*W*W*W*W*W*W*W*W 


E*E*E*E*E*E*E*E*E*E*E 
W*W*W*W*W*W*W*W*W*W*W 



TRS-80 Model II COBOL 
SOURCE FILE: ERROR 



(RM/COBOL 1.2) 



ADDRESS SIZE DEBUG ORDER TYPE 
132 FILE 

>0004 132 ANS ALPHANUMERIC 



READ ONLY BYTE SIZE = >0OFE 

READ/WRITE BYTE SIZE = >0OD2 

OVERLAY SEGMENT BYTE SIZE = >0000 

TOTAL BYTE SIZE = >01D0 

8 ERRORS 

8 WARNINGS 



7/21/82 13.50.45 PAGE 
OPTION LIST: T P 

NAME 
PRNT 
PRINT-LINE 



Figure 12. Sample compiler printout. 



began compiling line 350. 

It is important to understand that 
the compiler prints an error message 
when it finds something it doesn't ex- 
pect. Applying this principle to line 
350, we can see that the computer ex- 
pected to find a period. Since a period 
must follow line 340, when it moved on 
to line 350 it was still waiting to find the 
period . When it found something other 
than the period, an error message was 
generated. Quite often, you will find 
your error in the preceding line, despite 
the location of the %. 

One error can result in many error 
messages. In the example, the only er- 
ror is the failure to include a period 
after the record name in line 340. As a 
result of this omission, the compiler 
was unable to recognize the field 
names; therefore, every time a field 
name is mentioned in the listing an er- 
ror message appears. By simply placing 
a period at the end of line 340, the pro- 
gram will compile with no errors. 

With this principle in mind, you 
should always begin correcting errors 
from the top of the program. When 
you reach the point in the listing where 
you simply cannot find an error despite 
the $, write the program to the disk and 
compile it again. 

You will find an explanation of the 
compiler error messages in your 
TRS-80 Cobol manual in the Use sec- 
tion under the heading Diagnostic 
Messages. The explanations are not 
always clear, but as you gain ex- 
perience in Cobol, they will become 
easier to understand. 

Another set of error codes and mes- 
sages is presented in the same section 
under the heading Runtime Diagnostics. 
These codes refer to errors that occur 
while the program is actually running — 
after you type RUNCOBOL file name. 

When an error does occur during ex- 
ecution of the program, a code number 
will be displayed on the screen. Simply 
locate the corresponding number in 
your manual for an explanation of the 
problem. Since we have considered 
only sequential files, you need only 
refer to the codes under the heading Se- 
quential Files. 

Conclusion 

While we haven't covered every 
aspect of Cobol, you should now know 
enough of the basics to be intrigued by 
this language. Get a good textbook, and 
continue your conquest of Cobol. ■ 

Sam Perry (210-A Crestview Drive, 
Smithfield, NC 27577) is an instructor of 
computer programming and data pro- 
cessing at Johnston Technical College. 
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The Spelling Bee Is Over 



Listen. We're going to let you in on an 
industry secret: It's not hard to make a good 
spelling checker. 

You see, although spelling checking is new 
for microcomputers, it's been around on big 
computers for years. And when you get past all 
the talk, most spelling checkers work the same 
way. They compare what you've written with a 
dictionary— and report the errors. 

So is there any difference? You bet: the 
dictionary, and the price. 

Who Checks The Checker? 

The hardest part of a spelling checker to 
make is the dictionary. It's hard to pick the right 
words— and spell every one of them perfectly. 
That's why some popular spelling checkers don't 
even contain real dictionaries. They use formulas 
called "hash tables." Which make a hash 
out of your spelling some of 
the time. 

Other spelling 
checkers "borrow" 
their words from 
printed dictionaries 
—or copy them 
from old word 
lists. Or give 
a programmer 
who can't spell 
"programmer" 
a chance to write his 
first dictionary. And 
as though all this 
wasn't bad enough, 
a lot of these 



companies want to charge you $ 100, or $200 or 
even S300! 

Random House to the Rescue 

The Random House ProofReader is based 
on the famous Random House Dictionary. It is 
the result of decades of careful work. And it was 
adapted for computer spelling checking by 
professional editors, linguists and scholars. So you 
can depend on it. 

Of course, our program is darn good, too. 
It's fast. It doesn't take up too much disk space. It 
shows you the error and the sentence it's in. It 
lets you correct the mistake without reediting. 
And if you don't know how to spell a word, it 
suggests the spelling. It even corrects 
your correction. 

The Random House ProofReader 
comes in sizes to fit all systems: 
20,000 words(55K), 32,000 
words (74K), 50,000 words 
( 108K) and 83,000 words 
( 180K). You can add your 
own words with a single 



mm. 





keystroke. And it 

works with all CP/M®, 

IBM Personal 

Computer®, and 

TRS-80® Model I/III 

word processors.* 

How much does 

the Random 

House 

ProofReader 

cost? Only $50.00. 

Why do we sell it 

for $50 when the 

others want 

up to $300? 

Don't ask us. Ask them. 



For orders or information, call 505-281 - 1634. VISA, Master Card accepted. Or write Random House ProofReader, Box 339-M, 
Tijeras, New Mexico 87059. Please enclose S50 and specify your computer model, disk size and memory. Dealer inquiries invited. 

* Random House and the House design are registered trademarks of Random House Inc. CP/M is a registered trademark of Digital Research. Inc. TRS-80 is a trademark of Tandy Corporation. 
IBM and IBM Personal Computer are registered trademarks of International Business Machines Corp. Dictionary copyright © 1982 Random House. Inc. Program and advertisement 
copy right © 1 982 Aspen Software. Inc. The TRS-80 versions do not suggest correct spellings. 



■See List of Advertisers on Page 563 
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UTILITY 



Disk Tiny Pascal 



by David M. Silver 



D 



id you have to abandon all your cassette- 
based Tiny Pascal programs when you upgraded 
to a disk system? David's got the answer. 



Do you want to modify Radio 
Shack's cassette-based Tiny Pascal 
for disk? This article carries on from 
where "Modify Tiny Pascal for 
Disk" left off (80 Micro, July 81). 

These machine-language programs 
will allow you to save and load source 
and compiled p-code programs using 
the disk. The cassette routines are still 
present so you can store all your old 
cassette programs on disk. 

An additional routine prints source 
programs, and a command returns 
control to DOS. You can even pre- 
pare source programs with word pro- 
cessors such as Scripsit or Electric 
Pencil. 

Tape to Disk 

The original 32K program loads in- 
to addresses 4D90H-73EFH. Upon 
execution, a block move transfers 
900H bytes from 4D90H down to 
4090H. According to the Tiny Pascal 
manual, addresses from 4060H up- 



The Key Box 

Model I 
32K RAM 
Tiny Pascal 
One Disk Drive 



ward are used, although I found no 
references to addresses below 4090H . 
However, DOS uses memory up to 
51FFH. In order to use the DOS rou- 
tines for disk I/O, the Tiny Pascal 
program must be relocated above the 
DOS area. We will shift Tiny Pascal 
by 1200H bytes, so it occupies memo- 
ry from 5290H upward. 

There are many ways to save the cas- 
sette program on disk. NEWDOS users 
can use the LMOFFSET program. The 
new load point address should be 
4D90H plus 1200H or 5F90H. Sup- 
press the appendage, and call the disk 
program PASCAL/CMD. 

Other programs, such as RSM-2D, 
perform the same function. 

A short machine-language program 
(see Listing 1) can also perform the 
job. Using Debug, type the hex code 
into 9000H-900DH. Then reset the 
computer while holding the break key 
down. Answer the memory-size 
prompt with enter. Enter System, fol- 
lowed by PAS32K, and load the 32K 
Tiny Pascal from cassette. At the next 
prompt type /36864. (This is the ad- 
dress of the block-move routine that 
is still in memory.) 

The routine moves the program to 
an area of memory above DOS and 
then reboots the computer, this time 
with disks. Now enter the following 
command: 



DUMP PASCAL/CMD (START =-X'5F90\ 
END = X'85EF') 

Tiny Pascal is now on disk, but not in 
an executable form. Addresses in the 
program still refer to the original pro- 
gram locations. We must change these 
references. (At this stage, make a back- 
up of this disk file in case you make er- 
rors in the following steps.) 

Completing Relocation 

Moving the program code in memo- 
ry was relatively simple. In the second 
stage we must offset all references to 
addresses 4090H-73EFH by 1200H by 
adding 12H to the most significant 
byte of these address references. Table 
1 lists all the addresses of bytes that 
must be altered, as well as the old and 
new contents of each byte. Change 
these by using Debug. 

I found other changes necessary. Be- 
cause the system often rebooted or 
hung up, I disabled the interrupts. 

The break key was no longer func- 
tional because Level II ROM jumps to 
400CH when the break key is pressed. 
A jump vector is placed here in DOS, 
whereas for Level II operation, there is 
just a return opcode. (I found that this 
was the only Level II environment ex- 
pected by Tiny Pascal.) I used a return 
opcode (C9H) to replace the jump op- 
code (C3H) at 400CH. 

Cassettes created by Tiny Pascal in- 
clude the address of the data to be 
loaded as part of each data block. The 
address bytes are also used in the 
checksum calculation. This meant that 
cassettes from the original Tiny Pascal 
would load into the original, lower 
area of memory and bomb the system. 
Since we always load data starting 
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from a known location (8900H for disk 
Tiny Pascal), the address information 
is unnecessary. I modified the cassette 
routines to accept cassettes created by 
both the original cassette version of 
Tiny Pascal and the disk version de- 
scribed in this article. (I doubt that 
you'll want to save programs on cas- 
sette anyway.) The new cassette rou- 
tines will also read cassettes created 
with the 16K version of Tiny Pascal. 

Table 1 also lists the changes neces- 
sary to solve these problems. Use De- 
bug and work methodically to avoid 
errors. If you change the wrong byte by 
mistake, the back-up copy of PAS- 
CAL/CMD may rescue you. Note that 
some locations are shown with xx as 
the original contents. These are in 
buffer areas in the original Tiny Pas- 
cal, and the contents may vary from 
copy to copy. 

Exit from Debug and enter the fol- 
lowing command: 

DUMP PASCAL/CMD (START- X'5F8A\ 
END = X'85EF',TRA = X'5F8A') 

Now test all your work to this stage; 
the program should perform identical- 
ly to the original cassette version. If 
you have problems, check all your 
modifications with Table 1. Ensure 
that you have made the correct changes 
for the memory size of your system. 



Determining the Bytes to be Changed 

The Tiny Pascal manual gives a 
memory map of the system. From this 
I determined that the bulk of the 
changes would be made to the inter- 
preter, I/O and runtime routines, and 
the entry-points table. The routines are 
written in machine language and the 
entry-points table refers to machine 
addresses. The remainder of the pack- 
age is p-code for the editor and compil- 
er. P-code is relocatable; modifications 
are only required if the p-code refers to 
an absolute memory address. In this 
case, a few references are made to the 
system control block in the editor and 
compiler p-code. 

Using a disassembler and the memo- 
ry map provided, I disassembled the 
original code from 4090H-498FH. 
(The code is placed there by the initial 
block move from 4D90H.) This is the 
only machine-language (not p-code) 
part of the system. The result was a 
heap of about 25 pages of Assembly 
code! All references to addresses in the 
range 4090H-73EFH would have to be 
changed for relocation. 

The most common instructions to be 
changed were jumps and calls, and 
loads to and from absolute addresses. 
Relative jumps do not have to be al- 
tered. No indexed addressing is used in 



the program, so all the references to 
addresses were listed by the disassem- 
bler. An exception was the most signif- 
icant byte of the address of the entry 
points table. This was used as data in 
one instruction and had to be altered. I 
also noted references to the location of 
the text buffer, editor p-code, compiler 
p-code, and run-time stack, as well as 
the memory size of the system. 

Another problem is distinguishing 
between data and program code. This 
is partly a matter of experience. 
Strange hex code is worth converting 
to ASCII: The resulting data is often a 
message. The area of strange code 
could also be used as a buffer. 

The source listing of the compiler in- 
dicated the references to the system 
control block in the compiler p-code. 
Since the address of the control block 
was defined as a constant in the listing, 
I expected to find the same value in the 
p-code. Similarly, expressions that 
used this constant would also need to 
have their corresponding p-code al- 
tered. I searched the p-code areas for 
references in the range 4180H-419BH, 
and noted the addresses. 

Adding the Extensions to Tiny Pascal 

The new commands with the exten- 
sions to Tiny Pascal are shown in 
Table 2. I used the original cassette 





Table I 




(Note that all address and byte values are in h 


ex) 


6013 6015 6021 6023 6025 6027 6029 605B 


605D 605F 


Change bytes at these addresses from 40 to 52: 


(relocation) 


6217 6275 6293 629D 62AF 62CB 62CE 62E3 


6311 6326 


5F95 663C 663F 6645 6648 666E 6699 66D2 


6729 6738 


6388 6524 6535 6558 6562 




673E 6784 678D 67BF 67CD 67FE 6804 6808 


6822 6833 






683A 6862 6882 




Change bytes at these addresses from 44 to 56: 


(relocation) 






602F 6031 6033 6035 6037 6039 6061 60FA 


617F 6260 


Change bytes at these addresses from 41 to 53: 


(relocation) 


6268 62DB 62E0 62E6 6304 630C 6314 632A 


6380 6390 


60A2 60A5 60A8 60B4 60E4 60F7 60FD 6107 


611C 611F 


639A 63A5 63A8 63AB 63B2 63B6 63CF 63D9 


63DD 63E1 


6123 6142 6177 6238 626C 627F 6284 6287 


628A 6376 


63E4 63EC 63EF 63F2 6410 6416 643C 644D 


6456 645C 


656E 6669 6680 6683 6686 6689 668C 6690 


6694 669F 


6471 64A5 64B0 64C4 64D5 64D8 64EB 6538 


65B5 65F8 


66A9 66BE 66C1 66C4 66CD 66D8 66DB 66DE 


66F0 66F4 


6600 660B 660F 661A 661E 




66FD 6701 6714 671C 6722 672F 6748 6756 


6759 6799 






67C7 67CA 6E35 6E3C 6E50 7086 71C8 71D0 


71DB 71E4 


Change bytes at these addresses from 45 to 57: 


(relocation) 


75E5 859A 




603B 603D 603F 6041 6043 6045 6047 6049 


604B 604D 






604F 6051 6053 6055 6057 631A 63E8 6431 


6451 646A 


Change bytes at these addresses from 42 to 54: 


(relocation) 


647E 6496 649C 64A2 64C9 64CC 64DF 65BC 




6001 6003 6005 6007 6009 600B 600D 600F 


6011 6017 






6019 601B 601D 601F 602B 602D 6101 6135 


6146 6166 


Change bytes at these addresses from 46 to 58: 


(relocation) 


6170 617C 6182 61A3 61A6 61BC 61BF 61D2 


61D6 61D9 


6059 6063 6065 6067 6069 606B 606D 606F 


6071 6073 


61EE 61F1 6211 623C 6346 634C 637D 63A2 


655F 


6075 60E8 6149 61AA 61C3 61DD 61F5 621B 


6225 6228 






6298 62AC 62D7 632F 6337 650D 6511 6517 


651F 6543 


Change bytes at these addresses from 43 to 55: 


(relocation) 




Table 1 continues 
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1-B00-621-437E 



COMPUTER 

Place 



LOW Prices/FR5T Service/Satisfaction Guarantee 



36 North Elk Str 



Sinduiky, Michigan 



48471 



PARTIAL LISTING - CALL FDR ANYTHING! - ME FILL YOUR NEEDS FAST! 
—..«».— 1-800-621-4372 (FREE outside Michigan) ——«■«■■■» 

»»»»,*»******«««:**»«**********»«****«*«******«««*************** 

MX-BO RIBBONS (in cartrage) REG. »14.95 »9.95 (WOW!) 
**M***«tt*****t**t ******************************************** 
...__„,_—__. 313-648-2341 (MICH. RESIDENTS) —————— 



*** Model III level III 


16K Special Price • 899 *«* 


*** MODEL III 48K DISKS 


(40SS/40SS) TRS-DOB • 1589 *** 


! ! GET ON OUR MAILING LIST 


AND GET 57. OFF ON SELECTED ORDERS ! I 



COLOR COMPUTER COLOR COMPUTER COLOR COMPUTER COLOR 



Spac 



Space Tradt 



** 16K »389 (WOW ) 
01001C Color S| 
01OO2C 
01003C 
01004C 
01004C 
1 005C 
01006C 
01007C 
1 OOBC 
01009C 
010 IOC 
010UC 
01012C 
01013C 
01014C 
1 ISC 
01016C 
01017C 
01801C 



2K (EXT) »499 (WOW 1 ) 



Gobbler 

Scarf man 
r'e Labyr 



Typing Tutc 



(tape utility) 



Tape Directory 
Disassembler 6809 
LOWER CASE OPTION 



(HARDWARE) 



64K (EXT) 
•21.93 
•21.93 
•21.95 
•21.93 
•14.95 
•19.93 
•21.95 
•19.93 
• 1 4 . 95 
•11.95 
•10.95 
•14.95 
•49.95 
•19.95 
•24.95 
•29.95 
•14.95 
•14.95 
•79.95 



>pecial - 

COMPUTER 
•399 ! ! ! 
19.93 
19.93 
19.95 
19.93 
12.95 
17.93 
19.93 
17.93 
12.93 
10.93 
9.93 
12.93 
39.95 
17.93 
22.95 
27.93 
12.93 
12.93 
74.93 



**** MODEL I 
** All progr 

080004 

018014 

08809A 

015014 

015024 

013034 

015O44 

015054 



GAMES i GAMES 

010014 Cati 

1 0024 A 1 1 1 

010034 

010044 

010054 

010064 

010074 

0800 1 4 

080024 

080034 

080104 

080114 



III » MODEL I i.. 1 1 
i-hardware-sof tware e 
MULT I DOS (Disk Operating 
Lynx Telephone Modem 
HAYES SMART MODEM (my Uv 
Bug + (tap* utility) 

Tape Copy (tape utility) 
TCIB/MAKE VC (disk) 

Postman 2.0 
MX-PRO 

GAMES 



SyBt! 



MODEL I !< Ill ***** 

•aillable - call ! ** 

n) reg «99 only 89 

•299 269 



MORE GOODIES 
0800 1 A Pr i i 

088011 Aer 

0880 IE Prai 

08701A 
08702A 
08703A 
08704A 



) «279 only 229 

•14.93 12.93 

•14.93 12.93 

(disk) «49.95 44.93 

(mail utility) «125 99 

(disk) «24.95 22.93 

GAMES = GAMES - GAMES - GAMES - GAMES 

(D) 19.95/17.93 (T) 13. 93/ 1 3. 95 

(D) 19.95/17.93 

(D) 19.93/17.93 

(D) 19.95/17.95 

(D) 19.95/17.93 

n <D> 19.95/17.95 

(D) 19.95/17.95 

(D)24. 95/20. 95 

(D> 19.95/17.95 

(D) 19.95/17.95 

(D)24. 95/22. 95 

(D) 19.93/17.93 

MORE GOODIES 

Clear «24.95 

List «159 

Practical Peripherals Print Buffi 

WABASH DISKS (Single Dens.) list »21.93 

WABASH DISKS (D/D 77/80 trk) list «34.99 



(T) 13. 93/13.95 
(T) 13.95/13.93 
(T) 15.93/13.95 
(T) 15.93/13.93 
(T) 13.95/13.95 
(T) 13.93/13.93 
(T>24. 93/20. 93 
(T) 16.93/14.95 
(T) 13.95/13.95 
(T) 19.95/17.93 
(T) 13.93/13.95 
MORE GOODIES 
Bronze »27.95 
Special 134 
(EPSON) * 139 * 

* 19.93 * 

* 32.99 * 
WABASH DISKS (D/D SO 2-sides)llst «42.95 * 39.95 * 
WABASH FLIPPYS ( Call 1 -800-621 -4372/31 3-648-2341 ) 



Fortress 

Super Vaders 

Super Nova 

Galaxy Invasion 

Cosmic Fighter 

PENETRATOR 

HOPPY (FROGGER) 

CATERPILLAR 

CYBORG (NEW) 

OUTHOUSE 

MORE GOODIES 



Doubler 



CALL FREE FROM OUTSIDE MICHIGAN (24 hr HOTLINE) 800-621-4372 
MICHIGAN RESIDENTS 1-313-648-2341 (the LOW prices pay for it) 
MAJOR CREDIT CARDS ACCEPTED OVER THE PHONE - C.O.D. - M. 0. - 

prices subject to change without notice •3.00 shipping - 

To Order by Mail Include (1) Full Name (2) Phone tt (3) Order 
(4) Model (5) Mem Size (6) Disk or Tape (7) Charge • (8) Ad 
ordered -from (9) Single or Double Density -Disk (10) Exparat- 
Date or Credit Card * (allow two weeks for checks to clear)* 



1-800 -621 -4372 





mw&^ 



LOU Pr i ce's/FRET 5ervice/Sati sfac+ion Guarantae 
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Tabic I continued 

654A 658E 65A3 65C3 

Change bytes at these addresses from 47 to 59: (relocation) 
5F9D 6077 6095 60B7 665B 66F7 6704 6735 6744 679C 

Change bytes at these addresses from 48 to 5A: (relocation) 

6642 664B 664E 6660 6665 6671 6675 667C 669C 66A3 

66A6 66B5 66C9 66E1 66EA 66ED 66FA 6707 6710 673B 
6741 6791 679F 67A9 67B0 67B8 67C2 6825 

Change bytes at these addresses from 49 to 5B: (relocation) 
608F 6732 6828 

Change at 5F8A to 5F8F: (enable Break key & disable 
from xx xx xx xx xx xx interrupts) 
to 3E C9 32 0C 40 F3 



Change bytes at 

from 4D to 5F: 

from F0 to 01 

from 73 to 8! 

from 56 to 61 

from 5F to 71: 

from BF to FFi 



from 


0C 


to 


23 


from 


F2 


to 


56 


from 


40 


to 


88 


from 


12 


to 


F2 


from 


02 


to 


52 


from 


22 


to 


CD 


from 


98 


to 


F9 


from 


35 


to 


CC 


from 


02 


to 


53 


from 


77 


to 


00 


from 


2B 


to 


IB 


from 


EB 


to 


00 



these addresses 

5F92 (relocation of initial block move) 

6080 608C (relocation of source buffer) 

6081 608D " " " ■ 
6089 (relocation of editor p-code) 
608B (relocation of compiler p-code) 
(for 48k systems only) 6091 6093 (memory 

size) 
676D 6773 (space for DOS DCB + 3) 

6750 677E (relocation of command buffer) 

6751 677F ( " ) 
67CF (remainder of the changes are 

67D0 patches for the cassette loader) 

6802 

6803 

6 80D 

680E 

680F 

6 82F 

6830 



Change at 5FF2 to 5FFD 

from xx xx xx xx xx xx xx xx xx xx xx xx 

to CD 12 02 11 00 89 C9 ED 53 98 52 C9 

Change at 60CC to 60D1: 
from xx xx xx xx xx xx 

to CD 35 02 12 13 C9 



Change bytes at 


these 


addresses 


from 4C to 47: 


6658 


(change 'L' to 'G' for cassette load) 


from 57 to 53: 


665D 


(change 'W to 'S' for cassette save) 


from 95 to F0: 


6664 


(patch extension to monitor) 


from 5A to 85: 


6665 


( " " " " J 

Table 3 



commands for the equivalent disk op- 
erations because I still tended to type 
LS when I wanted to load a source 
file from disk. Since I expected to use 
the cassette routines rarely after the 
initial rush to store cassette programs 
on disk, changing the names of the 
cassette commands caused no incon- 
venience. 

To access these extensions to Tiny 
Pascal, the monitor must recognize the 
new commands and jump to the re- 
quired routine. Program Listing 2 is 
the Assembly code for the extended 
monitor and routines. The comments 



with the program describe its 
operation. 

For the disk operations, the return 
opcode at 400CH is replaced by a 
jump; this is restored upon completion 
of disk I/O to reenable the break key. I 
have used the standard DOS Open and 
IN IT calls, as well as the write-byte-to- 
disk (Call 1BH)) and read-byte-from- 
disk (Call 13H)) routines. 

Because p-code can contain bytes of 
any value, an EOF byte cannot be de- 
fined. Thus, my routines store the byte 
count of the p-code program as the 
first two bytes of the file, followed by 



Command 


Function 


SS filespec 


Save source program on cassette (same as old WS) 


SP filespec 


Save P-code on cassette (same as old WP) 


GS filespec 


Get source program from cassette (same as old LS) 


GP filespec 


Get p-code from cassette (same as old LP) 


WS filespec 


Save source program on disk 


WP filespec 


Save p-code on disk 


LS filespec 


Load source program from disk 


LP filespec 


Load p-code from disk 


P 


Print source program 


X 


Return to DOS 




Table 2 







00100 
00110 
00120 
00130 
00140 












00150 


********* PROGRAM TO MOVE TINY PASCAL ********** 






00160 












00170 


WRITTEN BY D 


M. SILVER 12TH NOV. 1981 






00180 


15 


HOWARD ST 


KEW 3101. VIC. AUSTRALIA 






00190 








9000 




00200 




ORG 


9000H 


9000 


21EF73 


00210 


40VE 


LD 


HL,73EFH ;END OF TINY PASCAL 


9003 


11EF85 


00220 




LD 


DE,85EFH ; DESTINATION 


9006 


016026 


00230 




LD 


BC,2660H ;BYTE COUNT 


9009 


EDB8 


00240 




LDDR 


;MOVE IT 


900B 


C30000 


00250 




JP 


; RE BOOT SYSTEM 


9000 




00260 




END 


MOVE 


00000 TOTAL 


ERRORS 
















Program Listing I 









Program Listing 2 






00100 








00110 








00120 








00130 








00140 








00150 


.********** EXTENSIONS FOR DISK TINY PASCAL ********* 






00160 








00170 


; WRITTEN BY D.M. SILVER 12TH NOV. 1981 






00180 


; 15 HOWARD ST. KEW 3101. VIC. AUSTRALIA 






00190 








00200 


.************** CONTINUATION OF MONITOR ************* 






00210 




85F0 




00220 


ORG 85F0H 


85F0 


FE58 


00230 


MONCTD CP 'X 1 ;TEST FOR RETURN TO DOS COMMAND 


85F2 


CA4E87 


00240 


JP Z,EXIT 


85F5 


FE50 


00250 


CP 'P' ;TEST FOR PRINT COMMAND 

Listing 2 continued 



the p-code. The byte count informa- 
tion is then used by the loader to deter- 
mine the number of bytes to read. 

Add the hex code to PASCAL/ 
CMD by using Debug or creating the 
file using EDTASM. First, load the 
PASCAL/CM D file you created previ- 
ously. Then enter Debug and type the 
hex code into locations 85FOH-8755H, 
or load the assembled EDTASM ob- 
ject code. Finally, patch these new rou- 
tines into PASCAL/CM D and change 
the names of the cassette commands. 
Table 3 lists the addresses of the four 
bytes to be changed, along with the old 
and new values. 

Then enter the following command: 

DUMP PASCAL/CMD (START = X'5F8A\ 
END = X'8755',TRA = X'5F8A') 

You should now have a fully opera- 
tional disk version of Tiny Pascal. The 
disk I/O routines incorporate error- 
checking and display the conventional 
DOS error messages. Note that there 
must be only one space between a disk 
command (such as LS) and the file 
name. You can stop the print routine at 
any time by pressing the break key. 
This allows you to escape if you acci- 
dentally try to print a long file or if you 
don't have a printer connected. That's 
right — no more computer hangups! 

I have tried this Tiny Pascal with 
TRSDOS 2.3, NEWDOS 2.1, and 
NEWDOS80. When a disk error oc- 
curs in TRSDOS, the message dis- 
played is followed by meaningless 
graphics that scroll the message off the 
screen. However, control still returns 
to the monitor. I don't know why this 
occurs since I used a documented TRS- 
DOS call. 

Finally, the routine that loads source 
code from disk is compatible with 
word processors such as Scripsit and 
Electric Pencil. The routine accepts the 
ASCII characters between 20H and 
7FH, carriage return (ODH), and the 
Tiny Pascal editor tab character (09H). 
Any other hex code is interpreted as the 
EOF byte. Scripsit users should save 
the files with the ASCII option. Delet- 
ing to the end of text after the last char- 
acter is also a sensible precaution to 
avoid garbage after the last valid char- 
acter (which should be an end-of-line 
marker). Also, the only control charac- 
ter used should be the end-of-line 
marker — include no formatting in- 
structions! 

Disk Tiny Pascal is quite a powerful 
package for applications requiring on- 
ly integer arithmetic. Now all you disk 
users can publish programs written in 
Tiny Pascal! ■ 

80 Micro, Anniversary 1983 • 395 



Listing 2 continued 




















85F7 


CA17 87 


00260 




JP 


Z, PRINT 








85FA 


FE4C 


00270 




CP 


'L' 


;TEST FOR DISK" LOAD COMMAND 






85FC 


C20F86 


00280 




JP 


NZ, TESTW 








85FF 


CD825A 


00290 




CALL 


5A82H 


;GET CHARACTER FOLLLOWING 'L' 






8602 


FE53 


00300 




CP 


'S 1 


;TEST FOR LOAD SOURCE COMMAND 






8604 


CA9786 


00310 




JP 


Z,LS 








8607 


FE50 


00320 




CP 


■ pi 


;TEST FOR LOAD P-CODE COMMAND 






8609 


CAC6 86 


00330 




JP 


Z,LP 








860C 


C3955A 


00340 




JP 


5A95H 


;BAD COMMAND, RETURN TO MONITOR 






860F 


FE57 


00350 


TESTW 


CP 


•W 


;TEST FOR WRITE TO DISK COMMAND 






8611 


C2955A 


00360 




JP 


NZ,5A95H 


;BAD COMMAND, RETURN TO MONITOR 






8614 


CD825A 


00370 




CALL 


5A82H 


;GET CHARACTER FOLLOWING 'W' 






8617 


FE53 


00380 




CP 


'S' 


;TEST FOR WRITE SOURCE CODE 






8619 


CA2486 


00390 




JP 


Z,WS 








861C 


FE50 


00400 




CP 


■ pi 


;TEST FOR WRITE P-CODE COMMAND 






861E 


CA5A86 


00410 




JP 


Z,WP 








8621 


C3955A 


00420 
00430 
00440 




JP 


5A95H 


,-BAD COMMAND, RETURN TO MONITOR 










00450 


.*************** WRITE SOURCE CODE TO DISK ************** 










00460 














8624 


3A8353 


00470 


ws 


LD 


A, (5383H) 


;TEST FOR VALID SOURCE 






8627 


B7 


00480 




OR 


A 








8628 


CA365A 


00490 




JP 


Z r 5A36H 








862B 


CD0987 


00500 




CALL 


SETUP 


;SET UP DOS CALL AND VECTOR 






862E 


CD2044 


00510 




CALL 


4420H 


;CALL DOS INIT & TEST FOR ERROR 






8631 


C2FB86 


00520 




JP 


NZ, ERROR 








8634 


2A8053 


00530 




LD 


HL, (5380H) 


;LOAD POINTER TO SOURCE CODE 






8637 


7E 


00540 


LOOP1 


LD 


A, (HL) 


;GET TEXT BYTE FROM BUFFER 






8638 


FEFF 


00550 




CP 


0FFH 


;TEST FOR END-OF-FILE 






863A 


2809 


00560 




JR 


Z,EOFl 








863C 


CD1B00 


00570 




CALL 


1BH 


;WRITE BYTE TO DISK 






863F 


C2FB86 


00580 




JP 


NZ, ERROR 








8642 


23 


00590 




INC 


HL 


; UPDATE POINTER TO SOURCE CODE 






8643 


18F2 


00600 




JR 


LOOP1 


;LOOP FOR NEXT BYTE 






8645 


CD1B00 


00610 


EOFl 


CALL 


1BH 


;WRITE EOF BYTE (FF) TO DISK 






8648 


C2FB86 


00620 
00630 




JP 


NZ, ERROR 








864B 


CD2844 


00640 


FINISH 


CALL 


4428H 


; CLOSE FILE 






864E 


C2FB86 


00650 




JP 


NZ, ERROR 








8651 


F3 


00660 




DI 




; DISABLE INTERRUPTS 






8652 


3EC9 


00670 




LD 


A,0C9H 


; RESTORE BREAK KEY OPERATION 






8654 


320C40 


00680 




LD 


(400CH) ,A 








8657 


C34359 


006 90 
00700 
00710 




JP 


5943H 


; RETURN TO MONITOR 










00720 


.*************** WRITE P-CODE TO DISK ************** 










00730 














865A 


3A8753 


00740 


WP 


LD 


A,(5387H) 


;TEST FOR VALID P-CODE 






865D 


B7 


00750 




OR 


A 








865E 


CA275A 


00760 




JP 


Z,5A27H 








8661 


CD0987 


00770 




CALL 


SETUP 


;SET UP DOS DCB AND VECTOR 






8664 


CD2044 


007 80 




CALL 


4420H 


;CALL DOS INIT 






8667 


C2FB86 


00790 




JP 


NZ, ERROR 








866A 


2A8653 


00800 




LD 


HL, (5386H) 


; CALCULATE LENGTH OF P-CODE 






866D 


ED4B8453 


00810 




LD 


BC, (5384H) 








8671 


AF 


00820 




XOR 


A 








8672 


ED42 


00830 




SBC 


HL,BC 








8674 


23 


00840 




INC 


HL 








8675 


4D 


00850 




LD 


C,L 


; STORE BYTE COUNT IN BC REG 






8676 


44 


00860 




LD 


B,H 








8677 


79 


00870 




LD 


A,C 








8678 


CD1B00 


00880 




CALL 


1BH 


;WRITE BYTE COUNT LSB TO DISK 






867B 


C2FB86 


00890 




JP 


NZ, ERROR s 








867E 


78 


00900 




LD 


A,B 








867F 


CD1B00 


00910 




CALL 


1BH 


;WRITE BYTE COUNT MSB TO DISK 






8682 


C2FB86 


00920 




JP 


NZ, ERROR 








8685 


2A8453 


00930 




LD 


HL, (5384H) 


;LOAD POINTER TO P-CODE 






8688 


7E 


00940 


LOOP2 


LD 


A, (HL) 


;GET BYTE OF P-CODE 






8689 


CD1B00 


00950 




CALL 


1BH 


; WRITE BYTE TO DISK 






868C 


C2FB86 


00960 




JP 


NZ, ERROR 








868F 


23 


00970 




INC 


HL 


; UPDATE POINTER TO P-CODE 






8690 


0B 


00980 




DEC 


BC 


; UPDATE BYTE COUNT 






8691 


79 


00990 




LD 


A,C 








8692 


B0 


01000 




OR 


B 








8693 


20F3 


01010 




JR 


NZ,LOOP2 


;LOOP IF MORE BYTES TO WRITE 






8695 


18B4 


01020 
01030 
01040 




JR 


FINISH 


; CLOSE FILE, ETC. 










01050 


. ************** 


LOAD SOURCE 


CODE FROM DISK ************** 










01060 














8697 


CD0987 


01070 


LS 


CALL 


SETUP 


;SET UP DOS DCB AND VECTOR 






869A 


CD2444 


01080 




CALL 


4424H 


;CALL DOS OPEN 






869D 


C2FB86 


01090 




JP 


NZ, ERROR 








86A0 


2A8053 


01100 




LD 


HL, (5380H) 


;LOAD POINTER TO SOURCE CODE 






86A3 


CD1300 


01110 


LOOP3 


CALL 


13H 


;READ BYTE FROM DISK 






86A6 


C2FB86 


01120 




JP 


NZ, ERROR 








86A9 


FE0D 


01130 




CP 


0DH 


;TEST FOR VALID CHAR - MUST BE 






86AB 


280E 


01140 




JR 


Z,OK 


;09H, 0DH, OR BETWEEN 20H & 7FH 






8 6 AD 


FE09 


01150 




CP 


09H 


; INCLUSIVE 






86AF 


280A 


01160 




JR 


Z,OK 








86B1 


FE20 


01170 




CP 


20H 








86B3 


FABF86 


01180 




JP 


M,EOF2 


;IF NOT VALID CHAR, MUST BE EOF 






86B6 


FE7F 


01190 




CP 


7FH 








86B8 


F2BF86 


01200 




jp 


P,EOF2 








86BB 


77 


01210 


OK 


LD 


(HL) ,A 


; STORE BYTE IN TEXT BUFFER 


Listing 2 continues 



396 • 80Micro, Anniversary 1983 



Listing 2 continued 
















86BC 23 


01220 




INC 


HL j 


UPDATE POINTER TO SOURCE CODE 




86BD 18E4 


01230 




JR 


L00P3 j 


LOOP FOR NEXT CHARACTER 




86BF 36FF 


01240 


EOF 2 


LD 


(HL) f 0FFH , 


STORE EOF BYTE IN TEXT BUFFER 




86C1 228253 


01250 




LD 


(5382H) ,HL , 


STORE END OF SOURCE ADDRESS 




86C4 1885 


01260 




JR 


FINISH ; 


CLOSE FILE, ETC. 






01270 












01280 














01290 


; *************** load P-CODE FROM DISK ************** 






01300 












86C6 CD0987 


01310 


LP 


CALL 


SETUP 


SET UP DOS DCB AND VECTOR 




86C9 CD2444 


01320 




CALL 


4424H 


CALL DOS OPEN 




86CC C2FB86 


01330 




JP 


NZ, ERROR 






86CF 2A8053 


01340 




LD 


HL, (5380H) 


LOAD POINTER TO P-CODE 




86D2 228453 


01350 




LD 


(5384H) ,HL 


STORE START OF P-CODE ADDRESS 




86D5 CD1300 


01360 




CALL 


13H 


READ LSB OF BYTE COUNT FROM DISK 




86D8 C2FB86 


01370 




JP 


NZ, ERROR 






86DB 4F 


01380 




LD 


C,A 






86DC CD1300 


01390 




CALL 


13H 


READ MSB OF BYTE COUNT FROM DISK 




86DF C2FB86 


01400 




JP 


NZ, ERROR 






86E2 47 


01410 




LD 


B,A 


BYTE COUNT IS IN BC REG 




86E3 CD1300 


01420 


LOOP4 


CALL 


13H 


"READ BYTE OF P-CODE FROM DISK 




86E6 C2FB86 


01430 




JP 


NZ, ERROR 






86E9 77 


01440 




LD 


(HL) ,A 


STORE P-CODE IN BUFFER 




86EA 23 


01450 




INC 


HL 


UPDATE POINTER TO P-CODE 




86EB 0B 


01460 




DEC 


BC 


DECREMENT BYTE COUNT 




86EC 79 


01470 




LD 


A,C 






86ED B0 


01480 




OR 


B 






86EE 20F3 


01490 




JR 


NZ,L00P4 


LOOP IF MORE BYTES TO BE READ 




86F0 2B 


01500 




DEC 


HL 






86F1 228653 


01510 




LD 


(5386H) ,HL 


STORE END OF P-CODE ADDRESS 




86F4 AF 


01520 




XOR 


A 






86F5 328353 


01530 




LD 


(5383H) ,A 


ZERO END OF SOURCE ADDRESS 




86F8 C34B86 


01540 
01550 
01560 




JP 


FINISH 


CLOSE FILE, ETC. 






01570 


. ************* 


DISK ERROR ROUTINE ************** 






01580 












86FB F680 


01590 


ERROR 


OR 


80H 


SET UP DOS ERROR CODE 




86FD CD0944 


01600 




CALL 


4409H 


DISPLAY DOS ERROR MESSAGE 




8700 3EC9 


01610 




LD 


A,0C9H 


RESTORE BREAK KEY OPERATION 




8702 320C40 


01620 




LD 


(400CH) ,A 






8705 F3 


01630 




DI 




DISABLE INTERRUPTS 




8706 C34359 


01640 
01650 
01660 




JP 


5943H 


RETURN TO MONITOR 






01670 


.*************** SET UP DCB 


FOR DOS CALL ************** 






01680 












8709 115988 


01690 


SETUP 


LD 


DE,DCB+3 


ADDRESS OF FILE NAME 




870C 215687 


01700 




LD 


HL, BUFFER 


ADDRESS OF BUFFER FOR DISK I/O 




870F 0600 


01710 




LD 


B,0 


LRL=256 BYTES 




8711 3EC3 


01720 




LD 


A,0C3H 


SET UP DOS VECTOR 




8713 320C40 


01730 




LD 


(400CH) ,A 






8716 C9 


01740 
01750 
01760 




RET 










01770 


.******************* print ROUTINE ****************** 






01780 












8717 3A8353 


01790 


PRINT 


LD 


A,(5383H) 


TEST FOR VALID SOURCE FILE 




871A B7 


01800 




OR 


A 






871B CA365A 


01810 




JP 


Z,5A36H 






871E 2A8053 


01820 




LD 


HL,(5380H) 


LOAD POINTER FOR SOURCE CODE 




8721 7E 


01830 


PLOOP 


LD 


A,(HL) 


GET BYTE OF TEXT 




8722 FEFF 


01840 




CP 


0FFH 


TEST FOR END OF FILE 




8724 CA4359 


01850 




JP 


Z,5943H 


RETURN TO MONITOR WHEN FINISHED 




8727 FE09 


01860 




CP 


9 


TEST FOR TAB CHARACTER 




8729 200C 


01870 




JR 


NZ,P1 






872B 3E20 


01880 




LD 


A,20H ;I 


' TAB, SUBSTITUTE WITH 3 SPACES 




872D CD3D87 


01890 




CALL 


PCHAR ; PRINT SPACE 




8730 3E20 


01900 




LD 


A,20H 






8732 CD3D87 


01910 




CALL 


PCHAR ; PRINT SPACE 




8735 3E20 


01920 




LD 


A,20H 






8737 CD3D87 


01930 


1=1 


CALL 


PCHAR ; P 


UNT CHARACTER 




873A 23 


01940 




INC 


HL ;U 


'DATE POINTER TO SOURCE CODE 




873B 18E4 


01950 




JR 


PLOOP ; L 


30P TO PRINT NEXT CHARACTER 




873D 32E837 


01960 


PCHAR 


LD 


(37E8H),A ;P 


UNT CHARACTER 




8740 CDC453 


01970 


WAIT 


CALL 


53C4H ;C 


U,L INKEY ROUTINE 




8743 CA4359 


01980 




JP 


Z,5943H ;I 


"■ BREAK KEY, RETURN TO MONITOR 




8746 3AE837 


01990 




LD 


A,(37E8H) ;G 


3T PRINTER STATUS 




8749 CB7F 


02000 




BIT 


7, A 






874B 20F3 


02010 




JR 


NZ,WAIT ;L( 


X>P WHILE BUSY 




874D C9 


02020 
02030 
02040 




RET 










02050 


.********,***.***« HI-TURK -0 


)0S ****************** 






02060 












874E 3EC3 


02070 


EXIT 


LD 


A,0C3H ;R 


SSTORE DOS VECTOR 




8750 320C40 


02080 




LD 


(400CH) ,A 






8753 C32D40 


02090 
02100 
02110 




JP 


402DH ;J 


JMP TO DOS 






02120 


.**************** BUFFER AREA 


5 ***************** 






02130 












0100 


02140 


BUFFER 


DEFS 


256 ;B 


JFFER FOR DOS I/O 




0023 


02150 


DCB 


DEFS 


35 ;C 


DMMAND BUFFER AND DOS DCB 




0000 


02160 




END 








00000 TOTAL ERRORS 
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RELOAD SO 



by Art Huston 



Charter subscribers to 80 Micro re- 
member the dark days... long 
hours spent typing in a program only 
to have it crash with a typing error. 
Since April 1981, Load 80 has been 
making such aggravation a thing of 
the past. 

An ad in the April 1981 magazine in- 
troduced Load 80 as "a monthly dump 
of the major program listings in 80 Mi- 
crocomputing on cassette." 

This column began in August 1981 
as technical advice to Load 80 users, 
and in March 1982 Load 80 expand- 
ed to include disks. Originally con- 
ceived for the Model I/III only, 
Load 80 begins coverage of the Col- 
or Computer in December 1982, and 
now has plans to appear on a major 
networking service. 

This Anniversary Reload 80 column 
is a complete guide to using Load 80. 

Model I and 111 Load 80 

Tapes for the Model I and III are 
available monthly for $9.97 or at a 
yearly subscription rate of $99.97. 
Each tape is 30 minutes long and re- 
corded at 500 baud (the low rate for the 
Model III). The tapes usually include 
12 or more programs totalling up to 
100K bytes. 

Disks for the Model I and III are 
$19.97 each or $199.97 for a year's 
subscription. The disks are Model I, 
single-density, 35-track data disks. 
They are ready to use in a Model I and 
in a Model III after using the TRSDOS 




Index and 
guide to 
Load 80 



Convert utility (see details below). The 
disk is two sided and can be flipped to 
read both sides. As with tapes, the 
disks include 12 or more programs. 

A special Anniversary Load 80 is 
available for the Model I and III on 
both tape and disk for $9.97 and 
$19.97. Articles with programs includ- 
ed in Load 80 are marked with the 
Load 80 logo in the index and on the 
first page of the article. A complete list 
is also printed below in the Load 80 
directory. 

Back issues of all Load 80s are avail- 
able. Some of the programs published 
in the last year include two machine- 
language monitors in April, a machine- 
language disk zapper in June/ July, 23 



Program 


Title 


Page 


Comments 


1 


COPYRGHT/BAS 


— 


None 


2 


XASMZ865/BAS 


130 


None 


3 


STARTRCK/BAS 


156 


None 


4 


CASSREAD/BAS 


164 


None 


5 


CASSREAD/SRC 


164 


Needs EDTASM 


6 


GALLERY/BAS 


190 


None 


7 


SENTENCE/BAS 


228 


None 


8 


DSKCLEAN/BAS 


238 


None 


9 


SPCBOMBR/SRC 


244 


Needs EDTASM 


10 


DVMUS1C/BAS 


253 


None 


11 


DVMUS1C/SRC 


253 


Needs EDTASM 


12 


FLEXCAT1/BAS 


264 


None 


13 


FLEXCAT2/BAS 


264 


None 


14 


FLEXCAT3/BAS 


264 


None 


15 


CATALOGS/BAS 


316 


None 


16 


PROGRAMA/BAS 


316 


None 


17 


PROGRAMB/BAS 


316 


None 



Anniversary Load 80 Directory 



games in August's game issue, and a 
Basic Compiler in October. A com- 
plete listing of all programs ever in- 
cluded on Load 80 is published in this 
special issue of 80 Micro. 

Color Computer Load 80 Cassettes 

The first Color Computer Load 80 is 
available starting with the December 
1982 80 Micro. This cassette version of 
the major 1982 Color Computer pro- 
gram listings is available for only 
$14.97. 

Subsequent Color Load 80s will be 
available every three months covering 
the past three issues of the magazine 
for only $9.97. At the Color Comput- 
er's 1,500-baud rate, these 15-minute 
tapes are real bargains. Color Load 80 
is not available for this special issue. 

Documentation 

The Load 80 documentation consists 
of a list of the programs, the language 
each is in, and a phone number and 
name to call if you need help. The doc- 
umentation for the individual pro- 
grams are the accompanying articles in 
80 Micro. If you don't read it you can- 
not expect to use Load 80. 

Each program is the program listing 
as it appears in the magazine. Some 
programs include remark statements 
detailing changes needed to run under 
different systems. Your guide, how- 
ever, should be the keybox on the first 
page of each article. If your system is 
not listed there, the program will prob- 
ably not run correctly on it. 

This column is also a valuable source 
of Load 80 information, on everything 
from loading tapes to modifying pro- 
grams to run under different systems. 

Model I/III Cassettes 

Model I/III cassettes are written at 
500 baud. Model III users must re- 
spond L to the CASS? prompt or type 
POKE 16913,0 to set the baud rate 
low. On the Model 1 with Disk Basic, 
type CMD"T" before loading any 
files. 

Basic files are loaded by using 
CLOAD'Tile name." If you use disks, 
a simple SAVE'Tile name" will save 
the program to disk. 

Loading tapes requires changing the 
volume on the recorder. Start at one 
end of the volume scale and work up if 
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you have trouble. Other measures that 
might help are aligning the heads of the 
recorder (see September 1981 Reload 
80), demagnetizing the heads, or clean- 
ing the heads. 

Model I/III Disks 

Load 80 disks are supplied on 
TDOS (TinyDOS), the DOSPLUS 
3.4 kernel. These disks are Hippies, 
meaning that each side has data on it. 
To read the other side, simply flip the 
disk over. 

Model I users can simply insert the 
disk in drive 0. Model III users must 
use Convert to copy the files to 
TRSDOS: 

• Back up a copy of TRSDOS. Insert 
the back-up in and remove the 
other disk. 

• Type Purge and then the master 



password for the back-up disk. 

• Type Y for each file. It will be 
purged from the back-up disk. 

• Insert the Load 80 disk in drive 1. 
Type Convert. 

• Answer source as 1, destination as 
0. The Load 80 files will be copied 
from the Load 80 disk onto the 
TRSDOS disk. 

• Flip the Load 80 disk and repeat the 
last two steps. 

All Load 80 files are now on your 
TRSDOS disk, ready for use. 

Basic files are loaded by entering 
Disk Basic and typing LOAD"file 
name." Remember that if a program is 
written for a cassette-based machine, it 
might not run on your system. 

Using Assembly-Language Files 

Many utilities and high-speed games 



are written in machine language/These 
programs are a numeric code immedi- 
ately recognizable to the computer. 
For instance, the sequence of numbers 
33,0,60,54,65 means "place a 65 in 
memory address 15360." 

Machine-language programs are 
written using Assembly language, 
which uses more English-like instruc- 
tions than machine language. For ex- 
ample: 

LD HL, 15360 
LD (HL),65 

means the same as the sequence of 
numbers above. Instructions like this 
are called source code and must be as- 
sembled into machine language before 
being executed. 

So programmers can have the option 



TWO GIANTS AT YOUR FINGERTIPS . . . 



THE MOST POWERFUL & MOST USER-ORIENTED 
COMMUNICATIONS SYSTEM TERMINAL PACK- 
AGE AVAILABLE FOR TRS-80 MODEL III USERS I 

TELETERM will turn any Model III, with at least 32 K of memory, 
single disk drive, and RS-232-C board and modem into an Intelligent 
Terminal capable of communicating with nearly all types of computer 
hardware. AND, it will allow you to define its parameters in virtually 
any way you wish I 

Only TELETERM gives you these (plus many more) features, all in 
a single package. 



DIRECT TRS-80 to TRS-80 
DISK TO DISK TRANS- 
MISSION* 

DIRECT FILE TRANS- 
MISSION FROM DISK** 
SUPPORTS PROMPTED OR 
NON-PROMPTED TRANS- 
MISSION 

ON-LINE/OFF-LINE TEXT 
EDITOR 

"when co 

VIDEO PAGING -to any 

Available for MOD I 



SPLIT-WINDOW VIDEO 

RECALL SCREEN 

WORD WRAPPING 

USER-DEFINABLE 
TRANSLATION TABLES 

VIDEOTEX CODES 
SUPPORTED 



mmunicatmg with another TELETERM system 
computer with which you can communicate 

'& IBM-PC early in 1983 



TELEBOSS — THE COMPREHENSIVE DATA 
ENTRY/OUTPUT PROGRAM GENERATOR 
THAT ALSO FORMS A NATURAL FRONT-END 
FOR TELETERM I 

With TELEBOSS, your Model Ill's become powerful, user- friendly 
data entry terminals into mini's and mainframes. 

TELEBOSS allows you to enter, modify, validate, and store data 
on inexpensive floppy disks and then transfer these files without 
tying up expensive communications ports or CPU time on the main 
computer system. 

Best of all, you define all input and output specifiers . . . 



Screen formats 
Validation criteria 



• Data file structures 

• Report formats 



TELEBOSS interfaces with the highly flexible TELETERM commun- 
ications package, giving you the capability of communicating with 
virtually any kind of computer hardware. * 



*to any computer with which you can communicate 
Requires 48K computer 

Available for MOD II & IBM-PC early in 1983 



ORDER TODAY: Write or fill in the coupon and mail it 
TELEXPRESS, INC., P.O. Box 2 



with your check, money order, VISA or MasterCharge # to: 
1 7, Willingboro, New Jersey 08046 



TELEXPRESS ™ Inc. 

P.O. Box 217 

Willingboro, NJ 08046 

(609) 877-4900 



TRS-80 is a trademark 
of the Tandy Corporation 



Name. 



Address . 



City, State, Zip. 
Phone 



Payment: Check Money Order. 

VISA MasterCharge 

Amount of Payment $ 



Send me copies of TELETERM @ S ] 25 per copy 

including User's Manual. 
Send me copies of the TELETERM User's Manual 

@ S 1 per copy (Refundable when 

TELETERM package is purchased). 
Send me copies of the TELEBOSS @ S 295.00, 

including User's Manuals. 



For Credit Cards Only: 



Acct#. 



Exp. Date. 



Credit Card Holders may expedite orders by 
phoning: (609) 877-4900. 



of modifying the program, Load 80 
sells programs in Assembly language, 
not machine language. This requires 
that you own an editor /assembler, a 
program that writes (edits) Assembly 
language and assembles it. Two such 
programs are EDTASM from Radio 



Shack and EDTASM-Plus from Appa- 
rat. Not all editor /assemblers will load 
files from both tape and disk, so be 
sure you buy the right one. 

Radio Shack introduced their disk 
version of EDTASM later than many 
other companies and made their source 



code incompatible. For this reason 
Load 80 uses the Apparat format for 
source code. If you are buying Load 80 
disks be sure to buy an editor/assem- 
bler that uses the same format. 

Basic programs do not, of course, 
require an editor/assembler. ■ 



Lo 


ad 80 1 


nde 


x, 1981-" 


1982 




Program 


Page 


Program 


Page 


Month Year Name 


Number 


Month Year Name 


Number 


April 1981 COMPARE 


271 


LUNAR 


244 




EDUC4 


144 


P/CMD 


246 




EDUC8 


144 


ELECTR 


288 




CENTS 


192 


FORECAST/MKT 


269 




DOTGAM 


210 


STOCK/ANA 


274 




CHECKS 


214 


FIN/ ANA 


284 




WHERZ1T1 


252 


LEDGER 


222 (Pub. May 1981) 




WHERZIT2 


252 


July 1981 PILOT 


122 




EXPO 


266 


PILOT2 


124 




BOOTH E4 


117 


BBOX 


217 




BOOTHE5 


117 


D1SAS 


244 




BOOTHE6 


117 


TPASCAL 


154 




BOOTHE7 


117 


TWOHAF 


202 




BOOTH E/SRC 


117 


TWOHAF2 


202 




SI MU 1.80 


154 


HISPEED 


280 




ASTROL 


179 


August 1981 FRKNSTN 


92 




MANAGE 


186 


TANK 


104 


May 1981 VARDOC 


291 


SPCEMP 


106 




SORT 


264 


STRGURD 


116 




HOMECALC 


100 


RACE 


122 




ENCODE/BAS 


234 


EPEXCR 


126 




DISCO 


195 


EPSLCT 


126 




BOA 


294 


MORSE 


150 




DOME 


128 


MESSAGE 


150 




CARDEAL 


113 


DATGEN/SRC 


168 




RANDOM 


246 


VIDSPC 


180 




WRAP 


109 


RELSHP 


192 




1NV1D 


176 


VCESYN 


208 




DOLLAR 1 


216 


SRTSOFSR 


214 




DOLLAR2 


218 


DISAS 


240 




AVERAGE 


292 


PHODEX 


248 




SCROLLER 


204 


SPRUSR/SRC 


256 




CARAN 


93 


DIRPROG 


270 




SCROLLER/SRC 


205 


STRTRK 


86 




LI ST 1 /SRC 


39 


CMDFIL 


278 




L1ST3/SRC 


40 


September 1981 ROTATE 


154 




SHFTRV/SRC 


262 


ROTATE2 


154 




INVERT/SRC 


176 


MEMXPD/SRC 


174 




COMPRS/SRC 


270 


CONVRT/SRC 


186 




LINE1/SRC 


139 


HIDPICS 


204 




RAMTST/SRC 


148 


SORTER 


220 




SARGIOI/SRC 


274 


SLPTSLPC/SRC 


228 




SARG102/SRC 


274 


HRSRCE 


244 


June 1981 BOOTHE3 


68 


ERRPRT 


250 




MENMGR/BAS 


178 


LIFETIME 


252 




SUB 


186 


DISKCHRGR 


286 




COPYKILL 


224 


CARTOON 


320 




MILEAG 


236 


BASCAL 


334 continues 
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continued 


Program 


Page 




Program 


Page 




Month 


Year Name 


Number 


Month 


Year Name 


Number 






LASTEST 


136 (Pub. August 1981) 




VARMAP 


304 




October 


1981 MASTMIND 


122 


February 


1982 GSETTR 


70 






SYLLOG 


132 




PUNCTUAT 


82 






VOICE 


141 




TESTMAKR 


KM 






SPEAK 


141 




PLANETS 


112 






TYPE 


141 




CAPCHEM 


116 






TALKER 


146 




BOGGLE 


166 






BSKBALL 


184 




GETTEAM 


1% 






HOMEINVT 


220 




KINGSCAT 


232 






SUNSET 


272 




S A LEG AST 


268 






FREEZER 


274 




SNAPSHOT 


272 






TRSCPPM 


288 


March 


1982 THREEDEE 


138 






YAHTZEE 


302 




PRMSRCH 


152 






BRIDGE 


306 




HUMANS 


154 






FIREFGHT 


316 




GRADES 


184 






SPACE 


334 




SCRNPRNT 


214 






JERICHO 


292 (Pub. September 1981) 




CENSOR 


216 






TPRGEN/SRC 


196 




OTHLLO80 


252 






AUTOKEY/SRC 


242 




RGRAPHIC 


294 






ASMPTCH/SRC 


326 




BLTNBRD 


314 






EDASFIX/SRC 


344 




FLPYF1XR 


326 (Pub 


December 1981) 




COPY IT/SRC 


370 


April 


1982 BAS1CK 


86 




November 


1981 TENANT 


138 




BAM 


167 






INVEST 


144 




RSL 


188 






HOUSE 


160 




ZUBRTNES 


208 






GRAPHS 


176 




D1SKRD3 


214 






PRODTIMER 


220 




COMMAND 


244 






CHAIN 


250 




MASD1R3 


250 






ALTER 


274 




SHOPPING 


270 






CREDUN 


321 




RULER 


302 






SPRL1ST 


333 




CP80 


306 


. 




SECSRC 


348 


May 


1982 MUSIC 


142 






ENHANCE 


384 




NAMESONG 


234 




December 


1981 LOGBOOK 


100 




EXPENSE 


238 






STAMPS 


108 




RACES 


252 






PLANT I 


116 




HANDICAP 


264 






PLANT2 


116 




BANNER 


282 






COINS 


134 




SPCCHASE 


292 






CHESS 


154 




GABBY 


322 






HEAT 


220 




MONEYDOS 


382 






GOLF 


226 


June/July 


1982 SMPLZAP1 


232 






SENTRY 


242 




SMPLZAP2 


232 






BLCKBK 


278 




SMPLZAP3 


232 






DDENTRY 


280 




SURVEY 


248 






WRITER 


290 




QUESTION 


248 






CITY 


310 




LOADFILE 


248 






ANINMAN 


314 




PPREDICT 


272 






QUEUE 


368 




DIRECTRY 


288 






LOGGER 


374 




AIRTRAVL 


300 






LUNANCY 


386 




LEARNA 


326 






ORGANIZE 


398 




MERLIN 


330 




January 


1982 PALLETS 


98 




PROJCAL 


348 






SURVEY 


102 


August 


1982 HFLYNN46 


66 






RULE300 


116 


Games Issue SPY 


80 






MODELT 


140 




SPYFIELD 


80 






ALPHGRPH 


190 




CUBE80 


1(36 






NEATLIST 


196 




SLALOM 


112 






SCRIPGRAFT 


230 




KALAH/SRC 


132 






TAPESPTE 


240 




LUCKY13 


156 






MARS 


265 








continues 
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^v^ Creative Computer 



Department 80 

1236 E. Colonial Drive 

Orlando, Florida 32803 USA 



In Florida call 
305-894-0789 





RIBBONS ! 




PRINTER • J 


EZ ! 


CARTRIDGES 




RELOAD i 


NEW 


RADIO SHACK 






PRINTERS 






Daisy II Black 


10 For 24.95 


6 for 29.95 


Brown/Blue/Red 


6 For 24.95 


N/A 


LP 1-2-4 


4 For 18.95 




LP3& 5 


3 For 13.95 




LP6&8 


3 For 13.95 




EPSON /IBM 




EPSON BRAND 


MX-70/80/80F/T 


3 For 16.95 


18.95 


MX-100 


3 For 18.95 


29.95 


OKI DATA 






80-82-83-84 




3 For 11.95 


CENTRONICS 






700/730/737/739/779 






ZIP PAK 


4 For 18.95 





RADIO SHACK 
MODEL I & lll° 



NEWDOS80 2.0 $139 

LDOS5.1 105 

Maxi-Manager 84 

Maxi-CRAS 89 

Electric Pencil II 79 

Superscript 44 

Business Pac 100 94 

Library 100 39 

Money Manager 36 

GAMES 

Adventure International 
Big Five 1-5% Off 

Avalon Hill 2-10% Off 

Med System 3-15% Off 

Acorn 5-20% Off 

Epyx and Others 



RADIO SHACK 
MODEL II" 



Racet Fastback $ 69 

Business Pac 100 144 

CREATIVE COMPUTER 

Asset Depreciation . . $350/25 
Account Payable .... 495/25 
Account Receivable . . 495/25 

General Ledger 495/25 

Inventory Control .... 495/25 
Order Entry/Invoicing . 395/25 

Job Costing 495/25 

Yahtzee 24.95 

Buy 3 and get 20% off 

CALL TOLL FREE 



Over 100 Items 

We'll Beat Any Price 

On CP/M Items 



HARDWARE 



PRINTERS 



Epson MX 100 


.$ 749 


Epson MX 80FT 


. 579 


Epson MX 80 


474 


Okidata80 


349 


Okidata82A 


469 


Okidata83A 


719 


Okidata84Par 


. 1049 


Okidata 84 Serial . . . . 


. 1149 


C. ltohF10-40CPS . . . 


. 1399 


C. Itoh Prowriter Par . . 


495 


C. Itoh Prowriter Serial 


649 


Smith Corona TP1 . . . 


649 



MODEMS 

Hayes Smart Modem . . .$245 
Hayes Clock-Cronograph 235 




Plastic File Box 50*5 Vi" $19.00 



Library Case 5V*" . 
Library Case 8" . . . 
Head Clean Kit. . . . 

Floppy Saver 

Floppy Saver Rings 
Green Screen I, II, III 
Mailing Labels 5000 



3.00 

4.00 

23.00 

11.95 

6.95 

12.00 

$16.00 



+ Shipping 

800-327-9294 

Write For Free Catalog 

Over 600 items in Diskettes, Paper. Lables, Ribbons, Checks, 
Storage Boxes, Furniture, Binders and Hardware. ' -Mfg. 
Trademark. Florida plus 5% tax. 

FREE SHIPPING except hardware. 

Most orders out in 24 hours with VISA, M/C, Money Order, 
Cashier Check, Bank Wire and C.O.D. Personal check over 
$150 allow 10-14 days. Mail order only. Prices subject to 
change 9-8 Monday-Friday, 9-6 Saturday. ^ 190 



continued 


Program 


Page 


Month 


Year Name 


Number 




ROUNDEND 


156 




STAR 


156 




DBLTRI 


156 




SUBCHOP2 


216 




SLOTMACH 


222 




CRAM 


234 




ACROSTIC 


240 




KUNGFU 


248 




MEMALPHA 


254 




TERMITES 


274 




PITTYPAT 


270 




THRUASTR 


280 




LOCO 


286 




RAMMER 


296 




CARDONI2 


302 


September 


1982 MOBYDICK 


139 




COLORART 


168 




TRAINART 


168 




CHARTART 


168 




BTFLYART 


168 




CSTLEART 


168 




SNPYART 


168 




SCRNPLAY 


204 




ORDRFORM 


270 




SIM 


276 




VEIL/SRC 


286 




HOTDOG 


330 




MTRMOUTH 


330 




PACHINKO 


330 




FUNHOUSE 


330 




HAMMING 


342 




MDOS1 


364 




MDOS2 


364 




SQUARE1 


358 (Pub. August 1982) 




SQUARE2 


358 (Pub. August 1982) 




SQUARE3 


358 (Pub. August 1982) 




SQUARE4 


358 (Pub. August 1982) 


October 


1982 QUIKCALC 


114 




BASICOMP 


122 




AUTOTRK2 


203 




MUSIC1 


228 




MUSIC2 


228 




SCRPTCH1/SRC 


276 




SCRPTCH2/SRC 


276 




CRYPTO 


296 




INVENTRY 


342 


November 


1982 MEDHIST 


90 




REGRESS 


96 




HEATSTRS 


148 




EINSTEIN 


222 




DRAWPOKR 


246 




BABYCASS 


282 




KWIKMAZE 


318 




PIXLPRNT 


364 




GENEOLOGY 


398 




ANCESTRY 


398 




. FAMILY 


398 




TRON/SRC 


406 




QUIKSORT/SRC 


414 




BKINVTRY 


436 




KTAABA 


450 
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HOBBY COMPUTERS ARE HEREHf you want to come 
up to speed on how computers work— hardware and 
software— this is an excellent book. It starts with funda- 
mentals and explains the circuits and the basics of pro- 
gramming, along with a couple of TVT construction proj- 
ects, ASCII, Baudot, etc. This book has the highest rec- 
ommendations as a teaching aid. $2.97." BK7322 

THE NEW HOBBY COMPUTERS— This book takes up 
from where Hobby Computers Are Here! leaves off, with 
chapters on Large-Scale Integration, how to choose a 
microprocessor chip, an introduction to programming, 
low-cost I/O for a computer, computer arithmetic, check- 
ing memory boards... and much, much more! Don't 
miss this tremendous value! BK7340 Only $2.97.* 

BOTH VOLUMES FOR $4.95! 
ORDER HC002 



NEW NEW NEW 

INTRODUCTION TO WORD PROCESSING by Hal 

Glatzer. This book explains in plain language what a 
word processor can do, how to use one, how it improves 
productivity— especially in businesses that handle lots 
of words— and how to buy one wisely. No technical 
knowledge required, for all first-time users and those 
considering purchasing a word processor. BK1 238 $12.95 

A USER GUIDE TO THE UNIX SYSTEM by Jean Yates 
and Rebecca Thomas. Here at last is a clearly written 
book that allows you to use the Unix operating system 
easily, and at a fraction of the time it previously took. If 
you're using, evaluating or simply curious about this sys- 
tem, this is your book. BK1242 $15.99 



WORDSTAR MADE EASY by Walter A. Ettlin. Now Word- 
Star is as simple to learn as it is easy to use. This book 
teaches WordStar in 14 easy lessons, saving hours of 
hard work, it comes with a convenient pull-out Command 
Card. BK1 239 $11.95 




• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING. Includ- 
ed is material on the TRS-80 and PET systems, CP/M, the 
8080/8085/Z-80 chips, the ASR-33 terminal. Data base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interfaces and TVTs are 
also included in this large format, 200 plus page edition 
$10.95.' 

DON'T (or How to Care for Your Computer)— by Rod- 
nay Zaks. In plain language, with numerous illustra- 
tions, this book tells all the do's and don't'sof the care, 
preservation and correct operation of the small com- 
puter system. Specific chapters cover each piece of 
hardware and software, as well as safety and security 
precautions and help for problem situations. Have 
your computer work right the first time and keep it 
working. No technical background required. For all 
computer users. BK1237 $11.95. 

YOUR FIRST COMPUTER— by Rodnay Zaks. Whether 
you are using a computer, thinking about using one or 
considering purchasing one, this book is indispen- 
sable. It explains what a computer system is. what it 
can do, how it works and how to select various com- 
ponents and peripheral units. It is written in everyday 
language and contains invaluable information for the 
novice and the experienced programmer. (The first edi- 
tion of this book was published under the title "An In- 
troduction to Personal and Business Computinq".) 
BK1191 $8.95' 

MICROPROCESSOR INTERFACING TECHNIQUES 

— by Austin Lesea & Rodnay Zaks— will teach you how 
to interconnect a complete system and interface it to 
all the usual peripherals. 11 covers hardware and soft- 
ware skills and techniques, including the use and de- 
sign of model buses such as the IEEE 488 or S-100. 
BK1037 $17.95.- 



AN INTRODUCTION TO MICROCOMPUTERS, VOL. 

—The Beginner's Book— Written for readers who know 
nothing about computers — for those who have an in- 
terest in how to use computers— and for everyone else 
who must live with computers and should know a little 
about them. The first in a series of 4 volumes, this book 
will explain how computers work and what they can do. 
Computers have become an integral part of life and 
society. During any given day you are affected by com- 
puters, so start learning more about them with Volume 
0. BK1 130 $12.50.* 

VOL. I — NEW 3rd Edition! Dedicated to the basic con- 
cepts of microcomputers and hardware theory. The 
purpose of Volume 1 is to give you a thorough under- 
standing of what microcomputers are. From basic con- 
cepts (which are covered in detail), Volume 1 builds the 
necessary components of a microcomputer system. 
This book highlights the difference between minicom- 
puters and microcomputers. BK1030 $15.95 



KILOBAUD KLASSROOM— by George Young and Peter 
Stark. Learning electronics theory without practice isn't 
easy. And it's no fun to build an electronics project that 
you can't use. Kilobaud Klassroom, the popular series 
first published in Kilobaud Microcomputing, combines 
theory with practice. This is a practical course in digital 
electronics. It starts out with very simple electronics 
projects, and by the end of the course you'll construct 
your own working microcomputer! 

Authors Young and Stark are experienced teachers, 
and their approach is simple and direct. Whether you're 
learning at home or in the classroom, this book provides 
you with a solid background in electronics — and you'll 
own a computer that you built yourself! BK7386 $14.95 

TOOLS & TECHNIQUES FOR ELECTRONICS— by A. A. 

Wicks is an easy-to-understand book written for the 
beginning kit-builder as well as the experienced hob- 
byist. It has numerous pictures and descriptions of the 
safe and correct ways to use basic and specialized tools 
for electronic projects, as well as specialized metal- 
working tools and the chemical aids which are used in 
repair shops. $4.95.' BK7348 

• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK7382— A valuable addition to your 
computing library This two-part text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft- 
ware aspects of microcomputing. Well-known authors 
and well-structured text helps the reader get involved. 
$10.95* 
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Special Interests 



DOS RANDOM ACCESS 8. BASIC FILE HANDLING-By 

H.J. Muller. This book was written for the nonprogram- 
mer. It is ideal for the businessman or professional who 
needs to solve and write special programs for in-house 
business problems, or the hobbyist who wants to go be- 
yond the cassette recorder and into disk storage and file 
manipulation. 11 is written as a self-instruction tutorial 
and will provide anyone with some Level II experience 
with the ability to write special programs for inventories, 
mailing list, work scheduling, record keeping, research 
project data manipulation, etc. 150 pages. BK1236 
$29 50 

TRS-30 DISK AND OTHER MYSTERIES— by Harvard C. 
Pennington. This is the definitive work on the TRS-80 
disk system. It is full of detailed "How to use," infor- 
mation with examples, samples and in-depth explana- 
tions suitable for beginners and professionals alike. 
The recovery of one lost file is worth the price alone. 
BK1181 $22.50.- 

MICROSOFT BASIC DECODED AND OTHER MYS- 
TERIES— by James Farvour. From the company that 
brought you TRS-80 DISK AND OTHER MYSTERIES. 
Contains more than 6500 lines of comments for the dis- 
assembled Level II ROMs and six additional chapters 
describing every BASIC subroutine, with assembly 
language routines showing how to use them. Flow- 
charts for all major routines give the reader a real in- 
sight into how the interpreter works. BK1 186 $29.50.' 



MOD III ROM COMMENTED-Soft-Sector marketing. 
1981. This book is not an instruction course on 
machine language, but rather an information source 
that you can use time and time again for writing your 
own program or patching old Mod I machine language 
programs. It contains an explanation of ROMs in the 
latest machine from Tandy, with most every location of 
the 14K ROMs listed, with comments. BK1235 $22.50. 

THE CUSTOM TRS-80 AND OTHER MYSTERIES-by 

I Dennis Kitsz. More than 300 pages of TRS-80 customiz- 
ing information. With this book you'll be able to ex- 
I plore your computer like never before. Want to turn an 
8 track into a mass storage unit? Individual reverse 
characters? Replace the BASIC ROMs? Make Music? 
High speed, reverse video. Level I and Level II? Fix it if 
it breaks down? All this and much, much more. Even if 
you have never used a soldering iron or read a circuit 
diagram, this book will teach you how! This is the 
definitive guide to customizing your 80! BK1218 
$29.95.' 

BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— by Lewis Rosenfelder. You don't have to 
learn assembly language to make your programs run 
fast. With the dozens of programming tricks and 
techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore the power of USR calls. BK1221 
$29.95.' 

THE CP/M HANDBOOK (with MP/M)-by Rodnay Zaks. 
A complete guide and reference handbook for CP/M— . 
the industry standard in operating systems. Step-by- 
step instruction for everything from turning on the 
system and inserting the diskette to correct user 
discipline and remedial action for problem situations. 
This also includes a complete discussion of all ver- 
sions of CP/M up to and including 2.2. MP/M and 
CDOS. BK1 187 $14.95.* 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



No C.O.D. orders accepted. All orders add $1.50 for first book, $1.00 each additional book, $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department'Peterborough NH 03458. Be sure to include check or detailed credit card information. 



For Toll Free Ordering Call 1-800-258-5473 



■See List ol Advertisers on Page 563 
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NANOS SYSTEM 
REFERENCE CARDS 

For Models I, II, III and color computer 

At last! No more flipping through the pages of the 
Basic manual! No more working through the maze of 
machine language instructions! These cards com- 
pletely summarize the Basic and Assembler manuals! 
FEATURES INCLUDE: 

memory map, eyeball graphics, math instructions, 
basic commands, store instructions, basic functions, 



load instructions, basic statements, move instruc- 
tions, special keys, exchange instructions, print using 
examples, shift instructions, basic special characters, 
compare instructions, basic and assembler messages 
and codes, branch instructions, basic facts, data 
alteration instructions, reserved words, I/O instruc- 
tions, ROM routines, complete character chart with 
graphics and space-compression codes, hex-dec 
chart, control code cross-reference, assembler in- 
structions commands and operators, screen line 
layout, editor commands & subcommands, condition 
code easy access 

Designed as a fold-up, accordion-style card, fits in your 
pocket. Panels organized for optimum speed for 

Modell:BasiconlyFC1001 $2.95 

Model I: BASIC and Assembler FC1002 $4.95 

Model II: BASIC and Assembler FC1005 $5.95 

Model III: BASIC only FC1004 $3.95 

Model III: BASIC and Assembler FC1003 $5.95 

Color: BASIC and Extended FC1006 $4.95 

Apple II: BASIC only FC1007 $3.95 

Apple II: BASIC & 6502 FC1 008 $4.95 



Z80 



6089 



INSIDE LEVEL II— For machine language program- 
mers. This is a comprehensive reference guide to the 
Level II ROMs, aliowing easy utilization of the 
sophisticated routines they contain. It concisely ex- 
plains set-ups, calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler. Special consideration is given to disk systems. 
BK1183$15.95." 

• Z-80 ASSEMBLY LANGUAGE PROGRAMMING- 

BK1177— by Lance A. Leventhal. This book thoroughly 
covers the Z-80 instruction set, abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure. $16.99." 



TRS-80 ASSEMBLY LANGUAGE— by Hubert S. Howe, 
Jr. This book incorporates into a single volume all the 
pertinent facts and information you need to know to 
program and en]oy the TRS-80. Included are clear 
presentations of all introductory concepts, completely 
tested practical programs and subroutines, details of 
ROM and RAM and disk operating systems, plus com- 
prehensive tables, charts and appendices. Suitable for 
the first time user or more experienced users. BK1217 
$9.95.* 

PROGRAMMING THE Z-80— by Rodnay Zaks. Here is as- 
sembly language programming for the Z-80 presented as 
a progressive, step-by-step course. This book is both an 
educational text and a self-contained reference book, 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-80. Exercises to 
test the reader are included. BK1 122 $15.95." 



6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING— by Andrew C Staugaard, Jr. Getting 
involved with Tandy's new Color Computer? If so, this 
new book from the Blacksburg Group will allow you to 
exploit the awesome power of the machine's 6809 
microprocessor. Detailed information on processor ar- 
chitecture, addressing modes, register operation, data 
movement, arithmetic logic operations, I/O and inter- 
facing is provided, as well as a review section at the 
end of each chapter. Four appendices are included 
covering the 6809 instruction set, specification sheets 
of the 6809 family of processors, other 6800 series 
equipment and the 6809/6821 Peripheral Interface 
Adapter. This book is a must for the serious Color Com- 
puter owner. BK1215 $13.95 



MICROCOMPUTING CODING SHEETS Microcom- 
puting's dozen or so programmers wouldn't try to work 
without these handy scratch pads, which help prevent 
the little errors that can cost hours and hours of 
programming time. Available for programming is 
Assembly/Machine Language (PD1001), which has col- 
umns for address, instruction (3 bytes), source code 
(label, op code, operand) and comments; and for 
BASIC (PD1002) which is 72 columns wide. 50 sheets to 
a pad. $2.39." 



TEXTEDIT 

a complete 

wordpFoceqjjig 




WAYNE GREEN BOOKS 



SELECTRIC INTERFACE — by George Young You need 
the quality print that a daisy wheel printer provides but 
the thoughLpf buying one makes your wallet wilt. 
SELECTRIC™ INTERFACE, a step-by-step guide to in- 
terfacing an IBM Selectric I/O Writer to your microcom- 
puter, will give you that quality at a fraction of the 
price. George Young, co-author of Kilobaud Microcom- 
puting magazine's popular "Kilobaud Klassroom" 
series, offers a low-cost alternative to buying a daisy 
wheel printer. SELECTRIC INTERFACE includes: step- 
by-step instructions, tips on purchasing a used Selec- 
tric. information on various Selectric models, in- 
cluding the 2740, 2980. and Dura 1041. driver software 
for Z80. 8080. and 6502 chips, tips on interfacing tech- 
niques. With SELECTRIC INTERFACE and some back- 
ground in electronics, you can have a high-quality, low- 
cost, letter-quality printer. Petals not included. BK7388 
(125 pages) $12.97 



TEXTEDIT— A Complete Word Processing System in 
Kit Form 

by Irwin Rappaport 

TEXTEDIT is an inexpensive word processor that can 
be adapted to suit your differing needs— from form let- 
ters to lengthy texts. Written i n TRS-80 Disk BASIC, the 
system consists of several modules, permitting the 
loading and use of only those portions needed. A disk 
is also available which provides the direct loading of 
the modules, however, the book is required for 
documentation. For Model I and III with TRSDOS CON- 
VERT., one disk drive (2 disk drives or copy utility need- 
ed to transfer to system disk). Runs under TRSDOS 
2.2/2.3. May not function under other systems. BK7387 
(book. 90 pages) $9.97 DS7387 (disk) $19.97 



THE NEW WEATHER SATELLITE HANDBOOK-by Dr. 

Ralph E. Taggart WB8DOT. Here is the completely up- 
dated and revised edition of the best-selling Weather 
Satellite Handbook — containing all the information on 
the most sophisticated and effective spacecraft now 
in orbit. Dr. Taggart has written this book to serve both 
the experienced amateur satellite enthusiast and the 
newcomer. This book is an introduction to satellite 
watching, that tells you how to construct a complete 
and highly effective ground station. Not just ideas, but 
solid hardware designs and all the instructions neces- 
sary to operate the equipment are included. An entire 
chapter is devoted to microcomputers and the Weath- 
er Satellite Station, and for the thousands of experi- 
menters who are operating stations. The New Weather 
Satellite Handbook details all the procedures neces- 
sary to follow the current spacecraft. Weather Satellite 
contains Operation Satellite Systems, Antenna Sys- 
tems, Weather Satellite Receivers, A Cathode Ray 
Tube (CRT) Monitor for Satellite Picture Display, A Di- 
rect-Printing Fascimile System for Weather Satellite 
Display. How to Find the Satellite, Test Equipment, Mi- 
crocomputers and the Weather Satellite Station, Sta- 
tion Operations. BK7383 $8.95.* 



No C.O.D. orders accepted. All orders add $1.50 for first book, $1.00 each additional book. $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department-Peterborough NH 03458. Be sure to include check or detailed credit card information. 



For Toll Free Ordering Call 1-800-258-5473 
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Basic & Pascal 




THE BASIC HANDBOOK — SECOND EDITION — by 
David Lien. This book is unique. It is a virtual 
ENCYCLOPEDIA of BASIC. While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies. If a 
computer does not possess the capabilities of a need- 
ed or specified word, there are often ways to ac- 
complish the same function by using another word or 
combination of words. That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a "bottom-of-the-line" micro or an oversized 
monster. BK1 174 $19.95.* 

LEARNING TRS-80 BASIC-by David A. Lien. Dr. Lien, 
who is the author of THE BASIC HANDBOOK and the 
original Radio Shack LEVEL I USER'S MANUAL, has 
compiled a tutorial which includes portions of the 
original USER'S MANUAL, and most of LEARNING 
LEVEL II along with extensive additions. It will com- 
pletely cover the TRS-80 Models I, II, III. and 16 (sorry, 
not the color or pocket computers). It is, of course, writ- 
ten in the easy learning style which readers of Dr. 
Lien's books have come to enjoy. BK1 175 S19.95. 

BASIC BASIC (2ND EDITION)— by James S. Coan. This 
is a textbook which incorporates the learning of com- 
puter programming using the BASIC language with the 
teaching of mathematics. Over 100 sample programs 
illustrate the techniques of the BASIC language and 
every section is followed by practical problems. This 
second edition covers character string handling and 
the use of data files. BK 1026 $11.50.* 



INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING— by Michael P. Zabin- 
ski. Written by an experienced educator, this is the 
book for those beginners who want to learn about com- 
puters without having to become an expert. It has prac- 
tical programs, useful line-by-line comments, excel- 
lent flowcharts accompanied by line numbers and over 
200 exercises which help the reader assess progress, 
reinforce comprehension, and provide valuable prac- 
tical experience. BK1219 $10.95.* 

50 BASIC EXERCISES— by J. P. Lamoitier. This book is 
structured around the idea that the best way to learn a 
language is through actual practice. It contains 50 
completely explained exercises: statement and 
analysis of the problem, flowcharts, programs and ac- 
tual runs. Program subjects include mathematics, 
business, games, and operations research, and are 
presented in varying levels of difficulty. This format 
enables anyone to learn BASIC rapidly, checking their 
progress at each step. BK1 192 $12.95*. 

NEW REVISED EDITION 

PROGRAMMING IN PASCAL— by Peter Grogono. The 
computer programming language PASCAL was the 
first language to embody in a coherent way the con- 
cepts of structured programming, which has been 
defined by Edsger Dijkstra and CAR. Hoare. As such, 
it is a landmark in the development of programming 
languages. PASCAL was developed by Niklaus Wirth 
in Zurich; it is derived from the language ALGOL 60 but 
is more powerful and easier to use. PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented, and as an excellent teaching 
tool. It does not assume knowledge of any other pro- 
gramming language and therefore suitable for an in- 
troductory course. BK1140 $12.95." 

ADVANCED BASIC— Applications including strings 
and files, coordinate geometry, area, sequences and 
series, simulation and graphing and games. BK1000 
$11.50 

INTRODUCTION TO PASCAL— By Rodnay Zaks. A 
step-by-step introduction for anyone wanting to learn 
the language quickly and completely. Each concept is 
explained simply and in a logical order. All features of 
the language are presented in a clear, easy-to-under- 
stand format with exercises to test the reader at the 
end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used dia- 
lect for small computers. No computer or program- 
ming experience is necessary. BK1189 $15.95 



ULJ micro 

BOOKSHELF 




Moneymaking 



HOW TO MAKE MONEY WITH COMPUTERS— In 10 in- 
formation-packed chapters, Jerry Felsen describes 
more than 30 computer-related, money-making, high 
profit, low capital investment opportunities. 
BK1003 $15.00.* 

HOW TO SELL ANYTHING TO ANYBODY— According 

to The Guinness Book of World Records, the author, 
Joe Girard, is "the world's greatest salesman." This 
book reveals how he made a fortune— and how you 
can, too. BK7306$2.25.* 

THE INCREDIBLE SECRET MONEY MACHINE-by 

Don Lancaster. A different kind of "cookbook" from 
Don Lancaster. Want to slash taxes? Get free vaca- 
tions? Win at investments? Make money from some- 
thing that you Me to do? You'll find this book essential 
to give you the key insider details of what is really in- 
volved in starting up your own money machine. BK1 178 
$5.95.* 



ANNOTATED BASIC-A NEW TECHNIQUE FOR NEO- 
PHYTES.— BASIC programming was supposed to be 
simple — a beginner's programming language which 
was so near to English that is could be easily 
understood. But, in recent years, BASIC has become 
much more powerful and therefore much more difficult 
to read and understand. BASIC simply isn't basic 
anymore. 

Annotated BASIC explains the complexities of 
modern BASIC. It includes complete TRS-80* Level II 
BASIC programs that you can use. Each program is an- 
notated to explain in step-by-step fashion the workings 
of the program. Programs are flowcharted to assist 
you in following the operational sequence. And— each 
chapter includes a description of the new concepts 
which have been introduced. 

Annotated BASIC deals with the hows and whys of 
TRS-80 BASIC programming. How is a program put 
together? Why is it written that way? By observing the 
programs and following the annotation, you can devel- 
op new techniques to use in your own programs — or 
modify commercial programs for your specific use. 
Annotated BASIC Volume 1 BK7384 $10.95 
Annotated BASIC Volume 2 BK7385 $10.95 
Order Both Volumes and Save! BK738402 $18.95 



Games 



Business 



CAPTAIN 80 BOOK OF BASIC ADVENTURES— by Rob- 
ert Liddil. This book contains 18 of the most popular 
Adventure programs available today; all in one easy to 
read book with listings ready to be keyed in to your 
computer. This unique book also contains an ADVEN- 
TURE GENERATOR program, not available from any 
other source. This generator program will actually 
write another BASIC ADVENTURE PROGRAM! Al- 
though specifically written for the TRS-80 Model I & III, 
these programs are adaptable to other computers us- 
ing Microsoft BASIC. BK 1240 $19.95. 

40 COMPUTER GAMES FROM KILOBAUD MICROCOM- 
PUTING— Forty games in all in nine different categories. 
Games for large and small systems, and even a section 
on calculator games. Many versions of BASIC used and 
a wide variety of systems represented. A must for the 
serious computer gamesman. BK7381 $7.95.* 

BASIC COMPUTER GAMES— Okay, so once you get 
your computer and are running in BASIC, then what? 
Then you need some programs in BASIC, that's what. 
This book has 101 games for you from very simple to 
real buggers. You get the games, a description of the 
games, the listing to put in your computer and a sam- 
ple run to show you how they work. Fun. Any one game 
will be worth more than the price of the book for the fun 
you and your family will have with it. BK1074 $7.50." 

MORE BASIC COMPUTER GAMES— Edited by David 
H. Ahl. More fun in BASIC! 84 new games from the peo- 
ple who brought you 8AS/C Computer Games. In- 
cludes such favorites as Minotaur (battle the mythical 
beast) and Eliza (unload your troubles on the doctor at 
bargain rates). Complete with game description, list- 
ing and sample run. BK1 182 $7.50.* 

WHAT TO DO AFTER YOU HIT RETURN — PCC's first 
book of computer games. . .48 different computer 
games you can play in BASIC. . .programs, descrip- 
tions and many illustrations. Lunar Landing, Ham- 
murabi, King, Civel 2, Qubic 5, Taxman, Sta* Trek, 
Crash, Market, etc. BK1071 $16.50*. 

No COD. orders accepted. All orders add $1.50 for first book, $1.00 each additional book, $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department'Peterborough NH 03458. Be sure to include check or detailed credit card information. 



BUSINESS SYSTEM BUYER'S GUIDE— By Adam Os- 
borne with Steven Cook. When you enter the market 
place of small business computers, you face a bewil- 
dering array of products, prices, features and fables. 
This guide cuts through the jargon and unravels the 
task of buying the right computer system. This book 
provides solid information on how to determine your 
needs, how to choose software and hardware for all 
business applications, what to expect from vendors, 
what to avoid, and what questions you must ask. It also 
provides a wealth of detailed information on products, 
manufacturers, retailers and the whole microcomputer 
market. BK1229 $9.95 

SO YOU ARE THINKING ABOUT A SMALL BUSINESS 
COMPUTER— by Richard G. Canning and Nancy C 
Leeper. For a well-organized manual on the process of 
selecting the right computer system for your small 
business, this text can't be excelled. Designed to in- 
troduce the novice in data and word processing to the 
real benefits of computerization, the book is filled with 
money- and time-saving tips, photos of equipment, 
lists of suppliers, prices, explanations of computer ter- 
minology, and helpful references to additional sources 
of information. Everyone contemplating a first com- 
puter installation should have this book. BK1222 
$14.00* 



SOME COMMON BASIC PROGRAMS— Published by 
Adan' Osoone & Associates Inc Perfect for non- 
technical computerists requiring ready-to-use pro- 
grams. Business programs, plus miscellaneous pro- 
grams. Invaluable for the user who is not an experi- 
enced programmer. All will operate in the stand-alone 
mode. BK1053 $14.99 paperback. 

THEORY Z— How American Business Can Meet the 
Japanese Challenge— by William Ouchi. Why are the 
Japanese catching up and surpassing American in- 
dustrial productivity? What allows Japanese in- 
dustrialists to offer guaranteed lifetime employment 
to their workforce? This book will help you understand 
the Theory Z managerial philosophy and its implica- 
tions for the American corporate future. Examples are 
given of the American industrial giants already 
operating under Z-style management, and the impact 
of this style on the quality of their executives and 
workers is explored. A must for the alert businessman, 
large or small. BK1226 $12.95* 



For Toll Free Ordering Call 1-800-258-5473 
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Which comes first. . . the software 
or the hardware 






••: : '•: 






::plus 

% Computer Technology, Inc. 



PLUS accounting software will make the 

hardware produce professional results! 



Hardware is basically a machine that must be told 
what to do. And, it's the software that gives those 
instructions. It's the brain with the program that 
directs and determines the end result. So, if it's 
professional accounting results you expect, start 
with the software and make it the best... PLUS! 
Our expertly designed packages provide profes- 
sional results, yet are easy to use and understand. 
PLUS is your easy answer for professional 
financial management results. 



PLUS makes software available 

for the finest hardware! 

TANDY MODELS II & III 

THE IBM PERSONAL COMPUTER 

PACKAGES AVAILABLE: 

• GENERAL LEDGER • FIXED ASSETS 

• ACCOUNTS RECEIVABLE • PAYROLL 

• ACCOUNTS PAYABLE • EASYTRAK™ monitoring 

system 

Completely integrated programs with flexible user 
defined file sizes. 



/ 






MM 1 MASTER APPLICATION MENU 02/19/82 




1. General Ledger Session 








3. Accounts Payable Session 

4. Payroll Session 






5. Order Entry/Inventory Session 








7. MENU-lnslall/Deinslall 




8. MENU Reorganize File(s) 




9. Change System Dale 




(3 End ol Processing 








ENTER SELECTION NUMBER 



MENU-DRIVEN PROGRAMS 

Easy to use! Related processing options 
and instructions are displayed on screen 
for easy operation. Built-in prompts and 
disciplines enhance accuracy. 





EXTENSIVE DOCUMENTATION 

Professionally prepared manuals make 
packages understandable. Presents in- 
stallation, operation and educational facts 
in easy to follow format. 



COMPREHENSIVE SUPPORT 

We provide the important follow-up tech- 
nical support you need. Our toll-free 
"HOT-LINE" helps give answers, the 
bulletins and newsletter keeps you in- 
formed and up-to-date. 



SEE FOR YOURSELF HOW PLUS ACCOUNTING SOFTWARE ANSWERS YOUR BUSINESS NEEDS! 



ORDER YOUR SAMPLE REPORT 
5fi| BOOK, TODAY! 

See actual results you can 
expect with PLUS. The 88-page 
PLUS Report Book contains 
sample reports for all packages. 
It's an invaluable tool to help 
plan the needs for your busi- 
ness. And. it's only S20.00 1 
Order yours today by simply 
filling out this coupon 
and mail it with a check 
or money order to: 




S5PLUS 



jjB B 



Computer Technology, Inc. 

7360 N. Lincoln Avenue • Lincolnwood. Illinois 60646 
1-312-647-0988 • 1-800-323-4240 



fill 



I want to make the right start. 

Please send me the information I have checked below: 

] PLUS SAMPLE REPORT BOOK @ S20.00 each. 

Enclosed is my check qr^money order. 

Charge my □ VISA or . . MASTER CARD 



J Please send more information on PLUS'S Professional Accounting Packages. 



Card Expirat'on Dale 



Name 


Company 






Title 


Address 


Cily 


Stale 


Zip 


Pnone 



Signatjre 

Please till-in. clip coupon, insert in a separate stamped envelope addressed to PLUS. 
Be sure you have included your check or money order if ordering the Report Book 
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COMPUTER 
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TECHNIQUE 



Teach Your CC New Words 



by Allen Curtis 



The size and versatility of the Color 
Computer's Basic vocabulary is more 
than adequate for the majority of pro- 
grams. However, there are occasions 
when it would be convenient to use 
statements, commands, or functions not 
available in the Color Computer's vo- 
cabulary. 

Microsoft, writers of the Color Com- 
puter's Basic interpreter, have devel- 
oped a systematic procedure for adding 
Extended Color Basic key words to the 
Color Basic vocabulary, and in turn 
adding Disk Basic key words to the Ex- 
tended Color Basic vocabulary. I will 
describe this procedure. I will also 



Add commands, state- 
ments, and functions 
to Color Basic and gain 
more computing power. 



demonstrate a more economical way of 
drawing and animating graphics. 

ROM Tables 

A machine-language subroutine cor- 
responds to each Basic word in the Col- 
or Computer's vocabulary in the associ- 



ated ROM. In the Color Basic ROM 
there are two tables of Color Basic key 
words and two associated tables of ad- 
dresses. The addresses are the entry ad- 
dresses to the subroutines that execute 
the statements, commands, or func- 
tions associated with the Basic key 
words. The first Basic key-word table is 



The Key Box 

Color Computer 
16K RAM 
Extended Color Basic 



Color Basic Word 


Subroutine Entry 


Token 








FOR 


AD47 


80 








GO 


AE86 


81 


LLIST 


B75E 


9B 


REM 


AEE3 


82 


SET 


A880 


9C 




AEE3 


3A83 


RESET 


A8B1 


9D 


ELSE 


AEE3 


3A84 


CLS 


A910 


9E 


IF 


AF14 


85 


MOTOR 


A7BD 


9F 


DATA 


AEEO 


86 


SOUND 


A94B 


A0 


PRINT 


B8F7 


87 


AUDIO 


A990 


A1 


ON 


AF42 


88 


EXEC 


A53E 


A2 


INPUT 


AFF5 


89 


SKIPF 


A5EC 


A3 


END 


AE02 


8A 


TAB( 




A4 


NEXT 


B0F8 


8B 


TO 




A5 


DIM 


B34E 


8C 


SUB 




A6 


READ 


B046 


8D 


THEN 




A7 


RUN 


AE75 


8E 


NOT 




A8 


RESTORE 


ADE4 


8F 


STEP 




A9 


RETURN 


A ECO 


90 


OFF 




AA 


STOP 


AE09 


91 


+ 




AB 


POKE 


B757 


92 


- 




AC 


CONT 


AE30 


93 


* 




AD 


LIST 


B764 


94 


/ 




AE 


CLEAR 


AE41 


95 






AF 


NEW 


AD17 


96 


AND 




BO 


CLOAD 


A498 


97 


OR 




B1 


CSAVE 


A44C 


98 


> 




B2 


OPEN 


A5F6 


99 


= 




B3 


CLOSE 


A416 


9A 

Tal 


< 
lei 




B4 
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Turn your 
color computer on 

to the power of 
FLEX and OS-9 

NOW FROM THE WORLDS LARGEST SUPPLIER OF SOFTWARE FOR FLEX AND OS-9 
COMES FHL COLOR FLEX AND COLOR OS-9, JUST LOOK AT THESE FEATURES: 



OS-9 ONLY S200 

OS-9 WITH BASIC09 $299 

- Unix*-based, multitasking, modular, and 
versatile 

Over 40 utility commands 
Friendly "Shell" command interpreter 
Tree structured multilevel file directories 
Full time sharing support with log in and 
file security . i t 

Fast, secure, random and sequential 
access files 

- Comprehensive English language error 
messages 

Compact real-time multitasking executive 
» BASIC09 is the fastest and most compre- 
hensive full Basic language available for 
the 6809. It combines standard Basic with 
the best features of Pascal. It's a unique 
interactive compiler that combines . 
compiler speed, interpreter A 

friendliness, and superlative 
debugging facilities. 




X NOW ONLY S99 

HI-RES screen formats 
16x32 and 24x51, upper and lower 
case characters 

24x64 and 32x64 upper case , 

• Full ASCII keyboards 
• Easy start-up— just type RUN "FLEX" 
• Online assistance just type HELP 
• Optionally use a standard terminal 

and printer 
• Advance disk I/O and terminal 
capabilities 
^w • NO additional hardware required 
" *> We have supported FLEX with 

more software than anyone else in 
the world for more than 2 years! 



^4 




SPECIAL 

1. DBASIC, RS Disk Basic 
under FLEX with a utility to 
copy RS to FLEX disk $30. 

2. ED/ASM line and screen 
editor and macro assembler, 
both more powerful than 
TSC's, and at the same cost, 
only $100. 

3. UTILITIES, a set of 12 
utilities especially designed 
for FHL Color FLEX $50. 



Get on our mailing list, call or send for our 
complete catalog of over 100 products for FLEX and OS-9. 
We're doing exciting things with your color computer! 



FRANK HOCG LABORATORY 

THE REGENCY TOWER • 770 JAMES ST. • SYRACUSE, NY 13203 TELEPHONE (315) 474-7856 
•Unix is a trademark of Bell Labs. *OS-9 & BASIC09 are trademarks of Microware & Motorola Inc. *FLEX is a trademark of Technical Systems Consultants Inc. 



sSee Lisl of Advertisers on Page 563 
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located at addresses AA66-AB19, 
where the addresses are in hexadecimal 
notation. 

The table of subroutine entry ad- 
dresses associated with the key-word 
table is located at addresses AB67- 
ABAE (Table 1). In Table 1 the Token 
column is not part of either ROM table, 
but I included it for the sake of com- 
pleteness. 

When you key in a Basic program, 
the Basic key words you type are not 



stored in that form in memory. To con- 
serve memory space, the Basic inter- 
preter encodes these key words into 
tokens. The tokens for the Basic key 
words in Table 1 range from hex- 
adecimal 80-B4. The Basic interpreter 
uses the ROM tables in Table 1 to 
translate each key word therein to its 
corresponding token. 

The ROM table of subroutine ad- 
dresses does not include addresses for 
the final 17 words of Table 1 . These key 



words are suffixes and operators whose 
subroutines are parts of other ROM 
subroutines. Assembly-language pro- 
grammers wanting to incorporate some 
of the subroutines into their programs 
will find the information in Tables 1-6 
helpful. 

The other word table in the Color 
Basic ROM is devoted to key words for 
functions. This table starts at address 
AB1A and ends at AB66. Its associated 
subroutine entry-address table is locat- 



Color Basic Word 


Subroutine Entry 


Token 


SGN 


BC7A 


FF80 


INT 


BCEE 


FF81 


ABS 


BC93 


FF82 


USR 


0112 


FF83 


RND 


BF1F 


FF84 


SIN 


BF78 


FF85 


PEEK 


B750 


FF86 


LEN 


B681 


FF87 


STR$ 


B4FD 


FF88 


VAL 


B716 


FF89 


ASC 


B6A0 


FF8A 


CHR$ 


B68C 


FF8B 


EOF 


A5CE 


FF8C 


JOYSTK 


A9C6 


FF8D 


LEFTS 


B6AB 


FF8E 


RIGHTS 


B6C8 


FF8F 


MID$ 


B6CF 


FF90 


POINT 


A8F5 


FF91 


INKEYS 


A564 


FF92 


MEM 


B4EE 
Table 2 


FF93 



Extended Color Basic Word Subroutine Entry 


Token 


DEL 




8970 


B5 


EDIT 




8533 


B6 


TRON 




86A7 


B7 


TROFF 




86A8 


B8 


DEF 




8871 


B9 


LET 




AF89 


BA 


LINE 




93BB 


BB 


POLS 




9532 


BC 


PSET 




9361 


BD 


PRESET 




9365 


BE 


SCREEN 




9670 


BF 


PCLEAR 




968 B 


CO 


COLOR 




9546 


C1 


CIRCLE 




9E9D 


C2 


PAINT 




98EC 


C3 


GET 




9755 


C4 


PUT 




9758 


C5 


DRAW 




9CB6 


C6 


PCOPY 




9723 


C7 


PMODE 




9621 


C8 


PLAY 




9A22 


C9 


DLOAD 




8C18 


CA 


RENUM 




8A09 


CB 


FN 






CC 


USING 


Table 3 




CD 



Extended Color Basic Word Subroutine Entry 


Token 


ATN 


8EB0 


FF94 


COS 


8378 


FF95 


TAN 


8381 


FF96 


EXP 


84F2 


FF97 


FIX 


8524 


FF98 


LOG 


8446 


FF99 


POS 


86AC 


FF9A 


SQR 


8480 


FF9B 


HEXS 


8BDD 


FF9C 


VARPTR 


86BE 


FF9D 


INSTR 


877 E 


FF9E 


TIMER 


8968 


FF9F 


PPOINT 


9339 


FFAO 


STRINGS 


874 E 
Table 4 


FFA1 



Disk Basic Word 


Subroutine Entry 


Token 


DIR 


CBCF 


CE 


DRIVE 


CDE9 


CF 


FIELD 


CFEO 


DO 


FILES 


D080 


D1 


KILL 


C6C2 


D2 


LOAD 


C99A 


D3 


LSET 


D026 


D4 


MERGE 


C98B 


D5 


RENAME 


CF3F 


D6 


RSET 


D025 


D7 


SAVE 


C932 


D8 


WRITE 


CF8A 


D9 


VERIFY 


D65B 


DA 


UNLOAD 


D146 


DB 


DSKINI 


D4AB 


DC 


BACKUP 


D175 


DD 


COPY 


D2CC 


DE 


DSKIS 


D3FF 


DF 


DSKOS 


D474 
Table 5 


E0 



Disk Basic Word 


Subroutine 


Entry 


Token 


CVN 


CD1A 




FFA2 


FREE 


CDCO 




FFA3 


LOC 


CD36 




FFA4 


LOF 


CD5B 




FFA5 


MKNS 


CD28 




FFA6 


AS 


B277 
Table 6 




FFA7 
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ONLY 

*69.95 

n The Magnificent 
WORD PROCESSING SYSTEM 

For the TRS-80 Model I and III 



• Written in fast Z80 machine language 

■ Single key control o' all editing functions for ease 
of use. 

* Dynamic display of word count, line count, and free 
memory count. 

1 Superscripts, subscripts, underlined, bolded. ex- 
panded and condensed type styles - combine and 
intermix within a line. 

' Automatically justifies and word-wraps on the screen 
as you type. 

1 Search. Replace, and Global Search and Replace 

1 Odd and even page user-definable headers, footers, 
and page number lines. 

1 User-definable Imespacmg. sheet size. top. left, and 
bottom margins 

1 Move blocks of text from disk, to disk, and within 
the text 

Examine disk directory on any disk and kill flies 
while editing 
Full screen editing of EDTASM and BASIC text files 



A u torn a 
files 



mbermg for EDTASM and BASIC 

Print contents of screen function 
Print previewing formats text, inserts headers, num- 
bers pages, etc on the screen without printing it 
on paper 

Page by page pausing capability for sheet fed 
printers 

Supports both parallel and serial printers. 
Printer control code access 
Supports proportional space justifying on 
Centronics 737. 739. Line Printer IV. Daisy Wheel II. 
Diablo. Gume. Starwriter. Spinwnter. C. Itoh 
Prownter. NEC PC-8023A-C. TEC 8500R. 
Also supports special functions of Microiine. MX-80. 
MX-100. and Graftrax Plus 

Any character or symbol your printer can print is 
accessable with the Special Character feature 
Works with NEWDOS. NEWDOS80. TRSDOS. 
LDOS. and DOSPLUS - Single or Double Density 



GUARANTEE 



Many word processing systems claim theirs are the best, but few would 
dare to guarantee them. Not us! We are confident that ZORLOF is the 
most useful word processing system on the market for under $200.00. 
If you don't agree, return it within 30 days for a full refund. 



CALL (305) 259-9397 

Add $2.00 ahlpplng 5 h»ndllng. Florida resident, add 5% soles lax. Check, require 3 weeks to clear banks. 




ANITEK SOFTWARE PRODUCTS D P O BOX 1136 n MELBOURNE. FL 32935 □ (305|259-9397 



TRS-80 M Model 1 & 3 Software 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of your TRS-80 Mod el 1 or 3: ROM, RAM, Video 
Display, Keyboard, Cassette Recorder, Line Printer, Disk Drives (single 
or double density. 55, 40, or 80-track drives), RS-232-C Interface. 

SMART TERMINAL $74.95 

Model II CP/M Version $79.95 

The intelligent telecommunication program. Automatic transmission 
and reception of files. True BREAK key. Cassette and disk files compatible 
with bothSCRIPSIT" and Electric Pencil". Same program supports both 
cassette and disk systems, 

HOME BUDGET $49.95 

Cassette Version $29.95 

Analyzes your income and expenditures, and prints monthly and year- 
to-date summaries showing income tax deductions. Complete instruc- 
tions on customizing to your own budget. 

SMALL BUSINESS ACCOUNTING $59.95 

Cassette Version $29.95 

Based on Dome Bookkeeping Record #612, keeps track of income, 
expenditures, and payroll for a small business. Income and expenses 
can be entered on a daily, weekly, or monthly basis. Program computes 
monthly, through last month, and year-to-date summaries. 

MAILING LIST $69.95 

Maintains mailing lists of up to 1 326 names on a single formatted diskette. 
Add, change, delete, find names, sort by information in any field, print 
up to 4- line labels of 32 characters per line on 1 , 2, 3, or 4 column labels. 

Documentation to any program can be purchased separately for 
$10.00, deductible from later software order. 

Specify TRS-80 Model 1 or 3. 

Add $3.00 for postage and handling 

New York State residents add 4 V*% sales tax. 

HOWE SOFTWARE 

14 Lexington Road, New City, NY 10956 
(914) 634-1821 
Visa and MasterCard accepted. ^ 175 

TRS-80 is a registered trademark of Tandy Corp. 



PREMIUM 



COMPUTER GRADE* 

100% ERROR-FREE 

FULLY GUARANTEED 






U Kr*"-" — I fzzzf i i 



pfcJL. 



& % ■■ %'m s *«™ 



|- ^^ mrmm ^. 1 E 



The Micro-Trac Generation 

High Frequency Response • Wide Dynamic Range ' 

Used by Software Firms & Computer Hobbyists > 

Choice of School Districts Nationwide > 



LENGTH 12-PAK 24-PAK 

C-05 $ .69 $ .59 

C-10 $ .79 $ .69 

C-20 $ .99 $ .89 

C-30 $1.19 $1.09 

C-60 $1.49 $1.39 

C-90 $1.79 $1.69 

*CASES $ .21 $.20 

'Cases recommended to protect sensitive cassettes. 



—UPS SHIPPING— 

(No P.O. Boxes please) 

$2.00 (12-pak) $3.00 (24-pak) 

—Canadian shipping multiply by 2— 

#1 COMPUTER TAPE 
IN THE USA! 

—write for volume prices— 



TOLL-FREE 

(orders only) 

1-800-528-6050 

ext. 3005 

In Arizona State 

1-800-352-0458 

ext. 3005 

MICRO-80tmINC. 

E. 2665 Busby Road 

Oak Harbor, WA 98277 

—Distributors Wanted— 




■See List oi Advertisers on Page 563 
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ed at addresses AA29-AA50. These two 
ROM tables combine to form Table 2. 
The tokens for the function key words 
require two bytes each. 

In the Extended Color Basic and Disk 
Basic ROMs, there are tables analogous 
to those in Tables 1 and 2. Their loca- 
tions are at addresses 8183-81EF, 
81F0-821D, 821E-8256, 8257-8272, 
C17F-C1DA, C1DB-C200, C201- 
C213, and C214-C21F. The substance 
of these ROM tables is in Tables 3, 4, 5, 
and 6. 

Auxiliary RAM Control Bytes 

In the auxiliary RAM (addresses 
0000-03FF) of the Extended Color 
Basic ROM there are bytes used to 
control the Basic interpreter's action 
in determining from the current token 
which subroutine entry to make. 
These control bytes are located at ad- 
dresses 01 20-01 3D. At 0120 is the 
number of Color Basic key words in 
the ROM table that is part of Table 1 . 
The two bytes at 0121 and 0122 point 
to this ROM table of Color Basic key 
words. The succeeding two bytes 
point to the associated ROM table of 
subroutine entry addresses. 

The succeeding five addresses, 0125- 



0129 serve similar purposes for the 
ROM tables associated with Table 2. 
The next five bytes diverge somewhat 
from the established pattern. The byte 
at 012A contains the number of key 
words in the Extended Color Basic 
ROM shown by Table 3. 

The bytes at 012B and 012C point to 
the ROM table of Extended Color Basic 
key words. The divergence occurs at 
01 2D and 012E. These bytes point to a 
subroutine that helps determine the sub- 
routine entry address for tokens 
B5-CB. The subroutine also takes care 
of tokens FF90 and FF9F. 

The bytes at addresses 012F-0133 
have a purpose similar to the previous 
five bytes. The final two bytes at 0132 
and 0133 point to a subroutine that 
helps determine the subroutine entry 
addresses for tokens FF94-FFA1, with 
the exception of FF90 and FF9F. 

The two subroutines that help in de- 
termining subroutine entry addresses 
also provide exits to addresses stored at 
0137, 0138 and 013C, 013D. When the 
Color Computer does not have a Radio 
Shack Disk System, these latter ad- 
dresses lead to a subroutine that sends 
the SN error message to the screen. 
When the machine does have a Disk 



System, the 10 bytes in locations 
01 34-01 3D have properties analogous 
to the preceding 10 bytes. 

HPOKE, EXG, and EOR 

The following two statements are ex- 
tremely valuable additions to Extended 
Color Basic. 

• A POKE-like statement that trans- 
fers hexadecimal bytes to successive 
RAM addresses: For example, HPOKE 
&H2900,CE,3E,9C,8E,C1 ,7F,C6,5C, 
BD,A5,9A sends the bytes CE, 3E,. . . 
9A to addresses 2900-290A. HPOKE 
provides a convenient means of typing 
in machine-language programs. It also 
greatly simplifies the use of elegant 
string-packing techniques. HPOKE 
eliminates the need for the slow Read, 
Data, POKE loops used in string pack- 
ing. Ironically, string packing is used in 
the program that adds HPOKE to the 
Extended Color Basic vocabulary. 
HPOKE is also the key to a new high- 
resolution graphics technique. 

• A single statement that quickly does 
the equivalent of: 

FORI=0TO3 

B = PEEK(VARPTR(A$(X)) + I) 

POKEVARPTR(A$(X)) + 1, 



EPSON MX-1 00 III, MX 80 - FT III, MX 80 - III 

Okidala 80 Printer 80 CPS, List $449 

Okidata 82A Printer 1 20 CPS, List $649 

Okidata 83A Printer 1 20 CPS. List $1,119 

Okidata 84 Printer (parallel) 1 32 column, 200 CPS . . 

Okidata 84 Printer (serial) 132 column, 200 CPS 

Okidata 2350 Printer (parallel) 132 column, 350 CPS two color 

ribbon, List $2,800 

Smith Corona TP-1 Daisy-wheel printer, parallel or serial, 10 or 

12 pitch, List $895 



CALL FOR PRICE 
$330.00 
$440.00 
$675.00 
$980.00 
$1050.00 



$1860.00 



$615.00 



BMC 1 2AU 1 2 inch 1 5 MHZ, green on black monitor $95.00 

BMC 1 2EU 1 2 inch 20 MHZ, green monitor with non-glare screen $129.00 

DC Hayes Smartmodem (300 & 1200 BAUD) List $699 $505.00 

DC Hayes Smartmodem, List $279 $219.00 

Diskette storage case for 5 1 A inch diskettes (holds 1 00 diskettes) $18.00 
Practical Peripherals Epson Buffer (parallel 16K) for Apple II or 

Radio Shack, List $159 .. . $125.00 

Percom Doubler II $149.00 

Practical Peripherals Micro Buffer Inline 32K (specify serial or 

Parallel) $244.00 

Tandon 40 Track Drive complete w/case & power supply $255.00 

CASH ONLY PRICE INCLUDES money order, certified company & personal check & COD. 
Personal and company checks take two 
weeks to clear. 

Shipping & Handling Charge on light 

items $2.50. Prices subject to change 

without notice. NJ residents add 5% 

sales tax. 

HOURS: 10 AM to 5 PM Weekdays. 

After 5 PM and Weekends 

Questionable. 




Send for 

complete 

circular m 201-751-8444 



TURN YOUR COMPUTER INTO 
A GRAPHICS MACHINE 




WITH THE MIKEEGRAPHIC 
GRAPHIC SYSTEMH 

MIKEEGRAPHIC is a hardware/software 
system designed for the TRS80 model I & 
III computers. When installed, your 80 will 
come alive with graphic ability!! 

II you've been waiting lor a graphic 
system with the best dots/dollars ratio, 
take a look at our MIKEEGRAPHIC." " 

HARDWARE 




TOTAL SCREEN INVERSE VIDEO 
IWO MODES OF DENSITY: 

384 * 192 or 191 x 192 lor Model I 

512 i. 192 oi 256 < 192 lor Model III 
EVERY DOT CAN BE SET. RESET or TESTED 
12288 BYTES OF FAST 200 ns MEMORY 
FUNCTIONS SELECTED BY OUTPUT PORT -25A 
MEMORY MAPPED FOR SPEED 
OCCUPIES LAST 16K BLOCK OF MEMORY 
CAN BE USED AS NORMAL MEMORY 

lit you have 32K or more o' memory) 
COLOR COORDINATED ENCLOSURE 
OOES NOT CONFLICT WITH DISK OR CASSETTE 10 
SELf SWITCHING POWER SUPPLY 

(Powers up *»ih Computer: 

COMES WITH IT'S OWN WALL TRANSFORMER 
NOT A CHARACTER GENERATOR" 
EASY INSTALLATION 

(Requires only 18 solder connections and 

one trace'pin cull 



SOFTWARE 



• COMES WITH SAMPLE AND DRIVFR SOFTWARE 

• USABLE THROUGH BASIC OR MACHINE LANGUAGF 

• EXCELLENT INSTALLATION: 
OPERATION MANUAL 

TOOL KITS AVAILABLE FOR JUST $1500 
MANUAL AVAILABLE SEPARATELY FOR $15.00 
Full price of manual will oe deducted from ihe 
Purchase Price of MIKEEGRAPHIC 1 M when cdereo. 
PREPAID COD. MASTERCHARGE. VISA. O" MASTER 
CARD ORDERS ACCEPTED FOB Benevue. Wa 
US Currency ONLY stoc« lo 30 Days delivery 
DEALERS INQUIRIES INVITED. 

ORDER NOW FOR ONLY $340. 



VRITE 'or FREE BROCHURE or 



P.O. Box .1813 Bellevur Washington 980OT 

Telephone 206 4.1 0574 ^72 
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PEEK(VARPTR(A$(Y)) + 1) 
POKEVARPTR(A$(Y)) + I,B 
NEXT 

without using variables I and B. This 
statement, called EXG, quickly ex- 
changes two strings. Suppose A$ = 
"FIRST" and B$ = "SECOND". Af- 
ter the execution of EXG(A$,B$), then 
A$ = "SECOND" and B$ = "FIRST". 
The loop 

FORI = A TON 

EXG(A$(I),A$(I + 1)) 

NEXT 

can be invaluable in rapid string sorts. 
A useful tool for specialists is the 
EOR function. C = EOR(A,B) executes 
twice as fast as its equivalent C = 
(NOT A AND B)OR(A AND NOTB). 

Adding to Basic's Vocabulary 

The following are the steps I use to 
add to the Basic vocabulary. You can 
use this general procedure to add words 
of your own. 

First, write subroutines for HPOKE, 
EXG, and EOR and assign them to 
RAM locations. Choose high RAM ad- 
dresses that you can protect using the 
Clear statement. For a 16K RAM, use 



20 REM ** THERE ARE 210 SPACES IN STRING OF LINE 30. ** 
30 A$= n 



40 X=VARPTR(A$)+2:X=256*PEEK(X)+PEEK(X+1) 

50 FORI=X TOX+209 

60 RE AD J 

70 POKEI,J 

80 NEXT 

100 DATA2,&H3F,&H57,&H3F,&H6 8,1,&H3F,&H63,&H3F,&H77 

110 DATA&H34,&H60,&H30 f &H8C,&HFl,&HCE,l f &H34,&HC6,&HA,&HBD,&HA5, 

&H9A,&H6F,&HC4,&H7F,1,&H43 

120 DATA&HCE,&H3F,&H57,&H30,&H8C,7,&HC6,&HB8,&HBD,&HA5,&H9A,&H35 

,&HE0 

130 DATA&H48,&H50,&H4F,&H4B,&HC5,&H45,&H58,&HC7,&H3F f &H85,&H3F,& 

HBC 

140 DATA&H45,&H4F,&HD2,&H3F,&HE5 

150 DATA&H81,&HD0,&H25,3,&H7E f &HB2,&H77,&H8E,&H3F,&H5F,&H80,&HCE 

,&H7E,&HAD,&HD4 

160 DATA&HCl,&H44,&H23,2,&H20 f &HEF,&HC0,&H44,&H8E r &H3F,&H66,&H7E 

,&HB2,&HCE 

170 DATA&HBD,&HB7,&H3D,&H9D,&HA5,&H81,&H2C,S.H26,&H2D 

180 DATA&H8D f &H10,&H48,&H4 8,&H48,&H48,&H34,2,&H8D,8 r &HAB f &HE0 

190 DATA&HA7,&H80,&H9D,&H9F,&H20,&HE8,&H9D,&H9F,&H81 f &H30,&H25,& 

HC 

200 DATA&H81,&H3A,&H25,&HF,&H81,&H41,&H2 5,4,&H81,&H47,&H25,5 

210 DATA&H32,&H62,&H7E,&HB2,&H77,&H80,7,&H80,&H30 f &H39 

220 DATA&HBD,&HB2,&H6A r &HBD,&HB3,&H57,&H34,&H10 

230 DATA&HBD,&HB2,&H6D f &HBD,&HB3,&H57,&H35 f &H40,&HA6,&HC4 

240 DATA&HE6 f &H84,&HA7,&H81,&HE7,&HCl,&H8D f 6,&H8D,4,&HBD,&HB2,&H 

67 

250 DATA&H39,&HA6,&HC4 f &HE6,&H84,&HA7,&H80 r &HE7,&HC0,&H3 9 

260 DATA&HBD,&HB2,&H6A,&HBD,&HB7,&H3D,&H34,&H10,&HBD,&HB2,&H6D,& 

HBD,&HB7,&H3D 

270 DATA&HBD,&HB2,&H67,&HlF,&H10,&HA8,&HE0,&HE8,&HE0,&HBD,&HB4 r & 

HF4,&H39 



Program Listing 1 



The Platinum 
worksaver 

...Programming Made Easy 

FULL SCREEN EDITING OF 
BASIC PROGRAMS 

With the PLATINUM WORKSAVLR'S 
editor, there's no more counting the 
numbers of characters to delete or 
change, or wondering if you deleted 
too many or too few. You see the 
whole line as it's edited. Changes, 
deletes and inserts are automatic 
and the cursor can be moved any- 
where on the screen. 

FULL SCREEN EDITING OF 
NUMERIC AND STRING ARRAYS 

But that's only the beginning! The 
editor (Written in machine language; 
also comes with a short, two line 
BASIC subroutine that will allow you 
to use the full screen editor on your 
numeric and string arrays. This is the 
springboard you need for develop- 
ing your own VisiCalc™ or word 
processor. 

NUMERIC KEYPAD 

We've solved another Color Com- 
puter weakness. Press a control key 
and letters ), K, L, U. I, O, P become 
number keys 1-7. Numbers 8-0 re- 
main in their normal positions. The 
key pad numbers are clearly labeled 
on the overlay. 



COLOR COMPUTER* UPGR A DE 



With the Platinum worksaver®. programming time 
and hassle can be cut by 50%. 



SINGLE KEY ENTRIES OF 
BASIC WORDS 

So, the PLATINUM WORKSAVFR 
makes it easier to write useful pro- 
grams and edit them, but that's not 
all! Entering programs is a breeze 
with single entry of over 80 basic 
words, on a beautifully designed 
KLYI50ARD OVLRLAY, color-keyed 
to function. No need to memorize 
or consult a conversion chart to find 
a word. 

PROGRAM CHAINING AND 
DYNAMIC DEBUGGING 

Now you can write, enter and change 
programs easily, but what about de- 
bugging^ This is the frustrating, time 
consuming aspect of programming 
and frankly, the Color Computer 
doesn't help you much . . . you have 
to start the program over each time 
you make a change. But not with 
the PLATINUM WORKSAVER!! With 
it you can change, delete, add and 
rearrange or join lines. The special 
reserved key is excellent for copying 
or moving parts of lines to other 
lines . . . plus, you can even LOAD 
A WHOLE NEW PROGRAM without 
disturbing the data you've- created. 



A COLOR COMPUTER* MACHINE LANGUAGE ENHANCEMENT 
PACKAGE THAT PROVIDES: 

• Dynamic full screen editing of BASIC programs. 

• Dynamic full screen editing of numeric and string arrays. The ad- 
vanced user will be able to write VisiCalc'", word processor etc.! 

• Single key entries for 80 commands and functions. 

• Functionally laid out plastic keyboard overlay. 

• Numeric Keypad conversion. 

• Automatic line numbering. 

• Best value per dollar than any other enhancement package available. 



THE PLATINUM WORKSAVER INCLUDES: 

• I nhancement program, including a sample mini-word processor, on a 
high-quality Agfa Cassette. 

• Fully labeled acetate keyboard overlay 

• Complete instructions 

• Loads in seconds, takes 2.2K 



The PLATINUM WORKSAVER costs $30.00 plus 
$3.00 S&H (NY residents add 7% tax). To order 
write: 

PLATINUM SOFTWARE 
P.O. Box 833 

Plattsburgh, N.Y. 12901 

Phone orders: (518) 643- 2650. 



platinum 
'software 



You're Serious About 
Your Color Computer? 
^544 SO ARE WE. 



OVER 100 PROGRAMMABLE KEYS 



LOADS TO DISK 



16KMIN. REQ. 



<sSee List of Advertisers on 
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the following starting and ending ad- 
dresses for HPOKE, EXG, and EOR 
respectively: 3F85 and 3FBB, 3FBC and 
3FE4, and 3FEF and 3FFF. 

Second, construct a key-word table 
for HPOKE and EXG. The table con- 
sists of five hexadecimal bytes for 
HPOKE and three hexadecimal bytes 
for EXG. The first four bytes are the 
ASCII codes for the letters H, P, O, and 
K. The fifth byte is the ASCII code for 
E incremented by hexadecimal 80. The 
sixth and seventh bytes are the ASCII 
codes for E and X. The final byte is 80 
plus the ASCII code for G. 

The final letter of every Basic key 
word in the ROM tables discussed 
above has 80 added to its ASCII code to 
signify that it is the last letter. Assign the 
8-byte table to addresses 3F57-3F5E. 
Construct an associated subroutine en- 
try-address table and assign it to ad- 
dresses 3F5F-3F62. 

Third, write a subroutine to deter- 



"I developed HPOKE 

primarily for facilitating 

string packing." 



mine the subroutine entry addresses for 
tokens CE and CF, the tokens for 
HPOKE and EXG, respectively. The 
ROM subroutine pointed at by auxili- 
ary RAM control bytes at 01 2D and 
01 2E serves as a model for writing this 
subroutine. Assign this subroutine to 
addresses 3F68-3F76. 

Fourth, specify the auxiliary control 
bytes at 0134-0138; specify the contents 
of 0134 to be 02, the number of Basic 
key words in the new key-word table. 
The contents of 0135 and 0136 are 3F 
and 57, respectively, where 3F57 is the 



10 PCLEAR4 : PMODE4 : COLOR0 , 5 : PCLS : SCREENl , 1 

20 X=&H1020 

30 HPOKEX,DD,DD,DD,DF:HPOKEX+32,AA,AA,AA,AF:HPOKEX+6 4,00,00,00,0 

7:HPOKEX+96,AA,AA,AA,AF:HPOKEX+128,DD,DD,DD,DF 

40 FORI=lT015:NEXT 

50 FORI=X TOX+128STEP32:HPOKEI,FF r FF,FF,FF:NEXT 

60 X=X+2 

70 IFX=4158THEN20ELSE30 

Program Listing 2 



1 PCLEAR4 : PMODE4 : COLOR0 , 5 : PCLS : SCREENl , 1 

20 DIMA(3) ,C(3) 

30 DRAW"BM0,2E2F2E2F2E2F2E2F2E2F2E2F2E2F2G2H2G2H2G2H2G2H2G2H2G2H 

2G2H2R28" 

40 GET(0,0)-(31,4) ,A,G 

50 GET(0,5)-(31,9) ,C,G 

60 X=0 

70 PUT(X,0)-(X+31,4) ,A,AND 

80 F0RI=1T015:NEXT 

90 PUT(X,0)-(X+31,4) ,C,PSET:X=X+16 

100 IFX=240THEN60ELSE70 

Program Listing 3 



10 CLS:A=&H2AF7:B=&H34C8 

20 C=EOR(A,B) :PRINTHEX$(C) 

30 IFC<>7743THENPRINT"THE EXAMPLE WORKS INCORRECTLY." 

Program Listing 4 



10 CLS 
2 

4 
3 

4 
5 



A$(0)="FIRST ,, :A$(l)= n SECOND n :A$(2) 

"FIFTH" 

FORI = 0TO4:PRINTA$(I) :NEXT:PRINT 

FORI=0TO3:EXG(A$(I) ,A$(I+1) ) :NEXT 

FORI=0TO4:PRINTA$(I) :NEXT 



Program Listing 5 



="THIRD":A$(3)="FOURTH":A$( 



first address of the key- word table. The 
contents of 0137 and 0138 are 3F and 
68, where 3F68 is the entry address of 
the subroutine discussed in Step 3. 

Fifth, construct a one-key- word table 
for EOR in a form similar to the table 
of the second step. Assign it to bytes at 
3F63, 3F64, and 3F65. Form an EOR 
subroutine entry address and assign it to 
3F66 and 3F67. 

Sixth, write a subroutine to deter- 
mine the subroutine entry address for 
the token FFA2 associated with EOR. 
Model this subroutine after the one 
pointed at by auxiliary RAM control 
bytes at 0132 and 0133. Assign the sub- 
routine to addresses 3F77-3F84. 

Seventh, specify the auxiliary RAM 
control bytes at 0139-013D as 01, 3F, 
63, 3F, and 77. 

Eighth, write a Basic program using 
string-packing techniques to store the 
subroutines written in previous steps. 
Pack these subroutines into a string. 
Write another subroutine that transfers 
these subroutines to protected high 
RAM. Pack it in the string and enter it 
via a USR function. 

The String Packing Program 

The Basic program of the eighth step 
of the procedure is shown in its initial 
form in Program Listing 1. Line 40 
finds the address of the first byte of the 
string A$. Lines 50-80 successively read 
the data of lines 100-270 and POKE 
them into the 210 available string loca- 
tions. Data lines 100-270 contain the 
following information: 

• Line 100 contains 10 auxiliary RAM 
control bytes. 

• Line 1 10 contains a subroutine that 
transfers those 10 bytes to RAM ad- 
dresses 0134-013D. 

• Line 120 contains a subroutine to 
transfer the rest of the string informa- 
tion to high RAM. 

• Line 130 contains a key-word table 
and subroutine entry-address table for 
HPOKE and EXG. 

• Line 140 contains a key-word table 
and subroutine entry-address table for 
EOR. 

• Line 150 contains a subroutine point- 
ed at by bytes assigned to 0137 and 
0138. 

• Line 160 contains a subroutine point- 
ed at by bytes assigned to 01 3C and 
013D. 

• Lines 170-210 contain the subroutine 
that executes HPOKE. 

• Lines 220-250 contain the subroutine 
that executes EXG. 

• Lines 260 and 270 contain the sub- 
routine that executes EOR. 

If you own a 32K Color Computer, 
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change the &H3Fs in lines 100 and 
120-160 to &H7Fs. 

If you own a 16K Color Disk System 
you must make the following changes: 
In line 110 replace the second &H34 
with &H3E. Also in line 1 10, replace the 
last item &H43 with &H4D. In line 150 
replace &HD0 and &HCE with &HE3 
and &HE1, respectively. In line 160 re- 
place each &H44 with &H50. 

Programs that add key words to the 
Basic vocabulary have one restric- 
tion. You must not use the first three 
USR functions— USR0, USR1, and 
USR2 — after those programs have been 
executed. This is no real hardship 
because the addition of key words 
reduces the need for USR functions, and 
you may add to the Basic vocabulary a 
larger set of USR-like functions of your 
own. The restriction applies only to Ex- 
tended Color Basic and not to Disk 
Basic. 

Carefully type in Program Listing 1 , 
save it on tape or disk, and run it. 

After the program has been executed, 
there is no need for any of the lines ex- 
cept 30 and 40. Therefore, delete line 20 
along with lines 50-270. Then augment 
the program by adding the following 
lines: 



"If you have a 
Color Computer, 
change line 10 to 
CLEAR200AH7F57. 



10 CLEAR200, & H3F57 
50 DEFUSR = X + 10 
60 X = USR(0) 
70 NEW 

If you have a 32K Color Computer, 
change line 10 to CLEAR200,&H7F57. 
The augmented program is its final 
form. Save it on tape or disk before you 
run it. 

Some Examples 

These example programs illustrate 
HPOKE, EXG, and EOR. If they do 
not work as described, you may not 
have keyed in Program Listing 1 
correctly. 

Program Listing 2 is entitled Cater- 
pillar. It moves a caterpillar-like graph- 
ics creature across the screen. I devel- 



oped HPOKE primarily for facilitating 
string packing, but Program Listing 2 
shows HPOKE's utility in the composi- 
tion of economical graphics programs, 
using only 238 bytes. 

Program Listing 3 is similar to List- 
ing 2. It uses the Color Computer's 
Draw, Get, and Put statements to move 
the caterpillar across the screen, but at a 
cost of 330 bytes. 

The HPOKE graphics program re- 
quires only 72 percent of the bytes need- 
ed using the conventional graphics 
statements. This example indicates that 
you may expect potentially high savings 
using HPOKE for large graphics 
programs. 

Program Listing 4 prints 1E3F on the 
screen. 

Program Listing 5 prints on the first 
five screen lines the words first, second, 
third, fourth, and fifth, respectively. 
The words second, third, fourth, fifth, 
and first should appear on the seventh 
to eleventh lines of the screen. ■ 

H. Allen Curtis is self-employed and 
has degrees from William and Mary, 
MIT, and Harvard. He lives at 172 
Dennis Drive, Williamsburg, VA 
23185. 
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GAME 



Games in Color 



by Robert Toscani 



Dave McGlumphy's program that 
imitated the hand-held game, Simon (80 
Micro, August 1981), is a natural for 
the Color Computer. 1 rewrote his pro- 
gram to fit my 16K Extended Color Ba- 
sic computer, but I have written a 4K 
version as well. 

I often let print statements run to- 
gether, and to prevent words from be- 
ing cut in half, 1 add and remove spaces 
as needed. So, my lines may have long 
spaces or no space where one should be, 
but this keeps the text neat. If necessary, 
you could compress many of the lines to 
save memory. 

In my version of Simon, lines 45-55 
are the color test. Line 60 tells you 
which letter to push for each color. 

Line 75 controls time. The higher the 
difficulty level, the less time a color is 
shown, and the less time you have to 
press buttons. Line 80 determines if the 
color pattern repeats with each new col- 
or or not. 

Line 185 is the base line for the 
12-piece color sequence. Line 190 ran- 
domizes the color selections and line 200 
starts the game. The 50-Y*9 at the end 
is length of time the color appears. 

Line 1 95 compares the answers in the 
right order, as will be shown later. Lines 
210-394 present each color while the 
IFX= lines determine when to stop. 

Lines 400-405 set the screen to black, 
clear the computer for your answer, and 
set up the timing loop. Line 410 gives 
the letter answer a numerical value for 
comparison in lines 430-540. This is 
where N comes in, to make sure you're 
comparing the right color question and 



The Key Box 

Color Computer 
16KRAM 
Extended Color Basic 



These games for the 
Color Computer will 
test you, amuse you, and 
frustrate your friends! 

letter answer. 

If you've made an error, lines 570 
and 900-910 tell you, and if you've run 
out of time before pressing the button, 
lines 950-980 let you know. 

Line 800 plays and shows your an- 
swer. If it's correct, lines 810 and 815 
determine if you have more buttons to 
press in that run. If the sequence is up to 
four colors, you have to press four but- 
tons. Press all four in the correct order 
and you move up one to five colors. 
Lines 850 and 860 end the game when 
the maximum 12-color sequence has 
run and determine which of the winning 
answers you get. 

These winning answers are in lines 
1000-1170 along with some music and 
the option of playing again or ending 
the program. 

Takeaway 

The second game I altered is Richard 
Ramella's Tanlerian Takeaway, from 
80 Micro, December 1981. The pro- 
gram runs on the Color Computer with- 
out modification, but I added graphics 
and wrote another version for two 
players. 

In both versions, you take turns mov- 
ing from one to ten jewels from one box 
to another. The winner is the one who 
moves the 100th jewel, and in the one- 
person game, the computer always 
wins. I'll explain why later, but first I'll 
point out the changes I've made in the 
one-person program. 

Up to line 85, the programs are al- 
most identical. Line 100 starts the 
graphics. From 100-170, the two boxes 
are set with the blue one containing 100 



jewels. Lines 180-240 remove the jewels 
from the blue box and place them in the 
red box. Line 260 determines whose 
turn it is. 

Line 275 starts the game proper and 
the rest of the program controls it. Most 
of the listing is self-explanatory, except 
for the 11-X moves the computer 
makes. This is the key to the computer's 
winning. The computer will always 
move first with one and from then on 
will take your move and add on enough 
to move up 1 1 . For example, the com- 
puter moves one, you move seven for a 
total of eight, and the computer moves 
four for a game total of 12. Then you 
move five and the computer moves six 
for a total of 23 . But in each case, the 
computer moved up by 11. 

After playing the game a few times, 
you'll see the computer always ends on 
the same numbers: 1, 12, 23, 34, 45, 56, 
67, 78, 89, and 100. Each number is 11 
higher than the last. Realizing this, I 
knew a two-person game could be writ- 
ten that would allow either person to 
move first, but would let me win be- 
cause I knew the key numbers. I could 
get onto them at some point and from 
then on move up by 11. 

With that in mind, I wrote the pro- 
gram that you can play with your 
friends and win, as long as they don't 
know the key numbers. Since the pro- 
gram picks the starter at random, I sug- 
gest you keep your beginning moves 
random and not get onto the key se- 
quence until at least half the jewels are 
moved. This way, your opponent will 
be quite mystified by your constant 
winning. 

My program, My Owner, begins by 
explaining the rules. Line 80 picks a 
number that decides who starts. Lines 
100-240 are almost the same as the 
other program. They set up the boxes 
and lights and move them in accordance 
with the number picked. These lines 
have some differences from the previ- 
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QUALITY PERFORMANCE... 

...PROFESSIONAL RESULTS 

TRS-80 FLOPPY/HARD DISK SOFTWARE 



RECORDS MANAGEMENT 
File Card 

One easy-to-use program replaces your 
filing cabinet and its contents! No need to 
keep changing between word processor, data- 
base manager, mailing list, file index, or desk 
calculator. We put it all together in FILE 
CARD. 

Your database entries and related texts 
appear on screen together with many options 
for sorts, global searches, reports, and labels. 
FILE CARD frees the user to dream creatively 
and work efficiently. Typical applications are: 

Personnel/case records 
Patient/client histories 
Library indexes and abstracts 
Art collection commentaries 
Customer/sales activities 
Product quality profiles 
Vendor information 

Model 11/16 64K, 2 Disk $224.50 



SPECIALIZED 
SOFTWARE 

HI-RES PRINTING WITH 
EP-Graphics 

Add our graphics commands to BASIC. 
By creating a magic slate in memory, you can 
now print HI-RES charts and graphs. The 
printouts are full-size printer/plotter emula- 
tions. Requires user to write short BASIC 
programs and have EPSON MX-80 or 100 
with Graftrax. 



Model I or III 48K, 1 Disk 



$79.50 



CREATE A DISK LIBRARY 

Catalog 

"Where did I put that program?" With 
CATALOG, a few keystrokes will find any 
program/file in your collection. The screens, 
sorts, printouts, and ability to handle "funny" 
disks make this the professional's choice. 

Model I 48K, 1 Disk $69.50 

EDUCATION ASSISTANCE 

Tumble 

Explore the realism of rotating images 
with smooth, real-time graphics. Adjust 
speeds and tilts from either keyboard or 
joystick with this simple, fun, educational 
package. 



Model I or III 48K, 1 Disk 



$39.50 



DATA MANAGEMENT 

Stat-to-Plotter 

Use your multipen intelligent plotter 
from Radio Shack or Houston Instruments 
to produce publication quality graphics. 
Numerical entries from database, datafile, 
or keyboard are passed through Radio 
Shack's Statistical Analysis Programs. The 
results are automatically plotted on paper 
or projection transparencies. The graphs and 
legends are accurate enough for scientists 
and engineering presentations. 



PROJECT MANAGEMENT 
Gantt-Pack V 3.0 

This FAST, flexible, powerful program 
can manage all your scheduling needs. Use 
the GANTT-PACK charts to visualize: 

Hourly client/patient visits 
Daily appointments and meetings 
Weekly work crew assignments 
Monthly short course offerings 
Yearly research projects 



Model 11/16 64K, 2 Disk 



Model I or III 48K, 2 Disk 
Model 11/16 64K, 2 Disk 




The GANTT-PACK charts and tables help 
manage time and organize activities. We 
$99.50 automated and enhanced the information 
available on the charts, and made them very 
easy to update or change. Engineers have 
used this technique for over fifty years. Now 
everyone can benefit without having to be a 
draftsman or programmer. 

We are especially proud to offer this pro- 
gram with similar screens, printouts, and file 
structures for all these computers. 



$224.50 
$224.50 
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SERVICE, QUALITY AND RELIABILITY FOR: 

Small businesses, professionals, government contractors, major 
corporations, schools and colleges, and people from all walks of life. 




LIBRA LABORATORIES, INC. 

495 MAIN STREET, METUCHEN, NEW JERSEY 08840 



201-494-2224 
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Orders shipped UPS free for M/C, VISA, check, or money order. 

Orders shipped UPS C.O.D. for purchase order number. 

International orders add 10%. 

Please specify computer model. 



Dealer Inquiries Invited: 



Radio Shack Trademark of Tandy Corporation. 
TRS-80 Trademark of Tandy Corporation. 
Epson Trademark of Shinshu Seiki Co., Ltd. 
HI-PLOT Trademark of Houston Instruments. 
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ous program, so it's best to type them 
in anew. 

The same applies to lines 250-500. 
The value of Q determines whose turn it 
is to move and sends the program to the 
proper line. 

Lines 500 and up are the ending re- 
marks. On the off chance you lose, I've 
enclosed the appropriate comments. 
You can also play again without letting 
the program end. 

So, you now have two programs with 
which to astonish friends and make ene- 
mies. The first program has one bug. 
When the computer makes the first 
move of one, a dot appears in the red 
box, but one dot does not wink out in 
the blue. But, the first dot disappears 
from the blue box, along with the others, 
as soon as the next move is made. 

Math Test 

The third program is a math test. 
Lines 20 and 40 let you pick the num- 
bers that provide the computer with the 
numbers for the question pool. 

Line 50 lets you pick addition, sub- 
traction, multiplication, or division as 
the math to be tested on. In subtraction, 
if the second number is larger than the 
first, the answer will be negative. To 
prevent that, answer N to line 55. 

Line 60 sets the time limit per prob- 
lem in seconds, while line 70 lets you 
pick the total number of problems to be 
asked and even cut the test short if you 
answer a given number of questions 
correctly. The time limit should be no 
more than 90 to prevent problems with 
the display. 

Line 85 keeps a count of the total 
questions asked, and line 120 starts the 
timer. Line 1 10 asks the question. 

Line 121 prints a red bar along the 
bottom as a visual indication of the 
time. It decreases by one for each sec- 
ond that ticks off, which is line 132. 
Also, when half the time has passed, 
lines 126 and 142 come into play, flash- 
ing the message, "Hurry," across the 
screen. 

Lines 122, 125, and 128 set the com- 
puter to receive your answer. Line 130 
prints it, along with the time, and line 
145 completes the loop, enabling the 
computer to count down. Depending on 
the moment you press the key, the num- 
ber may not appear for another second. 
The computer has to loop to the print 
command again. Don't hold the key 
down, just press it in a normal manner. 
A related problem is that you cannot 
correct a mistake. 

After putting in the complete answer, 
press enter to break the loop. 

Line 147 produces the correct answer 
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MATCHING LETTERS NOW." 



Program Listing I 

1 REM CC SIMON BY ROBERT TOSCANI , 4744 WHITAKER AVE. PHILA. PA. 

19120 

10 CLS 

20 PRINT@128,STRING$(32,"*") : PRINT@288 , STRING$ (32 , "*") :PRINT@204 

, "CC SIMON" 

22 PLAY "T303L4CFFGAFAGCPPGAL2FL4E n 

25 CLS 

30 PRINT"THIS GAME IS BASED ON SIMON. THE SCREEN WILL SHOW DIFFE 

RENT COLORS. YOU HAVE TO PRESS THE RIGHT LETTER IN THE RIG 

HT SEQUENCE." 

35 PRINT"WE'LL SHOW THE COLORS AND THE 

40 FORZZ=1TO3000:NEXTZZ 

45 FORAA=1T06 3iFORBB=1T031 

50 CC=INT(AA/8+l) 

55 SET(AA,BB,CC) :NEXTBB,AA 

60 PRINT" GYBRWCMO' 

65 PRINT"PRESS ANY KEY TO CONTINUE" 

70 C$=INKEY$:IF C$=" n THEN70 

75 INPUT"PICK LEVEL 1 ( EASY) -5 (HARD) " ; Y 

80 INPUT"DO YOU WANT THE COLOR SEQUENCE 

COLOR, Y(HARDER) OR N(EASIER) " ;B$ 
85 CLS 

90 PRINT"OK, THE GAME WILL START WITH ONECOLOR AND INCREASE BY 
NE WITH EACH CORRECT ANSWER. WHEN THE SCREEN GOES BLACK, THAT 
'S YOUR SIGNAL TO BEGIN PRESSING BUTTONS" 
95 PRINT"AND REPEAT THE SEQUENCE. WHEN YOU'RE READY, PRESS ANY 

KEY TO START." 
100 C$=INKEY$:IFC$="" THEN100 
185 X=l 

190 A=RND(8) :D=RND(8) :E=RND(8) :F=RND(8) :H=RND(8) :I=RND(8) :J=RND( 
8) :K=RND(8) :L=RND(8) :P=RND(8) :Q=RND(8) :S=RND(8) 
195 N=l 

200 CLS(0) :FORZZ=1TO190:NEXTZZ:CLS(A) :SOUND40+20*A,50-Y*9 
210 IF X=l THEN 400 
230 CLS(D) :SOUND40+20*D,50-Y*9 
240 IF X=2 THEN 400 

CLS(E) :SOUND40+20*E,50-Y*9 



TO CHANGE WITH EACH NEW 



250 
260 
270 
280 
290 
300 
310 



IF X=3 THEN 40 

CLS(F) :SOUND40+20*F,50-Y*9 

IF X=4 THEN 40 

CLS(H) :SOUND40+20*H,50-Y*9 

IF X=5 THEN 400 

CLS(I) :SOUND40+20*I,50-Y*9 
320 IF X=6 THEN 400 
330 CLS(J) :SOUND40+20*J,50-Y*9 
340 IF X=7 THEN 400 
350 CLS(K) :SOUND40+20*K,50-Y*9 
360 IF X=8 THEN 400 
370 CLS(L) :SOUND40+20*L,50-Y*9 
375 IF X=9 THEN 400 
380 CLS(P) :SOUND40+20*P,50-Y*9 
385 IF X=10 THEN 400 
388 CLS(Q) :SOUND40+20*N,50-Y*9 
392 IF X=ll THEN 400 
394 CLS(S) :SOUND40+20*P,50-Y*9 
400 CLS(0) :T=0 

403 A$=INKEY$:T=T+1:IF T=500-(Y*75) THEN 950 
405 IF A$= n " THEN 403 

410 IF A$="G" THEN Z=l ELSE IF A$="Y" THEN Z=2 ELSE IF A$="B" TH 
EN Z=3 ELSE IF A$="R" THEN Z=4 ELSE IF A$="W" THEN Z=5 ELSE IF A 
$="C" THEN Z=6 ELSE IF A?="M" THEN Z=7 ELSE IF A$="O n THEN Z=8 
430 IF N=l AND Z=A THEN 80 
440 IF N=2 AND Z=D THEN 800 
450 IF N=3 AND Z=E THEN 80 
460 IF N=4 AND Z=F THEN 80 
470 IF N=5 AND Z=H THEN 800 
4 80 IF N=6 AND Z=I THEN 80 
490 IF N=7 AND Z=J THEN 800 
500 IF N=8 AND Z=K THEN 800 
510 IF N=9 AND Z=L THEN 800 
520 IF N=10 AND Z=P THEN 800 
530 IF N=ll AND Z=Q THEN 800 
540 IF N=12 AND Z=S THEN 800 
57 GOTO 90 

800 CLS(Z) :SOUND40+20*Z,5 
810 IF N=X AND B$="N" THEN 850 
815 IF N=X AND B$="Y" THEN 860 
820 N=N+1:GOTO400 

850 X=X+1:IF X=13 THEN 1000 ELSE GOTO 195 
860 X=X+1:IF X=13 THEN 1100 ELSE GOTO 190 
900 PRINT "WRONG ANSWER, SORRY."; 
905 PLAY"T303L2CL3CL8CL2CE-L8DL3DL8CL3C02L8B03L2C" 



Listing I continues 




J j^'Deck The 

J Halls With 
80 MICRO . 




- - • I -• » - j t o . « ( n i i.ilDl 
Annual 



Make 80 MICRO part of your holi- 
season. Every month, 80 MI- 
CRO provides its readers with more 
TRS-80* related programs, articles, 
applications, new product announce- 
ments, and reviews than any 

other magazine. 

And it's as enjoyable as it is informative. 

What a perfect way to say Happy 

Holidays to your favorite Radio Shack 

microcomputerist. 

Give a gift that will last throughout the 

year. Give a subscription to 80 MICRO. 



'TRS-80 is a trademark <>f the Radio Shack Division of Tandy Corp. 



I H(0, I want to give a 
subscription to 80 MICRO for 
the Holidays (12 issues— $24.97) 



D Check enclosed 
DMC riVISA DAE 



DBill me 



Card# 



Expire Date 
Signature — 



Interbank # 
My Name . 
Address 



Citv. 



State Zip 



Please enter a one year gift subscription to: 
Name 



Address 
Citv 



Stale Zip 



Canada & Mexico S27.97. 1 year only U.S. Funds 
Foreign S44.97. 1 year only U.S. Funds drawn on U.S. Bank 
All Gill Subscriptions Begin With Jan. 1983 Issue. 
80 Micro»Box98l«Farmingdale. NY 11737 

62DRS 




Selling 80 Mi- 
cro will make mon- 
ey for you. Consider the 
facts: 
Fact #1: Selling 80 Micro in- 
creases store traffic— our dealers 
us that 80 Micro is the hottest- 
computer magazine on the news- 



^^^ tell 

^^r selling 

stands. 
Fact #2: There is a direct correlation between 
store traffic and sales— increase the number of people 
coming through your door and you'll increase sales. 
Fact #3: Fact #1 + Fact #2 = INCREASED $ALE$, 
which means more money for you. And that's a fact. 

For information on selling 80 Micro, call 800-343-0728 
and speak with Ginnie Boudrieau, our bulk sales man- 
ager. Or write to her at 80 Micro, 80 Pine St., Peter- 
borough, NH 03458. 



micro 



80 Pine Street Peterborough, NH 03458 

800-343-0728 
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niERRV CHRl5Tmfl5 

from 

Communications 5i_jstEms Lab 

Get your trusty TRS-80*a present this 
year that will free it from CLOAD 
indigestion (FROM ALL THOSE TAPE GOODIES UNDER YOUR n.i ■ 
SAVE 131 BY ORDERING BETWEEN NOW AND DECE'-iBER 15 
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COPY CONDI! K)Hl ril 

a u 9 



data conditioner- '•£ compute 

cowrep/cassette reccrder interfax *mo« 

* fliminates volume control juggling fop a 

GOOD aOAO 
" PROVIDES K0R ViSUAL CUING Of TAPES 
' HAKES COPIES Of DATA, PROGRAM AND SYSTfH 
T A°ES WITHOUT THE COMPUTER 

" ELIMINATES NOISE .HINCfl CROPXTS 
-J * PRECONDITIONS DATA TO TAPE DECK DORK* 

-, v C SAVES <-'JR A SUPERIOR QUALITY RECORD I'll- 

"""A * WORKS AT BOTH LOW AMD HIGH TRS-80 BAUD 

•> RATES 

* ATTRACTIVELY STYLED TAN CASE. AC PCv.E"ED 

* > PRICE $69.95 SALE PRICED $59.95 

COPY CONDITIONER- IhF BIG BROTHER 

TO THE DATA CONDITIONER DESIGNED FOR «* 

WALL VOLUME SOFTWARE -'KODUCER. HAKE! 

INEXPENSIVE a*. '"ATES OF TAPFS USING Y0l)P 

"VE RECORDER- DRIVES UP TO 11 DECKS F fi 

••IASTEPIW-. 10 DECKS FOR DUPLICATION. HAS 

vJENTRAi CONTROL FOR TAPE REMOTES. 

INCORPORATES FEATURES OF DATA CONDITION!"" 

REfi PRICE $149.95 SALE PRICED $129. h 



to insure delivery by &R|$TCAi. j-q ORDER call toll free,24hrs 
^LEASE PLACE ORDER BY NOV 30! 1-800-367- 5 1 34 

mo.'-c.-.o VISA r^^ 

Communications Systems Laboratories ■■■■ mm. 

9-'i-165 Leokane St., Waipahu, HI %/"!' *trs-80 is a trademark ^ Tandy rauij shack 
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THE LNW80. 

ONCE YOU FIND IT, THE REST IS EASY. 



You ve heard about the LNW80. It's the new microcomputer 
from LNW Research, and it works harder than even the TRS80. 
But finding one hasn't been that easy. 

The LNW80 lets your computer perform like the world's most 
sophisticated microcomputers. Its 4MHz. Z80A CPU charac- 
teristics more than double your computer's original processing 
speed. It comes complete with double density controller, color 
and b/w. high resolution graphics features, standard R5232 
Port and 48K Ram. And the LNW80 is fully compatible with all 
TRS80 Model I software, giving you the widest available soft- 
ware base to go with your new performance capabilities. 

All with a One Year Warranty. 



Compare our price - just $1695.00, including a free green- 
screen monitor and S94.90 worth of software included free. The 
package includes the DOSPLUS disk operating system, 
MICRO-CLINIC SYSTEM DIAGNOSTICS, and META TECH- 
NOLOGIES AIDS III INFORMATION MANAGEMENT SYSTEM, 
free All orders shipped free. 

LNW Expansion Package $699.00 

Upgrade your MOD 1 1 6K to 48K and disk, includes expansion 
interface, one Tandon 40 Track Drive and the DOS Plus 
Operating System. 



LNW System Expansion II, Complete $399.95 

For Model I TRS-80 32K. RS-232 Printer Port, Floppy Port. 
Replaces the expansion interface no longer available from 
Radio Shack. 



Call Toll Free to order 800/525-8394. 
Visa, MasterCard, checks and money orders accepted. 



Data Resources 

304 Elati Street 
Denver, Colorado 80223 
(303)698-1263 „« 



We're not soft 
on software 

Data Resources continues its commit- 
ment to professional quality TRS-80® soft- 
ware with the Silver Edition Software 
Series—selected programs from talented 
and popular authors. 

Interactive Business System Manufacturing Business. 

Inventory, Invoicing and Accounts 

Receivable $500.00 

ISA's Super Data Base $250.00 

BT Enterprises Uniterm/80. 

Smart Terminal/Communications Software $89.00 

Macro- Accounting System: 

MAS/80 Including 

General Ledger. Accounts Receivable. Accounts Payable 
and Check Register 
$489 00 Complete or $1 59.00 foi each 

Additional MAS/80 Modules: 

Invoicing Module . $89.00 

Payroll for 250 Employees $19900 

Inventory . . $499.00 

West Tech Retail Inventory . . $499.00 

Mui'i Utility Menu with Label Design $34.95 
Format copy. Programmer utilities (for Nendos/80) 

Personal Check Register . . $89.00 

Floppy Doctor: Floppy Disk/Memory Diagnostic 

Model I ........... $24.95 

ModeUI .. $29.95 

Aids Data Base: From Meta Technologies 

Aids III $6995 

Merge III ... $1995 

Coles HI ..... ... $24.95 

CalcsiV $3995 

Super Systems: 

Aids III, Merge HI. Coles III $99.95 

Aids III. Merge III. Caics IV $10995 

Harvest the Sun/Solar Energy Analyzer $19.95 

Atmospheric Pressure/Weather Forecasting $24.95 

Wind Chill Temperature Humidity Index .. $1995 

Range & Bearing Computations $34.95 

Periodical Cross- Reference D rogram/ 
For Nendos/80 V 2 Avoiiabie Soon 

Model I/Double Density Package: 

New DOS/80 V 20 with LN Doublet $21995 

New DOS/80 V20 with 5/8 Doubier $249.95 

DOS Plus V.3.4 

with LN Doubier . ... $16995 

with 5/8 Doubier . $19995 

LN Doubier Aione $139 95 

5/8 Doubier Aiore . $16995 

New DOS/80 V.2 Model I or III - $149 00 

DOS Pius V 34 Double Density/Model I $9995 

LNW System Expansion II for Model I. TRS-80. 32K.RS-232 
Printer Port. Floppy Port. Complete . . $399.95 

LNW 80 Complete $1695.00 

LNW 80 II Complete with CPM $1995.00 

Data Resources 

•Hill 304 Elati Street 

| Denver, Colorado 80223 
Toll Fre } 800-525-8394 

Checks-COD-Money Orders Accepted. Orders Shipped UPS free 
Mastercard and Visa Welcome Attractive Discounts to Dealers 

Colorado residents add 6 1/2 per cent sales tax 
1982 Data Resources Corp TRS-80 is a trademark o' landy Corp 
Aids HI*. Coles III*. Merge III*, ore trademarks of Meta'echnoiogies 
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Listing 


continued 










910 


INPUT"CARE TO TRY AGAIN Y/N";C$:IF C$="Y" THEN 


185 


ELSE 


END 


950 


PRINT"TIME'S UP. YOU LOSE." 










960 


PLAY"03L8AAAAL4AGL1GP4L8GGGGL4GFL1F" 










980 


INPUT"WANT TO TRY AGAIN Y/N";C$:IF C$="Y" THEN 


185 


ELSE 


END 


1000 


PRINT n YOU WIN! I 1" 










1005 


PLAY"02L8A#03L4CL8E-L3GL16G-L8GB-02B-03L4CL8E- 


-L1G" 






1010 


PRINT"WHY NOT TRY THE NEXT LEVEL?" 










1020 


INPUT"PRESS 1 TO MOVE UP, 2 TO STAY AT 


THE SAME LEVEL AND 3 


TO 


END";C$ 










1030 


IF C$="l" THEN 100 ELSE IF C$= n 2" THEN 


185 ELSE IF 


c$= 


•3" T 


HEN 


END 










1100 


PRINT "TERRIFFIC. YOU'VE WON."; 










1110 


PLAY"T303L8.DDDL2G04DP8L8.C03BA04L2GL4DP8L8.C03BA04L2GL4DL8 


.C03B04CL203A" 










1140 


PRINT "WANT TO TRY AGAIN SINCE YOU'RE" 










1150 


PRINT"DOING SO WELL? PRESS 1 TO GO " 










1160 


INPUT" AGAIN, 2 TO CHANGE SETTING AND 3 


TO END 


•?cs 






1170 


IF C$= n l" THEN 185 ELSE IF C$="2" THEN 


100 ELSE IF 


c$= 


"3" T 


HEN 


2ND 













Program Listing 2 




1 REM CC SIMON BY ROBERT TOSCANI, 4744 WHITAKER AVE. PHILA. PA. 


19120 




10 


3LS 




45 


F0RAA=1T06 3 : F0RBB=1T03 1 




50 


:C=INT(AA/8+l) 




55 


5ET(AA,BB,CC) :NEXTBB,AA 




60 


PRINT" GYBRWCMO" 




65 


PRINT"PRESS ANY KEY TO CONTINUE" 




70 


:$=INKEY$:IF C$= nn THEN70 




75 


INPUT"PICK LEVEL 1 (EASY) -5 (HARD) " ; Y 




80 


INPUT "DO YOU WANT THE COLOR SEQUENCE TO CHANGE 


WITH EACH NEW 


COLOR, Y(HARDER) OR N(EASIER) " ;B$ 




95 


PRINT "PRESS ANY KEY TO START" 




100 


C$=INKEY$:IFC$= n " THEN100 




185 


X=l 




190 


A=RND(8) :D=RND(8) :E=RND(8) :F=RND(8) :H=RND(8) :I= 


RND(8) :J=RND( 


8): 


<=RND(8) :L=RND(8) :P=RND(8) 




195 


N=l 




200 


CLS(0) :FORZZ=1TO190:NEXTZZ:CLS(A) : SOUND40+20*A 


50-Y*9 


210 


IF X=l THEN 400 




23 


CLS(D) :SOUND40+20*D,50-Y*9 




240 


IF X=2 THEN 400 




250 


CLS(E) :SOUND40+20*E,50-Y*9 




260 


IF X=3 THEN 400 




270 


CLS(F) :SOUND40+20*F,50-Y*9 




280 


IF X=4 THEN 400 




290 


CLS(H) :SOUND40+20*H,50-Y*9 




300 


IF X=5 THEN 400 




310 


CLS(I) :SOUND40+20*I,50-Y*9 




320 


IF X=6 THEN 400 




330 


CLS(J) :SOUND40+20*J,50-Y*9 




340 


IF X=7 THEN 400 




350 


CLS(K) :SOUND40+20*K,50-Y*9 




360 


IF X=8 THEN 400 




370 


CLS(L) :SOUND40+20*L,50-Y*9 




375 


IF X=9 THEN 400 




380 


CLS(P) :SOUND40+20*P,50-Y*9 




400 


CLS(0) :T=0 




403 


A$=INKEY$:T=T+1:IF T=500-(Y*75) THEN 950 




405 


IF A$=" n THEN 403 




410 


IF A$="G" THEN Z=l ELSE IF A$="Y" THEN Z=2 ELSE IF A$="B" TH 


EN 


1=6 ELSE IF A$="R" THEN Z=4 ELSE IF A$="W" THEN 


Z=5 ELSE IF A 


$="C" THEN Z=6 ELSE IF A$="M" THEN Z=7 ELSE IF A$=* 


0" THEN Z=8 


430 


IF N=l AND Z=A THEN 80 




440 


IF N=2 AND Z=D THEN 800 




450 


IF N=3 AND Z=E THEN 800 




460 


IF N=4 AND Z=F THEN 800 




470 


IF N=5 AND Z=H THEN 800 




480 


IF N=6 AND Z=I THEN 800 




490 


IF N=7 AND Z=J THEN 80 




500 


IF N=8 AND Z=K THEN 800 




510 


IF N=9 AND Z=L THEN 80 




520 


IF N=10 AND Z=P THEN 800 




570 


GOTO 90 




800 


CLS(Z) :SOUND40+20*Z,5 




810 


IF N=X AND B$="N" THEN 850 




815 


IF N=X AND B$="Y n THEN 860 




820 


N=N+1:GOTO40 




850 


X=X+1:IF X=ll THEN 1000 ELSE GOTO 195 


Listing 2 continues 



to the question. In division questions, 
the program rounds off the answer to 
the first decimal point. If the second 
decimal is 5 or higher, increase the first 
decimal by one to get the correct 
answer. 

Line 150 compares your answer with 
the correct one, and lines 160-300 print 
the appropriate response. Line 302 
keeps track of the number of correct an- 
swers. Line 306 ends the program if ei- 
ther it or the total number of question^ 
is reached. If they are, lines 400-417 pro- 
vide a brief sound and light show, and 
then lines 430-500 tell you how many 
questions you got right and the percent- 
age of correct answers. Line 440 rounds 
off the answer to two decimal places and 
then converts that to a whole number to 
provide you with the percentage. 

Line 505, based on the percentage, 
chooses which phrase to print from the 
next nine lines, and then lines 700-729 
let you begin again or end the program. 
Lines 1000 and up are the introduction, 
explaining the rules of the test.B 

Robert Toscani can be reached at 
4744 Whitaker Ave., Philadelphia, PA 
19120. 



TRS-80 



® 



2-Disk Model III 
#26-1066 $1849.00 




#26-3004 Color Computer 

$299.95 
#26-6001 TRS-80 Model 16 

$4099.00 

2%OFF! with cash 

BODEX CORP 

222 E. Main St. 
Marlboro, MA 01752 
(617)485-5115 



sSee List oi Advertisers on Page 563 
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MEANS 
BUSINESS 



Hardware 
and 
Software 

Products for Che TRS BO' 
Mcjdels I 6i III 



TSHARE 2.0 MULTI-USER 

•I 




SYSTEM 
TRS-80* 



MODELS I & 

SPECIFICATIONS: 
TSHARE is a mulli-tasking operating system for 
two users. 11 patches itself to your NEWDOS or 
TRSDOS SYSTEM. TSHARE allows simultane- 
ous and separate operations lor two users with- 
in a single computer 

AVAILABLE USER MEMORY 
ABOVE 7F80 HEX 

•32K TRS-80 16K FREE 

•48K TRS-80 32KFREE 

TIMESHARING MODES: 

•SIMPLEX MOOE: With TSHARE 1 3 

and 2A Only 
•STANDARD MODE: With All Systems 

SUPPORT EQUIPMENT: 
•One + Oisk Drive 
•32K + Memory 
SIMPLEX MODE STANDARD MOOE 

•A Printer »A Terminal 

•TRS-232 (optional) »RS-232 or MPR-232 

EXECUTION SPEED 
STANDARD MODE: 

(Without Clock Speedup Mods) 
•BENCHMARK executed by 2 simultaneous 

users 37 sec 
•BENCHMARK executed once by standard 

1RS-80: 14 sec 

FEATURES: 

•Type-ahead during Disk I/O (V2 Only) 
•Communications between users 
•Concurrent execution ol single program 
•Foreground/background task design 
•Address up to two printers 

PRICES: 

»TS-l3lorTRS00S2 3 S89(M00l) 

STS-13 for NEWOOS 2 I S89(M0DI) 

rJTS-2A lor NEWDOS VI $99 (MODI) 

#TS-2BI lor NEWDOS V2 $99 (MODI) 

8TS-2BIH lor NEWDOS V? $99 (MOO III) 




SERIAL I/O 
MPR-202 



AT LAST! A serial imput/ 
out put interface designed 
for connection to Ihe 
TRS80 Model I with or 
without an expansion in- 
terface. 

MPR232 Specilications 
•Glitch free operation 
•Connects with card edge connector 
•Baud rates 75-19 200 are switch selectable 
•Integral Power Suppply included! 
•May be daisy chained with other MPR 232s 

PRICES: 

SMPR232I $129 00 (MOO I) 

UMPR232III ^^^ $139.00 (MOO III; 



CSTOCK 
$99 

A) CSTOCK main 
tains a securities 
data base 

•Maintains data 

on up to 3 stock 

market indexes 
•Weekly Stock 

Data (Price . Vol 

P/E. and Yield) _ 

•Weekly Stock Option Oata 
•Two years ol continuous data per stock 

B) CSTOCK is a prolessional technical tool 
•Stock and market averages, highs, and lows 

with respect to any time span 
•Linear regression analysis of slock behavior 

versus any ol 3 markei indexes 
•Short term betas computed (stock volatility in 

terms ol market return) 
•Data plotting capabilities 

C) CSTOCK provides a parametric portfolio 
selection system as an aid in evaluating 
investment strategies in relation to risk. 




'For "Ease qj Use 

THE FILE CLERK 

TRS-80' Models I & III 
Version 5.5 

SPECIFICATIONS: 

•A multi-feature hie manager 

•Plus a simple daia base (muin-hie data sets) 

•File handling capacity lor 12000 records 

•Up to 20 data heids/record 

•MAX record and held length 255 

•MAX effective record length w/indcxmg 7905 

•Assembly language sons on single and com- 
bined data fields 

•Multiple search parameters and chained 
queries 

•Fast (KSAM) record retrieval on sorted key 
heids 

•Flexible report generator with Pagination & 
User titles 

•Computational fields 

•Files can extend over several diskettes 

•All diskettes need not be on line. 
AUTO MOUNT REOUESIS 

•Fields can be redelmed. deleted, or added 

• 140-page manual 




DMB5 provides four data management 
features: 

A) A comprehensive FILE MANAGER lor 
defining your records, data entry or 
edit, and general record retrieval. 

B) A flexible REPORT GENERATOR for 
information retrieval. 

C) A simple data base for advanced ap- 
plications, where DATA SETS involv- 
ing lile pairs can be defined. 

0) A COPY file facility to transfer 

SORTS. SEARCHES, and transfer 

data to NEW formats. 

PRICES: 

#06-51 S99(M00l) 

0DB-5III S99 (MOD III) 



VIEW 3.0 $49 

A SCREEN FORMATTER FOR 0BM5 
•Full CURSOR control for MASK design 
•Screen design with keyboard GRAPHICS 
•Elegant & professional looks 
•File data entry inquiry. & edit 
•Word processor style held editing 
•VIEW is a stand-alone data base 
COMPUTED FIELDS 
KSAM Master Keys 
Requires 0BM5 lor SORTS 

MPR-232 &MERUN IM of Micro Projects Eng 
tRS-80 TM ol Radio Shack Tandy Corp 
NEWDOS8OIM0I Apparai. inc 
IRS232 TM 01 Small System Software Co 



C © m S © f t ac 

203 Arden Street 
Glendale. Calilornia 91203 

(213)649-0369 ^104 




just, 
out/ 



Merlin 
CF/M 86 jot the OiRS-80® 
8088 co-processor 
128K RAM (Expandable to 256K) 
Diskette compatibility with IBM PC 

(Available December 1982) 
Dealer inquiries invited 



'See List ol Advertisers on Page 563 
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SURPRISE ! 

3-D 



It had to happen — sooner or later some- 
one was going to write a stereoscopic 3-D 
program for the Color Computer. The fol- 
lowing two programs are 80 Micro'?, pio- 
neering efforts in what we hope will 
become a popular programming technique. 

Our efforts are by no means spectacu- 
lar; our intentions are to present the prin- 
ciples involved in writing 3-D programs 
with examples. 

Dennis Kitsz, who has long been a guru 
for Color Computer users, gives a good 
discussion on how the illusion of 3-D 
works. His program draws a stack of 
blocks on the screen — actually two angles 
of the same stack superimposed. 

Our resident CC wiz, Jake Comman- 
der, used the same basic concepts, but 
added motion. His program displays a ro- 
tating cube. We're sure you'll find his 
techniques fascinating. 

As the authors point out, you must be 
able to get a good picture on the monitor, 
and the color and contrast adjustments 
must be precise. And, of course, you must 
have a color monitor. If you have trouble 
getting the 3-D effect on your monitor, try 
a friend's. 

Remember, though, that these pro- 
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grams give only the illusion of 3-D, just as 
the 3-D movies of the 1950s created only il- 
lusions. Some sections of the 3-D figures 
in the programs might appear to "come 
out" more than others. 

We Are Not Alone 

Like any good idea, someone else is 
bound to think of it, too. Well, that hap- 
pened with the 3-D Color Computer pro- 
grams. The November 1982 issue of The 
Rainbow, a magazine for the Color Com- 
puter, features a 3-D arcade game called 
Star Trench Warfare by Fred Scerbo. The 
Rainbow's publisher, Lonnie Falk, said he 
isn't going to have the bind-in 3-D glasses, 
though. The glasses found elsewhere in this 
issue will work with that program. 

We welcome The Rainbow's efforts in 
3-D programming, and we suggest you 
pick up their November issue if 3-D in- 
terests you. The Rainbow's address is 5803 
Timber Ridge Drive, P.O. Box 209, Pros- 
pect, KY 40059, (502) 228-4492. 

We hope to generate a whole new genre 
of Color Computer programs using 3-D, 
but it's up to you readers to refine this 
technique. If you come up with any ideas, 
improvements, or interesting applications 
for 3-D programs, let us know. ■ 



GRAPHICS 



3-D for Real 



by Dennis Bathory Kitsz 



u 



until now, "3-D" has been a misnomer for CC 
graphics. Our CC expert has done the ground- 
work for real 3-D. It'll come out and grab you! 



Simulated three-dimensional imagery 
from two dimensions is fascinating, but 
I found the prospect of programming it 
intimidating. I am far from being a 




mathematician, so high-powered, three- 
dimensional rotation algorithms are 
simply outside my scope. Instead, I can 
handle a camera well enough, and can 
play around in my darkroom. I decided 
this could be put to work to learn more 
about 3-D principles. 

My idea was to back into 3-D com- 
puter graphics by first creating the 
photographic images — "Vu-Master" 
style — and rendering these into simple 
computer versions. The steps I chose 
were straightforward: 

• Select the subject to be examined. 

• Photograph it from the desired 
distance. 

• Photograph it again from a short 
distance to one side. 

• Develop and print the separate 
photos. 

• Create and position overlay films. 

• Determine X-Y coordinates for each 
photo. 



• Enter the information into the com- 
puter. 

The original subject matter was a 
small pile of wooden pieces (Photos la 
and lb), with pleasantly sharp angles. 
The principle of three-dimensional pho- 
tography is well known: each eye views 
a subject from a slightly different angle, 
and these images are resolved by the 
brain into a sense of depth. By provid- 
ing individual and slightly different flat 
photographic images to each eye, an il- 
lusion of 3-D can be created. 

To view Photos la and lb in 3-D, 
place the magazine comfortably in front 
of you and in good light, relax your eyes 
and focus into the distance; move your 
eyes slowly down to the images in the 
magazine. It is essential to relax, or else 
you will sec only one of the two images. 
Once your eyes "float" apart, begin to 
focus slowly until the images are clear, 
but still overlap. You can improve this 
effect by viewing these photos simulta- 
neously through separate magnifying 
eyepieces, so each eye is forced to see a 
unique view. 

This technique was used for novelty 
photographs especially at the turn of the 
century, and is still used in Vu-Master 



Fig, I. Camera setup for stereoptical photo. 
Although any pair of photos taken 3 to 4 inches 
apart will work in stereo, most impressive results 
are obtained with longer depth of field, with dif- 
ferent objects at several distances from the lens. 



The Key Box 

Color Computer 

16K RAM 

Extended Color Basic 




Photo I. Stereoptical view of a pile of wooden blocks for separated eyes, (a) 
Left eye. (b) Right eye. Eklachrome64, natural lighting, f/ 16, I/I000second. 
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and other stereoptical viewers. It is em- 
ployed for the photographing of ex- 
tremely fragile museum specimens. 
Four pairs of views — top, bottom, and 
two sides — are usually taken, and the 
results examined with a simple viewer. 
This provides a detailed, perspective 
view so interested visitors don't handle 
the original specimen. 

The trick, however, is to produce a 
single photograph that appears in three 
dimensions. Somehow the images must 
be separated, drawn off the page, and 
relegated one to the left eye and the 
other to the right. A composite image is 
therefore created that can be printed in 
two distinct (actually complementary) 
colors, and can be viewed through 



special lenses. 

The colors are usually green and red. 
When the red printing is viewed through 



"The trick. . . is to 

produce a single 

photograph that appears 

in three dimensions. " 



the red lens, it effectively disappears; 
the green printing looks black through 
the red lens. Likewise, when green 



printing is viewed through the green 
lens, it disappears; the red printing 
looks black through that lens. 

Again, the two-color process has 
been used for novelty photography in 
books and magazines, as well as for spe- 
cial effects in films. For readers old 
enough to remember, it enjoyed brief 
popularity in 1950s horror films, and is 
undergoing a small renaissance today. 

A three-dimensional computer image 
would use the same process by drawing 
on a single screen two slightly different 
pictures in complementary colors. You 
can use three-dimensional algorithms to 
draw directly from design information, 
a tablet or light pen for input, or you 
can program the coordinates of an ex- 




Photo2. Stereoptical view of David Gunn, for crossed eyes, (a) Right eye. (b) Left eye. David had to hold the pose carefully since only one camera was used 
and had to be moved between shots; nevertheless, he did raise one eyebrow. Ektachrome 64, natural lighting, f/22, 1/1000 second. 




Photo 3. High-contrast film stereo view of the blocks in Photo I. (a) Left eye. (b) Right eye. Kodulilh, natural lighting, 1/2.8, 1/15 second, printed on 
Koduhrome II ultra-hard paper developed in graphic arts developer. 

428 • 80 Micro, Anniversary 1983 




Our Users asked for it, and we made the 
best TRS-80 disk assembler even better! 
Now M-ZAL has: 

■ Recursive MACROS with full symbolic parameter 
substitution 

■ Conditional assembly with unlimited nesting 

■ Text Editor warm-start/recovery option 

■ Support for all popular source file formats 

■ Load Module inspect/superzap using LINKER 

and the features that made it famous: 

■ True multi-pass assembly 

■ Full Screen Option Menus 

■ ENTRY/EXTERN symbols, relocation, and object 
module linking 

■ 8 character labels with sorted symbol table 

■ Built-in symbol table cross-reference 

■ Nested 'INCLUDES (source file chaining/nesting) 

■ Lower case support (Model 3 only) 

■ Over 175 pages of documentation including 
Z-80 Technical Manual 

■ Full Screen Text Editing and much, much more! 

M-ZAL provides a modular, structured development 
environment that makes programming your TRS-80 
a truly enjoyable experience. Order yours today. 
(Requires 32k, 2 disk system) 

# 1050-10 Mod 1 $149.00 

# 1250-10 Mod 3 $149,00 



CAU Development Software 
The Professionals Choice: 



Full Screen Text Editor for BASIC: we were the first to 
give the TRS-80 this indispensable ability! A must for 
every BASIC programmer: 

#1210-20 Mod1&3 $29.95 

T-ZAL: custom designed for the Model 3, this tape 
based assembler has many of M-ZAL's most 
desired features. 

#1250-20 Mod 3 only $49.95 

XBUG: for machine language analysis and 
debugging— this tiny (2.5k) but powerful program 
lets you do it all! 

#1020-10 Mod 1 $19.95 

#1220-10 Mod 3 $19.95 

FILEXFER: transfer any disk file between two TRS-80s. 
Use direct cable link or RS modems. Mod 1 and 
Mod 3 can be mixed. RS-232 and disk reqd. 
#1040-10 Mod 1 and 3 $49.95 




. ■ _ * 



* 



"We've been using M-ZAL heavily for 
over two months now, and it's been 
worth its weight in gold." 

—Chuck Tester 
PROSOFT * * * ~ 

"...well written software that is long 

Overdue." . ■ -Bruce Douglass 

80 Microcomputing 
BASIC Editor Review 

"During the first 3 days of use, M-ZAL 
saved more money in programmers 
time than we had paid for the 

product." , -William Denman 

Author of Asylum 
MED SYSTEMS 

"The editor has at least doubled my 
productive capacity. .Having spent a 
good deal of money on so called 
'utilities' that don't work, it's a delight 
to find one that not only lives up to its 
claims but surpasses the advertising." 

-BASIC Editor user . ... 



Our choice for the best TRS-80 DOS: 
DOSPLUS 3.4 Modi $149.00 

DOSPLUS 3.4 Mod 3 $149.00 



Call or write for more information. 
All products require level II. 
Mail orders specify catalog #. 
Send check, money order, or MC/VISA 
numbers and expiration date to: 

Computer Applications Unlimited 

P.O. Box 214, Dept. ABM Rye, New York 10580 

(914) 937 6286 

N.Y./ State residents add applicable sales tax. 
Outside USA and Canada add $ 1 0.00 shipping. 
Dealer Inquiries Invited. 




ni I COMPUTER 



UUi 



APPLICATIONS 
UNLIMITED 



TM -120 



i dlv. of CAU, Inc. 



TRS-80 is a TM of Tandy Corp. M-ZAL is a TM of CAU, Inc. 
Z-80 is a TM of Zilog, Inc. 



t^See List ol Advertisers on 
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isting image. I used the last method. 

Taking the Photo 

Ideally, 3-D photographs are taken 
using a stereoptical camera — two- 



lensed animals that allow "real-time" 
photography of moving objects. How- 
ever, if things are stationary, you need 
only a single camera. Take the photo, 



then carefully move the camera a few 
inches to your left or right. The distance 
you move the camera depends on the in- 
tensity of depth you would like — the 





Figs. 2a and 2b. A line drawing of the two images. These drawings were done on tracing paper so X- Y coordinates could be derived for computer input. 



h ' , ? 




FINALLY 
NEW I 

FROM 
COMPUTEX 



An audio cassette based Assembly Language and 
Basic Language course designed to help you learn 
how the software "pros" write programs to sell. 
Actual classes were recorded along with student 
comments and questions (the next best thing to 
being there). 

Z80 Assembly Language Course $150.00 

(includes manuals and class handouts) 

Basic Language Course $130.00 

(includes manuals and class handouts) 

CERTIFICATES OF COMPLETION AVAILABLE 
Call or write for our free brochure 




/7f s/ fP//T'P~X TRAINING DIVISION 
ton, Texas 77058 (71 3) 488-8022 

the micro computer pros 
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A Pot Of Gold 
For YOUR Color Computer 

"7 buy practically every computer magazine there is. but the RAINBOW is the' 
only one I read cover -to-cover as soon as it comes in the mail. " -A subscriber 

The RAINBOW gets trial son oi response for more reasons lhan one but the primary one is simply it 
is the premier magazine lor TRS-80* Color Computer users And because it devotes every page ol each 
monthly issue exclusively lo the Color Compute' it is ihe single best source ol information tor everyihmg 
you want to know 

Tired ol Irymg lo convert other compuler programs to your Color Computer 1 ' No worries Each program 
in the RAINBOW is written exclusively tor your computer — and many lake advantage ol all Ihe excellent 
graphics commands unavailable on other machines' The nation s leading software authors have contribu- 
tions every month 

The RAINBOW'S Hmls Tips and Pipeline lealure give you Ihe best up-to-lhe-mmute information 
available on the Color Computer If you are looking for ways to do screen prints alphabetize disk 
directories, save machine language programs or pnnl Videotex mpul on your printer the RAINBOW has 
programs to' you' And. il you wanl to know when some promised software will really be available 'or 
purchase, you II get thai answered, too 

Our luionais have been praised tor the clear concise way ihey explain — in deiail — various functions 
ol the Coto' Computer And the RAINBOW'S reviews are an excellent and honest buyer s guide to software 
and olher purchases 

Whether your Color Computer is4K l6Kor 32K Whether you have Color Basic or Extended Whether 
you re mto assembly language (or wanl lo gef mlo ill or not Primers Disks Rom packs The RAINBOW 
surveys the whole world ol the Color Computer each month and provides whal one reader called A pol ol 
gold lull ol fabulous information 

Because it is lournalisticallyonenied. the RAINBOW gives last turnaround to meet its monthly 
deadline So you can expect iresh news when a is news and the latest information available 

If all this sounds like a lot for SI6 per year il may be But we II make one more promise If. after you see 
your tirst issue you don | agree thai the RAINBOW is the premier monihly magazine for Color Computer 
? II happily, cheerfully and immediately refund youi money 
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farther, the deeper, up to the point 
where your eyes can no longer resolve 
the separate images into a single one. 
Start with about three inches, and move 



up to a foot — the closer the object, the 
smaller the move. Take the second 
photo using the same film, focus, depth 
of field, exposure time, and f-stop, and 



be sure to keep the same vertical po- 
sition; a tripod helps. Otherwise, the 
pictures you take will make sense only if 
you hang your head to one side. Figure 




"To view this pair of 

photographs in 3-D. . . 

focus on the images 

while relaxing your eyes, 

but this time 

crossing them. " 



Photo 4. Overlay composite of two views of the blocks, exposed on Kodalith sheets from the same film 
used for Photo 3. 



1 shows the setup, and Photos 2a and 
2b are a stereoptical result with a six- 
inch spacing. 

To view this pair of photographs in 
3-D, place the magazine at a comfort- 
able distance, focus on the images while 
relaxing your eyes, but this time cross- 
ing them. Again, it is essential to relax, 




A powerful 
utility that 
opens a window 
into the Color 
Computer's disks. 



COLORZAP uses the power of the 
Color Computer to provide both 
rapid scanning and full screen modifi- 
cation capabilities. You can now examine, 
jify. and copy programs or data while 
they're stored on disk. Access them by filename 
location. 

COLORZAP is programmed largely in BASIC so that 
you can modify it if you'd like, but part of it is in machine 
language to provide fast response. All accesses to disk are 
performed with standard interfaces, so any standard Color 
Computer disk can be examined. You can directly access 
the disk's directory and control information to examine a 
clobbered disk, recover a killed file, or find parts of a file 
when other parts have been lost. With this new window into 
its disks, the Color Computer sheds its image as a toy Now 
you can use this exciting machine like other powerful 
m icrocom puters. 

For the TRS-80 Color Computer Available on disk with an 
accompanying manual from Software Options, 19 Rector 
Street, New York, NY. 10006. 212-785-8285. Toll-free order 
line: 800-221-1624. Price: $49.95 (plus $3.00 per 
order shipping and handling). New York 
State residents add sales tax. Visa/Master- 
card accepted. 

O PTIONS IN C 
^470 '"^■^ 




RANDOM 
ACCESS 

& 

BASIC 

FILE 

HANDLING" 



DSC Publishing 

2 Dogwood Drive 

PO Box 769 

Danbury, CT 06810 

Phone Order 
(203) 748-3231 




the HOW TO, SHOW & TELL, STEP by 
STEP book. Written for TRS-80 and all 



The breakthrough book for non-programmers... 
businessmen and professionals who want to 
solve in house problems by writing your own 
customized program... and the hobbyist with 
the desire to get beyond the cassette and into 
disk data storage and file manipulation. "DOS 
Random Access & File Handling" is the plain 
speaking, easy to read 150 page book for 
learning HOW TO WRITE SPECIAL PROGRAMS 
for inventories, mailing lists, work schedules, 
record keeping and more. Your acquaintance 
with Level I and Level II basic and this self- 
instruction tutorial will assure quick progress. 



Please send me a copy of "DOS Random Access 
& Basic File Handling" for 29.50 + 1 .50 shipping. 
Model I & III a Model ll/CPM a 
Also send the compatible 8" program disk for 
32.50 + 1.50 shipping CPM a or Model II □ 
or the 5V 4 " disk for Model I and III for 28.50 + 
1.50 shipping □ 

Overseas add 8.00 per book and disk 
airmail. 

Name — 

Address 

City 

State Zip 



Master Charge □ 
Expiration Date . 
Card # 



VISA □ 



Check D Money Order □ 
COD (2.00 extra) □ 
Signature 



er Inquiries invitee 



Phone Orders (203) 748-3231 
CT. orders add 7.5% sales tax. 



•See List ot Advertisers on Page 563 
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TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• 100% Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 E North Delsea Drive 
Vineland, N.J. 08360 
800-2570426 
NJ 609-691-7100 ^sio 



DO YOU HAVE 2 PRINTERS? 



B 






Now you can have 2 PRINTERS ON-LINE at all times. 
Our MODEL 80 LINE PRINTER SWITCH is designed 
for the TRS-80 computer to allow the user to easily 
select between two printers by means of a conven- 
iently located switch without changing cables. Our 
compact module connects to the parallel printer port 
of your Model I. Model II. or Model III through a printer 
port extension cable and provides a card-edge con- 
nector for each of your two printers. Gold plated 
contacts ensure excellent connection reliability. Our 
Model 80 switch comes assembled, tested, and ready 
to use for the low cost of $40 including shipping to 
any U.S. destination. A printer port extension cable is 
available from us at a cost of $12.50 for the Model 
l/lll or $20 for the Model II. Call now for more informa- 
tion. Request application note AN-821 for Model 
III use or AN-822 for Model II use. 

hf signalling inc.— 



AJV^i 



P.O. Box 1 751 0, Kansas City. MO 641 30 
1-816-931-4448 



TOLL FREE 1-800-831-4448 



C3 ^m\ 



SORTFILE. A PROFESSIONAL SORT . . . 



* BASIC program with assembler routines 

* Internal sort time of 4 seconds 
for 500 multi-keyed items 

* Any combination of data types and 
ascend-descend directions for keys 

* Six output options: 

a) Hew data file 

b) New data file with selected 
and/or rearranged data fields 

c) Tag file (keys + record pointers) 

d) Pointer file (record pointers only) 

e) Data records displayed on screen 

f) Oata records printed on printer 

* Runs with 1 disk and 16K memory 

* Sorts files too large for memory 

* Free "SEEFILE" utility included 

. . . (XX. C- Jv-irvtru/vt ptAlxA.1 



Diskette: 
Cassette: 
Documentation: 

software" 



$23.95 
$19.95 
S3. 00 (refundable) 

EFFICIENCY 



7800 Stanford Ave. St. Louis, MO 63130 



or else you will see only one of the two 
images. You want your eyes to "float" 
together, so each sees a separate but 
very similar image. The result is an ex- 
tremely effective simulated 3-D. 

From a stereoptical photo, a com- 
posite and simplified result must be de- 
veloped to use as computer input. I 
made the pile of wooden blocks as the 
easiest first endeavor because of its 
straight lines and sharp angles. Photos 
3a and 3b are the same pile of blocks as 
in Photos 1 a and 1 b but photographed 
using high-contrast document film and 
reproduced on similar high-contrast 
paper. If your original objects have 
been well detailed (I blackened the edges 
of the original blocks as you can see in 
Photo 1), then this is an easy way of 
obtaining a pair of clear line drawings 
of the original objects — especially if, 
like me, you do not have a good draw- 
ing hand. 



Next, I produced an aligned overlay 
of the two black-and-white photos. In 
order to work up a composite 3-D im- 
age in two colors, I would need some 
sort of guide, and the aligned overlay 
would do the job. Each photo was again 
printed, this time on 8 by 10 sheet film. 
These were aligned and taped together 
for a composite. Photo 4 is the result, 
and is ready for use as computer input. 
However, I wanted to have a sneak 
preview. 

Color Composite 

The color composite photo was 
tricky, if only because I had to do the 
thing in darkness. I taped the film over- 
lay to an exposure frame, and focused 
the negative on its matching image. I 
added magenta Cibachrome filters (a 
total of .90 filtering), inserted the color 
photo paper, lifted aside the negative 
overlays, and made an exposure. I 



10 PCLEAR8 


20 CLS 




30 REM * 


UPPER IMAGE OVERLAY 


40 DATA 35,6 f 77 r 18 f 77 f 40 r 69 f 51 


50 DATA 69,29,77,18 f 69,29 f 26,18 


60 DATA 35,6,26,18,26,36,69,51 


70 DATA 65,49,41,61,26,48,40,42 


80 DATA 26,48,26,62,40,76,40,61 


90 DATA 40,76,81,58,81,42,77,40 


100 


DATA 


81,42,74,47,81,42,81,47 


110 


DATA 


95,49,88,70,86,88,10,74 


120 


DATA 


10,57,26,60,10,57,10,74 


130 


DATA 


86,88,88,70,64,66,999 


140 


REM * LOWER IMAGE OVERLAY 


150 


DATA 


24,19,30,9,74,18,74,38 


160 


DATA 


69,50,69,29,74,18,69,29 


170 


DATA 


24,19,24,38,64,49,44,60 


180 


DATA 


25,50,38,43,25,50,25,65 


190 


DATA 


42,77,42,60,42,77,80,60 


200 


DATA 


80,42,76,40,80,42,72,46 


210 


DATA 


80,42,80,46,91,48,84,86 


220 


DATA 


90,68,60,65,90,68,84,86 


230 


DATA 


8,78,8,60,25,62,999 


240 


PMODE3 , 1 : SCREENl , 1 : PCLS : SCREENl , 1 


250 


READA,B,C,D 


260 


LINE 


(A*2,B*2)-(C*2,D*2) ,PSET 


270 


READE:IFE--999THEN290ELSEREADF 


280 


LINE 


-(E*2,F*2) ,PSET:GOTO270 


290 


COLOR7,5 


300 


READ 


A,B,C,D 


310 


LINE 


(A*2,B*2)-(C*2,D*2) ,PSET 


320 


READ 


E:IFE=999THEN340ELSEREADF 


330 


LINE- 


-(E*2,F*2) ,PSET:GOTO320 


340 


GOTO340 






Program Listing 1 
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NEW! FOR THE 

COLOR COMPUTER! 



Med Systems is proud to announce its first major 
software releases for the TRS-80 Color Computer. 
Both games are written in machine-language, 
feature full-color, high resolution graphics, super 
sound effects, and incredible playing speed. Both 
are original games designed and written 
by Kenneth Kalish, 6809 wizard. 



W&l 



*S' 






Invader's Revenge 

You are the last space invader. The cursed 
humans have destroyed all your compatriots. The 
human ships now prowl the space lanes, and 
their laser base (ires at you with deadly accuracy. 
Your goal. ..REVENGE! Wipe out as many of their 
ships as you can, avoid the photon blasts, and 
aim for their valuable flagship! Invader's Revenge 
features multiple difficulty levels and one or two 
player game selection. 

Phantom Slayer 

They are the mutant phantoms. You are the Phan- 
tom Slayer. Enter the deadly catacombs and 
destroy the phantoms. Wield your laser pistol, 
and attend to your proximity detector. One touch 
by a phantom is fatal, so if your first shot fails, 
turn and run! Phantom Slayer is a real-time game 
executed with full-screen, three dimensional 
graphics. It features multiple difficulty levels and 
a training mode. 

Invader's Revenge 16K cassette $ 19.95 

Phantom Slayer 16K cassette $19.95 

Please add $2.00 for lirst class postage. 
$4.00 tor overseas air mail. 

NO EXTENDED BASIC REQUIRED. 



&actco Shack. 



g^SSSk 



MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1-800-334-5470 



Or see your dealer. 



^See List ol Advertisers on Page 563 
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placed a black sheet over the color 
photo paper, flipped back the film over- 
lay, matched the second negative to its 



image, removed the magenta filtering, 
and added an equal intensity of cyan 
(blue). Finally, I flipped back the nega- 




Photo 5. Color composite of two views of the blocks, exposed on Cibachrome-A paper alternately 
with . 90 magenta and . 90 cyan filters, using the overlay in Photo 4 as a guide for the double exposure. 
The white streaks in the center are the shadows, since this is a negative color print. Use your 3-D glasses 
to view this photograph. 




tive and removed the cover sheet, and 
the exposure was made. 

The result was a color composite that 
can be viewed with 3-D glasses. It is 
Photo 5. 

Into the Computer 

I had several ideas for this process, 
including an ill-fated one that involved 
extending one of the joysticks with a 
portable radio antenna and "tracing" 



". . .an imaginative 

contraption with lots 

of pulleys and strings, 

made out of an 

Erector Set, 

fell to rubble 

on the first use. " 



Photo 6. Screen photo of the results, using X-Y coordinates derived from the color composite in Photo 
5. Unessential information ("noise") and shadows are left out of this result. 
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the image into the computer. Unfor- 
tunately, the accuracy just wasn't there. 
X-Y tablets were too expensive, and an 
imaginative contraption with lots of pul- 
leys and strings, made out of an Erector 
Set, fell to rubble on the first use. 

All that remained was manual input. 
Fortunately, Extended Basic's flexible 
Line command could be used. I pre- 
pared a tracing-paper version of the two 
images, placing them on graph paper, 
and marking down the X-Y coor- 
dinates. These were fed, into the com- 
puter using data statements (see the 
Program Listing), and the image was 
drawn. A similar Basic program can be 
used with the LNW-80 for higher-reso- 
lution color imagery. 

I'll leave the rotation and manipula- 
tion to those with more perceptive 
minds than mine; in the meantime, I 
trust this method will help readers get 
started with three-dimensional com- 
puter imagery. ■ 



Dennis Kitsz may be reached c/o the 
Post Office, Roxbury, VT 05669. 

Ed. note: The 3-D effect you get by run- 
ning this program depends on the color 
and contrast adjustment on your moni- 
tor. Try to get as clear a picture as possi- 
ble and match the colors of the 3-D 
glasses. 
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HERE'S YOUR 

TICKET TO MANY 

THRILLING HOURS 

OF ENJOYMENT 



TWO BRAND NEW GRAPHIC ADVENTURES 
IN ONE PACKAGE — FOR YOUR TRS-80 



By Roger Schrag 



SPOOK HOUSE 

Horrors! A deranged madman has locked 
your unconscious form inside of a deserted creep 
house at a crazy carnival. You awake to some 
sobering facts: a bomb is set to explode, and only 
30 real-time minutes stand between you and 
eternity. Somewhere, somehow you must locate 
and defuse the explosive — but we'd be less than 
honest if we thought you had more than a ghost 
of a chance! Brrrr — a real cliffhanger! 



TOXIC DUMPSITE 

Something's gone very, very wrong at the 
Toxic Dumpsite where the treatment and burial 
of deadly contaminants take place. The entire 
plant will explode like the Fourth of July in less 
than 30 minutes — unless you can avoid the 
many traps and protection systems and shut the 
plant down in time. Of course, time is the one 
luxury you haven't got. . . ! 



This is it — the blockbusting debut of the long-awaited Graphic Adventures! Now, your TRS-80 
can hobnob with the best of 'em. Over 50 full screens of sharp, quality graphics breathe a realism and 
vitality into Adventuring, the likes of which you've yet to see on the TRS-80. Both Graphic Adventures 
feature game save, extensive vocabulary, real-time action (yes — we said real-time!) and accept FULL 
sentences! Exclusive area showings brought to you by Adventure International. Now playing at a 
TRS-80 near, you! 

TRS-80 48K Models 1 & 3 disk 012-0164 — $39.95 



To order, see your local dealer. If he does not have the program, then 
^ call 1-800-327-7172 (orders only please) or write for our free catalog. 
J ^ Published by ADVENTURE INTERNATIONAL 

i i t - u f i / t i n i i ' i a subsidiary of Scott Adams, Inc. 

IN I tKNAMUNAL BQX 3435 . LO NGWOOD, FL 32750 • (305) 830-8194 

PRICES SUBJECT TO CHANGE 



GRAPHICS 



Something-Or-Other 3-D 



by Jake Commander 



W 



ith great perseverence, Jake Commander has 
come up with this stereoscopic 3-D program 
that features a rotating cube in two colors. 



Why is it 1 always walk into these 
things? Fools rush in where angels fear 
to tread, so I'm told, which makes me 
a 24-carat sucker. 

"I've got a great idea," says Eric 
Maloney, our managing editor, after a 
sudden brainstorm. "We'll do an anni- 
versary issue featuring 3-D graphics 
and give away glasses to our readers. 
You'll be able to write something for 
it, won't you, Jake?" The temptation 
was too much for me, I'm afraid. I in- 



stantly promised a something-or-other 
that would fit the bill. Little did I real- 
ize how the fates were aligning them- 
selves to make the potentially simple 
something-or-other a whopping task. 
I thought about the concept for a 
while to see if any good ideas surfaced. 
Nothing. I was convinced I could do 
something in a manner similar to some 
magazine pictures I'd seen as a child. 
The pictures were of countryside scen- 
ery and all in startling 3-D — lots of 




Jake's 3-D Program as It Appears on the Screen 
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trees on the horizon with cows' rumps 
jutting out menacingly close to the 
eyeballs. 

The method employed was to print 
the left eye's view in green and the right 
eye's view in red. By placing a red filter 
over the left eye, the red image disap- 
peared, thus leaving the correct image 
behind. Using a green filter over the 
right eye, the other side was accounted 
for. With two separate images entering 
both eyes, the brain fell hook, line, and 
sinker for the appearance of three di- 
mensions. It was intriguing how con- 
vincing the illusion of depth could be, 
considering the simple separation of 
two images from a flat piece of paper. 
Similar methods are, of course, used in 
cinematography to produce those 
scary movies. 

I felt there just had to be a way to 
achieve the same illusion using a two- 
color separation on the Color Comput- 
er. I was reminded of a program we'd 
already published, the idea of which 
was to present a three-dimensional 
point of view from any perspective in 
space. The clever part of the program 
was the way it decided what was in 
front of or behind each object from a 
set of geometric shapes that appeared 
in true perspective. That gave me the 
idea at last: How about a simple geo- 
metric shape such as a cube rotating 
before your eyes and seeming to do so 
in 3-D? Good enough, but how on 
earth was I going to simulate those 
overlapping colors I'd seen in that 
magazine? 

At first I toyed with the idea of actu- 
ally placing the images side by side us- 
ing two colors in a medium-resolution 
graphics mode. I had to be kidding; the 
separation needed would have been 
sufficient to require a frown and deep- 
ly crossed eyes in order to make both 
images overlap. 

Finally, I resorted to the good old 



animators' technique using image re- 
tention. If I alternated a red and green 
image fast enough, they'd actually ap- 
pear to be in the same place and no 
crossed eyes would be called for. As I 
had to use multiple images anyway to 
make the cube rotate, it was simply a 
matter of alternately switching be- 
tween the two colors — one for each 
eye. I craftily chose a clockwise direc- 
tion that ensured that the rotation 
naturally followed the images seen by 
the eyes in a left-right, left-right 
fashion. This helps the flow of move- 
ment so it appears to flow smoothly 
even without the glasses. Not only that, 
but after 90 degrees of rotation, the 
cube would be back in its original posi- 
tion and I could repeat the procedure 
ad infinitum. 

I knew I could get the color separa- 
tion by using the color artifacts I'd got- 
ten many times while experimenting 
with color graphics in PMODE 4. By 
setting odd or even dots, it's possible to 
draw figures in two distinct colors. The 
colors are blue and red (or green and 
red, depending on your television). As 
long as the 3-D glasses could filter the 
colors to get two separate images, the 
illusion seemed feasible. I did a couple 
simple experiments drawing lines from 
Basic and was convinced that the sepa- 
ration was sufficient. Armed with a lot 
of theory, an experiment or two, and 
the idea coalescing in my mind, I had 
to complete the work in England — an 
event that didn't help one bit. 

The first thing to be done was to de- 
cide how many angular views of the 
cube would be needed to give a smooth 
flow. The sequence of images would 
also have to be stored somewhere in 
memory, and it seemed reasonable to 
merely draw them onto the screen and 
leave them stored there. As long as 
there was a destination on the screen 
for the actual rotation, there would be 
no need to remove any image in the an- 
imation sequence. By dividing the 
screen into a 3-by-4 grid, I could get 12 
cubes — or more accurately, six left/ 
right images. That didn't leave room 
for the moving picture itself, so I 
dropped one out to allow five double 
images. Remembering I needed only 90 
degrees of rotation, an image every 18 
degrees or so would produce a steadily 
changing picture. 

At this point, I should have been 
able to use an algorithm from some- 
where in my software library to gener- 
ate perfectly aligned cubes at every 18 
degrees. The problem was my library 
was now 3,000 miles the wrong side of 
the Atlantic and this project was be- 



100 PCLEAR4:PMODE4,1:PCLS:A$=STRING$(103,32) :AD=VARPTR(A$) :AD=PE 

EK(AD+2) *256+PEEK(AD+3) :DEFUSR=AD 

120 FORX=0TO103:READOP:POKEAD+X,OP:NEXT 

130 SCKEEN1,1 

1000 READXS:IFXS=-1THENGOSUB2000:GOTO1000ELSEIFXS=-2THEN2500ELSE 

READYS,XE,YE 

1050 XA=XE-XS:YA=YE-YS 

1100 IFYS>YE THENI0=-1ELSEI0=1 

1200 IFXS>XE THENI1=-1ELSEI1=1 

1400 IFABS(XA) <ABS(YA) THENIX=ABS (XA/YA) *I1 :GOTO1600ELSEIFXA=0TH 

ENIX=0ELSEIX=ABS(YA/XA) *I0 

1500 GOSUB1700:PSET(XP,YP,1) :IFXS=XE THEN1000ELSEXS=XS+Il : YS=YS+ 

IX:GOTO1500 

1600 GOSUB17 00:PSET(XP,YP,1) :IFYSOYE THENYS=YS+I0 :XS=XS+IX:GOTO 

1600ELSE1000 

1700 IFLR=1THENXP=XS ORl ELSEXP=XS AND254 

1900 XP=XP+(XO AND255) :YP=YS+YO: RETURN 

2000 IFLR=1THENLR=0 ELSELR=1 

2100 XO=XO+6 4:IFXO=320THENXO=448 

2200 IFXO=25 60RXO=512THENYO=YO+64 

2300 RETURN 

2500 X=USR(0) 

5000 DATA158, 186, 95, 52, 4, 52, 16, 141, 48, 53 ,16, 53, 4, 92, 193, 10 ,3 9, 23 

8,52,4,193,4,39,17,193,5,39,8,193,6,39,17,48,8,32,225,48,136,24, 

32,220,220,186,13 9,8,31,1,32,212,220,186,139,16,31,1,32,204 

5100 DATA220, 186, 139, 8, 203, 12, 31, 3, 16, 142, 0,64, 52, 32, 16, 142, 0,4, 

236,129,237,193,49,63,3 8,248,48,136,24,51,200,24,53,32,49,63,38, 

230,16,142,12,0,49,63,3 8,252,57 

6000 DATA12, 0,12, 12, 12, 0,46, 0,46, 0,52, 12, 52, 12, 12, 12, 12, 12, 12, 52 

,12,52,52,52,52,52,52,12,-1 

6100 DATA12, 12, 18, 0,18, 0,52, 0,52, 0,52, 12, 52, 12, 12, 12, 12, 12, 12, 52 

,12,52,52,52,52,52,52,12,-1 

6200 DATA22, 0,12, 10, 22, 0,56, 2, 56, 2, 48, 12, 48, 12, 12, 10, 12, 10, 12, 48 

,12,48,48,52,48,52,48,12,48,52,56,36,56,36,56,2,-1 

6300 DATA26, 0,10, 10, 26, 0,58, 2, 58, 2, 46, 12, 46, 12, 10, 10, 10, 10, 10, 48 

,10,48,46,52,46,52,46,12,46,52,58,38,58,38,58,2,-1 

6 400 DATA30, 0,10, 6, 30, 0,62, 6, 62, 6, 40, 14, 40, 14, 10, 6, 10, 6, 10, 44, 10 

,44,40,56,40,56,40,14,40,56,62,44,62,44,62,6,-1 

6500 DATA32, 0,8, 6, 32, 0,60, 6, 60, 6, 36, 14, 36, 14, 8, 6, 8, 6, 8, 46, 8, 46, 3 

6,5 8,36,58,36,14,36,58,60,46,60,46,60,6,-1 

6600 DATA36, 0,6, 6, 36, 0,60, 6, 60, 6, 32, 14, 32, 14, 6, 6, 6, 6, 6, 46, 6, 46, 3 

2,56,32,56,32,14,32,56,60,46,60,46,60,6,-1 

6700 DATA40, 0,6, 6, 40, 0,60, 8, 60, 8, 28, 14, 28, 14, 6, 6, 6, 6, 6, 46, 6, 46, 2 

8,^6,28,56,2 8,14,28,56,60,48,60,48,60,8,-1 

6800 DATA46, 0,8, 2, 46, 0,56, 10, 56, 10, 16, 12, 16, 12, 10, 2, 8, 2, 8, 42, 8, 4 

2,16,54,16,5 4,16,12,16,54,56,50,56,50,56,10,-1 

6900 DATA48, 0,10, 2, 4 8, 0,54, 10, 54, 10, 14, 12, 14, 12, 10, 2, 10, 2, 10, 40, 

10,40,14,52,14,52,14,12,14,52,54,50,54,50,54,10,-2 

Program Listing 



coming more and more urgent. The 
only thing for it was to do it by hand. 

So I took a Rubik's cube, placed it 
on a piece of paper marked at the re- 
quired angles, and drew 10 pictures on- 
to a piece of graph paper. First I had to 
close my right eye and draw, keeping 
my head in a predetermined position 
relative to the cube, and then the same 
thing with the left eye — for the total of 
five angles. Once drawn on graph pa- 
per, I calculated the X and Y coordi- 
nates for every point at each corner of 
every cube. 

By feeding these coordinates to the 
Color Computer and writing an algo- 
rithm to join them together with lines 
of the right color, the drawings would 
be on the screen ready to animate. This 
explains those data statements in lines 
6000-6900; each one represents a dif- 
ferent cube. 

By this time, it was dawning on me 
what I'd let myself in for. Not only was 
my software library 3,000 miles away 
from me, but so was my Color Com- 



puter and reference material on the 
6809 microprocessor, which I needed 
to help write a small machine-code 
subroutine. This routine was needed to 
copy the successive images into place 
fast enough to fool the eye into seeing 
smooth action. 

I was beginning to think I'd set my- 
self an impossible task. The only re- 
course was to beg, steal, or borrow the 
required items. At last, armed with a 
6809 reference book, lots of pictures of 
cubes, lots of data on these pictures, 
and a rough draft of the program, I 
found myself in a Tandy computer 
store in front of their Color Computer. 
To add a little spice to the pressure I 
was under, they even placed a young 
programmer next to me "to watch and 
learn." Can you imagine those odds? 

Naturally, the program didn't work 
the first time. Nor the second. Nor the 
third or fourth. I lost count. After the 
second day, the cubes were being 
drawn nicely into position on the 
screen. If nothing else, the young pro- 
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grammer sitting next to me was learn- 
ing the art of patience. 

The final sting in the tail was that 
none of the cubes came out the right 
color. It was unbelievable. After all my 
hard work, applied theory, and having 
reached this far, surely the colors could 
at least come out right. 

I checked the variables and they 
were correct; left cubes were being 
drawn at even-numbered pixel loca- 
tions and right cubes at odd loca- 
tions. Then I realized: I was working 
on a European PAL TV set — a dif- 
ferent color standard than the NTSC 
All-American format I was used to. 
The color artifacts available on 
American TV sets were unobtainable 
in the UK. Thus, 1 was not going to 
be able to place my glasses on my 
nose and see the final fruits of my 
labors — a cruel trick of fate. 

After convincing myself that the 
color problem was indeed the fault of 
the hardware and not the software, I 
debugged the machine code. The ani- 
mation looked a real mess. The cubes 
rotated all right, but they danced and 
jiggled all over the place. Apparently, 
when drawing each cube, I'd moved 
my head this way and that. My draw- 
ing ability hadn't helped any either. 



So I arrived at the last step, which 
was to analyze the sequence in slow 
motion and fine-tune each cube until 
the results were convincing. I now 
had something I could send the edi- 
tors of 80 Micro for a trial run to see 
if the colors were right and the illu- 
sion had succeeded. 

Ten days later I received the cryptic 
message, "It works. Send the article 
ASAP." What, no medal? 

There you have the whole tale in- 
cluding the evolution of the idea and 
solution of the problems using a brute- 
force approach. 

The Technique 

Five cubes are drawn in Basic using 
the algorithm in lines 1050-2300. Each 
cube is drawn twice, one for the left eye 
and the other at a slightly different an- 
gle for the right eye — a total of 10 
cubes in all. Left cubes are drawn in 
blue (or green, depending on your 
monitor), and the right cubes in red. 
That's why simple Line commands 
can't be used — there's no control over 
the color artifacts. 

Finally, a machine-code routine is 
entered at line 2500 that copies each 
image in sequence to the center of the 
screen at sufficient speed to achieve an- 



imation. The machine code is POKEd 
into a string from data statements at 
lines 5000-5100. It's written in posi- 
tion-independent code so it doesn't 
matter where it resides in RAM. Once 
the machine code is running, there's no 
provision to pause or stop it, so you'll 
have to use the reset button (the pro- 
gram will still be intact). 

To set the thing up and get the best 
illusion, let the program draw two full 
cubes, then pause it with the shift @. 
Put your 3-D glasses on with the green 
filter over your left eye and adjust the 
monitor controls so that the left eye 
sees the maximum brightness of blue 
(or green) cubes and minimum bright- 
ness of red cubes. Now close your left 
eye and adjust so that you get maxi- 
mum rejection of blue (or green) im- 
ages and maximum brightness of red. 

By doing two or three adjustments 
of color, brightness, and contrast, it's 
possible to get a fairly good separation 
of left and right images with the glasses 
supplied. Each cube should be about 
the same brightness balanced with 
maximum left/right separation to get 
the best effect. Let the program contin- 
ue and watch the pretty cube. By the 
time you read this, I might even be able 
to enjoy it myself. ■ 



Lazy 
Writer 



The LAZY WRITER 

word processing system 
by David Welsh 



LAZY WRITER GIVES YOU: 

• Z80 CODE, for fast execution of commands. 

• Control codes ANYWHERE in text to let you get compressed 
or expanded type, super/subscripts, etc. 

• Page breaks BEFORE you print. 

• CUSTOMIZED printer defaults, cursor size, shape, speed, etc. 

• DISK DIRECTORY plus kill or verify files without going to DOS. 

• LONG DOCUMENTS print automatically, while preserving page 
numbering and titling. 

• 10 USER DEFINABLE function keys 

• BACK OUT of inserts and deletes. 

• A NEWSLETTER for users. 

• SET TABS, CHANGE CASE, move or delete NAMED blocks 
of text. 

• MEMORY KEY returns cursor to a screen & cursor position. 



LAZY WRITER Model I & lll-$175.00 

NEW EXTENSIONS MAKE LAZY WRITER 
EVEN MORE POWERFUL! 

• LAZYDOC — Standard Legal forms are a snap! Let LAZYDOC 
prompt you for the changes, then automatically insert those 
changes into your document. Many features: send for more 
information $59.95 

• LAZYCALC — Use LAZY WRITER to create reports with 
numerical data, then total your figures with LAZYCALC. If you 
work with figures, you'll find this a powerful addition to word 
processing $29.95 

• LAZYTAB — It's easy to enter data in tabbed columns, but LAZYTAB 
aligns decimals too 1 $15.00 

• LAZYDRAW — Create graphics on the screen, then send the results 
to your printer; works with any printer that supports TRS-80 block 
graphics 

• LAZYDO — Automatically load U\ZY WRITER and any text tile, set 
printer commands, even print text 1 LAZYDRAW + LAZYDO . $19.95 

• SPECIAL: LAZYTAB, LAZYCALC, LAZYDRAW 
AND LAZYDO $39.95 



Ask your dealer for LAZY WRITER or call us direct. 
ABC SALES, 13349 MICHIGAN AVE., DEARBORN, Ml 48126 (313) 581-2896 
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Drive down the high 



Kll 



I disk drives 



DISKovery Unlimited is bringing you the best in 
microcomputer systems, drives, peripherals, and 
software for TRS-80 and other popular brands. This 
month, take advantage of special system and disk 
drive values like these: 

Complete TRS-80 Model III 
microcomputer system with disk drives 

Includes specially modified A.M. Electronics Model 
III with 48K RAM, two 40-track, double-density disk 
drives, A.M. Electronics controller board, DOS and 
manuals, complete and ready to run $1,695.00 

Same system as above, including RS-232C interface 
and MX82F/T dot matrix printer for correspondence- 
quality output $2,395.00 

(Prepaid shipping when order is prepaid) 

A.M. Electronics "Multiplier" 
for TRS-80 Model I systems 

Fed up with unreliable double-density disk drive 
operation? "Multiplier" lets you upgrade from single- 
density without doubling your problems $ 99.00 

"Multiplier" with NEWDOS 80 $199.00 



A.M. Electronics 
Mini Winchester hard disk drive 

Completely plug-compatible with your TRS-80 
system. Includes controller board and DOS Plus 4.0i. 
Delivers 6.7 megabytes of data capacity (unfor- 
matted). Typically uses one amp less than other hard 
disk drives. Excellent for word-processing, database 
management, financial planning, and other data- 
intensive applications $1595.00 

New! Two-inch, high-performance 
floppy disk drives 

Now you can save space and money. These drives are 
only two-thirds the height of conventional drives, and 
provide extras like door-lock solenoid control, selec- 
table write protect (protect with or without notch— 
your choice!) and disk change/activity indicators. 
Shipped complete and ready to run. 
Single-sided, 40-track 2" drive 

w/case & power supply $199.95 

Double-sided, 40-track 2" drive 

w/case & power supply $249.95 

Single-sided, 40-track 2" drive, packaged 

for TRS-80 Model I, including case, 

power supply, cable, TRSDOS & manual $249.95 



DISKovery 

unlimited 



•V 



3366 Washtenaw Ave., Ann Arbor, Ml 48104 (313) 973-2315 



™TRS-80 trademark of Tandy Corp. Shipping costs extra except where otherwise noted. Prices effective through the 15th of cover month. 



GAMES 



Solitary Maneuvers 



James Wood 



Since Colorful Maneuvers was pub- 
lished in the November 1981 issue of 80 
Micro, I have received several letters re- 
questing more games for the 4K Color 
Computer. Colorful Maneuvers in- 
volves two players each controlling the 
direction of an ever-growing line. The 
first player to run his line into itself, the 
other line, or the border is the loser. 

Solitary Maneuvers is for the Color- 



Solitary Maneuvers is 
a follow-up game to 
Colorful Maneuvers. The 
computer is the opponent. 



Program Listing I 

REM JaMES W. WOOD, 424 N. MISSOURI, ATW00D,IL, 61913, DEC 1981 

1 CLS : PRINT :PRINTTAB( 12) "TRAP" 

2 PRINT: PRINT" USE THE ARROWS TO MANEUVER" 

3 PRINT"THE LINE ON THE RIGHT." 

4 PRINT" THE COMPUTER CONTROLS THE" 

5 PRINT"LINE ON THE LEFT." 

6 PRINT" YOU MUST NOT DIRECT YOUR" : PRINT"LINE INTO A COLORED SE 
CTION." 

7 PRINT :PRINT"PRESS <ENTER> TO CONTINUE" 

8 A$=INKEY$:IFA$=""THEN8 

9 CLS:INPUT"NAME";G$ 

10 S=RND(4) :CC=0 

11 IFS=1THENW$=CHR$(8) : R$="A" :GOT015 

12 IFS=2THENW$=CHR$(9) : R$="D" :GOT015 

13 IFS=3THENW$=CHR$(94) :R$="E" :G0T015 

14 W$=CHR$(10) :R$="C" 

15 U=12:X=51:V=10+RND(10) : Y=10+RND( 10) 

16 CLS0:Z=RND(8) : FORQ=0TO63 : SET(Q,0 , Z) :SET(Q,31,Z) :NEXTQ:FORQ=0T 
O31:SET(0,Q,Z) :SET(63,Q,Z) :NEXTQ 

17 Q$=INKEY$:IFQ$=""THENQ$=W$ 

18 W$=Q$:CC=CC+1 

19 IFQ$=CHR$(8)THENX=X-1:GOT023 

20 IFQ$=CHR$(9)THENX=X+l:GOT023 

21 IFQ$=CHR$(94)THENY=Y-l:GOT023 

22 IFQ$=CHR$(10)THENY=Y+1 

23 IFPOINT(X,Y) O0THEN44 

24 SET(X,Y,Z) 

25 IFR$="A"THENU=U-l:GOT029 

26 IFR$="D"THENU=U+1:GOT029 

27 IFR$="E"THENV=V-l:GOT029 

28 IFR$="C"THENV=V+1 

29 IFPOINT(U,V) O0THEN30ELSE42 
IFR$="A"THENONRND(2)GOT031,32ELSE33 

:V=V-l:R$="E":GOT042ELSEIFPOINT(U+ 
:GOT042ELSEGOT046 

:V=V+l:R$="C":GOT042ELSEIFPOINT(U+ 
:GOT042ELSEGOTO46 

33 IFR$="D"THENONRND(2)GOT034,35ELSE36 

34 IFPOINT(U-1,V-1)=0THENU=U-1:V=V-1:R$="E":GOTO42ELSEIFPOINT(U- 
1 ,V+1) =0THENU=U-1 : V=V+1 : R$ = "C" :GOT04 2ELSEGOT046 

35 IFPOINT(U-1,V+1)=0THENU=U~1:V=V+1:R$="C":GOTO42ELSEIFPOINT(U- 
1,V-1) =0THENU=U-1:V=V-1:R$="E":GOTO42ELSEGOTO46 

36 IFR$="E"THENONRND(2)GOT037,38ELSE39 

Listing I continues 



3 

31 IFPOINT(U+1,V-1)=0THENU=U+1 
lfV+1) =0THENU=U+1:V=V+1:R$="C" 

32 IFPOINT(U+1,V+1)=0THENU=U+1 
1,V-1) =0THENU=U+1:V=V-1:R$="E" 



ful Maneuvers player when he is with- 
out a friend. It's a challenge of one's 
reasoning ability versus the computer's 
ability to look ahead of its line and 
make perfect turns as it approaches a 
barrier. 

Listing 1 is a set-graphics game. If it 
becomes boring try Listing 2. It is a 
POKE-graphics version of the same 
game. With POKE graphics being twice 
as wide and tall as set graphics, the 
game proceeds much more rapidly. The 
POKE game also allows your line, the 
computer's line, and the border to be 
different colors. ■ 

James Wood, a teacher at A (wood 
Hammond High School, can be 
reached at 424 N. Missouri, Atwood, 
IL 61913. 



0-9 


rules 


10-14 


determines initial direction of lines 


15 


starting position of lines 


16 


draws border 


17 


Inkey for direction to turn your line 


19-22 


turns your line 


23 


determines if you lose 


24 


extends your line 


25-28 


extends computer's line, but doesn't 




display it yet 


29 


determines if computer must turn line 


30-41 


determines which direction computer 




should turn 


42 


extends computer's line 


43 


loops to line 17 to see if player wants 




to change direction 


44-48 


messages for winning or losing 




Table I. Line Description 



The Key Box 

Color Computer 
4K RAM 
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Listing I continued 

37 IFPOINT(U+l f V+l)=0THENU=U+l:V=V+l:R$="D":GOTO42ELSEIFPOINT(U- 
l,V+l)=0THENU=U-l:V=V+l:R$="A n :GOTO42ELSEGOTO46 

38 IFPOINT(U-l f V+l)=0THENU=U-l:V=V+l:R$= n A":GOTO42ELSEIFPOINT(U+ 
1,V+1) =0THENU=U+1:V=V+1:R$="D":GOTO42ELSEGOTO46 

39 IFR$= n CTHENONRND(2)GOTO40,41 

40 IFPOINT(U+l,V-l)=0THENU=U+l:V=V-l:R$= n D":GOTO42ELSEIFPOINT(U- 
l,V-l)=0THENU=U-l:V=V-l:R$= n A":GOTO42ELSEGOTO46 

41 IFPOINT(U-l,V-l)=0THENU=U-l:V=V-l:R$= n A n :GOTO42ELSEIFPOINT(U+ 
l,V-l)=0THENU=U+l:V=V-l:R$=* , D n :GOTO42ELSEGOTO46 

42 SET(U,V,Z) 

43 G0T017 

44 FORE=lTO30:SOUND200 r l:SET(X,Y,Z) :RESET(X,Y) :NEXTE 

45 A=A+1:CLS:PRINT"C0MPUTER WINS" :GOT048 

46 FORE=1TO30:SOUND100,1: :SET(U,V,Z) :RESET(U,V) :NEXTE 

47 B=B+l:CLS:PRINTG$; n WINS" 

48 PRINT: PRINTCC; "MOVES": PRINT :PRINT"TOTAL WINS" :PRINT"COMPUTER" 
;A:PRINTG$;B 

49 PRINT: PRINT"PRESS <ENTER> TO CONTINUE" 

50 A$=INKEY$ 

51 A$=INKEY$:IFA$=""THEN51ELSE10 



1 'JAMES WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913 

2 CLS:PRINTTAB(10) "POKETRAP" : PRINT: PRINT "USE THE ARROWS TO MANEU 
VER":PRINT"THE LINE ON THE RIGHT." 

3 PRINT: PRINT"THE COMPUTER CONTROLS THE" :PRINT"LINE ON THE LEFT. 
": PRINT 

4 PRINT" YOU MUST NOT DIRECT YOUR" :PRINT"LINE ONTO A COLORED SECT 
ION." 

5 PRINT :PRINT"PRESS <ENTER> TO CONTINUE" 

6 A$=INKEY$:IFA$=""THEN6 

7 CLS:INPUT"NAME";G$ 

10 S=RND(4) 

11 IFS=1THENW$=CHR$(8) :R$="A" :GOTOl5 

12 IFS=2THENW$=CHR$(9) :R$ = "B" .-GOT015 

13 IFS=3THENW$=CHR$(94) :R$="C"ELSEW§=CHR$ (10) :R$="D" 

15 U=1258:X=1268 

16 CLS0:FORQ=10 24TO1055:POKEQ,255:POKEQ+480,255:NEXTQ:FORQ=1024T 
O1504STEP32:POKEQ,255:POKEQ+31,255:NEXTQ 

17 Q$=INKEY$:IFQ$=""THENQ$=W$ 

18 W$=Q$ 

19 IFQ$=CHR$(8)THENX=X-l:GOT023 

20 IFQ$=CHR$(9)THENX=X+l:GOT023 

21 IFQ$=CHR$(94)THENX=X-32:GOT023 

22 IFQ$=CHR$(10)THENX=X+32 

23 IFPEEK(X) 0128THEN44 

24 POKEX,191:ONASC(R$)-6 4GOT025,26,27,28 

25 U=U-32:GOT029 

26 U=U+l:GOT029 

27 U=U+32:GOT029 

28 U=U-1 

29 IFPEEK(U) <>128THENONASC(R$)-64GOTO30,33,36,39ELSE42 

30 ONRND(2)GOT031,32 

31 IFPEEK(U+33)=128THENU=U+33:R$="B":GOT042ELSEIFPEEK(U+31) =128T 
HENU=U+31:R$="D" :GOT042ELSE46 

32 IFPEEK(U+31) =128THENU=U+31 :R$="D" :GOT042ELSEIFPEEK (U+33) =128T 
HENU=U+33:R$="B":GOT042ELSE46 

33 ONRND(2)GOT034,35 

34 IFPEEK(U-33)=128THENU=U-33:R$="A":GOT042ELSEIFPEEK(U+31)=128T 
HENU=U+31:R$="C":GOT042ELSE46 

35 IFPEEK(U+31)=128THENU=U+31:R$="C":GOT042ELSEIFPEEK(U-33)=128T 
HENU=U-33:R$="A":GOT042ELSE46 

36 ONRND(2)GOT037,38 

37 IFPEEK (U-31) =128THENU=U-31 :R$="B" :GOT042ELSEIFPEEK (U-33) =128T 
HENU=U-33 :R$="D" :GOT042ELSE46 

38 IFPEEK(U-33)=128THENU=U-33:R$="D":GOT042ELSEIFPEEK(U-31)=128T 
HENU=U-31:R$="B":GOT042ELSE46 

3 9 ONRND(2)GOTO40,41 

40 IFPEEK (U-31) =128THENU=U-31 :R$="A" :GOT042ELSEIFPEEK (U+33) =128T 
HENU=U+33:R$="C":GOT042ELSE46 

41 IFPEEK(U+33)=128THENU=U+33:R$="C":GOT042ELSEIFPEEK(U-31)=128T 
HENU=U-31:R$="A":GOT042ELSE46 

42 POKEU,207:GOTO17 

44 FORE=1TO20 : SOUND10 , 1 : POKEX ,191: POKEX ,128: NEXTE : A=A+1 : CLS : PRIN 
T"COMPUTER W1NS":G0T048 

46 FORE=1TO20 : SOUND20 , 1 : POKEU , 207 : POKEU ,128: NEXTE : B=B+1 : CLS : PRI 
NTG$;" WINS" 

48 PRINT:PRINT"TOTAL":PRINT"COMPUTER",A:PRINTG$,B 

49 PRINT: PRINT"PRESS <ENTER> TO CONTINUE" 

50 A$=INKEY$ 

51 A$=INKEY$:IFA$=""THEN51ELSE10 

Program Listing 2 



MODEL l/lll 

Ouuten&( 

WE HAVE ANALOG TO DIGITAL 

AND DIGITAL TO ANALOG 

CONVERTERS TO GET YOU 

STARTED IN HARDWARE 

ADC- kit $59 
DAC-kit $59 

Other kits available 



DAYTONMICROSUPPORT 
P.O. BOX 482 W.B. BR. 
DAYTON, OH 45409 
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COLOR COMPUTER 




TWO FOR 
$35.95 



* * JOYSTICKS * * 

Tired of broken joysticks? Ours are built to last, with 
good smooth pots, and a strong lever and internal 
mechanism. These are superior to the Radio Shack 
design. Get your joystick programs working the way 
they should! 

Up to 20% OFF on software. 

We stock selections from 

Prlckley Pear, Tom Mix, Mark Data, 

and others. 

Write or call for free catalog. 

Add $2.00 shipping on Joysticks. We pay shipping on 
software. $1.50 additional for C.O.D. 

ENDICOTT SOFTWARE ... 

P.O. Box 12543, Huntsvllle, AL 35802 , " !BJ 



205/881-0506 



SB 



CgmpuCquer 

COVER YOUR INVESTMENT 




OEAIER INQUIRES INVITED 



■ See List of Advertisers on Page 563 
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EDUCATION 



Colorful Language Instruction 



by Dr. Alan F. Lacy and David Gorden 



T 



he Color Computer can be a useful tool in 
language instruction. Here's a graphic depic- 
tion of how the mouth makes certain sounds. 



The Color Computer, because of its 
graphics capabilities, holds great 
promise for future use in education. 
Unfortunately, the computer is most 
often employed in the elementary and 
secondary grades, and not at the col- 
lege level. 

To fill this gap we have developed a 
program for use on a 16K Extended 
Basic Color Computer to teach Ger- 
man on the college level. You can 
adapt the program to teach other 



foreign languages or to teach English 
to speakers of other languages. 

The Program's Purpose 

The program was inspired by a 
course I teach on applied German 
phonetics. The class is intended to im- 
prove the German pronunciation of 
our more advanced students and to 
eliminate some of their American ac- 
cent. Our students have had about 20 
years of practice hearing and speaking 




English, and perhaps two or three 
years speaking German. As with most 
naive speakers, they have no idea what 
their mouth is doing when they speak. 

To help my students change their in- 
grained habits I spend some time de- 
scribing the structure of the sound- 
producing organs of the mouth. While 
this has been a help in the past, it is 
static. 

Now I use the Color Computer to 
dynamically show the different config- 
urations the mouth can take on during 
the production of different vowels. I 
chose vowels rather than consonants 
because German consonants are 
almost identical with their English 
counterparts, while the vowels are 
noticeably different and difficult for 
an English speaker to master. 

Using the Program 

The program gives you two options: 
You can go directly to an abstract 
schematic drawing, including all the 
vowels in their correct relative position 
in the mouth, or you can specify a cer- 
tain vowel. 

The first option is useful for gaining 
the overall picture. This option is a 
subroutine that you can enter either 
here, before displaying any one vowel, 
or again between displays of the in- 
dividual vowels for reorientation. If 
you don't use this subroutine the pro- 
gram will ask you to input a vowel. 
This can be any simple vowel listed (see 
Program Listing 2, line 20), or 



Photo I 



The Key Box 

Color Computer 
16KRAM 
Extended Color Basic 
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diphthong. You can also specify 
whether you want a nasal or non-nasal 
version of the vowel. After you have 
entered a vowel, the program draws 
the mouth and tongue and displays the 
completed drawing (Photo 1 .) 

If you specify a diphthong, the 
graphics screen is called at the first 
tongue position, then the shift of the 
tongue and lips is drawn visibly. With 
German vowels, the position of the lips 
is also important in vowel production. 
Therefore the program displays a 
schematic front view of the lips to 
show whether they are rounded or 
spread. In English the lips are always 
rounded for the vowels u and o, as in 
boot or bow (and arrow), and spread 
for i and e, as in heat or bet. German 
has vowels, the so-called Umlaut 
vowels, where the tongue is in the front 
of the mouth, as for English i or e, but 
the lips are rounded as for English u or 
o. The program shows this. During the 
display of the diphthong oi, the change 
of lip position is also shown. 

At this point the display is held until 
you make further input. If you hit any 
key except enter the program will loop 
back to the question "Diagram? 
(Y/N)." This means that after each 
time a vowel is shown, you can return 
to the diagram showing the schematic 
containing all the vowels. If you press 
N the program will move on to the in- 
put statement again, and you can enter 
a new vowel for display. 

Pressing the enter key during vowel 
display enables the pointer routine. A 
menu is displayed from which you can 
pick any of 13 predefined positions in 
the mouth, or define your own posi- 
tion. The routine returns immediately 
to the graphics screen, this time with an 
arrow pointing at the chosen spot. Hit- 
ting any key erases this arrow. Then 
you can call the pointer routine again 
or return to show the schematic. 

Once the program is begun, the only 
way to end it is by using the break key. 
Inappropriate input at any other point 
goes to a default routine and recycles 
to a predetermined point. 

Program Description 

When you turn on the Color Com- 
puter, it automatically reserves four 
pages of video memory (4 by 1.5K 
bytes), and 200 bytes of string space. 
However, if these numbers are 
changed any time while the computer is 
on, either by direct command or as 
part of a program, the computer uses 
the new parameters until they are 
changed again. When we revised this 
program, we included line 5 as a safety 

sSee List of Advertisers on Page 563 



measure. If the program does not load, 
you will have to issue the direct com- 
mands NEW: PCLEAR4:CLEAR50 
to make sure there is enough free 
memory available. 

Another solution is to write a sep- 
arate loading program, as we did when 
using five pages of video memory (see 
Program Listing 1.) This assures that 
there will be no problem in relocating 
the main program if a different 
PCLEAR command is given. This also 
makes it possible to eliminate line 5 
from the main program. If you choose 
this method (highly recommended 
whenever your program requires more 
than four pages of video memory), it is 
best to enter this program, then 



CSAVE it under an appropriate name. 
Issue the New, the appropriate 
PCLEAR and the Clear commands di- 
rectly, then key in the main program. 
CSAVE the main program directly 
after the loader program, but without 
a name. From this point on you will ex- 
perience no problems in loading and 
running your program. The repetition 
of line numbers in the two programs is 
no problem — when you CLOAD the 
main program it overwrites the old 
program. 

Line 10 dimensions the two arrays 
used for the arrow, and for returning 
the original graphics after the arrow is 
erased. 

Line 50 clears and provides a blue 



A FULL LINE OF SEMIDISKS 
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S-100 
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IBM Personal Computer 



Do you use your computer? Or does your computer "use" you? Face it. if you re using floppies, your time is being wasted. 
Because a floppy is an inefficient random access storage device. Each time the processor wants to transfer data, it has to wait 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk, quick. It's a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive. Without all the waiting. Do everything you'd do on a floppy or hard disk, with no modifications to your 
software or hardware. Two board sizes are available: 512K and 1 Megabyte, (the highest density microcomputer memory 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards. 

What do you need to use it? Just an S-100 system with CP/M 2.2. Or a TRS-80 Model 2 system with 
CP/M 2.2. Or an IBM Personal Computer. That's it. No special processors, DMA. I/O, or disk controllers are required. Plug it in 
and run the installation program, and you're on your way. Fasti Even better, we supply full source code to the driver software, in 
case you'd like to do your own interfacing. 

Best of all. the SemiDisk's price won't warp your wallet. Compare specs, cost/megabyte, storage capacity, and 
compatibility with the competition. You'll see that the SemiDisk is a disk emulator truly worthy of the name. SemiDisk has 
battery-backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor. Consider our liberal 15 day return policy. Price? 
S 1 995 for 5 1 2K byte SemiDisk. $2995 for 1 Megabyte SemiDisk. Both from stock. $ 1 0.00 for manual. VISA, Mastercard. COD 
orders accepted. Dealer and OEM inquiries welcomed. (Specify system type and disk format when ordering.) 



Someday, you'll get a SemiDisk. 

Until then, you'll just have to wait. 



SemiDisk 
SYSTEMS 



P.O. Box GG 
Beaverton, OR 97075 



(503)642-3100 




Call (503) -646 35 1 tor CBBS . 'MW. a Semi -Disk -equipped computet bulletin board. 
SemiDisk trademark ot SemiDisk Systems: TRS-80 trademark of Radio Shack 
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text screen. A blue screen is much less 
glaring when switching back and forth 
between text and graphics with its 
black background. It also avoids a 
momentary flash of garbage on the 
screen that the CLSO command gives 
every time you call the text screen. 

Lines 60-70 set the graphics mode 4, 
the highest resolution, requiring four 
pages of video memory. They also set 
the starting page at page 1 , and clear all 
this memory, making it ready for 
drawing. Lines 100-130 draw a small 
arrow in the lower left corner of the 
screen and fill it in (Paint). The infor- 
mation for this drawing is then stored 
in the array AR, with full graphic 
detail (G) for later use. Finally, the 
drawing is erased using a Preset and BF 
(box fill) command. If this were not 
done, the arrow would always be pre- 
sent in the lower left corner when the 
graphics screen was called. Inciden- 
tally, you can use this technique in any 
program when you want to erase only a 
certain portion of the screen. 

Lines 140-280 draw the lower por- 
tion of the head from the level of the 
lower teeth on down. Up until this 
point, nothing has been displayed on 
the screen. If you would like to see the 
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SMALL & (REQ. 32K 2 DISKS) 

LARGE CAPACITY 
M l PROGRAMS M ||| 

ON TDOS (A MINI DOSPLUS) 
ACCOUNTS RECEIVABLE 

5000+ CUSTOMERS 
1 5000+ TRANSACTIONS 

BALANCE FORWARD. 99 TRANSACT CODES 
30-60-90-120 AGED STATEMENTS SHOW 
DATE/INV#/DESCRIP/AMT (WITH AGEING) 
SELECTIVE FINANCE CHARGES S RATES 
FAST ENTRY POSTING W/AUDIT REPORT 
SUB-ACCTS. % OF CREDIT LIMIT DATE OF 
LAST PAYMENT SALES ANALYSIS SPECIAL 
90 DAY ACCOUNTS LABELS 

$100.00 

GENERAL LEDGER 

400+ ACCOUNTS 
5000+ TRANSACTIONS/MONTH 
NO OTHER SYSTEM OFFERS... 

t REPORT FLEXIBILITY/CAPACITY 
t DEPARTMENT P & L (UP TO 5) 
t UNLIMITED ACCOUNT CATAGORIES 
t STATEMENT OF CHANGES (ASSETS) 
t PERCENT P&L comparison 

100% sales MTDvsYTD 

or net sales QTD vs YTD 

or total Exd. MTDvsQTD 

$150.00 

TEST SETS $50.00 MANUALS $30.00 

HOLMAN D-P SERVICE 

2059 WEST LINCOLN 3.00 S&H 

OROVILLE, CA 95965 VISA OR MC 
916-533-5992 COD* 

•COD (CASH. CERTIFIED CK MONEY ORDER) 
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computer draw, insert a line 90 
SCREEN1.1. This calls the graphics 
screen, and you can see the arrow being 
drawn, erased, and then the lower 
mouth appear. This portion stays 
fixed. In PMODE4, each page of video 
memory contains the information for 
1/4 of the graphics screen. Even 
though the first drawing is done at the 
middle of the screen, it is stored in 
pages 3 and 4 of video memory. 

Lines 450-460 represent the reentry 
point after each vowel display, giving 



the possibility of going to the schemat- 
ic. Line 300 skips this option the first 
time through, since it had already been 
given earlier (line 15). Here and at 
other places in the program we used an 
INKEY$ routine (lines 8000-8010) to 
perform two functions. It holds the 
present display until some input is 
given and it is used as the check for 
processing commands. This approach 
eliminates the use of the INKEY$ sub- 
routine followed by an input com- 
mand, which requires another key- 



Program Listing I 



5 CLEAR 50 

10 DIMAR(16 r 12),AE(16,12) 

15 CLS: PRINT" FOR SCHEMATIC, PRESS <S>, OTHERWISE HIT AN 
Y OTHER KEY TO CONTINUE" :G0SUB 8000 

16 IF I$=CHR$(83)THEN GOSUB 10000 

20 CLS: PRINT" AVAILABLE OPTIONS ARE: " :PRINT"A A: E E: I I: 0: U 

U:":PRINT"AI AU 01" : PRINT "UMLAUTS: UE U:E OE 0:E" :PRINT"SCHWA: 
@":PRINT"TYPE 'N' AFTER ANY VOWEL TO SHOWNASALIZATION. ": PRINT: PR 
INT"PRESS ANY KEY FOR NEW VOWEL." 

30 PRINT"T0 ACTIVATE THE POINTER, PRESS <ENTER> DURING THE VOWE 
L DISPLAY. TO EXIT, PRESS ANY KEY TWICE EXCEPT <ENTER>." 
40 PRINT: PRINT"PRESS ANY KEY WHEN READY. ": GOSUB 80 00 
50 CLS3 
60 PMODE4,l 
70 PCLS 

95 'DRAW FIGURE 

100 LINE(12,176)-(4,182) ,PSET:LINE-(12 ,188) ,PSET:LINE-(12 ,184) ,P 
SET:LINE-(20,184) ,PSET:LINE- (20 ,180) ,PSET:LINE-(12,180) ,PSET:LIN 
E-(12,176) ,PSET 

110 PAINT(11,179) 'DRAW ARROW 
120 GET(4,176)-(20,188) ,AR,G 

130 LINE (4, 176)-(20, 188) , PRESET, BF 'ERASE ARROW 
140 CIRCLE (112, 75) ,80,,. 4,. 17,. 3 'MOUTH BOTTOM 
150 LINE(88,106)-(86,96) ,PSET 'LOWER TEETH #1 
160 LINE-(83,108) ,PSET 'LOWER TEETH #2 
170 CIRCLE(86,96) ,18, , . 9, . 28, . 45 'LOWER LIP #1 
180 CIRCLE(65,106) ,10 , , . 8, . 4 , . 85 'LOWER LIP #2 
190 CIRCLE(60,117) ,8, ,.9, .75,1 'LOWER LIP #3 
200 CIRCLE(75,127) ,15, ,. 87, .22, .68 'CHIN 
210 LINE (75,139)-(120,134) ,PSET'LOWER JAW 
220 CIRCLE(118,159) ,25, ,1, .77,1 'ADAMS APPLE 
230 LINE(143,160)-(144,181) ,PSET 'NECK 
240 CIRCLE(210,101) ,35 , ,2.5 , . 4 , .54 'WINDPIPE 
250 LINE(157,101)-(155,123) ,PSET 'FRONT WINDPIPE #1 
260 LINE-(163,120) ,PSET 'FRONT WINDPIPE #2 
270 CIRCLE(62,151) ,105, ,1.5 , . 97 , . 04 'GLOTTIS 
280 LINE(181,156)-(179,181) ,PSET 'BOTTOM WINDPIPE 
300 GOTO500 

450 CLS3:PRINT"DIAGRAM? (Y/N) " :GOSUB8000 
460 IF I$=CHR$(89)THENGOSUB10000 
500 GL=0:Y=15:A=0 

510 CLS3:LINE INPUT"WHAT VOWEL? ";Vl$ 

520 IF RIGHT$(V1$,1)="N" THEN A=1:V1$=LEFT$ (V1$,LEN (Vl$) -1) 
530 IF V1$="A: "THENY=11 

540 IF V1$="U:" OR V1$="I:" OR V1$="U:E" THEN Y=18 
600 CIRCLE(120,82) ,50, ,. 55, .15, .35 'BASIC TONGUE #1 
610 CIRCLE(120,106) ,30, ,.6, .5,1 'BASIC TONGUE #2 
620 PAINT(125,95) 'BASIC TONGUE #3 
1000 LINE(233,181)-(233,15+Y) ,PSET 'BACK OF NECK 

1010 IFAOITHEN CIRCLE (77 ,Y+35) ,30 , , . 6 , . 08, . 2:CIRCLE (130 ,Y+75) ,5 
0,,.8,.65,.93:GOTO1030 'ROOF 

1020 CIRCLE(77,Y+35) ,30 , , .6 , . 08 , .2:CIRCLE(130 ,Y+74) ,50 , , . 8, .65, . 
7: CIRCLE ( 117, 85+Y) ,60 , , . 8, .72, . 92 'ROOF NASAL 
1030 CIRCLE(131,Y+71) ,50 , , .9, . 52, .58 'TOP TEETH #1 
1040 LINE(81,Y+70)-(76,Y+61) ,PSET 'TOP TEETH #2 
1050 CIRCLE(65,Y+60) ,8, ,1.5,1, .59 'TOP LIP 
1060 PRESET(65,Y+72) 'ERASE 

1070 CIRCLE(41,Y+49) ,20 , , .6 , .71 , .1 'NOSE BOTTOM 
1080 CIRCLE(36,Y+29) ,20 , , .5, .28 , .63 'NOSE 
1090 LINE(22,Y+22)-(47,Y-ll) ,PSET 'UPPER NOSE 
1100 CIRCLE ( 95, 71+Y) , 85 , , . 93 , . 58, . 968 'UPPER NASAL 
1110 IFAOITHEN CIRCLE ( 95, 81+Y) ,90, ,.7,. 64,. 93:GOTO1130 'LOWER N 
ASAL 

Listing I continues 



WHY PAY MORE FOR LESS 

WHEN YOU CAN HAVE BOTH 

5" & 8" FLOPPIES 

FOR ONLY $169.95* 



Some manufacturers charge you an arm and a leg for 
their Model-III# disk controller and then it only works 
with 5" floppy drives. 

Some manufacturers sell controllers with cheaply 
made PC boards. These boards have poorly plated holes 
that can sometimes become intermittent. None are UL 
approved. Check our features and compare. 

Almost none of the competitive boards have gold' 
plated card edge connectors for reliability. 

Some manufacturers sell controllers with part of the 
power supply included on the PC board to generate ex- 
cessive heat to keep your" disk controller warm on cold 
(and hot) days. 

Some manufacturers get creative with their data 
separator circuitry to save money. These data separators 
generally work only with single sided disk drives. 

Some manufacturers put only one connector on their 
PC board and give you a non-detachable umbilical cord 
hanging out the bottom to constantly get in your way. 



OH*i v. 



FDC-3C FEATURES 

D Gold Plated Card Edge Connectors for Reliability D Proprietary Digital Phase Locked Lock 
Loop for NO MAINTENANCE operation with DOUBLE SIDED DRIVES □ Fully compatible with 
the Model-III# computer system D Temperature Compensated Data Separator Circuitry 
D Aerospace grade PC board material D PC board material is UL Approved (R2 194 V-O) D Con- 
trols 5 l A" Single and Double Density Drives □ Controls 8 Single and Double** Density Drives 
D Controls Double Sided Drives D 180 Day Warranty D Switching Power Supply & Installation 
Kit available at extra cost. 



Partial Dealer Listing (denotes distributor) 



B.T. Enterprises (NY) 
Compukit (Houston) 
'Data-Mail (LA) 
Freedom Technology (PA) 
Kif Computers (N.CA) 
Level IV Products (Mich) 
Micro Data Supplies (Ohio) 
Micro Facts (Florida) 



(516) 981-8568 
(713) 474-7342 
(213) 993-4804 
(215)569-2381 
(707) 425-3472 
(313) 525-6200 
(261)951-6502 
(813) 876-4287 



Milo Systems (Mich) 

Micro Systems Software (Florida) 

Pioneer Electronics (Oregon) 

Racet Computes (LA) 

Stevens Radio Shack (PA) 

Texas Computer Syst. (Dallas) 

Traxx Computer (Chicago ) 



(517)487-4500 
(800) 327-8724 
(503) 668-8666 
(714) 997-4950 
(800) 345-6279 
(800) 433-5184 
(800) 621-3102 



Dealer Inquiries Appreciated 



Attention OEMs and Manufacturers!!! 



Micro Mainframe can supply your component parts at attractive prices. We also have a series of 
switching power supplies available for both floppy and hard disk subsystems. Please call or 
write with your requirements. 

MICROMAINFRAME X 

11325 Sunrise Gold Circle Building E 

Rancho Cordova, CA 95670 

(916)635-3997 

'Installation Kit and Power Supply available at extra coat. 
'Doable Density 8 Operation requires 4 MHz. CPU speedup. 



Listing I co /in nun/ 

1120 CIRCLE ( 95, 81+Y) , 90 , , .7 , .64 , . 8:CIRCLE (110, 73+Y) ,60 , , . 9 , .79, . 

96 'LOWER NASAL 

1130 LINE(176,96)-(176,49+Y) ,PSET 'UP WINDPIPE 

2000 GOSUB3000:IF Vl$= n "THEN2500 

2010 SCREEN1,1 

2020 GOSUB8000 

2100 IFI$OCHR$(13)THEN2300 

2110 CLS: PRINT" SELECT POINTER POSITION: ": PRINT: PRINT" A NOSE":PR 

INT" B NASAL PASSAGE" : PRINT" C UPPER LIPS": PRINT" D UPPER TEETH" 

: PRINT" E ALVEOLAR RIDGE" : PRINT" F SOFT PALATE" : PRINT" G VELUM" 

2120 PRINT" H LOWER TEETH" : PRINT" I TONGUE" : PRINT" J FRONTAL VIE 

W, LIPS": PRINT" K GLOTTIS" : PRINT" L VOCAL CORDS" : PRINT" M BACK 

F NECK":PRINT" N MANUAL OPERATION"; 

2130 GOSUB 8000 

2140 PT=ASC(I$)-64:IF PT>14ORPT<1THEN2110 

2150 IFPT=1THEND1=40:D2=40 

2160 IFPT=2THEND1=90:D2=10 

2170 IFPT=3THEND1=74:D2=72 

2180 IFPT=4THEND1=86:D2=72 

2190 IFPT=5THEND1=105:D2=52 

2200 IFPT=6THEND1=140:D2=42 

2210 IFPT=7THEND1=173:D2=63 

2220 IFPT=8THEND1=90:D2=92 

2230 IFPT=9THEND1=105:D2=89 

2240 IFPT=10THENDl=48:D2=114 

2250 IFPT=11THEND1=168:D2=118 

2260 IFPT=12THEND1=183:D2=165 

2270 IFPT=13THEND1=237:D2=150 

2280 IFPT=14 THEN CLS3 : INPUT"SUPPLY X AND Y COORDINATES" ;Dl ,D2 

2290 SCREEN1,1:GET(D1,D2)-(D1+16,D2+12) ,AE ,G: PUT(Dl ,D2) -(Dl+16 ,D 

2+12) ,AR,PSET:GOSUB8000:PUT(D1,D2)-(D1+16,D2+12) ,AE ,PSET:GOTO 20 

20 

2300 CLS3:PRINTCHR$(128) ;: LINE (5,104) -( 45 ,136) , PRESET, BF 

2500 PMODEl,l:PCLS:PMODE4,l 

2510 GOTO450 

3000 IF V1$="A:" THEN RETURN 

3010 IFVl$="AI"THEN SCREEN1 ,1:GL=1: V1$="E" : GOSUB4000 

3020 IF V1$="AU" THEN SCREENl ,1 : V1$="0" :GL=1 :GOSUB4000 

3030 IF Vl$="OI" THEN CIRCLE ( 130 ,108) ,23 , , 1 .2 , .52,1 : PAINT( 130 , 88 

) :SCREEN 1 ,1 :GOSUB5010 :GL=1 : VI $="E" :GOSUB4000 

3040 IF V1$ = "A" THEN CIRCLE ( 120 ,100) ,35 , , . 6 , . 5 ,1 : PAINT (120,85) 

: RETURN 

3050 IFV1S="0:" THEN CIRCLE ( 130 ,100) ,23 , ,1 .2 , . 52 ,1 :PAINT(130 , 80) 

:GOSUB5010 : RETURN 

3060 IFV1$="0" THEN CIRCLE ( 130 ,108) ,23 , , 1 . 2 , . 52 ,1 : PAINT ( 120 , 88) : 

GOSUB4000:GOSUB5010:IF GL=1 THEN V1$="U" ELSE RETURN 

3070 IF V1$="U:" THEN CIRCLE (130 ,90) ,23 , ,1 .3 ,. 55,1.1 :CIRCLE (115 , 

90) , 1 8,,. 6,. 1,. 88: PAINT (13 0,80) : GOSUB 5010: RETURN 

3080 IF V1$="U" THEN CIRCLE ( 130 ,100) ,23 ,, 1 . 3 , .62 ,1 : CIRCLE (115 , 90 

) ,18,,.6,.1,.88:PAINT(111,85) :PAINT(130 , 80) :GOSUB5010 : RETURN 

3090 IF Vl$="@" THEN CIRCLE (120 ,100) ,36 , , .69, .5 ,1 :PAINT(120 ,80) : 

RETURN 

3100 IF V1$="E" THEN CIRCLE (101 ,93) ,15 , , . 80 : PAINT ( 95 , 90) -.GOSUB60 



stroke followed by an enter. 

Line 500 reclears the text screen, and 
initializes the flags for diphthong 
(glide) GL, and for nasalization A, as 
well as the variable Y, which deter- 
mines the degree to which the mouth is 
open (15 is the neutral position). 

After a slight delay, the input com- 
mand appears on the display, and this 
input is assigned to Vl$. A Line Input 
command has to be used in line 510, 
since the colon represents vowel length 
(the simple input command would ig- 
nore this). Line 520 is a check for 
nasalization. If the right-most element 
of the input string is N, the flag A is set 
to one, and the input string (Vl$) is 
redefined to eliminate this N. 

Lines 530 and 540 reset Y in the case 
of an open vowel (a:) or closed vowels 
(i: u:, u:e). Otherwise Y retains its 
neutral value of 15. Lines 600-620 
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paint the basic tongue position (A:), 
and lines 1000-1140 complete the 
drawing of the head and mouth. 

The check in lines 1010 and 1110 is 
necessary because of the option for 
showing nasalization. Nasalized 
vowels require that the roof of the 
mouth and the bottom of the nasal 
passage be drawn in a different posi- 
tion, allowing the velum to appear 
open. If the vowel is not nasalized, 
then the velum is drawn closed (lines 
1020 and 1120). 

The subroutine in lines 3000-3170 
gives the individual draw commands 
for the different tongue positions. Line 
3180 is the default routine for inap- 
propriate input. Redefining Vl$ as 
empty enables us to skip the 
SCREEN 1,1 command upon return 
(see line 2000). 

Not counting the diphthongs, there 



are three different jaw positions, 18 
different tongue configurations, two 
(or three) lip positions, and two posi- 
tions for the velum, which causes 
nasalization. 

Lines 3010-3030 identify the 
diphthongs. For any of these three, the 
SCREEN 1,1 command is given im- 
mediately, instead of waiting to return 
from the subroutine to line 2010. This 
means that the first tongue position is 
shown immediately. We divided each 
diphthong into three positions: begin- 
ning, intermediate and final. After 
calling the graphics screen, the flag for 
a diphthong is set to one, VI $ is 
redefined for the intermediate posi- 
tion, and a short time loop is entered. 
Processing drops through until Vl$ is 
found again, and this is then drawn 
over the existing position. Since GL is 
still one, VI $ is redefined, and the sub- 
routine is run through until the final 
member is displayed, again drawn over 
the existing display. Since there are 
three different cases (ai, au, oi) where 
each time three separate vowels will be 
displayed, the order in subroutine 
3000-3170 is important. The order 
must be (ai, oi, au) followed by a, o 
(u), e, i (u). The position of the other 
vowels is unimportant. 

The extra Paint commands in lines 
3080 and 3120 are needed to display 
diphthongs because over-drawing is 
done. Without them some portion of 
the tongue would remain unpainted. 
Finally, the two subroutines at line 
5010 and 6010 give the frontal view of 
the lips. In the case of oi, both possibil- 
ities will be displayed, with the spread 
lips drawn over the rounded lips. 

Once the program has drawn the 
tongue position, execution returns 
from this subroutine. If VI $ is empty, 
the program jumps to line 2500, then 
recycles; otherwise, the graphics screen 
is called. Issuing two SCREEN 1,1 
commands has no adverse effect when 
you input the diphthongs. This display 
remains until you input again. Hitting 
any key but enter causes a jump to line 
2300. This clears the text screen, and 
calls it up blank, while the next com- 
mands are carried out. The first of 
these, Line . . . Preset, BF, erases the 
area where the frontal view of the lips 
was displayed. 

Line 2500 shows how to erase the 
upper half of the display. Shift 
momentarily to the PMODE 1,1, 
which requires two pages (pages 1 and 
2) of video memory. Then the PCLS 
command automatically erases the 
first two pages and you shift back to 
PMODE 4. This technique leaves the 



"Your Business Computer Headquarters" 



Compare the 
Victor 9000 Desktop 
Business Computer 




THe Victor 9000 Desktop Business 
Computer gives you the kind of 
memory, storage capacity and soft- 
ware that business applications de- 
mand Just compare the victor 
9000 witn the competition. and 
we're confident you'll pick Victor 

VICTOR 

5iifcl A —Hop l»Mn«v 

VtCTtm BUMN 



Call For Quotes!! 

Compare and you! pick Victor. 



TRS-80 



Business 
Computers 



-Q28K Model 16l 




48K, 2 Drive 

81950 
48K. 1 Drive 
571 
16K 
U 8839 



Call For QUOTES On 
Complete Product Line 

800-351-1580 

In Texas Call Collect: 915-283-2920 

Van Horn Office Supply 

701 W. Broadway " 169 P.O. Box 1060 

Van Horn, Texas 79855 



MASTER ELECTRONICS, INC. 

*TRS-80 is a trademark of Tandy 

CAN SET YOU UP IN A 



TRS-80 



STATE-OF-THE-ART-COMPUTER 



STARTING AT 15% DISCOUNT! 




fc^— j» . . - . T - r . .nilJ 



FULLY STOCKED 

IN: Model IPs 

Model MPs 

ALL- PRINTERS 

AND — MORE!! 

* PLUS * 
THE ALL NEW: 



Model 16 and the 8.5 meg. Hard Drive! 



CALL US NOW! 



Toll FREE: 1-800-531-7323 



TEXAS CALL COLLECT 512/689-5536 



G £ 



MASTER ELECTRONICS. INC. 

154 NORTH 5th 

RAYMONDVILLE. TX 78580 



YORK lO 

BASF-DPS 

WORLD STANDARD TAPE 



© 



& 



MONEY BACK 
GUARANTEE 



PREMIUM 5-SCREW 

SHELL FITS ALL 

STANDARD RECORDERS 



COMPUTER GRADE 
BLANK CASSETTES 



DATA TRAC / C-05, C-10, C-20 



CASSETTE STORAGE CADDY 



H&* 



ORGANIZE 
YOUR TAPES! 

$2 95 EACH 





FINEST QUALITY 
PHILIPS (NORELCOI 
TYPE HARD BOXES 



TRACTOR FEED 

DIE-CUT BLANK 

CASSETTE LABELS 



► 



INTRODUCTORY OFFER! 

ORDER 2 DOZ. CASSETTES, ORDER 1 CADDY 

GET 1 CADDY FREE! f38XffrE8 m 



4 



rely on 



-Mfc--s,-sSj3gg- 



USERS 



SAY 



outpu' 



to the 



^gsm mr~ - 



meter 



^r^iKSKft 



Tom ■ - nH 
Madison. 0" 




■■YOU'VE TRIED THE REST, 
NOW BUY THE BEST'' 



,houtthe 

Beaverton 

*Z&m*\ Call: 213/710-1430 
order NOW . . . VORK lO Computerware" 



for IMMEDIATE SHIPMENT 
on Credit Card Orders. 




MAIL TO: 24573 Kittrldge St. #80M, Canoga Park, CA 91307 
mm mm ■■ ORDER FORM ■ — ■■■■■■ — m 



ITEM 1 DOZEN 2 DOZEN 


TOTAL 


C-05 □ 7.50 D '350 




C-10 ZJ 8 00 □ 14.40 




C-20 □ 10.00 □ 1800 




Hard Box G 2.50 Q 4.00 








FREE. Quantity 


Blank labels □ 4.00/100 □ 30.00/1000 




SUB TOTAL 




Calif, residents add 6% sales lax 




Shipping/handling 1 doz $2. 2 doz S3 50. 
3 doz. $4.50; each additional doz $ 50 




For Parcel Post instead of UPS ADD $1 




Outside Continental USA. ADD $2 




TOTAL 




Check or M.O. Charge to 

enclosed [ l Credit Card: [ ] VISA Q MASTERCARD 

LJ PLEASE SEND QUANTITY DISCOUNTS 



Each cassette 
includes two YORK 
10 labels only 
Boxes are sold 
separately Ship- 
ments are by 
UPS. unless 
Parcel Post re 
quested Boxes, 
caddies, and blank 
labels are free of 
shipping charges 
when ordered with 
cassettes When 
ordered without 
cassettes, shipping 
charges Boxes - 
Sl.OWdoz.. 
Caddies $1 00 
each. MINIMUM 
SHIPPING; 
HANDLING ON 
ANY ORDER- 
$2 00 



Card No. 



Exp. 



Name 



Address 



City 



State/Zip 



Signature 



Computer make & model 



__Disk?(y/n)_ 



.--See List of Advertisers on Page 563 
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top of the screen erased and ready for 
drawing and the bottom half un- 
touched. Control returns to line 450 to 
give the option for the schematic, and 
then to reset variables and ask for more 
input. The video memory setup makes 
it possible to reenter here, rather than 
returning to line 50 and having the 
whole lower half of the screen redrawn 
each time. 

If the time delay doesn't bother you, 
two solutions allow you to run the 
program with four pages of video 
memory. The first of these is to send 
control back to line 50, as mentioned 
above. Simply delete line 2500 and 
change line 2510 to read GOTO 50. 



Line 2510 must also be changed to . . . 
THEN 50. The other way is to use a 
Preset and BF command. In this case, 
change line 2500 to LINE(20,96)- 
(178,0), PRESET,BF. Line 2510 re- 
mains unchanged. 

The pointer subroutine is in lines 
2100-2290. While the program dis- 
plays the graphics, hitting the enter 
key enables this routine. This routine 
displays a menu listing 13 different 
positions where you can place the 
arrow. This routine lets you point out 
one particular part of the vocal tract. 
The most likely places are pre-de- 
fined, but there is also the option for 
manual operation, where you can sup- 



Program Listing 2 

10:GOSUB4000:IP GL=1 THEN Vl$="I n ELSE RETURN 

3110 IF Vl$= n E: n THEN CIRCLE ( 95 , 93) ,10 , , 1.3 , .1, . 83 :CIRCLE(110 ,90 

) , 17 , , . 6 , . 51 , 1 . 1 : PAINT (90,90): G0SUB6 01 : RETURN 

3120 IFV1$="I"THEN CIRCLE ( 100 ,90) ,15 , ,1 .1 , .2, . 9:CIRCLE (125 ,91) ,2 

3 , , . 49 , . 6 2 , 1 . 1 : PAINT ( 90 , 85 ) : PAINT ( 120 , 83 ) : GOSUB6 010: RETURN 

3130 IF V1$="I:"THEN CIRCLE (111 , 87) ,18, ,1 .3 , .39 , . 95:CIRCLE (128 , 

90) ,10,,1,.7,1.2:PAINT(111,75) :GOSUB6010:RETURN 

3140 IF V1$="U:E" THENCIRCLE(111 , 87) ,18 , ,1.3 , .39 , . 95:CIRCLE (128, 

90) ,10,,1,.7,1.2:PAINT(111,75) :G0SUB 5010:RETURN 

3150 IF Vl$="UE" THEN CIRCLE ( 100 , 90) ,15 , ,1 .1 , .2 , . 9 :CIRCLE (125 ,91 

) ,23,,.49,.62,1.1:PAINT(90,90) :GOSUB5010: RETURN 

3160 IF V1$="0:E"THEN CIRCLE( 95,93) ,10, ,1.3 , .1 , .83 :CIRCLE (110 ,90 

) ,17,, .6,.51,1.1:PAINT(90,90) :GOSUB 5010:RETURN 

3170 IF Vl$="OE"THEN CIRCLE (101 ,93) ,15 ,,. 80 :PAINT( 95,90) :GOSUB50 

10: RETURN 

3180 Vl$="":CLS0:PRINT@195, "SORRY, YOU MADE AN ERROR. ";: PRINT@23 

0, "PLEASE BEGIN AGAIN."; 

3190 FOR T=0TO800:NEXTT 

3200 RETURN 

4000 FOR T=0TO300:NEXT T 

4010 RETURN 

5000 'ROUND LIPS 

5010 CIRCLE (25,120) ,20, ,.85 

5020 CIRCLE (25,120) ,15, ,.85 

5030 PAINT (42,120) 

5040 RETURN 

6000 'SPREAD LIPS 

6010 CIRCLE (25,120) ,15, ,.4 

6020 CIRCLE (25,120) ,20,, .4 

6030 PAINT (42,122) :PAINT(8, 122) 

6040 RETURN 

8000 I$=INKEY$ 

8010 IFI$=""THEN8000ELSERETURN 

10000 L$=",":M$=CHR$(128) :N$=CHR$ (140) 

10005 CLS:PRINT"TO EXIT THIS ROUTINE, PRESS ANY KEY": FOR B=1T02: 

GOSUB4000:NEXT 

10010 CLS:PRINT@6, "front"; : PRINT@15 , "central" ; :PRINT@26 , "back" ; 

10020 PRINT@70,"I: (U:E) " ; :PRINT@94 , "U: 

10030 PRINT@96,"high"; 

10040 PRINT@134," I (UE) 

8,L$; 

10050 PRINT@263,"E: (0:E) 

10060 PRINT@288,"mid"; 

10070 PRINT@328,"E (OE) " ; : PRINT@339 , " [ ] 

10080 PRINT@360,L$;:PRINT@377,L$; 

10090 PRINT@36,STRING$(28,N$) ; 

10100 PRINT@388,STRING$(28,N$) ; 

10110 PRINT@433,"A"; : PRINT@448 , "low" ; :PRINT@465,L$; 

10120 PRINT@497,"A:"; 

10130 PRINT@196,STRING$(28,N$) ; 

10140 FOR P=78 TO 494 STEP 32 

10150 PRINT@P,M$; 

10160 NEXT 

10170 FOR P=86 TO 503 STEP 32 

10180 PRINT@P,M$; 

10190 NEXT 

10200 FOR P=68 TO 486 STEP 32 

10210 PRINT§P,M$; 

10220 NEXT 

10230 GOSUB80 00: RETURN 



'; :PRINT@156,"U" 
;:PRINT@273,"@' 



:PRINT@167,L$; :PRINT@18 

:PRINT@283,"0:"; 

:PRINT@345,"0"; 



ply your own X and Y coordinates. 
Line 2140 converts the input to usable 
form, and lines 2150-2270 set the cor- 
rect coordinates. 

The arrow displayed comes from the 
array AR, which we loaded earlier in 
the program (lines 100-120). Before we 
can use the Put command, we must 
save the graphics contents of the area 
where the arrow is to appear. The AE 
(arrow erase) array accomplishes this. 
The graphics information contained in 
the area given by the coordinates is 
first stored in AE, and then the arrow 
is displayed. Hitting any key puts the 
contents of AE back into the same 
area, thus returning what was there 
and erasing the arrow. The AR array is 
defined once at the beginning, and 
never changed, while the AE array is 
redefined every time you make a new 
choice. At this point a jump is made 
back to line 2020, where you can again 
call the pointer routine or return to the 
schematic input option. 

Lines 10000-10230 are the subrou- 
tine for drawing the schematic of the 
mouth. This outline is shown on the 
text screen, so the entire graphics 
screen does not have to be erased and 
then redrawn after this subroutine. MS 
and N$ in line 10000 define the charac- 
ters used in lines 10140-10160 and lines 
10170-10190 for drawing the lines sep- 
arating the mouth into nine areas. L$ 
marks the short vowel with a comma, 
indicating laxness. 

Lines 10010, 10030, 10060 and 
10110 print the labels. These are in 
lowercase in the Program Listing 
because in the actual display they are 
reversed (green letters on a black back- 
ground). To enter them this way, type 
the quotation marks, shift 0, the label, 
and then shift again before closing 
the quotes. Line 10070, which reads in 
part PRINT AT 339, CHR$(93); 
CHR$ (91), prints left and right 
brackets in the lower right section of 
the central field. This marks the area of 
production for a German vowel, which 
is usually symbolized as an inverted V. 
This seemed the best solution, given 
the possible letters that could be used 
otherwise. 

We would appreciate any comments 
readers might have for improvements 
to or other uses for the program. In 
return we are also willing to make cas- 
sette copies of this program available 
to anyone who will send us a blank 
cassette and the return postage. ■ 

Dr. Alan Lacy (526 N. 14th St., Mil- 
waukee, WI 53233) is an associate prof es- 
sor of German at Marquette University. 
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Instant Software 

Peterborough, N.H. 03458 USA A subsidiary of Wayne Green Inc. 




Fdll/Wi 



; 





* BUSINESS/APPLICATIONS 
S UTILITIES 

* EDUCATION 



GAMES 

JJndex hi -@lphrJtt?ticrJ C/lx/e/L. 



Copyright © 1981 
Instant Software Inc. 
Peterborough NH 03458, U.S.A. 
All Rights Reserved 



PACKAGE NAME 

ABE 

Air Flight Simulation. 
Air Flight Simulation. 

Airmail Pilot 

Airmail Pilot 

Alien Attack Force. . . 
All Stars 



NUMBER PRICE 



PG# 



5026RD. 
.0148A.. 

0017R . 

0106R.. 
.0274TI.. 

0240R.. 

0213RD. 
.0268AD. 
.0161AD. 

0074P . 



AppleCMnic 

Apple Fun 

Arcade I 

Arcade II 0045P... 

Archimedes Apprentice 0092R 

Assem/Zsim 0365RD . 

Astrology 0241 R.. . 

Astrology 0242AD . 

Ball Turret Gunner 0051 R.. . 

Basic Programmers Assistant 0203R. . . 

Battleground 0141 R. . . 

Beginner's Russian 0136R. . . 

Bowling League Secretary 0095RD . 

Bowling League Statistics 0058R. . . 

Business Analysis 0140R. . . 

Business Analysis 0152RD . 

Business Game 0158R. . . 

Capitalization 0339AD . 

Cassette Scope 0192R. . . 

Chimera 0110P. . . 

Client Records/Bill Preparation. . 0284AD. 

Compression Utility 0246R. . . 

Cosmic Patrol 0223R. . . 

Cosmic Patrol 0224RD . 

Danger In Orbit 0237R. . . 

Danger In Orbit 0247RD . 

Daredevil 0082R. . . 

Demo 1 0035P... 

Disassembler 0232R. . . 

Olsk Editor 0180RD. 

Disk Scope 0139RD . 

Disk Tape Exchanger 0248RD . 

DLDIS 0231 RD. 

Doctor Chips 0218R. . . 

Doctor Chips 0254AD . 

Domes ot Kllgarl 5014R. . . 

Domes ot Kllgarl 5015RD. 

Domes of Kllgarl 5016RD3 

Doodles and Displays 0042R. . . 

DOS Plus 3.4 single density 5023RD . 

DOS Plus 3.4 double density 5024RD . 

DOS Plus 3.4 Mod III 5025RD3 

Dragonquest 5010RD . 

Dragonquest 5006R. . . 

Dungeon of Death 0064P. . . 

Dynamic Device Driver 0199RD . 

Dynamic Device Driver 0228R. . . 

Easy Calc 0269RD . 



16 



lb 



$19.95. 
$14.95. 
$14.95 
$14.95. 
$14.95 
$14.95. 
$34.95 . 
$29.95. 
$19.95. 
$14.95. 
$14.95. 
$14.95. 

$119.97 7 

$14,95 4 

$19.95 4 

$14.95 13 

$19.95 6 

$14.95 13 

$14.95 11 

$49.95 4 

$24.95 4 

$75.00 4 

$99.95 4 

$14.95 12 

$24.95 9 

$14.95 7 

$14.95 11 

$49.95 4 

$19.95 6 

$19.95 15 

$24.95 15 

$19.95 14 

$24.95 14 

$14.95 16 

$14.95 11 

$14.95 8 

$39.95 7 

$24.95 7 

$24.95 7 

$24.95 8 

$14.95 14 

$19.95 14 

$19.95 12 

$29.95 12 

$29.95 12 

$14.95 14 

$149.95 6 

$149.95 6 

$149.95 6 

$21.95 14 

$15.95 14 

$14.95 11 

$24.95 7 

$19.95 7 

$49.95 5 



Easy Calc 0369RD3 . $49.95 5 

Electronic Breadboard 0287R $49.95 4 

Electronic Breadboard 0222RD . . $59.95 4 

Electronic Breadboard 0428AD . . $59.95 4 

Electronic Design Calculator .... 0204R. . . . $14.95 4 

Electronic Engineer's Assistant. . 0085P. . . . $14.95 4 

Energy Audit 0O52RD . . $75.95 5 

Energy Audit 0089R. . . . $49.95 5 

Enhanced Basic 0077R. . . . $24.95 6 

Everyday Russian 0137R. ... $14.95 11 

Find It Quick 0258RD . . $49.95 3 

Flight Path 0171 R. .. . $14.95 16 

Flying Circus 0205RD . . $39.95 16 

General Ledger 0400RD2 . $897.00 . . COVER 

General Ledger Demo 0409RD2 . $250.00 . . COVER 

Geography Explorer: Europe 0259R $29.95. 10 

Geography Explorer: Europe 0121 RD.. $49.95. 10 

Geography Explorer: Mid East. . . . 0276RD . . $49.95 10 

Geography Explorer: USA 0071 RD . . $49.95 10 

Geography Explorer: USA 0086R $29.95 10 

Golf 0018A. . . . $14.95 11 

Gomoku/3D Tic TacToe 0210R. . . . $14.95 12 

Grade Book 0050R. . . . $14.95 10 

Ham Package 0176AD . . $19.95 5 

Ham Package 0054P. . . . $14.95 5 

Hooptodoodle 0091 P.. .. $14.95 12 

House of 30 Gables 0219R. . . . $14.95 11 

I.Q. Test 0157R. . . . $14.95 14 

Investor's Paradise 0125R $14.95 14 

Jet Fighter Pilot 0159R. . . . $14.95 12 

Jet Fighter Pilot 0329AD . . $24.95 12 

Key Commander 5027R $29.95 6 

Kid's Gallery 01 72R. ... $14.95 13 

Kitchen Sink 0386RD . . $19.95 16 

Label 0168R. . . . $24.95 7 

Life 0078R. . . . $14.95 15 

Master Directory 5004RD3 . $29.95 5 

Master Directory 5005RD . . $29.95 5 

Masterplot 0435RD . . $149.95 5 

Master Reversi 0378RD . . $24.95 13 

Master Reversi 0417R. . . . $19.95 13 

Math Master 0257R. . . . $17.95 9 

Mental Gymnastics 0087H. . . . $14.95 13 

Mimic 0025A... $14.95 12 

Mimic 0039P. . . . $14.95 12 

Mimic 0066R.... $14.95 12 

Mind Warp 01 18R. . . . $14.95 14 

Minotaur 0318R. . . . $14.95 15 

Mission: Mud 0325RD . . $19.95 16 

Model Rocket Analyser 0024R $24.95 3 

Mountain Pilot 0370RCE. $19.95 13 

Music Master 0084R. . . . $14.95 12 

NFL Prognosticator 0145AD . . $24.95 5 

Night Flight 0304AD . . $24.95 11 

Night Flight 0117R $14.95 11 

Oil Tycoon 0023R. . . . $14.95 13 



Omnl-Calculator 021 1RD.. $29.95 10 

Omnl-Converter 0200R $14.95 10 

Paddle Fun 0163AD . . $19.95 15 

Perfect Pong 0120R. . . . $14.95 12 

Personal Bill Paying 0103R. . . . $14.95 4 

Pet Demo 0035P. . . . $14.95 11 

Pet Utility 0105P. . . . $14.95 8 

Polygons 0244R. . . . $14.95 9 

Programmer's Converter 0058R — $14.95 7 

Programmer's Primer 0245R. . . . $14.95 6 

QSL Manager 0151 RD . . $24.95 5 

Qublc/Gomoku 0038P. . . . $14.95 12 

Ram Rom Patrol 0028R. . . . $14.95 14 

Renum/Compress 0133R. . . . $14,95 6 

Russian Disk 0212RD . . $29.95 11 

Russian Disk 0283AD . . $29.95 11 

Santa Paravla 0229AD . . $24.95 15 

Santa Paravla 0273TI . . . $14.95 15 

Santa Paravla 0353AT. . . $14.95 15 

Santa Paravla 0229AD . . $24.95 15 

Santa Paravla/Flumacclo 0175P.... $14.95 15 

Santa Paravla/Flumacclo 01 74A. ... $14.95 15 

Santa Paravla/Flumacclo 0043R. . . . $14.95 15 

Scrlptr 0380RD . . $34.95 3 

Skybombers 0183A. . . . $14.95 16 

Skybombers II 0271 AD . . $24.95 16 

Solar Energy for the Home 0235AD . . $34.95 5 

Space Shuttle 0332R. . . . $19.95 16 

Sparrow Commander 0387RD . . $19.95 15 

Super » Terminal 5700RD . . $95.00 7 

Super Utility Plus 5022RD . . $74.95 7 

Surveyor's Apprentice 0127R — $14.95 10 

Swamp War 0312R. . . . $14.95 12 

Teacher 0065R. . . . $14.95 10 

Teacher's Aide 0214RD . . $39.95 10 

Temple of the Sun 501 1 RD . . $29.95 12 

Temple of the Sun 5012R. . . . $19.95 12 

Temple of the Sun 5013RD3 . $29.95 12 

Terminal 80 0130R. . . . $24.95 8 

The Elements 0216R. . . . $17.95 8 

TLDIS 0230R. . . . $19.95 8 

Tower of Fear 05020RCE$19.95 13 

Traffic Accident Analysis 0173ND . . $499.95 3 

Triangle Trig 0309R. . . . $19.95 8 

TRS Tests 0184R. . . . $14.95 6 

Turf and Target 0O97P. . . . $14.95 11 

Typing Teacher 0099R.... $17.95 11 

Ultra Mon 5003R. . . . $24.95 8 

Utility II 0076R. . . . $14.95 8 

Video Speed Reading 0100R. . . . $14.95 9 

Weather Watch 0316RD . . $24.95 5 

Whc-dun-lt 0047R. . . . $14.95 13 

Wordsllnger 0129R. . . . $29.95 3 

Wordwatch 01 1 1 R. . . . $14.95 9 

Z-flO Checkers 0310R. . . . $14.95 12 

ZSIM 0378R. . . . $29.95 8 



PLEASE NOTE: 

•All programs specified for the TRS-80 Model I will also 

run on PMC and LNW computers. 

•All TRS-80 Model I disk programs listed as compatible 
with the Model III must be converted by using the CON- 
VERT command, as explained in your DOS Manual. 

•All TRS-80 cassette programs are made to load from 
Radio Shack cassette recorders. Using any other recorders 
may require precise volume and tone settings. 

•All TRS-80 disk programs are supplied with their own 
Disk Operating Systems. 

•All Apple disk programs will boot on 3.2 AND 3.3 
systems. 

•All programs listed as having a "sound option" require 
the use of a speaker/amplifier or a cassette recorder with 
earphone. 

•All Atari programs require the use of the Atari CXL 4002 
BASIC computer language cartridge. 



Cover photograph by Laurie MacMillan. 
Group product photographs by Frank Cordelle. 



MINI INDEX 

BUSINESS/APPLICATION .... PP 3, 4, 5 

UTILITIES PP. 6, 7. 8 

EDUCATION PP. 8, 9. 10. 1 1 

GAMES PP. 11, 12. 13, 14. 15. 16 



'TRS-80 is a trademark of Radio Shack, a division of Tandy Cc 

'Apple is a trademark of Apple Computer, Inc. 

'PMC is a trademark of Personal Microcomputers. Inc. 

'LNW is a trademark of LNW Research Corporation 

4 MX-80 is a trademark of Epson America. Inc. 

"OKI-data is a trademark of Oki Electric Industry Co. Ltd. 

'Atari is a trademark of Atari. Inc. (Warner-Communcations) 

"Pet is a trademark of Commodore Business Machines. Inc. 

"Heath is a trademark of Heath Company 

'"Northstar is a trademark of Northstar Computers. Inc. 

' Rubik's cube is a trademark of Gabriel Industries, Inc. 



OUR GUARANTEE 

To Our Mail Order Customers 

If you find this program to be defective within thirty days of the invoice date, you may 
return the program at no additional cost for exact replacement or full credit. You MUST 

enclose a copy of your invoice with the returned program. 
If the program should become defective after thirty days, you may return any cassette with 
4.00 or any disk with $5.00, along with a copy of your invoice to receive an exact replacement. 

To Our Retail Customers 

Because our retail dealers have various return policies, you must return any defective pro- 
grams to the retail dealer it was purchased from. 



BUSINESS/ APPLICATIONS 



Put text-writing at your fingertips 
without disk drives and without a big 
investment! Designed for individual 
or small business use, the Wordslinger 
offers you eomplete text-creating and 
editing abilities, automatic formatting 
for letterheads and envelope address- 
ing, and the ability to save your text 
on tape. Requires printer. 
TRS-80 Tape Mod I and Mod 111 1 6K 
0I29R $29.95 



Find it 
Quick 

Put an end to the Misplaced Informa- 
tion Syndrome with this disk-based 
personal librarian. A standard journal 
format records important magazine 
articles, memos, client lists, vendor 
advertisements, anything you need to 
keep track of. Subjects can be indexed 
or retrieved according to author, jour- 
nal and date, or by up to nine key- 
words that you determine. Printer op- 
tional. 

TRS-80 Disk Mod 1 and Mod III 32K 
0258RD $49.95 
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MODEL ROCKET 

ANALYZER AND 

PREFLIGHT CHECK 

Launch your TRS-80 into the high- 
soaring world of model rocketry! Two 
complimentary aeronautics pro- 
grams: MODEL ROCKET FLIGHT 
HISTOR Y PREDICTION computes 
flight characteristics for almost any 
model rocket; includes data on engine 
and body tube for Estes, Centuri, 
Flight Systems, A.V.I., Astroport, 
C.M.R. and Kopter products; enter 
data for your own rocket designs! 
WE A THER FORECASTER predicts 
launch and flight conditions before 
lift off; you enter weather data and get 
an up-to-the-minute summary! 
TRS-80 Tape Mod I & Mod III 16K 
0024R $24.95 



TRAFFIC 
ACCIDENT 

ANALYSIS AND 
RECONSTRUCTION 

Nine programs (with multiple op- 
tions) to solve the equations involved 
in motor vehicle accidents are includ- 
ed in this comprehensive, extensively 
documented North Star package. 
Reach accurate conclusions regarding 
the operational factors and dynamics 
contributing to highway accidents. In- 
surance companies, accident investi- 
gators, attorneys, fleet safety officials 
and police will all find that these pro- 
grams make their accident investiga- 
tions much more efficient and ef- 
fective. 

North Star Disk Horizon II and North 
Star DOS 5.0 48K 0173ND $499.95 



Scripsit users: Here's a universal printer driver that adds the features you 
need to your Scripsit package. With single letter commands, you can send 
any code to your printer from your text. Use all your printer's capabilities, 
use graphics, edit text as it goes to the printer, insert text to a specified place 
in the printout and never again lose your text because of a full disk! In addi- 
tion, you can make your screen into a speed-reading trainer. Scriptr will con- 
trol the Epson MX-80' and the Okidata Microline 80' printers and can be 
modified (for a nominal fee) to take advantage of all other printers that use 
the TRS-80 parallel port. 
Requires Scripsit and a compatible printer. 
TRS-80 Disk Model I only 32 and 48K 0380RD $34.95 
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BUSINESS 
ANALYSIS 

A flexible and professional time series analysis and 
forecasting instrument that allows you to analyze 
and appraise 

$$$ business climates and trends 
$$$ sales and product planning operations 
S$$ corporate stocks, trends and growth 
S$$ household budgets, accounts and energy 
In fact, you can use BUSINESS ANALYSIS to ex- 
amine and forecast ANY type of monthly, quarterly 
or annual data. You never exceed storage capacity; 
oldest data drops out leaving room for your most re- 
cent figures. A very flexible Editor program permits 
you to add, delete or modify at will. Forecast future 
data values using trend, moving average, seasonal or 
cyclic indices. Produce professional-looking charts, 
graphs and business reports in any of several output 
formats. 

TRS-8032KTapeModI&ModIII 0140R $75.00 
TRS-80 32K Disk Mod I & Mod 111 0152RD 
S99.95 
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BOWLING 

LEAGUE 

SECRETARY 

Here's a disk version of this essential program with 
all the above features PLUS... more storage 
capabilities (store up to 250 bowlers and 40 
teams!), and the ability to record individual han- 
dicaps. You can utilize two different formats with 
the printout option, and, should you have any pro- 
blems, simply type HELP to receive an explanation 
of what information is needed — complete with a 
sample entry. 

TRS-80 Disk Mod I & Mod III 48K 0095 RD 
$49.95 

BOWLING LEAGUE 
STATISTICS SYSTEM 

This program is in a league by itself! Transform 
your TRS-80 into a comprehensive record-keeping 
system that's ready to handle any bowling league. 
Simply enter in weekly scores and BLSS provides a 
complete list of bowler, team, and league statistics 
including information such as points won, team 
standings, high averages, games, and series. You 
can record information for up to 12 teams and 60 
bowlers on a 16K system, and up to 16 teams and 
90 bowlers with a 32K system. A variety of differ- 
ent scoring options will suit every league's needs. 
Printer optional. 

TRS-80 Tape Mod I & Mod III 16K 0056R 
$24.95 



This program, written by foremost astrolo- 
ger/computerist Michael Erlewine, supplies the 
calculations and planetary placement data neces- 
sary for a trained astrologer to interpret. The 
horoscope cast will show planetary placement in 
the Zodiacal Circle and the twelve houses. Knowl- 
edge of Astrology is required to use this profession- 
al program. 

TRS-80 Tape Mod I and Mod III 16K 024 1R 
$14.95 

Apple II Disk Applesoft 28K 0242AD 
$19.95 




Client Record/ 
Bill Preparation 

Small to medium-sized businesses 
need the Client Record/Bill Prepara- 
tion system. Create files which con- 
tain complete information about each 
client. Add charges for time, materials 
and expenses, and calculate and print 
detailed invoices. You may also search 
for and print client records, separate 
projects and charges. 
Apple Disk Applesoft 32K 0284AD 
$49.95 

PERSONAL 
BILL PAYING 



Handle your household 
major businesses do- 
them! Get a month-by- 
of your current debts, 
paid (w/check numbers! 
pertinent information 
professionalize your 
methods! 

TRS-80 Tape Mod 1 & 
0103R $14.95 



accounts like 
-computerize 
month listing 

bills already 
) and all other 
necessary to 

bill-paying 

Mod III 16K 



ELECTRONIC BREADBOARD assists in the 
design and analysis of analog circuits and can be 
used to evaluate voltages, currents, impedance, 
and the frequency response of any circuit as well as 
dozens of other applications. Students verify elec- 
trical theory by entering sample circuits and deter- 
mining frequency response. The documentation in- 
cludes a tutorial designed to increase the newcom- 
er's understanding of electronics. An ideal pro- 
gram for audio component repair technicians, elec- 
trical engineers, electricians, and students of elec- 
tronics. 

TRS-80 Tape Mod 1 and Mod III 16K 0287R 
$49.95 

TRS-80 Disk Mod I and Mod III 32K 0222RD 
$59.95 
Apple Disk Applesoft 32K 0428AD $59.95 

ELECTRONICS DESIGN 
CALCULATOR 

Dozens of complex calculations are computed and 
brought down to size with this comprehensive pro- 
gram. Calculations are given and displayed in their 
most readable form for reactance, resonant fre- 
quency, resistors and capacitors in parallel and 
series, along with over two dozen other complex 
formulas. Free yourself from the drudgery of end- 
less calculating. 

TRS-80 Tape Mod I and Mod III 16K 0204R 
$14.95 

ELECTRONICS ENGINEER 
ASSISTANT 

Hours of trial-and-crror breadboarding are no 
longer necessary: your computer can be your lab, 
breadboard and test equipment. This package 
deals with problems in network analysis and micro- 
strip design. Analyze cascaded combinations of up 
to 13 network elements. Design microstrip 
transmission lines for any medium where impe- 
dance is a critical factor. Flexible and efficient. 
This package is designed for both the professional 
and the hobbyist. 

PET Tape Old and New ROM 8K 0085P $14. 95 
Apple Disk Applesoft 32K 0267 AD $19.95 
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A professional graph plotting and printing package which includes these outstanding features: 

*Dala can be entered from the keyboard, from equations you enter, or from your BASIC programs. 

*10 sets of data can be plotted on the same graph. 

*Data is plotted using symbols you compose. 

*You can choose the number of interpolated points between data points. 

*The program automatically selects scale values for ease of interpretation. 

•Graphs from 1" x 1" x7" by 24" may be printed. 

*Thc number of horizontal and vertical grids can be selected. 

*A comprehensive manual will guide you step by step through all procedures. 

Requires Epson MX-80' printer with the Graphtrax 2 modification. 
TRS-80 Disk Model I only 48K 0435RD $149.95 
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EdSYCdL 

Easy CalC wiH turn your TRS-80 into an 
electronic spreadsheet! Write your numeric data 
into rows and columns on your video screen. Then 
add, subtract, multiply, divide or exponentiate 
single values or complete rows and columns. Easy 
Calc contains a unique programmable calculator 
that allows you to enter and save an entire series of 
calculations that can be executed instantly by 
touching a single key. Additional features include: 
calculation of percentages, summation of all rows 
or columns, and labeling of all rows and columns. 
Easy Calc will handle up to 600 figures (e.g. 30 
rows by 20 columns). Print your worksheet when- 
ever you wish, or merge it with Scripsit word pro- 
cessor files for complete, professional reports. 
TRS-80 Disk Model 1 only 48K 0269RD $49. 95 
TRS-80 Disk Model 111 48K 0369RD $49.95' . 





directory 

Organize all your disks and disk files 
with this Master! Keep track of all 
your programs and files (up to 5,0(X)!) 
on all your disks (up to 320!); locate 
programs even if you've forgotten 
their correct names; get master lists of 
all your data files — alphabetically, by 
data category, or extension! 
TRS-80 Disk Mod 1 32K 5005 RD 
$29.95 

TRS-80 Disk Mod III 32K 5004RD 
529.95 



WEATHER WATCH 

Come rain or shine, you'll be "in the know" with 
this two-program weather package. 

WEATHER FORECASTER Just enter past and 
present barometric pressures to obtain a weather 
"preview" for the next 24 hours. 

WEATHER PLOT is an informative weather 
almanac that contains a "Hood" of weather data. 
You have at your command records, charts, 
graphs, facts and figures on local weather for every 
major city in the U.S. and its possessions. 
TRS-80 Disk Mod I and Mod III 32K 0316RD 
$24.95 



—HAM 

PACKAGE 

Three programs make life easier lor 
the amateur radio enthusiast... 
BASIC ELECTRONIC FORMU- 
LAS — Performs seven commonly 
used calculations including ohms law 
for DC circuits, voltage dividing/ 
dropping, series resistance, parallel 
resistance, series capacitance, and 
R/C time constant. 
DIPOLE ANTENNA— Designs a di- 
pole antenna for any frequency. 
YAG1 ANTENNA— Designs a three- 
element Yagi antenna for any fre- 
quency within the ham bands. 
Apple Disk Apple Soft 32K 0176AD 
$19.95 

Pet Tape Old and New ROM 8K 
0054P $14.95 

QA 

MANAGER 

A must for ham radio operators. 
Make and review log entries, print 
summary reports of all entries, and 
search your entire file for specific in- 
formation. Optional printing func- 
tion. 

TRS-80 Disk Mod I & Mod III 32K 
0151 RD $24.95 



SOLAR ENERGY 
FOR THE HOME 

For any homeowner seriously considering the ad- 
vantages and economics of solar conversion, this 
package will provide practical guidance by com- 
puting a potential cost/benefits comparison be- 
tween solar and conventional heating methods. 
SOLAR ENERGY even calculates the payback 
period to show if your contemplated investment 
will indeed save money. 
Apple Disk Applesoft 32K 0235 AD $34.95 



JJJ|PR0GN0STICAT0R 



Keeps updated records of all NFL teams each season and gives accurate 
predictions of winners and point spreads each week! Just type in game 
scores each week and you receive screen displays and/or printouts of cur- 
rent league standings, team stats and next week's winners! Get the "inside 
line" BEFORE the weekend! 
Apple Disk Applesoft 32K 01 45 AD $24.95 

ENEQGY audit 

ENERGY AUDIT Save money and energy with this very comprehensive and 
easy-to-use package. Answer all your important home energy conservation 
questions on the dollars-and-sensc level. Get a professional cost analysis 
BEFORE investing in expensive building materials. A favorite among energy 
consultants across the nation. A must for any conscientious carpenter, con- 
tractor, or home owner! (Disk version includes printer options) 

TRS-80 Tape Mod I & Mod III 16K 0089R $49.95 
TRS-80 Disk Mod I only 32K 0052RD $75.00 
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COMPRESSION 
UTILITY PACK 

Compact your BASIC programs into a 
smaller amount of memory— without 
sacrificing executable code! You get two 
super programming utilities that let you 
add all those little extras to your BASIC 
programs. 

* * COMPRESS —80 fits in 265 bytes, de- 

letes spaces and give your the choice 
of deleting or keeping REM statement 
line numbers in the program. 

* * SUPERCOMPRESS uses 767 bytes 

and packs your programs into the 
smallest possible number of multiple 
statement lines. 
TRS-80 Tape 16K 0246R $19.95 

DOSPLUS 3.4 



RENUM/COMPRESS 

Add these two powerful commands to your 
programming toolbox: RENUM allows you 
to expand program line number intervals 
and re-address as needed; and COMPRESS 
frees up memory space by reducing your 
program's space in RAM. 
TRS-80 Tape Mod I only 16, 32, & 48K 
0133R $14.95 

BASIC PROGRAMMING 
ASSISTANT 



ABE 

Accelerate your writing and editing of Basic 
programs with the Advanced Basic Editor. 
Dramatically improves your Basic editing 
and programming capabilities by providing 
such indespensible features as Formatted 
Screen. Global Search and Replace, Line 
Copy Ability, Assignable Keys, Called From 
Basic. Advance your skills as a programmer 
with ABE. 

TRS-80 Mod I 32K & 48K $19.95 
TRSDOS 2.3 or NEWDOS 80 v2 5026RD 

KEY COMMANDER 



Write and debug your programs better with Easy editing of programs and direct entry of 

this marvelous programming tool! List all graphics into Basic programs are yours with 

your program variables and ranges of this highly sophisticated yet easy to use util- 

variables: cross-reference GOTO & GOSUB ity package. Features On-screen Editing. 



The fastest, smoothest, easiest to use Disk > in c addresses: search your program listing Graphic Printer Statement, Assignable 

for specific BASIC function words; print Keys, and Total Flexibility. Automatically 
lines where any variable changes its value; relocates into high memory and protects it- 
and do much, much more-you're limited self in memory. Enhance the power and cap- 
by your imagination only. abilities of your keyboard! 
TRS-80 Tape Mod I Only 16. 32. & 48K T RS-80 Tape Mod I & Mod III 16K 5027R 
0203R $19.95 



operating system for your TRS-80! Jam- 
packed with powerful options: BASIC Array 
Sort. Tape/Disk— Disk/Tape Utility. Con- 
trolled Screen Input. Random Access and 
ASCII modification on Diskdump. BASIC 
Checks for Active "'DO - '. Backup and For- 
mat from a "DO*' file, and much, much more. 
Energize your operating system with DOS- 
PLUS 3.4! 

TRS-80 Mod I single density 5023R $ 149.95 
TRS-80 Mod I double density 5024RD $149.95 
TRS-80 Mod III 5025RD3 $149.95 



$29.95 



ENHANCED BASIC 

A comprehensive utility to add powerful new features to Level II 
BASIC: enhanced string handling capabilities, direct use of 
hexadecimal and octal constants, decimal to hexadecimal conver- 
sions, user defined functions in BASIC, the ability to call as many 
as 10 machine language subroutines from BASIC, a keyboard de- 
bounce routine, and the capability for remote keyboard operation 
from a cassette tape. 
TRS-80 Tape Model I only 16K 0077R $24.95 



PROGRAMMER'S PRIMER 

Learn and use the fundamental concepts of computer program- 
ming: decimal-to-HEX conversion: data storage; logic or program 
flow; sorting routines: and others. Presented in a pleasing and effi- 
cient format, sure to please any novice computer nut! 
TRS-80 Tape Mod I & Mod III 16K 0245R $14.95 



TRS-TESTS 

The easy-to-use diagnostic utility that lets you check your ROM for 
bad bits, keyboard for defective keys, data and address lines for 
clean signals, and perform a series of RAM diagnostic checks. A 
must for anyone interested in nuts-and-bolts TRS-80 systems 
maintenance! .' * J « 

TRS-80 Tape Mod I Only 1 6K 1 84R $1 4.95 
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Disk Scope 

Solve password mysteries, access riddles 
and relieve other disk-usting frustra- 
tions! This easy-to-use package lets you 
locate files on disks, display track and 
sector in HEX and ASCII, and gain access 
to any file by constructing a suitable 
password. Works on single density disks 
only. 

TRS-80 Disk Mod I Only 32K 139RD 
$24.95 



CASSETTE SCOPE 

"'Look" into your tapes! Locate lost, files 
and filenames; find load addresses and 
entry points; read and display all ad- 
dresses in HEX; do all of this quickly, 
easily and professionally! 
TRS-80 Tape Mod 1 Only 16, 32, & 48K 
0192R $14.95 



SUPER UTILITY PLUS 

The most powerful program of its kind! A 
Machine language, stand-alone program 
with its own I/O routine. No ROM or DOS 
calls. Works on single and double density 
systems. Features ZAP, PURGE, FORMAT, 
DISK COPY, TAPE COPY, DISK REPAIR, 
MEMORY, FILE, and CONFIGURE SYSTEM 
functions. Very sophisticated; menu driven, 
single RAM resident program. A must for 
every serious TRS-80 disk installation. 
TRS-80 Mod I & Mod III 48K 5022RD 
$74.95 



apple clinic 



The programming aids package 
for the Apple programmer: DISK 
DOC aids in documenting and 
maintenance of Apple DOS 3.2; 
APDOC helps APPLESOFT II pro- 
grammers: COMPARE documents 
the line-by-line difference between 
two versions of the same program. 
Apple Disk Applesoft 32K 268AD 
$29.95 



THE COMMUNICATOR 

Provides an excellent, but 
economical means of communi- 
cating between HOST and RE- 
MOTE terminals. Lets you orche- 
strate the functions of your re- 
mote keyboard, RS-232C output 
and input ports, and your host 
terminal video display. 
TRS-80 Tape Mod I only 10. 32 
and48K0126R $14.95 



EHchanger 

Manipulate and manage your magnetic 
media! Put your tape files on disk where 
they're easier to work with: put your disk 
files on tape for reasons of storage space and 
cost: manage your media with no mistakes! 
TRS-80 Disk Mod I Only 32K 248RD 
$24.95 




Super»Terminol 

Turn your ordinary TRS-80 into 
a Supcrtcrminal! Integrate all 
your microcomputer compo- 
nents with this super software. 
This package means SPEED: lets 
you simplify procedures for sign- 
ing-on, transmitting files, and 
communicating with any remote 
computer system. It means 
POWER: integrate and orche- 
strate all communication path- 
ways between your terminal and 
all peripherals. It means SIM- 
PLICITY: comprehensive Menus 
permit you to select from many 
options at-a-glancc. And it means 
VERSATILITY: make Special 
Command tables for arranging 
your various commands, make 
Control Key tables for adding 
previously inaccesible charac- 
ters, and— it is compatible with 
any DOS! Other super features 
include direct XYZ cursor 
addressing and screen, cursor 
and printer controls, a text 
editor, HEX conversion utilities, 
plus compatibility with all pre- 
sent ROMs and DOSs! Get speed, 
power, simplicity and versatili- 
ty — all in one super package! Re- 
quires RS-232C Interface. 
TRS-80 Disk Mod I & Mod III 32K 
5700RD $95.00 




'\ . ;we had tried several different telecom- 
munications packages, all which either did 
not meet our needs, or were insufficient in 
user friendliness. When we received 
SUPER»TERMINAL, it opened up an en- 
tirely new dimension to the things that we 
could do. Without your program, I fear that 
we would not have been able to manipulate 
information with the ease and confidence 
that we do now. Please continue to produce 
products of this quality." 

Bruce A. Bergman 
Micro Programmer/Analyst 
Seattle Pacific University 
Seattle, WA 98119 



DYNAMIC 
DEVICE DRIVERS 

Reprogram your keyboard, video display and printer to make them perform better for you! 

Customize the commands your computer sends to its components and add some helpful 

features to your system! 

TRS-80 Tape Mod I Only 16K 0228R $19.95 

TRS-80 Disk Mod I Only 16K 199RD $24.95 



DISK EDITOR 

Edit any track of any standard single-density disk in any drive: bytc-by-byte! Now you can read 
and write to otherwise inaccessible sectors; modify system files; search for any eight-character 
string; and print any video display. 
TRS-80 Disk Mod I Only 32K 180RD $39.95 

PROGRAMMER'S CONVERTER 

Convert decimal numbers to binary, octal or hexadecimal — and back again. You get 1) straight- 
forward conversions: 2) practice doing the conversions yourself: and 3) conversion quizzes. A 
great tool for beginning programmers! 
TRS-80 Tape Mod I & Mod III 16K 0058R $14.95 



LABEL 

Free yoursell from the tyranny of 
confusing line numbers! Label 
your BASIC program subrou- 
tines: GOTO 9105 becomes 
GOTO BUBBLE SORT ROU- 
TINE, for example. Write and 
debug your programs more effi- 
ciently! 

TRS-80 Tape Mod I & Mod III 16K 
0168R $24.95 
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TERMINAL-80 

Mug your TRS-80 terminal into 
the world! This package lets you 
use your computer from remote 
terminals, communicate with 
just about ANY other computer 
system via your modem, and 
even transfer program code over 
the phone! Requires Expansion 
Interface and RS-232 Serial In- 
terface. 

TRS-80 Tape Mod 1 & Mod III 16K 
0130R $24.95 




The tape-based disassembler that automati- 
cally assigns labels to machine language 
program routines. You can send the disas- 
sembly to your printer or save it on tape for 
editing and reassembly using Radio Shack's 
EDTASM. 

TRS-80 Tape Mod 1 & Mod III 16K 0230R 
$19.95 

ULTRA-MON 

The unique and powerful machine-Ian 
guage monitor that displays, disassembles 
traces (hardcopy trace disassembly, too!) 
modifies, relocates memory, prints and even 
relocates itself with simple commands 
Designed for the beginner as well as the pro 
fessional programmer. 

TRS-80 Tape Mod I & Mod III 16K 5003R 
$24.95 



ASSEM/ZSIM 

Assembly language programmers: solve all 
your programming problems from Assem. 
to Z-sim! ASSEM, the 3-pass editor/assem- 
bler, uses little RAM: provides a powerful 
line editor, is compatible with any parallel- 
port printer: and executes w/out modifica- 
tion on 16. 32. or 48K systems, w/1, 2. 3 or 4 
disk drives! And ZSIM, the machine code 
simulator/debugger, emulates instructions 
using simulated registers: displays mne- 
monics for each instruction using ASSEM's 
symbol table: works as well in ROM as in 
RAM! This package allows you to assemble 
directly to disk, tape or memory — directly 
from disk, tape or memory! Trace program 
execution through ROM to debug larger, 
more complicated programs with speed and 
accuracy! 

TRS-80 Disk Mod I only 32K 365RD 
$119.97 

ZSIM 

Debug larger, more complicated programs 
with this simulating, labelling debugger! 
Any debugger will enhance the usefulness of 
your assembler, but only ZSIM can make 
your programming tasks easier! ZSIM 
******* *RUNS machine code instructions 

one-at-a-time at your bidding: 
****F:MULATES the instruction using 

simulated registers: 
**INTERRUPTS the simulations when- 
ever any one of a large number of user- 
specified conditions are met: 
****DISPLAYS mnemonics lor each in- 
struction, using convenient labels: 
****** * LISTS register contents and corre- 
sponding memory locations. 
ZSIM works on ROM as well as RAM since 
you don't need breakpoints to retain execu- 
tion control (although breakpoint operation 
is also available). This is the best tool 
available to examine your code in DETAIL! 
TRS-80 Tape 16K0376R $29.95 



PET UTILITY I 

Two great programming aids for 
the PET enthusiast! With 
MONITR you can edit, save and 
verify any machine-language 
program while still having access 
to BASIC: and use the PRO- 
GRAMMER'S CALCULATOR as 
a floating-point calculator and to 
do decimal-binary-octal-hexa- 
decimal conversions! 
PET Tape Old and New ROM 
8K0105R $14.95 

UTILITY II 

Great programming aids former- 
ly available only in more expen- 
sive utility packages; search 
through any Level II tape to find 
filespecs, merge any two BASIC 
programs or any BASIC program 
w/one or more machine-lan- 
guage programs! 
TRS-80 Tape Mod I Only 16K 
0076R $14.95 





The disk-based diassembler that automati- 
cally assigns labels to machine language 
program routines. You can send the disas- 
sembly to your printer to say it on disk for 
editing and re-assembly using Apparat's 
extension of EDTASM 1 . 
TRS-80 Disk Mod I Only 32K 231RD 
$24.95 

THE DISASSEMBLER 

A single-pass, HEX-notation disassembler 
that sends output to tape or your line print- 
er: shows displacement and absolute ad- 
dress of any relative jumps made by the dis- 
assembled program; displays any ASCII 
characters used in an LP or CP opcode. 
TRS-80 Tape Mod I & Mod III 16K 0232R 
$14.95 



THE ELEMENTS 

Here's a more interestng approach to learn- 
ing the Periodic Table of Elements that every 
high school student will welcome. Quiz sec- 
tions provide questions and answers that 
deal with element names, atomic numbers, 
weights and symbols. The reference section 
gives all information for each element. 
TRS-80 Tape Mod I and Mod III 16K 0216R 
$17.95 

TRIANGLE TRIG 

Trigonometry made painless! Triangle Trig is 
a step-by-step guide to Triangular Geometry 
and Beginning Trigonometry that reviews all 
necessary mathematical skills. Abundant 
graphics, careful explanations, and practice 
using new skills in practical situations make 
this one of the best tutorial programs we've 
seen. Suitable for advanced upper-elemen- 
tary students through adults. 
TRS-80 Tape Mod I and Mod III 16K 0309R 
$19.95 
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Entertainment and education combined! Develop language skills us- 
ing these four fun programs. 

WORD RACE A game for two Grand Prix drivers who can define words 
quickly and accurately. 

HIDE N SPELL Spot the misspelled word before you lose any points. 
Then spell it correctly! 

SPELLING BEE Spell the word you hear on a cassette recorder and the 
computer will give you hints. 

SPELLING TUTOR The computer gives you hints: words spelled 
backwards, or with missing or mixed up letters. You spell the words 
correctly. 

Teachers and parents can easily put their own words and definitions 
in all these programs. Even German vocabulary can be fun! Interest 
level— age 6 through 12. 
TRS-80 Tape Mod I and Mod III 16K 0111R $14.95 
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PW1SS <5> TO STOP, LFJI MOI V TO BASE, CR <DfTB> FOR W. 

MATH MASTER 

Practice makes perfect. And now students 
get a chance to practice math skills at their 
own pace and on their own. MathCard 
presents addition, subtraction, multiplica- 
tion and division problems using the time- 
honored flash card method. MathFrac gives 
practice in adding, subtracting, multiplying 
and dividing fractions. 25 levels of difficulty 
are available for elementary through junior 
high school students. 

TRS-80 Tape Mod I and Mod III 16K 0257R 
$17.95 



CAPITALIZATION 

This educational program intro- 
duces and exercises the twelve 
rules of capitalization in English. 
Students can progress at their 
own pace. An optional Model 
Mastery worksheet is provided 
for student and teacher use. Rec- 
ommended for ages 12 through 
adult. 

Apple II Disk Applesoft 32K 
0339AD $24.95 

VIDEO SPEED- 
READING TRAINER 

Increase your reading efficiency! 
If you read like t-h-i-s, Video 
Speed-Reading Trainer can train 
you to quickly recognize letters 
and numbers so that you'll begin 
to read whole phrases at a glance. 
Advance at your own pace to in- 
creased speed with better reten- 
tion and recall. 
For ages 12 to adult. 
TRS-80 Tape Mod I and Mod III 
16K 0100R $14.95 




In reference to 

TRIANGLE TRIG 

[0309R]. . . 




"Excellent intro to Trig!!! Strongly suggest 
anyone who needs a review or who is plan- 
ning to take Advanced Math take this 
course." 

Laurence C. Lee 
Kansas City MO 64138 



POLYGONS 

Lots of graphics and careful explanations 
introduce students to regular polygons. The 
program then delves into these related 
topics: 

1. Circular approximation and calcula- 
tion of pi. 

2. Combinatorial associations of vertex 
points. 

3. Tesselation of the plane or "mosaics" 
using regular and semiregular pol- 
ygons. 

Suggested grade level— high school through 

adult. 

TRS-80 Tape Mod I and Mod III 16K 

0244R $14.95 




See pa K c 10 for the GEOGRAPHY EXPLORER SERIES and pane 11 for llic TYPING TEACHER 
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GEOGRAPHY EXPLORER SERIES 

Here are three programs that will turn your children's lessons into 
child's play. Essential geographical facts are presented in an entertaining 
manner with fun features like animated graphic rewards for correct 
answers. Practical features, such as lesson planning suggestions and 
study aids, assure the educational benefits of these superior programs. 
Disk versions provide an additional "Teacher Options" file that allows 
parents or teachers to choose question format, determine which facts a 
student can view, and select scoring methods. Upper elementary through 
adult. 

GEOGRAPHY EXPLORER: USA contains three lesson sets that 
include every state's location, capital, area in square miles, 
and population as well as other pertinent information. 
GEOGRAPHY EXPLORER: EUROPE and GEOGRAPHY EXPLORER: 
MID EAST provide three lesson sets that include each coun- 
try's name, government, chief export, language, geograph- 
ical features, and many other important facts. 

GEOGRAPHY EXPLORER: USA 
TRS-80 Tape Mod I and Mod III 32K 0086R $29.95 
TRS-80 Disk Mod I and Mod III 32K 007 1RD $49.95 

GEOGRAPHY EXPLORER: EUROPE 
TRS-80 Tape Mod I and Mod III 32K 0259R $29.95 
TRS-80 Disk Mod I and Mod III 32K 0121RD $49.95 

GEOGRAPHY EXPLORER: MID EAST 
TRS-80 Disk Mod I and Mod III 32K 0276RD $49.95 
TAPE NOT AVAILABLE 



TEACHER 

Create a computer teaching system for any 
subject! TEACHER allows you to record up to 
20 questions and answers per lesson. Stu- 
dents can then do these lessons independent- 
ly. You may choose to allow them to review 
the material beforehand, to receive hints, 
and to see animated displays as rewards for 
correct answers. 

TRS-80 Tape Mod I and Mod III 16K 
0065R $14.95 



TEACHER'S AIDE 

Teachers, parents and students themselves 
can record a sequence of questions with 
answers. Create your own lessons, quizzes, 
tests and learning games. Correct answers 
are rewarded by some very clever video 
animations. Revise/update your lessons at 
will. Save student score in separate limited 
access file! 

TRS-80 Disk Mod I & Mod III 32K 214RD 
S39.95 



omni 

One liter of gas is how many 
gallons? Convert one unit of mea- 
surement to another within each 
of 10 categories; length, volume, 
mass, velocity, area, density, 
power, energy, pressure and 
stress, and temperature. With all 
possible units within each cate- 
gory (including metric), the 
number of conversions you can 
do instantly is almost infinite. 
You can even print your results! 
Optional printer. 
TRS-80 Tape Mod I and Mod III 
16K 0200R $14.95 




GRADE BOOK 

Use the speed and accuracy of your com- 
puter to calculate student grades. Grade 
Book enables you to do the following 
without hassles. 

1. Calculate quarterly, monthly or other 
periodic averages using as many as five 
categories (tests, quizzes, homework class- 
work and projects). 

2. Calculate semester and yearly averages. 

3. Weight category and periodic scores, and 
convert raw scores to percentage points. 

(No printer option.) 

TRS-80 Tape Mod I and Mod III 16K 

0050R $14.95 



ARCHIMEDES' APPRENTICE 

Learn the formulas for determining the volume of 
various geometric figures and be quizzed on your 
new abilities. Shapes include parallelpipeds, 
prisms, pyramids, cylinders, cones and spheres. 
Suggested grade levels: 6 through 12. 
TRS-80 Tape Mod I and Mod III 16K 0092R $14.95 

SURVEYOR'S APPRENTICE 

Learn the formuals for finding the areas within 
various geometric figures — AND how to use these 
formulas! This excellent learning tool even pro- 
vides quizzes to sharpen your new skills to perfec- 
tion! 
TRS-80 Tape Mod I & Mod III 16K 0127R $14.9S 



omni 

CALCULATOR 

Three simple-to-use programs 
that enable you to measure, cal- 
culate and convert quantities 
with ease: 

ARCHIMEDES' APPREN- 
TICE Learn how to find the 
areas of three dimensional 
figures. (See package £0092R.) 
SURVEYOR'S APPREN- 
TICE Learn how to find the 
areas of two dimensional figures. 
(See package #012?R.) 
OMNICONVERTER Convert 
from one unit to another — effort- 
lessly. (See package #0200R.) 
TRS-80 Disk Mod I and Mod III 
32K0211RD $29.95 
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Learn Russian easily with this comprehensive language course. 
Learn to recognize the letters of the Cyrillic alphabet and practice 
pronouncing Russian words. As your skill increases, you'll ad- 
vance to the next section, conquering the basics of Russian step- 
by-step. 
TRS-80 Tape Mod I and Mod III 16K 0136R $14.95 




Now that you have the Russian alphabet down-pat with BEGIN- 
NER'S RUSSIAN (0136R), you can begin to speak EVERYDAY 
RUSSIAN. Quickly learn to read and speak necessary Russian 
words and phrases in the comfort of your home. You'll also learn 
the order of the Cyrillic alphabet for referencing in Russian dic- 
tionaries. Learning Russian couldn't be easier with this patient 
and never-tiring tutor. 
TRS-80 Tape Mod I and Mod III 16K 0137R $14.95 

i. KO*e 




Beginner's Russian and Everyday Russian are available together 

on one convenient disk. 

TRS-80 Disk Mod I and Mod III 32K 0212RD $29.95 

Apple Disk Applesoft 32K 0283AD $29.95 
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LOT WIND 

V. L FINGER BELOW <A> 

Xi R FINGER BaOU <S> 

f: n riNGER BELOU <D> 

V: 1 FINGER BELOU <F> 

fcs 1 FINGER BELOW <F> 



RIGHT WHO 

I FINGER BELOU U) 

I FINGER BELOU <J> 

h FINGER BELOU 00 

R FINGER BELOU (L 

I FINGER BELOU <: 



PRESS <EKTER> TO CCKTIHIC. 



You'll never have to hunt-and-peck again! A 
seven-part tutorial allows you to advance at 
your own speed, providing plenty of space 
for practice without wasting paper. On- 
screen displays keep eyes up and away from 
the keyboard to develop proper technique. 
There's no teacher more patient than this 
program. 

TRS-80 Tape Mod I and Mod III 16K 
0099R $17.95 




PET DEMO I 

7 exciting games — a new challenge 
for every mood. Gamble, shoot, race 
and chase as you enjoy SLOT MA- 
CHINE, CHASE, FLYING PHEAS- 
ANT, SITTING DUCKS, CRAPS, 
GRAN PRIX 2001, and FOX AND 
HOUNDS. Ages 7 through 
adolescence. Arcade. 
Pet Tape Old and New ROM 8K 
0035P $14.95 



DUNGEON OF DEATH 

Each step you take through the 12 levels of this 
diabolical maze brings you closer to the ultimate 
treasure. . . the Holy Grail. Hideous monsters and 
unspeakable dangers dog your every step. And 
once you find your treasure, you'll find yourself 
faee-lo-face with the most fearsome Smaug. Only 
those with supreme courage dare enter the 
DUNGEON OF DEATH. Adventure. 
PET Tape Old and New ROM 8K 0064P $ 1 4. 95 



CHIMERA 

A legendary fire-breathing creature; 
or six fearsome arcade games for your 
Pet. Think quick and challenge your 
reflexes with DRAGON, DRAGON 
HUNT, DUNGEON, DROPOFF, 
REFLEX, and BATTER UP. Ages 7 
through adolescence. 
Pet Tape Old and New ROM 8K 
0110P $14.95 



HOUSE OF 
30 GABLES 

Tread softly as you enter the mysteri- 
ous House of Thirty Gables. Inside 
awaits golden treasure for the stout of 
heart. But beware! Serpents, dragons 
and trolls lurk within, ready to trap 
the unwary stranger. Adventure. 
TRS-80 Tape Mod I and Mod III 16K 
0219R $14.95 



S3QLF 

Sit back and enjoy a rugged, 
challenging 18 hole game of golf! Get 
a complete choice of clubs and 
shooting angles — and let your com- 
puter keep score for you! For one or 
two players. 

Apple Tape Applesoft 16K 0018A 
$14.95 



TURF AND TARGET 

Here's the perfect package for the 
sportsman! Catch all the action — 
even when it's 20 below — with 
QUARTERBACK, SOCCER II, 
SHOOT, and TARGET. Ages 8 
through adolescence. Arcade. 
Pet Tape Old and New ROM 8K 
0097P $14.95 

NIGHT FLIGHT 

Dangerous photo- rccon missions await as you 

wing your way through the murky night with only 

your instrument panel to guide you. This program 

lets you takeoff, land, and fly in a simulation so 

real we've included the basic principles of flight in 

the instructions. 

TRS-80 Tape Mod I and Mod III 16K 0117R 

$14.95 

Apple Disk Applesoft 32K 0304 AD $24. 95 
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Takeoff, intercept the enemy, navigate to the 
airport or carrier, and land. Jet Fighter Pilot 
takes you as close to real combat flying as possi- 
ble. . . without pulling G's. A challenge you will 
never outgrow — Jet Fighter Pilot offers you 
more commands and controls than any other 
flight simulation we know of! Simulation. 
TRS-80 Tape Mod I and Mod III 16K 0159R 
$14.95 
Apple Disk Applesoft 32K 0329 AD $24.95 



Z-5G aeons 

An excellent version of computer 
checkers that has some outstanding 
features unavailable elsewhere: seven 
different skill levels, a board Editor, a 
practice mode, and more! 
TRS-80 Tape Mod I & Mod III 16K 
0310R $14.95 



T\ 



MUSIC MASTER 

Turn your computer into an electronic organ 
and play music using this quartet of programs. 
MICRO ORGAN Your computer keyboard 
becomes an organ keyboard. 
KALEIDOPY A combination of a kaleidoscope 
and a player piano . . . Watch while the com- 
puter creates a pattern and plays it as music. 
COMPOSER Generate quasi-random music 
with a repeating refrain. 

KEYMANIA Compete to reproduce the greatest 
number of notes generated by your computer. 
TRS-80 Tape Mod I and Mod III 4K 0084R 
$14.95 



PERFECT 
PONG 

Ping Pong has entered the space age! 
Turn your computer into a fast-paced 
action machine. Hit the "ball" with 
your paddle — don't let it disappear 
off the screen! Choose from 8 dif- 
ferent game boards. Arcade 
TRS-80 Tape Model I only 16K 
0120R $14.95 

Domes 
of Kilgari 

You are doomed to the lonely wasteland of the 
planet Kilgari forever — unless you can penetrate 
the Digitron Ion Station, (which is programmed to 
destroy all intruders) and retrieve an Ion rod to 
replenish your fuel supply. Puzzles and mazes 
abound in this high-caliber adventure. 
TRS-80 Tape Mod I Only 16K 5014R $19.95 
TRS-80 Disk Mod I Only 32K 5015RD $29. 95 
TRS-80 Disk Mod III 32K 5016RD3 .$29.95 



romc 

A fast action memory game that tests 

your concentration and reflexes. Your 

computer flashes number sequences 

and you repeat them within the time 

limit. With three skill levels and 

sound effects option. 

TRS-80 Tape Mod I Only 16K 0066R 

$14.95 

PET Tape Old and New ROM 8K 

0039P $14.95 

Apple Tape 16K 0025A $ 1 4. 95 

HOOPTEDOODLE 

8 entertaining programs for you and 
your PET to enjoy. Among the many 
feats you'll be challenged to ac- 
complish are to. . .make your way 
through a seemingly endless maze 
and avoid the monster within, cross 
treacherous mine fields, and fly dan- 
gerous bombing missions. Great for 
children. Arcade. 

PET Tape Old and New ROM 8K 
0091P $14.95 



TEIT1PLE 
OF THE SUH_ 

You have discovered the ancient ruins of the long 
lost Temple of the Sun. Hidden in the under- 
ground chambers are treasures beyond your wild- 
est dreams and the key that unlocks the magical 
powers of the Shamon, an order of supremely 
powerful wizards. Adventure. 



TRS-80 
TRS-80 
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Tape Mod I O nly 50 1 2R $19.95 
Disk Mod I Only 501 1RD $29. 95 
Disk Mod III 5013RD3 $29.95 

THE BUSINESS GAME 

Play the game of tough-minded 
business persons. This game simu- 
lates an actual period in U.S. eco- 
nomic history; you manage your 
business by making hard decisions, 
bargaining, competing and (hope- 
fully) succeeding! It's fast, challeng- 
ing, rewarding and entertaining. 
Let us give you the Business! 
TRS-80 Tape Mod I & Mod III 16K 
0158R $14.95 
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A dynamic duo of popular games: GOMOKU, 

the ancient oriental board game of strategy and 

a three-dimensional version of tic-tac-toe. 

Choose among different board sizes for even 

more challenge! 

TRS-80 Tape Mod I & Mod III 16K 0210R 

$14.95 

PET Tape Old and New ROM 8K 0038P 

$14.95 



ARCADE I 

Here's a package sure to please whether you like 
your fun in or out-of-doors. 
KITE FIGHT You'll find high-flying excitement 
in this computer version of a sport the people of 
Japan and India have enjoyed for centuries. 
PINBALL combines the superb graphics of the 
PET and the classic features of arcade pinball to 
provide a game so real, all you'll miss is the TILT. 
Audio amplifier and speaker required for sound. 
PET Tape Old and New ROM 8K 0074P $ 1 4. 95 

ARCADE II 

Challenge your memory and sharpen your reflexes 
with this package that offers something for 
everyone. Catch the elusive UFO before it gets 
away. HIT the target, if you can aim while your 
moving. BLOCKADE Skill and strategy are nec- 
essary to block your opponent's path without let- 
ting him block yours. 
PET Tape Old and New ROM 8K 0045P $ 1 4. 95 



swaav? war 

You are stranded on a wet and definitely unwon- 

derful waterworld inhabited by some pretty slimy 

swamp creatures. Your only hope is to get the parts 

from the abandoned transporters located on the 

nearby islands to make repairs. This might not be 

an easy task, seeing as how a lot of crud and 

creatures stand between you and these spare parts. 

Do your best to rid the islands of their inhospitable 

inhabitants, collect all transporters, and get outta 

town! 

Joysticks optional. 

TRS-80 Tape Mod I and Mod III 16K 0312R 

$14.95 
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A collection of our most popular games. 

SANTA PARAVIA (see program #0043R) Take the reins of this medieval 
city-state and control the lives of the serfs who produce the wealth of the 
realm. Your title and domain will increase if you rule well. 
OIL TYCOON (see program #0023R) Two players compete to become 
top oil magnate in this game of strategy and luck. 
I'AIiADISE TRADER As captain of a trading schooner, you sail your 
ship about the Carribean acquiring valuable cargo, while you attempt to 
avoid pirates, ghost ships, and hurricanes. 

MILLIONAIRE Can you turn $1000 into $1,000,000 in 15 years? It 
depends on your financial finesse in business dealings as you buy and sell 
properties, negotiate bank loans, collect rentals and accept bids. 
TIMBER BARON Shrewd strategy is the key to your success as you at- 
tempt to avoid the many hazards of this profitable industry. 
BATTLEGROUND (see program 0141R) You and your opponent com- 
mand Allied and Axis forces in this World War II simulation. Find out if 
you're the stuff generals are made of. 
TRS-80 Disk Mod I and III 32K 0213RD $34.95 



Two highly entertaining games that challenge 
your deductive powers. In WHO DUN IT? you're 
the crack detective who must investigate and solve 
any of five dastardly crimes. The second game, 
EDUCATION, is a game of logic that tests your 
deductive skills! 

TRS-80 Tape Mod I & Mod III 16K 0047R 
$14.95 



MENTAL GYMNASTICS 

Challenge your mind with these ancient games 
REVERSI— An Othello 11 — type game 
WARI — A real test of mental concentration. 
Adolescence through adult. Strategy. 
Heath Tape Renton Harbor BASIC 8K 
0087H $14.95 

OIL TYCOON 

Test your skill at money making as an 

oil magnate. Strategy and fate decide 

whether you'll increase your millions 

by out-drilling and under-selling your 

competitor, or lose your fortune to an 

oil spill. Two players. 

TRS-80 Tape Mod I & Mod III 16K 

0023R $14.95 

Apple Tape Applesoft 16K 

0079A $14.95 
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It's late 1944 and the Allied Forces are sweeping 
toward Berlin. As the commander of your sec- 
tor, you control tanks, planes, artillery, infantry, 
engineers, bunkers, and vehicles. The battle map 
shows how you have chosen to deploy your 
forces. Shoot, attack, drop paratroopers, lay 
mines. For two players. 
Strategy. 

TRS-80 Tape Mod I and Mod III 16K 0141R 
$14.95 



MOUNTAIN PILOT 

The fast buck can still be made . . . but 
there's a price. If you can bring sup- 
plies to the desperate miners of Gold- 
town, you'll be paid well. Your return 
trip with the gold boullion is the real 
payload though. The catch? Can you 
make it through treacherous Eagle 
Pass not once, but TWICE?! Simu- 
lation 

TRS-80 Tape Color Computer/Ex- 
tended BASIC 0370RC 16K $1 9. 95 
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Enter the castle of Blackheart Flamethrower, the 
last of the magnificent wizards who's magical pro- 
wess has conquered even death. Many have tried 
to penetrate this fortress but none survive to tell 
the story of the treasures and terror that await 
therein. Adventure. 

TRS-80 Tape Color Computer 16K 5020RC 
$ 19.95 
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Here are 5 games that will keep the younger members of the family and 
their friends playing for hours. 

3-D Tic-Tac-Toe You can play on the traditional 3x3x3 board or try 
the more difficult 4x4x4x4 version. Four levels of play. 
Haunted House Escape the Haunted House by finding the right curse 
against resident ghosts, vampires and werewolves. 
Shoot-out You and a friend compete to see who's fastest on the draw. 
Frog Mountain Help Freddy the frog catch his lunch of bugs and butter- 
flies and rack up your points. 

Vegas Here's a solt machine you and your friends can play without put- 
ting in a penny. 
TRS-80 Tape Mod I Only 16K 0172R $ 1 4. 95 




BALL TURRET GUNNER 

Fight back against the Petro Giants that threaten 
your existence! Enter the elite service of the BTG; 
maneuver your laser cannon; destroy the invading 
gnat ships — just hope that you're equipped to deal 
with conditions in your space-zone. Fast action 
that's part of a tense interstellar drama! Arcade. 
Sound. 

TRS-80 Tape Mod I and Mod III 16K 0051R 
$14.95 
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Master Reversi 

Overcome all barriers standing between you and an Othello champion- 
ship. Match your wits against a topnotch, tournament-winning program. 
"Reversi" is an ancient board game that challenges you to bracket your 
opponent's piece and reverse them so your color shows. Master Reversi is 
special because it allows you to analyze your moves as well as the com- 
puter's moves and the games in amazing depth. No other program offers 
so many ways to improve your game. Master Reversi will challenge you, 
teach you and bring you innumerable hours of fun, no matter what your 
degree of expertise! 
TRS-80 Tape Model I and III 16K 0417R $79.95 

MASTER REVERSI— Disk Version 

All the features described for Master Reversi are contained on the disk 
PLUS you get a library of tournament games that you can study and 
even replay. 
TRS-80 Disk Models I only 16K 0378RD $24.95 
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IQ TEST 

There aren't too many of us who can 
justifiably claim to be a genius, but 
here's your chance to find out if your 
hunch is right. IQ Test will adminis- 
ter and score an intelligence test in 
just 30 minutes. While we wouldn't 
suggest you use this program in place 
of the tests administered by trained 
psychologists, you'll find them suffi- 
ciently accurate to be fun and enter- 
taining. 

TRS-80 Tape Mod I and Mod III 16K 
0157R $14.95 



Two devilishlv-intricate games for <fc* 



games 

the math-minded: MIND TWIST 
gives you a number series for which 
you must determine the correct for- 
mula; and MIND BENDER is a mul- 
ti-level code game in which you must 
guess the next number in your com- 
puter's "secret" numeric sequence. 
The game theoretician's delightl 
TRS-80 Tape Mod I & Mod III 16K 
0118R $14.95 



The princess has been captured and you, faithful 
knight, must safely deliver her from the clutches of 
the most fearful Smaegor, monarch of dragons. 
Locate the weapons, charms, and tools you need 
to accomplish your task, but act quickly, for 
Smaegor dines when the sun sets. Adventure. 
TRS-80 Tape Mod I and Mod III 16K 5006R 
$ 15.95 

TRS-80 Disk Mod I and Mod III 32K 5010RD 
$21.95 




INVESTOR'S PARADISE 



Right 
Simulation 



Takeoff, land, use flight instruments and perform 

daring aerial stunts. This simulation reproduces all 

the basic flying characteristics of a light aircraft. Do 

your crashing now — before you try the real thing! 

TRS-80 Tape Mod I and Mod III 16K 0017R 

$14.95 

Apple Tape Applesoft 16K 0148A $14.95 



Experience all the thrills and triumphs of the stock market without risking a 

dime. 

STOCK TREK Can you transform $5000 into a fortune in just 12 short 

months? Only if you possess the financial savvy to invest wisely and read the 

market right. Play with up to 5 other investors. 

SPECULATION Short of actually investing real cash, this is the closest you 

can come to playing the stock market. Start with up to $10,000 and an equal 

amount deposited in a savings account, then make your money work for you. 

Big risks can mean big gains, and just as well, big losses. 

Both simulations are a great way to learn all about the stock market and 

preview your money-making abilities before you attempt the real thing. 

TRS-80 Tape Mod I and Mod III 16K 0125R $14. 95 

RAMROM PATROL 

The Space Age has begun! But with new universes 
to explore come new dangers to combat in this 
package of exciting children's games. 
RAMROM PATROL Defend the earth by shoot- 
ing down the enemy ships. 
TIE FIGHTER Man your X-wing fighter to 
destory the Empire's dreaded Tie Fighters. 
KLINGON CAPTURE Capture the newest batde 
cruiser, the pride of the Klingon's fleet, without 
destroying it! 

TRS-80 Tape Mod I and Mod III 16K 0028R 
$14.95 




DANGER 
IU 

DRBIT 




Nerves of steel and lightning reflexes 
will enable you to blast the alien ships 
and destroy the asteroids! Watch out! 
Your antimatter cannon fire will split 
the asteroids into smaller and smaller 
bodies that can still destroy your 
spaceship. The action game for ac- 
tion-lovers! Arcade. Sound. Joysticks 
optional. 

TRS-80 Tape Mod I and Mod III 16K 
0237R $19.95 

TRS-80 Disk Mod I and Mod III 16K 
0247RD $24.95 




Seepage 14 for DANGER IN ORBIT, page 15 for ALIEN ATTACK FORCE and SANTA PARAVIA AND FIUMACCIO, page 16 for 
SKYBOMBERS, KITCHEN SINK and FLIGHT PA TH. 



Talk to a brilliant psychoanalyst — 
he'll listen em pathetically and re- 
spond on your computer screen. He 
can coax your innermost feelings out 
of you. Dr. Chips is also a great ice- 
breaker at cocktail parties and a na- 
tural way to introduce your noncom- 
puter friends to the computer. 
TRS-80 Tape Mod I and Mod III 16K 
0218R $14.95 

Apple Disk Applesoft and Integer 
32K0254AD $19.95 

DOODLES & 
DISPLAYS II 

Six creative graphics programs in one 
package: DOODLE PAD lets you 
draw pictures and save them on tape; 
SYMMETRICS is a computer kalei- 
doscope; DRAWING is for the serious 
computer artist; RANDON PAT- 
TERN DISPLAY makes your com- 
puter do the artwork; MATH 
CURVES brings geometry lessons to 
life; and RUG PATTERS helps you 
design rugs and just about anything 
else! 

TRS-80 Tape Mod I only 16K 
0042R $14.95 



14»lnstant Software, Inc. 1982 



Santa Parauia 
and Fiumaccio 

You control grain harvests, set tax rates, and exer- 
cise justice in your attempt to increase your title 
and turn this insignificant city-state into a power- 
ful kingdom. A classic strategy game that teaches 
modern economics in a medieval setting. 
TRS-80 Tape Mod I & Mod III 16K 0043R 
$14.95 

Apple Tape Applesoft 48K.0174A $14.95 
Pet Tape Old and New ROM 16K 0175P $14.95 
TI 99/4 Tape 16K 0273TI $ 1 4. 95 
Atari Tape 800 32K 0353AT $ 14.95 




si'aiuciiiy 

o»auuxih:i? 

You have read about those brave men defending 
their ancient castle with a Kitchen Sink (see pro- 
gram #0386RD) and other oddments. Now the 
other side of the story can be told. Choose your 
strategy to guide your troops safely to their nesting 
ground amidst the barrage of shells, safes, and 
even kitchen sinks that their merciless enemies, the 
Cloud People, rain down upon them. As fearless 
leader of the sparrows, you can make the differ- 
ence between sparrow survival and bird oblitera- 
tion. Now you can experience the feeling of raw 
power as the brain behind the birds — the brave 
SPARROW COMMANDER. Arcade. Sound. 
TRS-80 Disk Mod I and Mod III 32K 0387RD 
$19.95 



MINOTAUR 

Co far into the future to meet the past! The 
Labyrinth of ancient Crete has been recreated 
by the diabolic king of the planet of New Crete. 
The intended victims are your clones! — Your on- 
ly source of wealth and prestige! Become a Lord 
Citizen of the forbidding planet. Strategy. 
Sound. 

TRS-80 Tape Mod I and Mod III 16K 0318R 
$14.95 

PADDLE FUN 

Four action-filled games challenge your prowess. 
ALIEN ATTACK FORCE Destroy the 55 in- 
vading flying saucers before they destroy your 
antimatter gun. 

SPACE WARS Try to disable your friends flying 
saucers. . . 

HOWITZER Aim accurately and choose the op- 
timum firing velocity. Destory the enemy's gun! 
Apple Disk Applesoft 32K 0163AD $19.95 



LIFE 



Creation made easy! With this educational pro- 
gram your computer becomes a mini-laboratory. 
You can study the life cycle of cellular colonies 
choosing the formations you wish to observe, and 
even experiment with cell structures of your own 
invention. Ages 12 to adult. 
TRS-80 Tape Mod I Only 16K 0078R $14.95 
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A quick wit and reflex are required by players in 
this space odyssey where you must do unto 
others before they do unto you. For each Quelon 
space ship you miss, precious units of your 
energy supply will be drained resulting in the 
loss of life and limb of said player. Fast real-time 
action, optional sound and remarkable graphics 
put this machine language program at the head 
of its class. Arcade. Joysticks optional. 
TRS-80 Tape Mod I and Mod III Sound Option 
16K0223R $19.95 

TRS-80 Disk Mod I and Mod III Sound Option 
16K 0224RD $24.95 



ALIEN 

ATTACK 

FORCE 

With all of Earth s defenses dead, you 
are the last vestige of hope for the 
planet as hundreds of armed invaders 
make their way to attack. Nine levels 
of difficulty continue to challenge you 
as your skills increase. Arcade. Joy- 
sticks optional. 

TRS-80 Tape Mod I and Mod III 16K 
0240R $14.95 



Master 
Reversi W 




See page 12 for SWAMP WARS and JET FIGHTER PILOT, Page 13 for BALI. TURRET GUNNER and MASTER REVERS1, page 14 for 
AIR PLIGHT SIMULATION, page 15 for COSMIC PATROL and. page 16 for SPACE SHUTTLE. 
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SPACE 
SHUTTLE 



Experience the Ultimate Flight. 
Command the next launch of the 
space shuttle Columbia; its orbit, re- 
entry and landing procedures are all 
in your control. A NASA engineer 
says this simulation is quite close in 
design to the one astronauts use for 
training! 

TRS-80 Tape Mod I & Mod III 16K 
0332R $19.95 



In reference to 
MISSION-MUD 
[0235RD] . 



"Grand-kids love it." 

Gerry Gervais 
Morra NY 12957 




KITCHEN 

SINK 



FLIGHT 
PATH 

These three tantalizing flight games will whet 

your appetite for aviation: 

MOUNTAIN PILOT Fly over Eagle pass, (See 

package #0362AD). 

PRECISION APPROACH RADAR Land a 

UFO! (See package #0362AD). 

OH ARE Be in charge of the control tower of a 

busy airport. Direct the speed and approach of 

20 planes. The safety of each person aboard 

depends on your skill! Simulation. 

TRS-80 Tape Mod I and Mod III 16K 

0171R $14.95 



Mission: 





Defend the Earth base city by destroy- 
ing the approaching Mud Monsters and 
the slimy Mud Patch they inhabit. Mis- 
sion: Mud is not just another arcade 
game. Like a chess game in which the 
pieces have weapons, it combines the 
challenge of strategy with the excite- 
ment of chance. Arcade. 
TRS-80 Disk Mod I and Mod III 32K 
0325RD $19.95 



As commander of the castle-in-the-clouds, you 
must destroy the invading sparrows using every- 
thing you have, including the kitchen sink. Plan 
your strategy wisely: you may shoot, bomb, and 
ram with maneuverable boats. But your weapons 
and your time are limited! The perfect fast-action 
strategy game for those who aren't satisfied with 
mindless shooting. Arcade. Sound. 
TRS-80 Disk Mod I and Mod III 32K 0386RD 
$19.95 ___________ 

AIRMAIL PILOT 

Fly your Jenny biplane from Colum- 
bus to Chicago before the deadline. 
You need only avoid running out of 
gas, being struck by lighting, crashing 
in a down draft, missing the run- 
way, .... Challenge your reflexes. 
Remember, the mail must go 
through! 

TRS-80 Tape Mod I and Mod III 16K 
0106R $14.95 

T.I. Tape T.I. 99/4 16K 0274TI 
$14.95 

DAREDEVIL 

Six super-fast arcade games that challenge your 
skill and stamina. Be a ski racer, a bob sledder, an 
anti-aircraft gunner and get a choice of three bril- 
liant auto racing programs. Up to 10 people can 
play! With sound effects option. 
TRS-80 Tape Mod I & Mod III 16K 0082R 
74.95 



SKYBOMBERS II 

Air warfare becomes vivid reality as you and an 
opponent command fighter bombers agaiast each 
other. You must first fly over the treacherous 
mountain that separates your countries before you 
bomb the enemy blockhouse into oblivion — that is 
if you're pilot enough to escape enemy fire along 
the way. Game paddles required. Arcade. Sound. 
Apple II Tape Applesoft and Integer 32K 0183A 
$14.95 

Apple II Disk Applesoft and Integer 32K 
0271 AD $24.95 
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Five fun-filled programs provide amusement and challenge for every 
family member. 

MIMIC How good is your memory? Your computer will display a series 
of graphic figures you must be able to repeat. Five levels of difficulty for 
continuous challenge. 

AIR FLIGHT SIMULATION You're flying blind, depending solely on 
your instrument panel. Watch closely, it's your only clue to your position 
as you take off, climb, descend, and land in this realistic simulation. 
COLORMASTER This brainteaser will sharpen your power of deduc- 
tion as you attempt to guess the four colors and the sequence chosen by 
your opponent or the computer. 

STAR SHIP ATTACK Defend the orbiting supply satellites from the in- 
vading enemy or the planet is doomed! 

TRILOGY A fascinating contest of logic, based on the game of tic-tac- 
toe, using colors and a three-dimensional grid. Compete with a friend or 
the computer. Arcade. 
Apple II Disk Applesoft 32K 0161AD $19.95 
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Seven favorite flight programs combine to excite 

aviation enthusiasts. 

AIR FLIGHT SIMULATION Fly a light plane. 

(See package #0017R.) 

AIRMAIL PILOT Get the mail through. (See 

package #0106R.) 

MOUNTAIN PILOT Fly over Eagle pass. (See 

package #0362AD.) 

JET FIGHTER PILOT Intercept the enemy. (See 

package #0159R.) 

PRECISION APPROACH RADAR Land a UFO! 

(See package #0362AD.) 

O'HARE Guide the pilots in safely. (See package 

#0171R.) 

TRS-80 Disk Mod I only 32K 0205RD $39.95 



& 



w 



&& -or 



o.^ 



$* 



CJ 



« 



or 




From Wayne Green, Inc.— publishers of 80 Micro, Microcomputing and Desktop 

Computing- 

conies ^^P^^^ M inCider premiers this winter and will expand the 

limits of your Apple like 80 Micro has blown 
the lid off the TRS-80. 



Lrreen,inc— publisner? 

Oder 



Not just another Apple magazine-but a com- 
prehensive system specific monthly filled 
with. . . 

•programs 

•software applications 

•hardware modifications 

•reviews 

• new product announcements 

•advertising 

•tutorials 

•games 

. . . written by technically competent editors 
and columnists. inCider is designed to pro- 
vide you with the newest and best for your 
Apple. 

Want to know the easiest way to get the kinks 
out of your programs? inCider will show you. 
Want to know which peripherals have the 
best history and the brightest future? inCider 
will tell you. Want to expand your knowledge 



f£ 



of hardware? Or become an expert program- 
mer? Want to discover which word proces- 
sors give you the most for your money? Or 
how your Apple can better manage your 
financial affairs? inCider will answer these 
and many other questions each month. 

The inaugural issue of inCider will be avail- 
able in early December. And you can become 
a Charter Subscriber to inCider for only 
$19.97! Fill out the attached reply card and 
drop it in the mail, or use the coupon below. 
Or call toll free 

1-800-258-5473 
And here's a special bonus offer: enclose pay- 
ment (check or credit card §) with your order 
and you'll receive a 13th issue of inCider ab- 
solutely free! 

Be an inCider and get more useable informa- 
tion for your Apple than you ever dreamed 
possible. 
Subscribe to inCider today. 

'Apple is a trademark of Apple Computer Inc. 



ider 



Y-EjS, I want to be an inCider. Send me 12 issues for only $19.97. 



D CHECK □ MC □ VISA □ AE ["] BILL ME 

Card! 



□ I have enclosed payment-please put me down for 

my free 13th issue. 



Interbank 
Signature . 
Name 



_Exp. date 



Address . 
City _ 



_Srate_ 



_Zip_ 



Canada and mexico- $22 97, 1 year only U.S. funds 

I oteign Surface— S39.97, 1 year only U S funds drawn on 

U S. bank 

Allow (>-8 weeks for delivery 

inCider 
PO Box 911 

Farmingdale, NY 1 1737 331 csw 
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WAYNE GREEN BOOKS 




KILOBAUD KLASSROOM 

by George Young and Peter Stark 

Makes learning electronics fun and easy. First published as a series in Kilobaud Microcomputing, the 
book combines the learning of essential theory with practical, hands-on experience. The course begins 
with basic electronic projects and culminates in the construction of your own programmable 
microcomputer. The direct instructional methods of authors Young & Stark make KILOBAUD 
KLASSROOM a simple way for you to acquire a solid background in digital electronics. 

BK7386 (419 pages) $14.95 
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SELECTRIC INTERFACE by George Young 
You need the quality print that a daisy wheel printer provides but the thought of buying one makes 
your wallet wilt. SELECTRIC™ INTERFACE, a step-by-step guide to interfacing an IBM Sclectric 
I/O Writer to your microcomputer, will give you that quality at a fraction of the price. George Young, 
co-author of Kilobaud Microcomputing magazine's popular "Kilobaud Klassroom" series, offers a 
low-cost alternative to buying a daisy wheel printer. SELECTRIC INTERFACE includes: step-by- 
step instructions, tips on purchasing a used Selectric, information on various Sclectric models, in- 
cluding the 2740. 2980. and Dura 1041, driver software for Z80, 8080. and 6502 chips, tips on inter- 
facing techniques. With SELECTRIC INTERFACE and some background in electronics, you can 
have a high-quality, low-cost, letter-quality printer. Petals not included. 
BK7388 (125 pages) $12.97 



TEXTEDIT 

A Complete Word Processing System in Kit Form 
by Irwin Rappaport 

TEXTEDIT is an inexpensive word processor that can be adapted to suit your differing needs — from 
form letters to lengthy texts. Written in TRS-80 Disk BASIC, the system consists of several modules, 
permitting the loading and use of only those portious needed. A disk is also available which provides 
the direct loading of the modules, however, the book is required for documentation. For Model I and 
III with TRSDOS CONVERT. , one disk drive (2 disk drives or copy utility needed to traasfer to system 
disk). Runs under TRSDOS 2.2/2.3. May not function under other systems. 

BK7387 (book, 90 pages) , $9.97 

DS7387 (disk) $19.97 

Disk is manufactured by Instant Software, a division of Wavne Green Inc. 



TEXTEDIT 

a complete 
wordJ>roces,jng 
system in kit 
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Irwin Rappaport 



A WAYNE GREEN 
PUBLICATION 





ANNOTATED BASIC 

A New Technique for Neophytes 

Put your BASIC knowledge to work for you with this 2- volume set of TRS-80 Level II BASK] pro- 
grams. Gain a better understanding of the elements and techniques involved in programming. AN- 
NOTATED BASICS uniquely designed format breaks each program down for you to include: initial 
documentation and iastruction, definitions of New BASIC Concepts, flowchart, annotations of sec- 
tions, showing how each part fits into the whole, and explaining why certain BASK; commands arc 
chosen over similar ones. 

Using the programs as they are or modifying them to sharpen your programming skills. ANNOTAT- 
ED BASIC is a helpful tool for any BASIC programmer. 

BK7384(VoI. 1,152 pages) $10.95 

BK7385(Vol. 2, 136 pages) $10.95 




COMPUTER CARNIVAL by Richard Ramella 

Your child can become a craekerjack computerist with (he sixty TRS-80 Level II pro- 
grams in COMPUTER CARNIVAL. This large-type, spiral bound book for beginners 
is a veritable funhouse of games, graphics, quizzes and puzzles. Written by 80 Micro 
columnist Bichard Bamclla, the programs are challenging enough to ensure contin- 
ued learning, yet short enough to provide your child with the immediate delight and 
reward of mastering basic computing skills. And for even greater enjoyment, get the 
CABNIVAL COMPANION, a 30-minute cassette containing all the programs in the 
book. Eliminates tiresome typing and lets your child spend more time enjoying the 
programs. 

BK7389 Book (218 pages) $16.97 

GG7389 Book & Cassette "Carnival Gompanion" $24.97 
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FOR TOLL-FREE ORDERING CALL 1-800-258-5473 
WAYNE GREEN BOOKS»PETERBOROUGH NH 03458 

Itemize your order on a separate piece of paper and mail to Wayne Green Books, Att: Sales, Peterborough, NH 03458. Be sure to include check or 
credit card information. (Visa, MCor AMEX accepted.) NoC.O.D. orders accepted. All orders add $1.50 for the first book, postage and handling; $1 
additional book; S10.00 per book foreign air mail. Please allow 4-6 weeks after publication for delivery. Questions regarding your order? Please 
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18»lnstant Software, Inc. 1982 



DEALERS UNDER THE SUN ACROSS THE 

U.S.A. 



ALABAMA 

Annlston, KE 
Birmingham, t HI COMP 



ANDERSON COMPU 1 ERS 
llomtvond, VII. I AC.I < OMPUTERS 
Huntsville. ANDERSON COMPL IERS 
Mobile. OLFNSKY BROTHERS 
Stapicton. RADIO SHACK 
Tuscaloosa. THE COMPUTER ROOM, INC 
ALASKA 

Audio-age (OMPl. IFR IAI K 
Juneau, IUNEAU El ECTRONICS 
ARIZONA 

Mw. MLSA ELECTRONICS 
Mesa, MILLET'S ELECTRONICS 
Mesa, PERSONAL COMPUTER PI.AC E 
Phoenix. C 1. K I- 
Phoenix. ( OMPUTER STORE 
Phoenix, KINGS MICRO El BCTRONK SPEC 
Phoenix, PROFESSIONAL OAT A SYSTEMS 
SaEfsru \UMIIl c 1 RONICS 
Sierra X „i d , ADVlMURIt HOBBIES 



COMPUTER SYSTEMS. INC 
NIC 



Si si RUSALEM ELECTRONICS 
Tscsen, MMl IFk COMPUTER PRODUCTS 
CALIFORNIA 

Albany, ALBANY TYPEWRITER SERVICE 

B,-i:-:„..,-< IHF SOFTWARE AFFAIR 

Camarillo. COMPUTER HORI/.ONS 

Chatsworih. OPPORTUNITIES I OR LEARNING 

Chini SILVER SPUR ELECTRONICS 

Clm Height.. I1YTI SHOP 

< lltui Heighl.. SOFTWARE PLUS 

Commerce THI FEDERATED GROUP 

Corcoran. HUNTINGTON COMPUTING 

Covina. G& II ELECTRONIC SUPPLY 

Cupertino. WFSTERN Mil ROTFl HNOI OGS. 

INC. 

Cypress, SCR ELECTRONICS 

Davis. THE STATION 

Diamond Bar. COMPUTER mart of 

CALIFORNIA 

El Cajon, RADIO SHAl K 

ElC.r.ii,. COMPUTERLAND 

ElCaWO PI < OMPUTERS 



IORS. WIZARDS* ROBOTS 
1 ID RADIO (R/SJ 
.WFLOWER ELECTRONICS 
MPUTFR PRODUCTS 



IMPANS 

I.M 

Al BOOKS 



I RS MADI". EASY 



9Y CENTER 
ALLIANCE COMPANY 
MERCHANT 
LAND 



\i I .• I umpuii.ria.no 

San Iran. ..... STACEY'S BOOKSTORI 

San P,.,n,.s„.. 71 1 f SOI I WARE 1. 1 MLR 

San Jose. Al .1. TRONIC'S 

San Jose. COMPU I ERS * COMPUTING SOI 



Boulder. COMPU I ERLA.NU 

Denver. APP.ARAT. INC. 

Densei. ITSTFI S Mil RO El EC TRONIC S 

Ingle ,.,.,. J. VIDEO WORLD 

I ml ( ollin.. COM I", II k (ONI I IMS OF 

COLORADO 

Ion 1. is. POOR RICHARD'S CALCULATORS 

Pee , kMPl 'I R SHACK 

Wiii—iiiii I OLORADO COMPUTER SYSTEMS 

Belhel.TFI HNOI.Ot.Y SYSTEMS 
Fairfield. COMPUTERLAND 

Greenwich. COMPUTER CORNER II 

Cirolon. AMFRIC AN BUSINESS COMPUTER 

Hamden. COMPU I ERI.AND 

Maiieucslri. INNIRI c IIONAI StNIIMN 

COMPUTE 

New Brnain, ACTION COMPUTERS 

Ness London, COMPU FERI.AB 

Newtown. III! SOFTWARE SOURCE 

Ssiulhinglon. AM COMPU IER PRODI IIS 



DELAWARE 

Newark. COMPUTERLAND 

Wilmingion, MICRO PRODI C IS 



Clearwater, COMPUTER WORLDS 

C'leaisvjle:. RAT S AM.A I FUR RADIO 

Fori Myers. COMPUTER! AND OF FORT MYERS 

Fori Pierce. YOUR BASIC COMPUTER STORE 

Fun Laudeidalc. COMPUTER JUNCTION 

Eon Laudeidalc COMPUTERLAND 

Fori Lauderdale, FOCUS SCIENTIFIC 

Fun Laudeidalc. SOITSVARE c ONNFC I ION 

Gainesville, COMPU I LR SYS I EM RESOURCES 

Gainesville, MIKE'S ROOKSTORF 

liainessille. SOUND IDEAS 

Gainesville, XEROGRAPHIC BUSINESS STORE 

Hollywood, COMPWARE 

Jacksonville, COMPUTERLAND OF 

JACKSONVILLE 

Jacksonville. POCKET POWER 

la.k.or.ville. SAV-A-BYTE 

Jacksonville, WILLIAMS RADIOS TV 

Longwood, ADVENTURE INTERNATIONAL 

Melbourne. H 1 S c OMPU I ERMA I ION 



Miami. VINANCE 

Ocala, DOSSEY'S HOME COMPUTER SOFTWA 

Ocala. RICK'S TV 

Orlando, CREATIVE COMPU ILK CENILR 

Orlando. SOUTH FAST MICRO DATA 

Oimond Beach, VANN DATA SERVICES 

Panama Cily. COMPUTER SYSTEMS GROUP 

Pcnxacola. KDBY'S CORNER 

1' .in.iii. II RNKEY SUM COMPL ILK 

Sarasota. COMPUTERLAND 

Saiasola. H & H HOBBY SALES 

Iampa, AMI MICKOCOMPU I ER CENTER 

Iampa COMPUTFRI AND 

Iampa. MICROCOMPUTER SYSTEMS. INI 

Tampa. I HE COMPUTER SHOP 

Tampa. THE MICROCOMPUTER CENILR 

Wesl Melbourne, COMPUTER HAVEN 

West Palm Beach. COMPUTER CENTER 

Winteriaiden. ALL SYSTEMS COMPANi 

GEORGIA 

Allama. ATLANTA COMPUTER MART 

Augusla. BAILEY'S COMPUTER SHOP 

Perry. LAWHORN ELECTRONICS 

Savannah, CHRIS * DAD'S HOBBIFS 

Savannah, LOGICAL CHOICE 

Smyrna, COMPUTERLAND 

Warner Robin. C OMPLTFR SIRS :, I S C O 

Wrens, FLEMING DRUG CO. 

HAWAII 

Honolulu, HONOLULU ELECTRONICS 

Honolulu. MEGABYTE SYSTEMS 

Honolulu. RADIO SHACK 

Lahaina, MILLS ELECTRONICS. INC. 

IDAHO 

Boise. El EC IRONIC SPECIALTIES 

Bui::. UAH' i Mil Ri K OMI'UIER 

l-iuilland. DENNIS MOM: EMI K PRIM'S 

Idaho Falls. R * L DATA SYSTEMS 

Moscow. COX & NELSON 

ILLINOIS 

A..:: ra. 1 ARNSSAORIH (USUI IER CENILR 

Bcnscnsille. JAMES M. CONWAY CORP. 

Bun Ridge. J. W. HALM CONSTRUCTION CO. 

Charleston, CREATIVE PROGRAMMING 

Chicago. DATA SYSTEMS 

Chicago. GARCIA AND ASSOCIATES 

Chicago, MET Ti MEDIA EDUCATIONAI 



Elmhursl. COMPUTER JUNCTION 

Elnihlusl. COMPUTERI AND OF EI.MHURST 

Evanslon. CHICAGO MAIN NEWS! AND 

Geneseo, RADIO SHACK 

Glen Ellyn, COMPUTER CENTER 

Gler Ills-. MORSCHNETZEI COMPUTER STORE 

Hanisburg. ILLINOIS CUSTOM COMPUTERS 

LaUrangc. BYTE SHOP 

1 :::.,.!:". .:„.,!. RO/FI INDUSTRIES 

Lombard, MIDW ESI MIC RO COMPUTERS 

Viacom!.. 1 » iN'N STEREO 

Mundeleiu. COMPUTERLAND 

Naperville, hunt MICRO COMPUTERS, INC 

Niles. COMPUTERLAND 

Nonr.hrook, NORTHHROOK COMPUTERS 

Oak Brook Fen. OAK BROOK I OMPl 1 1 R 

CENTRE 

Pcona. COMPUTERLAND 

Peoria, WALLACE MICRO-MAR I 

Rosklord. ALPINE C OMI'UIER CENTER 

RockTord. COMPUTER STORE 

Salem. RADIO SHACK 

Schaumburg. CON 1 AB COMPUTER PRODUCTS 

Scha.imb.irg. DATA DOMAIN 

Washington. COMPUTERS FOR YOU 

INDIANA 

Angola, lift I) I 1H IROMCS 

Bloomingion. DATA DOMAIN 

ll.oonongion. GAME HIJT 

Dyer. SMITH COMPU 1 1 K sSNll-Ms 

Elkharl, SIMON ION LAKE DRUGS 

Esansvillc. A B C HOBBYCRA1T CO 

Evansville. THE HAM SHACK 

Foil Wayne. FIRST BYTE 

Indianapolis. GAME PKI-SI SV1 



N'nhlcis.I'.c. HARBOl R IOWN SALES 

Pendleton. FAI I (REEK Fl FCTROMC S 

IOWA 

Ames. Ill AC ON FT ECTRONICS 

Ames. CYBFRIA, INC. 

Bcttco.ioii. COSMOS COMMI NICA'l ION'S 

Bcucndorl. MEMORY BANK. INC. 

(a:. oil. SERNLTT l.EISLRI. CENTER 

Des Moines. BUSINESS DMA PROCESSING 

Dubuque. COMPUTERS PLUS 

Marion. THE PARTSTORE 

KANSAS 

Eldorado. I A 1 ORC.ES, INC. 

Henngion, CENTRA! KANSAS COMPUTERS 

Wichita, AMATEUR RADIO EQUIPMENT CO 

Wichita. GOSUB INTERNATIONAL 

Wichita. HIGH IECHNOLOGY 

KENTUCKY 

Bie-ni ■;.. PFRRY'S C OMPUTFR 

Lexington. (IBM, INC. 

I j.aissille. ( OMPl 1 LR MAGIC. INC. 

Paducah. HEDDEN ENTERPRISI S 

LOUISIANA 

Baton Rouge. ACME BOOK CO 

Lake Charles. COMPUTER CONCEPTS 

Mciaine. COMPUTER SHOPPE. INC. 

Shrccpon. (OMPl. IER SFR VICES OF SHR1 VFI'ORI 

Shrcveport. MICRO business ss sums 

MAINE 

Auburn. MAIM MIC ROSYSTI MS 

Auburn MID VIMNl C OMPl II R I o 



Frycburg, FRYEBURG COMPUTER (TIN 

Gorham. DOWN EAST SOFTWARE 

Sebajo Lake. MAINE SOI I WARE 

Portland. RADIO SHACK 

Portland. RADIO SHACK 

Wateisillc, HOME PORT COMPUTERS 

MARYLAND 

Baltimore. THE PROGRAM STORE 

Columbia, ADCA 

Frederic*, SOFTWARE FTC 

VI1C RO DATA SYSTEMS 



Ha 



Lexington Park. BOWEs BOOKS 

Mallow Heights, WILLS COMPUTER STORF 

Pikcssillc, JACK I IVES II ECTRONICS, INC. 

Silver Springs. COMI'llIEK AGI 

MASSACHUSETTS 

Acton. GAME SI IOP. INC. 

Billcii.a. MISSION! OMP: li Rs 

Hurlmglou. COVll'l TER STORE 

( ...ilesrown. COMPUTER CITY 

Danveis. GAME TECH 

Framingham, STAR COMPUTING 

Gardner. KAYCO 

Leominster, I. S: M COMPU TER PRODUCTS 

Leominslet. LEOMINSTER NEWS 

Ludlow. NORTHEAST COMPU IER STORE. INC. 

Lynn. LAND OF ELECTRONICS 

Middleboro. MIDDLEBORO MUSIC 

Natick. SIMSIM, INC. 

Northhampton. HI Fl EXCHANGE 

Tcwksbuty. OMN1TLK SYSTEMS 

We.: Springfield. I OMPl. TER VII FACE 

Waliham. \ F I OMPU IER SOFTWARE CO. 

Watcrtown. MICROCON 

Weslford. SMALL BUSINESS SYSTEMS 

MICHIGAN 

Ann Arbor. A.M. ELECTRONICS 

Sun Arhor. 1 EARNING C EN I I K. I III 
Ann Arbor. NEWMAN COMPU I ER EXCHANGE 
Bailie Creek, HOBBY HOUSE 
Brooklyn. WEATHERWAX DRUGS 
Claw, am. ( OMPl II R MARi 

Detroit. COMIC KINGDOM 

Dirnondalc. MID-MICHIGAN MEMOR. 
Farmington Hill. COMPUTER CONNEC TION 
Eenton, TRI-COUNTY ELECT * SOUND CO. 
Flint, COMPUTER MART 
Garden Cily. COMPUTER CENTER 
Grand Blanc. COMPUTER CONTACT. INC. 



Kalamaioo. COMPUTER ROOM 

Kenr.oo.l. COMPL ' I I- R I AND KEN I WOOD 

Lansing, ALTERNATE SOURCE 

I jnsing. Mill SXES1 I OMPl I I R CENTER 

lisor.a. I EVEI IV PRODI CIS. INC. 

Midland. (OMPl. I RONICS 

Muskegon, EIGH I Bl'l CORNER 

Poll lluion. MCS MARKETING 

South Hasen. GOLDEN ANVI1 

Southfield, COMPUTERLAND 

Troy, RAINBOW COMPUTERS 

Ulica, BYTE BY BYTE COMPUTER STORE 



Wa 



CEUN 



MINNESOTA 

Midover. PHOl MX (OMPl II R 
Brooklyn Cenici. ZIM COMPUTERS 

Biirr.ssille. DIGITAL DF.N 

Eden Prairie. THE CODE ROOM 

Maishall. RURAL AMERICAN EMERPKISES 

Minneapolis. PERSONAL BUSINESS SYSTEMS 

Minneapolis, THE COMPUTER PEACE 

White Bear Lake. MINNESOI A SOFTWARE:. INC. 

MISSISSIPPI 

Jackson. C-COM 

Jackson. SOFTWARE HOUSE 

Wc.l Point. US PR'S. INC. 

MISSOURI 

Belton, SOFTWARE SHACK 

Cameron, D'S 

Clarence. HIRRLINGERS 

Columbia. CLMURY NEXI COMPUTERS 

Florissant. COMP U-TURS 

loplin. CRC COMPUTERS 

Joplin, HOUSE. OF COMPUTERS 

Kansas City, DIGITAL SYSTEMS CORP. 

Parkville. MOORE SOFT WARE 

Sedalia, BARRETO ASSOC . INC. 

Springfield. COMPUTER MART 

St (.Katie:,. I'M I I 11 (OMPL Il.k SIORI.s 

St. Louis. COMPUTER STATION 

St. Louis, MICRO AGE COMPUTER STORF 



Ciystal Lake. COMPU IER WORKS 
Havre, MOUNTAIN DATA 
Kallisjicll. THE COMPUTER PLACE 
Missoula. CONSOLIDATED SERVICES 
NEBRASKA 

Alliance, HATCH COMPUTER CENILR 
Battle Creek, APPLETREE SOFTWARE 
Columbus. ADVANCED COMPUTER SYSTEMS 
Lincoln. HOBBY IOWN EAST PARK 
Omali.i. COMPL It.RLAND 
Omaha. COMPL 1 LRS WES I 
Omana. MICROAGE COMF1 TER SKIRI 
Omaha. MIDWEST COMPUTER CO., INC. 
Scons Blul'F, SCO! TSBI HE! OFFICE PRODUCTS 
NEVADA 

Las Vegas, CENTURY 23 
Las Vegas, HOME COMPUTERS 
I as Vegas, HURLEY ELECTRONIC S 
NEW HAMPSHIRE 
Amherst, COVER CRAFT 

Vniheisi. HI] 1 SI10R1 L '( 1 1 I". Ill Mil RS 
Concord. BITS N I1YIT.SC OMPITER CFNTF.R 
Conway. STURDIVAN1 it DUNN 
Fremont, PAUL'S TV- 
Hudson, FUELS RADIOS II ECTRONICS 



Keene, COMP-U-CKAIT 
Kecnc. RADIO SIIAC R 
Manchester, INTF.RPRO 



N'a.hiiii, Al I SOITWARE. INC 

Nashua. COMPUTERLAND 

Pelerhornugh. [NSTAN1 SOFTWARE. INC. 

Pclerbotough, RADIO SHACK 

Pottsmoulh. PORTSMOUTH (OMPl FIR I 

Pottstliouth. THINK TANK 

Salem. COMPUTER TOWN 

Sli.ilhain. MICKOSOURCI. 

NEW JERSEY 

Caldwell, SOFTWARE MART 

c:-.ci:s II.. I. ( OMPl II -HI AND 

Cherry Hill, OMNIFAX 

C heirs Hill. RADIO SHACK 

Chester. MORRIS COUNTY STATIONERS 

Renville. I ASHEN ELEC1 RONICS 

Dumoni, ACADEMIC SOFTWARE 

Dumont, H. I . STRICKI.ING 

Ellglisluown. COMPUTER MADNESS 

Eon Lee. SILENT PAR1NER 

Fteehold. RADIO SHACK 

Gussh.,11. ABE'S IV SAI is.v SI RVIl 1 

Hacketlstown. J Ji J ELECTRONICS 

.Klin, COMPU TER MAR I OF NJ. INC. 

Lodi. COMTEK 

Mantua. ELECTRONIC WORLD 

Maple Shade. GSB ELECTRONICS, INC 

Marlton. MIDAS DATA SYSTEMS. INC. 

M.iiinot.1. OLTPOSI (R.Sl 

McdlOld. CHANNF! ONE 

Mooiesmwn R ADIO SH AC K 

Paramos, c OMPl 1IR1AND 

Parsippany, ARTISAN Fl F< TROMCS 

Pennssille, DAVE'S El l< I RONICS 

Pine Brook. SOI 1 WAKE CITY 



Princeton. C OMPl II R i Nl lit 'Ml R 
Rcdbank. COMPUTER FORUM 
Redback. FIT III s FOI I IF-S 
Rcdbank, H..MBV M A-t 1 Rs 



Spatla. MOU.NI AIN Ll.EC I RONICS 

Teaneck. SOFTWARE CITY 

Union City. ADFI MAN'S STATIONERY CO. 

Upper Monlclair, SOFTWARE NETWORK 

Voorhce.. HOHHILS 1 IMI I ID STORE p2IH 

We. 1 MillorJ. COMPU IER DISCOUNI Ol 

AMERICA 

West Trenton. BARGAIN BROTHERS 

Wolfickl. COMPU IER DIMENSION 

Whilel.oi.se Sl.llic.il. (ROWLEY'S 

WooJhi.ug. IHF (.AMI ROOM 

NEW* MEXICO 

Alamogordo. I HOMAS E. < AKR JEWELER 

Albuquerque. AUTEI. ELECTRONICS CO. 

Albuquerque. MR SoAGI ( OMPITER STORE 



nf:w YORK 

Albion. ALMCRAFT RADIO SHACK 

Brooklyn, MICRO HUT 

Carle Place. COMPUTERLAND OF NASSAU 



COMPUTER 
ok. LI COMPL 1 1R GENERAL STORE 
I, Fl Tl Rr VISION'S COMPU IER SKIRL 
... , 1. v.- IFR EMPORIUM 
.- ... • OS' Ml ' OMPl TFR SHOP 

CENTER 



irk. / 



. M. 



'OMPUT 

New York. COMPU IER FACTORY 

New Yotk. COMPUTERLAND Ol 1 

New Y.vk. DIC.1BYTI sssll Ms 
v York. VIDEO ( FNIRAI 



Plcasanivillc. SUNBURST 
Pleasant'..'.:,-. TIIF Ml! RO ( FNIER 
Pori CheslCT, A WORLD OF COMPL ILKS 
Poughkeepsic. ASD OFFICE SYSTEMS 



Red Hook. AMERICAN MICRO MEDIA 
Rensselaer. SOFTRON SYSTEMS 
Rochester, COMPUTER STORE 
Rochester. HOME COMPU TER CF.N I ER 
Snyder, MODERN TEK SHOPS, INC. 
Spu.ig \ allev. C OMPU IER STRA 1 EG1ES 
State •'..'.. Iixnil DOFNFW DORP 

Syos.e:. SSOSS1 T \ IDEO I I FCTROMC 



SPECTAL1 

While Plains. COMPU IER COKNLR 

While Plains, COMI'UT ERI.and 

Williamsvillt. COMPUTER RESOURCES 

NORTH CAROLINA 

Aberdeen. KING fl IC I RONICS 

Ashevillt. HART. INC 

Burlington, CAROI INA BIOI OGICAL SUPPLY 

Elizabeth City, DA I A SYSTEMS 



Has clock. SOUTs 
Raleigh. ALPHA IECHNOLOGY. INC. 
Rocky Mount. SOUTHERN SOITWARI 111 
Sylva. RAYBURN ELECTRONICS 



Akron. MICRO CONCEPTS 

Cincinnati. CTNC INNAT I (OMPl. ITiR STORE 

Cincinnati. TWENTY-FIRST CENTURY SHOP 

1 ii.nniati. WANNA PI AS 

Cleveland, DIGITRENDS 
Cleveland, JERRY'S (OMPl ITERS 
Cleveland, THE. ARCADE 
Cleveland Heights. RESOURCES. INC. 
Columbus. COMPUSERVE 
Columbus. COMPUTFRI AND 
Columbus. MICRO El EC IRONIC S 



Davton. MICRO! OMPl TER ( I Nil R 



Mcddlcfeld. JOBAR ENTERPRISES 
North Olmsted, COMPUTERLAND 

liladelphia. LITTLE PROFESSOR BOOK 



Moore, PROFILE MANAGEMENT 
Sapulpa, VF.RN STREET PRODUCTS 

Tulsa, COMPUTER STOKE. INC. 
Tulsa. COMPU II R WORI 11 

Tulsa. MICROCOMP SERVICES 
Waning;,. SOUNDS. ETCETRA 
OREGON 

Bandon. ACETEC COMPUTER SALES 
Grants Pass. I. & R ELECTRONICS 
Portland, IHE nor'wesilr BOOKSHOP 
Salem. COMPUTER SPECIALTIES 
Sands, PIONEER Fl ECTRONICS (R'S) 
T'igard. COMPU1 ER1.AND Ol PORTLAND 

PENNSYLVANIA 

Alloona. J & E COMMUMCA ITONS 
Atdmore. ARDMORE HOBBIES, INC. 



LLC IRONIC CENTER 
RI AND PITTSBURGH 
1PUTF.R ROOM 

YTF. COMPUTER C ENTER 



MPI II R CENTER 

LC T RONICS (R SI 

TED 

1TERLANDOF 



M.inioc.dic. ( OMPl IFR WORKS'ili ipPE 
New Brighton. I Ell. VISION PARTS CO 

New IC |"t RI MPI 1 sin s.,:n 10, SHI ip 

Philadelphia. OMNIFAX 



RHODE ISLAND 

Fosici. (OIONIAI ENTERPRISES. INC 
Westerly. VIDEO ENCOUNTERS 
SOUTH CAROLINA 

Cl;ailest,.|i. OMNI 1 1 EC I RONICS 
( oijosa. BROWNING ENTERPRISES 
Gi.-eii, ■.- , OVP II R DYNAMICS 



irksvillc. ACE MINI SYSTEMS 

«les;lle, SOFT I INK PFOPI.E 

rnman. WEBBS PHARMAC "i 4 ELEC1ROMC 

mphis, C0MPUTER1.AB 

shsille. COMPUTER WORI D 

.Fictile. IAVAN ENTERPRIsF s 

llaiioina. II A II IT 1(1 RONK S 



VI COMPU1LR MOKE 



Dallas. THE PRINTOUT 

FT Paso. COMPUTER TECHNOLOGY 

Fairfield. MACK'S TV 



Houston. MICRO SOl.U I IONS 
Houston. 1LXAS SOFTWARE 
Hou.ion. WAGll.AI 11 R HOOKS. INC. 
Hum. MICROAGE COMPU 1 LR STORE 
Katy, MARYMAC INDUSTRIES IR/Sl 
Lake Jackson. COMPUTERS HI O'NEILL 
Mission, PANAMI RI! AN II ECTRONICS iR'Sl 
Missouri Ol.. DA R ASSOC IAIE5 INC. 

San Amonio. SO SOFTWARE STORE 
San Amonio, COMPUTER SOI UTIONS 
San Amonio. MICRO MART 

San Amonio. R.L. COLE'S ELECTRONICS 

Temple. PRO! I'ssion Al 1 OMI". il R 
ASSOC I ALTON 
Webster, COMPUTEX 

Sail Lake Cily, COMPU TERLAND 
Sail Lake Cily, FOOTHILL MODELERS 
Sail I akeCny, I l/CON TRADING 
Sail I.akeCits. QUALITY TF.CHNOl OC.Y 



continued 



MIND 

YOUR OWN 
BUSINESS. 



With the General Ledger 
Package from 
Instant Software 

The General Ledger Package adapts to your method of work- 
ing with: 

• 1700 accounts/4300 transaction capability 

• Free format code 

• Custom design— up to 99 reports 

• Account file inquiries on all accounts 

• 10 character alphanumeric account code 

• Automatic audit trail 

• Growtli capacity 

• Automatic accrual convenience 

• Next period processing 

• Continual validity of data input. • trs-«o is .. n isu >< a ,, lt i 




Instant Software 



Plus important features like: 

• Backup 

• Labelling 

• Swapping 

• Filemove 
It is the fastest, most comprehen- 
sive, most flexible accounting pro- 
gram ever developed for the TRS-80* Model II. And the General Ledger 
Package requires no previous compute)- experience to operate. It's also the 
best buy around. 

For more information on Instant Software's General Ledger Package, 
dial toll free: 

1-800-258-5473 




and ask for your free brochure. Call Today. 



>n of Tandy C< 



INSTANT SOFTWARE 
DEALERS, continued 

VERMON1 

Brallleboro, COMPUTER CELLAP 

Brallleboro. TEMPO. IK 

VIRGINIA 

Alexandria. THE LITTLE SOLDIER 

Arlington. SYSTEMS MARKETING CORP. 

CharlolUsville, CHARLOTTESVILLE BUSINESS 

COMPUTERS 

Colonial Height!, SOUTHS1DE RADIO COMM. 

Harrisonburg, COMPUTER WORKS. INC. 

Herndon. FRAME GALLERY. INC. 

Lecsburg. COMPUTER SOLUTIONS 

Richmond. BIS I PRODUCTS CO , INC. 

Virginia Beach. SMALL BUSINESS COMPU I ER 

CENTER 

*i:!:ur.*:j;i KADIU S'i \i k 



WASHINGTON 

Bcllcv.ie. lOMPUTFRl AND 

Belhngham. WESTERN MICROCOMPUTER 

CENTER 

Electric Cil>. KOMPU1AR WORKS 

EvtKll. COMPU-BYTE 

federal Way, COMPUTERLAND 

Kcnncsvick. C & J ELECTRONICS. INC 

Oak Harbor, ISLAND COMPU IER SERVICES 

Olsmoia. I HI. 11 EC TRONIC SHOP 

Por! Angeles. LORDS 

Renton, DATA BORNE COMPUTERS 

Richland, RADIO SHACK COMPUTER CENTER 

Seattle. AMERICAN EAGLES. INC. 

Seattle. ELECTRONIC SUPER MART 

Seattle. EMPIRE ELECTRONICS, INC. 

Seattle, MAGNOLIA MICROSYSTEMS 

Seattle, I HE SOFTWARE PLACE 

Seattle, UNIVERSITY VILLAGE MUSIC 

Snohomish. J.B. SALES 

Spokane. COMPUTERLAND 

Spokane. PERSONAL COMPUTERS. INC. 



WEST VIRGINIA 

Evans. U'HF SALES* SERVICE 

Huntington, COMPUTER STORE 



WISCONSIN 

Appleton. COMPUTER WORLD 

ha.: All:.. MICRO-MEDIA COMPUTER SIPPI ll.S 

Green Bay, COMPUTER WORLD 

Green Bay. THE MICRO HOUSE 

Greent,c".c, BYTE SHOP OF Mil WM.KEF 

Madison. COMPUTERLAND 

Madison. MAGIC LANTERN COMPUTER 

Madison. SOFTWARE CASSETTES 

Maimon. HOMF TV 4 CB 

Milwaukee, COMPCO 

Milwaukee, COMPUTERLAND 

Milwaukee, OMEGA MICROS 

Milwaukee, PETTED MICROSYSTEMS 

Monroe. S & O TV SALES 

Oshkosh. COMPUTERLAND OF FOX RIVER VALLEY 

Racine, COLORTRON COMPUTFR DIVISION 

Wausau. COMPUTERLAND 



INTERESTED 
DEALERS 

CONTACT 

DEALER SALES 
DEPARTMENT 

1-800-343-0728 



UTILITY 



High-Res Alphanumerics 



by Scott Norman 



The Color Computer's most attrac- 
tive feature is the high-resolution 
graphics capability of the 16K RAM/ 
Extended Color Basic combination. I 
often plot mathematical functions 
using PMODE 4, which gives 256 by 
192 addressable points on the video 
display. No built-in way exists to dis- 
play text in any of the high-resolution 
modes. Since graphs need titles and 
labeled axes, I developed the program 
modules described in this article. Many 
high-resolution game displays can 
benefit from the on-screen scoring or 
alphanumeric prompts these modules 
provide. 



Produce unique char- 
acter sets in high 
resolution on a TRS-80 
Color Computer with 16K. 



Extended Color Basic's versatile 
Draw command defines my character 
set. Individual characters that are now 
string variables can be concatenated 
into labels by the execute (X) action 
option of the Draw command. Rela- 
tive addressing of each character, plus 
an initial Blank and Move command, 







Program Listing I 


2 AA$= 


M BM+1 


0U4E2R1F2D4BL3BU2R2BD2BR3" 


3 BB$= 


"BM+2 


0U6BL1R3F1D1G1L1R1F1D1G1L3BRT " 


k CC$= 


"BM+5 


- 5H1L2G1D4F1R2E1BD1BR3 " 


5 DD$= 


"BM+1 


0U6R2F2D2G2L3BRT" 


6 EE$= 


"BM+5 


0LUu6R4BD3BL2L1BD3BR6" 


7 FF$= 


"BM+1 


0U6RUBD3BL2L1BD3BR6" 


8 GG$= 


"BM+5 


- 5H1L2G1D4F1R3U2L1R 3BR 3BD2 " 


9 HH$= 


"BM+1 


0U6BR4D6BL3BU3R3BR4BD3" 


10 II$= 


"BM+5 


-6L4R2D6L2R4BR3 ,t 


11 JJ$= 


"BM+1 


,-2D1F1R2E1U5BD6BR3 m 


12 KK$= 


"BM+1 


0U6D3R1E3G3F3BR3" 


13 LL$= 


"BM+1 


-6d6R4BR3" 


14 MM$= 


"BM+1 


, 0U6R1F2D1U1E2R1D6BR3 m 


15 NN$= 


"BM+1 


, 0u6ridifUdiriu6d6br3" 


16 00$= 


"BM+5 


, -1U4H1L2G1D4F1R2BR4 " 


IT PP$= 


"BM+1 


, 0U6R3F1D1G1L2BR6BD3" 


18 QQ$= 


"BM+5 


, -1U4H1L2G1D4F1R2F2BE2" 

Listing 1 continues 



allow you to put the label wherever 
you like. 

Here's an elementary example. Sup- 
pose you've defined the uppercase 
characters A, B, and C as string vari- 
ables A$, B$, C$. Program line DRAW 
"BM 50, 100; XA$; XB$; XC$;" writes 
the label ABC on a high-resolution 
graphics display, starting at the point 
X = 50, Y = 100. 

Program Listing 1 contains the set of 
uppercase alphabetic characters, nu- 
merals, and miscellany I used. I con- 
stituted most of the characters in a 5 by 
7 resolution element box, but since this 
is a custom set I've taken a few liber- 
ties — M and W are wider, for instance. 
I also put a proper descender on Q and 
an upper serif on 1, but I encourage 
anyone using this technique to experi- 
ment to generate a pleasing display. 

Users of Extended Color Basic will 
recognize the character definition syn- 
tax. If you are unfamiliar with the lan- 
guage, a segment like BM + 5, - 5... is 
a relative addressing command. It 
means, "Starting from the present 
screen position, blank the CRT's elec- 
tron beam and move five units to the 
right and five units up." You can then 
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Listing 1 continued 

19 RR$="BM+1 , 0U6R3F1D1G1L2R1D1F2BR3" 

20 SS$="BM+1 , -1F1R2E1HUE1R2F1BD5BR3" 

21 TT$= M BM+3,0U6L3R6BR2BD6 n 

22 UU$="BM+1 , -6D5F1R2E1U5BD6BR3" 

23 W$="BM+1,-6DUF2E2U^BD6BR3" 

2k WW$="BM+1 , -6D6R1E2U1D1F2R1U6D6BR3 M 

25 XX$="BM+1 , 0U1EUU1BLUD1FUD1BR3 M 

26 YY$="BM+1 , -6D1F2D3U3E2U1BD6BR2" 

27 ZZ$= M BM+1,-6RUD1GUD1RUBR3" 

28 BK$="BM+1,0BRT" 

29 PT$="BM+2,0R1BR2 M 

30 NR$(i)«"BM+2,-UE2D6brV i 

31 NR$(2)="BM+1,-5E1R2F1D1L1G3D1RUBR3" 

32 NR$(3)="BM+1,-1F1R2E1U1H1E1U1H1L2G1BD5BRT" 

33 NR$ ( k )="BM+U ,0U6L1G2D1R5BD3BR3" 

3k NR$ ( 5 ) ="BM+1 , -1F1R2E1U1H1L3U3R5BR3BD6" 

35 NR$(6)="BM+5,-6L3GlDUFlR2ElUlHlL2BR6BD3 n 

36 NR$(7)="BM+1,-6R5D2GUBR7" 

37 NR$ ( 8 )="BM+1 ,-lUlElR2ElUlHlL2GlDlFlR2FlDlGlL2BR6" 

38 NR$( 9 )="BM+1 , 0R3E1UUH1L2G1D1F1R2BD3BRV 

39 NR$(0)="BM+6,-lUliHlL2GlDtaR2BRl+" 
k0 MI$="BM+2,-3R3BD3BR2" 



2 


) 

I BJ= 


lSIC Statements of Program Listing 1 


U0 


) 




100 


PMODE 


U,l: PCLS: SCREEN 1,1 


105 


LINE 


(128,0)-(128,191),PSET 


110 


LINE 


(0,96)-(255,96),PSET 


115 


FOR I 


=8 TO 2U8 STEP 60 


120 


LINE 


(P,9 1 +)-(P,98),PSET 


125 


NEXT 




130 


FOR I 


=U6 TO lU6 STEP 25 


135 


LINE 


(126,P)-(130,P),PSET 


1U0 


NEXT 




lUl 


DRAW 


"BMl+,8;XTT$;XRR$;XH$;XGG$;XOO$;XNN$;XOO$; 




XMM$; 


XEE$;XTT$;XRR$;XII$;XCC$; M 


lU2 


DRAW 


"BM5 , 20 ;XFF$ ; XUU$ ; XNN$ ;XCC$ ;XTT$ ; XII$ ; 




XOO$;XNN$;XSS$; M 


150 


FOR > 


:=-l80 TO 180 STEP 5 


155 


THXX/57-3: XS=128+.67*X 


160 


F1=50*SIN(TH) 


165 


F2=5!Z 


*COS(TH) 


170 


PSET(XS,96-F1,1) 


175 


PSET( 


XS,96-F2,l) 


180 


NEXT 




185 


DRAW 


"BM188,U1|;XSS$;XII$;XNN&;XEE$;" 


190 


DRAW 


"BM188 ,15^ ;XCC$ ;X00$ ;XSS$ ;XII$ ;XNN$ ;XEE$ ; " 


195 


DRAW 


"BM17U , 106 ; XNR$ { 9 ) ; XNR$ ( ) ; " 


200 


DRAW 


"BM228 , 106 ;XNR$( l) ;XNR$ ( 8 ) ;XNR$( ) ; " 


205 


DRAW 


"BM2,106;XMI$;XNR$(l);XNR$(8);XNR$(0); n 


210 


DRAW 


M BM62,106;XMI$;XNR$(9);XNR$(0);" 


215 


DRAW 


"BMll6,U9;XNR$(l); M 


220 


DRAW 


"BM110,lil9;XMI$;XNR$(l) ;" 


225 


GOTO 


225 

Program Listing 2 



draw a character. In the context of 
these statements, L, R, U, and D are 
commands for left, right, up, and 
down, while E, F, G, and H denote 45- 
degree motions to the northeast, south- 
east, and so on. Character definitions 
end with blanked-out motions like 
BR6, "blank and move six units to the 
right," to set you up to specify the next 
character in a string. 

You can call the characters anything 
you please. I denoted the letters as 
AA$ and so on in order to reserve one- 
letter string variable names like A$ for 
general use in my programs. I also in- 
cluded a callable blank BK$, a decimal 
point PT$, and a hyphen MI$. I de- 
fined the numerals as elements of a 10- 
element string variable array NR$(I) to 
call them out to construct numeric la- 
bels computed within a program rather 
than being specified at the beginning. 

Applications 

Unlike data statements, these char- 
acter definitions must appear in a pro- 
gram before the statements in which 
they are called. For that reason, I gave 
the definitions low statement numbers 
(2-40). If your application requires a 
large amount of memory for extra vid- 
eo pages, use line 1 to avoid wiping out 
any of the character definitions. Set up 
the high-resolution PMODE 4 when 
you begin plotting. 

Program Listing 2 is an application in 
which the positions and definitions of 
the alphanumerics are known at the 
outset and can be specified by the pro- 
grammer. It plots the sine and cosine 
functions over one cycle, with a label 
for each curve, a title for the whole dis- 
play, and values for a few major points 
on each axis. Line 100 sets the high- 
resolution mode, lines 105-140 draw the 
axes and tic marks, and lines 141-142 
write the title Trigonometric Functions 
in the upper left corner of the screen. 
The execute action option strings to- 
gether individual graphics symbols by 
prefixing their names with X and post- 
fixing with a semicolon. Lines 150-180 
perform the actual computations and 
function plotting (by the slow PSET 
process in this case). The rest of the pro- 
gram labels the curves and puts numer- 
ical values on the tic marks. 

The full syntax of the Draw com- 
mand permits rotating a predefined set 
of operations in 90-degree increments. 
In particular, prefixing A3 as in 
DRAW "A3BM..." results in a char- 
acter string written vertically upward. 
You might want to label the vertical 
axis of a graph this way if you don't 
want to cock your head 90 degrees to 
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the left in order to read it! If you use 
this option, remove it with a prefixed 
AO for the next character string that 
you want to read normally. 

If you don't know at the outset what 
the scale of a graphical axis will be, 
how can you plot the values calculated 
within the program? Program Listing 3 
demonstrates a fairly simple approach, 
using the string-variable array. This 
program calculates the ratio of two 
numbers entered from the keyboard 
and displays the quotient in high-reso- 
lution mode. Line 65 converts the quo- 
tient, Q, to a string and establishes a 
buffer array BF(I). The elements of 
BF(I) are the digits of Q. If a particular 
digit is a decimal point (ASCII code 
46), however, then the value 46 is 
stored in the corresponding element of 
BF(I) by lines 80-95. Line 100 shifts 
the display from the low-resolution 
Color Basic mode in which you entered 
the numerator and denominator to 
high-resolution for the output. A start- 
ing position 100 units down the left 
side of the display is established, any 
leading zero suppressed (line 1 10), and 
the elements of BF(I) interrogated one 
at a time. A value of 46 for any element 
draws the decimal point; any other 
value, 0-9, calls up the corresponding 
high-resolution graphics character. A 
simplified form of the Draw command 
concatenates strings with a For... Next 
loop: DRAW "XNR$ (BF(I));" where 
you enter only the closing semicolon 
after you supply an originating posi- 
tion for the string, as in line 105. 

Writers of game programs can apply 
this technique of dissection and recon- 
struction of numerical strings to alpha- 
betic characters if there is reason to 
compute alphabetic outputs based on 
the course of action. 

Modifications 

You can experiment with the charac- 
ter set defined in Listing 1 and invent 
your own sets, tailored to your own in- 
terests. You can add lowercase letters, 
Greek letters, and other mathematical 
symbols. You can add electronic sym- 
bols and the common representations 
of digital logic elements. You might 
write a Color Computer program to 
convert a logical expression into a 
block diagram for electronic realiza- 
tion. Memory usage will limit the 
imagination you can exercise; for the 
record, the character set definitions of 
Listing 1 occupy about 1,700 bytes. ■ 



Scott Norman can be reached at 8 
Doris Road, Framingham, MA 01701. 



2 ) 



BASIC Statements of Program Listing 1 



U5 CLS: PRINT "CALCULATE & HI-RES PRINT": PRINT 

50 INPUT "NUMERATOR" ;N 

55 PRINT: INPUT "DENOMINATOR" ;D 

60 Q=N/D 

65 N$=STR$(Q) 

70 L=LEN(N$) 

75 DIM BF(L) 

80 FOR 1=1 TO L 

85 A=ASC(MID$(N$,I,1)) 

90 IF A0U6 THEN BF(l)=VAL(MID$(N$,I,l)) ELSE BF(l)=46 

95 NEXT 
100 PMODE k 9 l: PCLS : SCREEN 1,1 
105 DRAW "BM0,100" 
110 IF BF(l)=0 THEN 120 
115 DRAW "XNR$(BF(l)); M 
120 FOR 1=2 TO L 

125 IF BF( I )=U6 THEN DRAW "XPT$;" ELSE 135 
130 GOTO 1U0 
135 DRAW "XNR$(BF(I)); M 
1U0 NEXT 
lU5 GOTO lit 5 

Program Listing 3 
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UTILITY 



Teach Your Computer to Talk 



by Richard Seymour 



hat will your Color Computer's first words be? 
Here's a step-by-step method in Assembly 
language to get you and your CC speaking. 




The joy of hearing your computer's 
first words is second only to that of see- 
ing your first program write something 
intelligent on the terminal. 

I will describe a program I use on my 
Color Computer, but you can adapt 
the method to any computer. The com- 
puter converts a short amount of 
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speech into a stream of numbers. This 
is called digitization. When you replay 
these numbers they recreate sound 
close to the original. Once you have 
recorded the original sound in the com- 
puter's memory, you can manipulate it 
for analysis, special effects or to 
minimize the space required. 

The Color Computer contains the 
hardware necessary for the conversion 
method I chose. Radio Shack's Skiing 
game cartridge saying "Get ready, get 
set" suggested this approach. I will 
also describe the computer's other 
digitization possibilities. 

Theory 

Any sound fed into a microphone 
consists of a complex electrical signal. 



Figure 1 shows an example of such a 
signal. Classical digitizing methods 
slice this signal into equal time inter- 
vals (Fig. lb). At the end of each slice 
the voltage of the signal is measured 
and stored. The sound is recreated by 
reproducing those levels at the same 
intervals. 

Two factors affect the sound qual- 
ity. The first is how well the system can 
reproduce the tones (frequencies) in 
the original sound. This is called fre- 
quency response. Generally, you can 
reproduce the original frequencies to 
any desired accuracy by adjusting the 
time interval. Shorter intervals give 
better reproduction (see Figs, lc and 
Id). A rule of thumb is that you must 
measure twice as fast as the highest fre- 
quency you want to reproduce. Short 
time slices require recording more 
measurements. 

The second factor is the resolution 
of the signal's voltage level (amplitude 
or volume). In a digital system the 
number of steps available between the 
lowest and highest voltages measured 
or reproduced describe the voltage 




Figure la 



Figure lc 





Figure lb 
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Figure Id 



level. This is normally expressed by the 
number of data bits required for that 
number of levels. Therefore, a 6-bit 
system can provide 64 volume levels. 
This same number describes the hard- 
ware that converts the voltage to a 
number. Such hardware is called an 
analog-to-digital converter (ADC) for 
creating numbers, or a digital-to- 
analog converter (DAC) for recreating 
voltages. 

The Color Computer's two ways of 
analyzing incoming voltages are based 
on the same principle — comparison to 
an internal reference voltage. One 
serves the cassette tape input, and com- 



pares the signal to zero volts. The other 
compares joystick input to the output 
of a 6-bit (64-level) DAC directed by 
the computer. The computer performs 
the A/D function by trying different 
voltages until it finds the closest match 
to the input voltage. 

Why are there two ways? Radio 
Shack records information on cassette 
with two distinct tones. This allows 
recovery by simply measuring the time 
between the zero -crossings of the 
recorder's signal. Binary zeros are 
marked by crossings spaced twice as 
far apart as binary ones. This is done 
very quickly. The 6-bit method, which 



provides much more information 
about the input signal, requires more 
time to measure. When digitizing a 
rapidly changing signal such as voice or 
music, that time sets the upper limit on 
which frequencies can be reliably 
detected. 

My hardware for this project in- 
cluded a 16K Extended Color Basic 
Color Computer, a 1967 GE Porta- 
Color tv and a $25 GE cassette re- 
corder. Just as a $1,000 stereo receiver 
would be wasted on $25 speakers, the 
quality of the audio path available did 
not inspire me to attempt ultra high 
fidelity. I also wanted fast reward for 
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my efforts. So I chose to duplicate the 
cassette tape's input method for its 
programming simplicity. 

Since I was only recording the dura- 
tion between zero crossings, I decided 
first to simply send on/off signals back 
out to the tv set. The computer's 
single-bit sound system did not work 
reliably. The 6-bit D/A did work, so I 
just hit it with a zero or 24 value. Other 
experiments showed that the absolute 
values did not matter — only the dif- 
ference between them. Therefore, the 
value 24 minus zero sets the volume 
heard over the speaker. The same 
result is produced with 30 and 54. I 
chose 24 by running a joystick- 
controlled noise program until I found 
an acceptable value. I encourage you 
to experiment with these values. Re- 
member to multiply the value you 
choose by four (shift up 2 bits) to 
match it to the pins the Color Comput- 
er uses for the DAC's input. 

Fig. 2 shows the liberties my con- 
version scheme wreaks upon a sample 
signal. The original signal (2a) 
becomes the time blocks (2b) which the 
computer-to-speaker rounds off to 2c. 

Because I use cassette input, I found 
it easiest to pre-record sample speech. I 
can exactly reproduce experiments in 
memory-reduction techniques. Most 
cassette recorders pass what the micro- 
phone hears through the earphone 
connector while recording, so I use the 
recorder's microphone to speak di- 
rectly to the computer. Unplug the 
computer-to-cassette line from the 
microphone or auxiliary jack. Leave 
the earphone line connected. Set the 
recorder to record and speak into the 
microphone. You get better quality 
sound if you use a separate micro- 



phone; the one in the recorder picks up 
a lot of motor noise. The system con- 
sists of the tape recorder playing into 
the normal cassette input, with the re- 
produced sound playing back through 
the television speaker. 

The program includes three sections: 
Record, Playback and Basic (which 
places the other two into memory and 
interacts with the operator). 

Type in the program in Program 
Listing 1. You may delete all com- 
ments in lowercase to save typing. Pro- 
gram Listing 2 is the same program in 
regular Basic without comments. Pro- 
gram Listing 3 is an Assembly-lan- 
guage listing for the data statements of 
the Basic programs. 

Bookkeeping 

For Extended Basic, I put the re- 
corded numbers into the graphic screen 
area. I watch the data as it comes in 
and receive a fascinating view of the ef- 
fect of pauses and noise on the amount 
of memory used. For regular Basic, 1 
put the storage above the Basic code, 
behind the cleared area. I put the 
machine-language part at the top of 
memory, using Basic's Clear statement 
to avoid stepping on it with other parts 
of the program. 

One second of speech takes about 
2K bytes of memory. Use that number 
to plan how much memory you want to 
give to speech storage. I put the table 
addresses in separate Basic lines to 
make them easier to find and change. 

Recording 

The Recording section of the pro- 
gram has four sections. Initialization 
sets the computer's registers. The 
"loop while above zero" section times 



the positive half of the signals. The 
"loop while below zero" section times 
the negative half of every wave. The 
fourth section checks to see that the 
program has not run out of storage 
space. 

The Color Computer's heart is a 
Motorola 6809. It has a variety of in- 
ternal memories (registers) that you 
can use to count items or point to other 
memory locations or both. In this case, 
1 tell the control register to ignore any 
other disturbances from the outside 
world (interrupts). This is necessary 
since I am trying to get accurate timing 
information by counting the number 
of times a loop is executed. It would 
not do to have the computer off some- 
where else while my tape played on. 

The Color Computer presents the 
status (zero or one) of the tape input 
detector as the bottom bit (least signifi- 
cant) of memory location 65312 
(FF20). I load the U register with FF20. 
I load the A register with a one, which I 
will compare against the status bit to 
see if it is on or off. Then I load the X 
register with the starting address of the 
number storage area. That completes 
the initialization section. 

The program then drops into the 
"watch while high" section. First it 
clears the B register, which will serve as 
the loop counter. Then it adds one to 
the B register and tests the status bit at 
FF20. If the bit is still on, the program 
loops back to the add-one-to-B register 
instruction. Once the status bit 
becomes zero, the program falls past 
the branch-if-not-equal instruction. 
There it stores the B register count at 
the address in the X register. That same 
instruction adds one to the X register, 
pointing it to the next table location. 



1 ' TALK for Extended Color Basic 


9034 'table end address follows 




2 ' (c) Richard Seymour aug 1981 


9035 DATA ID, FC 




5 ' reserve memory and set up entry addresses for machine language 


9040 DATA 25, EB 




10 CLEAR 200,16200 : MOTOR ON : AUDIO ON : REC=16200 : PLY=16231 


9045 ' Play starts here (16231) 




15 ' tell extended basic about them, copy the data to the area 


9050 DATA 1A, 50, CE, FF, 20, 6F, 43 




20 DEFUSR0=REC : DEFUSR1=PLY : LOC=REC : GOSUB 9900 


9055 ' next line starts at 16238 




25 ' tell people how to play 


9060 DATA CC, F8, 3C, A7 , 42, E7 , 43, CC, B4, 35, A7 , 5D, E7 , 5F 


30 PRINT"HOLD RIGHT 'FIRE' BUTTON" 


9065 ' next line starts at 16252 




35 PRINT" TO RECORD ANOTHER PIECE" 


9069 'table start address follows 




40 PRINT "HOLD 'BREAK' TO EXIT PROGRAM" 


9070 DATA 8E, 06, 00 




45 ' turn on the sound and wait for a "return" 


9075 ' next line starts at 16255 




50 AUDIO ON : INPUT "HIT RETURN TO START CONVERSION" ; AS 


9079 'next 60=volume 




55 ' go to high resolution graphics and select a graphics display 


9080 DATA 86, 60 




60 PMODE 4,1 : SCREEN 1,1 


9085 ' next line starts at 16257 




65 ' perform the "record" subroutine 


9090 DATA E6, 80, A7 , C4, 5A, 26, FB, 4F, E6 , 80 




70 AUDIO ON : A=USR0(0) 


9095 ' next line starts at 16267 




75 ' a moment of silence, please 


9100 DATA A7, C4 , 5A, 26, FB, 8C 




80 FOR 1=1 TO 200 : NEXT I 


9104 'table end address follows 




85 ' "Go ahead, Sam. Play it." 


9105 DATA ID, FC 




90 A=USR1(0) 


9110 ' next line starts at 16275 




95 ' look for a struck key or joystick button, rerecord if seen 


9115 DATA 25, EA 




100 IF (PEEKUHFF00) AND 1)=0 THEN 50 


9120 ' next line starts at 16277 




105 ' just play it again if no buttons were pushed 


9125 DATA 39 : ' END of subroutine 




110 GOTO 80 


9900 DATA 1000 : ' flag for end of transfer 




115 ' 


9905 ' read value, convert to variable 




9000 ' Record portion of program 


9910 READ AS : A=VAL( "&H"+AS) 




9005 DATA 1A, 50, CE , FF, 20, 8E 


9915 ' we're finished if it's over 255 (FF hex) 




9009 'table start address follows 


9920 IF A>255 THEN RETURN 




9010 DATA 06, 00 


9925 ' otherwise, put it into memory, increment LOC, and get another 


9015 ' next line starts at 16208 


9930 POKE LOC, A : LOC=LOC+l : GOTO 9 910 




9020 DATA 86, 01, 5F, 5C, A5 , C4 , 26, FB, E7 , 80 


9998 ' 




9025 ' next line starts at 16218 


9999 end : ' of everything 




9030 DATA 5F, 5C, A5 , C4 , 27, FB, E7 , 80, 8C 






Program Listing I, Ex 


tended Basic Version 
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Next the program drops into the 
"watch while low" section. This is just 
like the "while high" section, except it 
loops while the bit is zero. Once the bit 
goes non-zero again, the program 
moves to another "store B at X" in- 
struction. After that the program 
checks that X has not risen to the top 
end of memory space reserved for 
storage. If X is still below that limit, 
the program branches back up to the 
"while high" loop. If X reaches its 
limit, the program moves from the 
check section into the Playback pro- 
gram. You could provide an immedi- 
ate Return here, if you do not want an 
instant replay. 

Playback 

You can enter the Playback program 
directly from Basic, so start by re- 
initializing any registers you need. 
Again, the U register points to the 
hardware control locations in memory. 
Clear the hardware register controlling 
the sound source selection to provide 
access to its direction control register. 
Then set this to guarantee your choice 
of the 6-bit DAC. Reset the control 
register to its normal state, with the 
sound output enabled. Setting FF1D 
and FF1F selects the path from the 



DAC to tv speaker. Finally, the X 
register points to the beginning of the 
sound table. 

As the first step of the "send high 
value" loop, the A register is set with 
the volume level selected. This is only 
done at the start of a "send high" sec- 
tion, not within the fast inner loop. 

Then the program loads the B reg- 
ister with the recorded loop count 
fetched from the table (pointed to by the 
X register, which is incremented after 
the fetch). The A volume value is sent 
to the DAC, located at FF20. Subtract 
one from the B register count. If it has 
not reached zero, branch back to the 
send A instruction. When it does reach 
zero, we proceed to the "send low" 
section. 

As a first step, clear the volume (A) 
register to zero. Then fill B with the 
next count from the table. Send A to 
FF20, decrement B, and check for 
zero. Loop to the local send A instruc- 
tion until B goes to zero. Then check 
that the X register is still within the ta- 
ble's limits. If it is, branch back up to 
start the "send high" section again. 
When X reaches or exceeds its limit, 
the program returns to Basic. 

All of the innermost loops in record 
and playback take exactly the same 



time — nine 6809 cycles, or a little more 
than 11 microseconds in the Color 
Computer. 

Basic 

The Extended Basic program re- 
serves the memory above 16200 for use 
by the machine-language code. I turn 
on the tape recorder's motor; the tape- 
to-speaker sound path allows me to 
hear the tape before I start the conver- 
sion. I set the starting addresses of the 
record and playback routines into Ex- 
tended Basic's user-function table. 
Regular Basic and Extended Basic are 
incompatible here. In regular Basic, 
you POKE the starting address of the 
single USR function to locations 275 
and 276 (decimal). Extended Basic 
does not allow that. Extended Basic re- 
quires the DEFUSR0 = ADDRESS 
convention. A scratch variable LOC 
points to the location to receive the 
next byte of machine-language code. I 
then go to the move-machine-language 
subroutine. 

Lines 9900-9930 read string data 
values as hexadecimal values, and 
POKE them into the assigned area. Us- 
ing hexadecimal data values allows 
direct use of Motorola's hex reference 
cards. It works by converting all strings 



TRS-80 Model I is alive and well at the Micromint. 
We still have the expansion interfaces you need! 



Disk-80 
Expansion Interface 




As featured in Ciarcia's Circuit Cellar 
Byte Magazine, March 1981 

Reviewed in March '82 "80 Microcomputing" 
$330.00 



DSK01 Disk-80 Expansion Interface 
with 32k RAMA&T 

DSK02 Disk-80 Expanstion Interface 
with 32k RAM & Printer Port 
A&T 

DSK03 Disk-80 Complete Kit with 
32k RAM & Printer Port ... 

DSK04 Disk-80 Bare Printed 

Circuit Board 

DSK05 Printer/Power Supply 
Circuit 



380.00 

275.00 
48.00 

1600 



The Disk-80 Expansion Interface is the 
perfect peripheral for converting your TRS-80 
Model I into a professional computer system. 
The Disk-80 controls up to four 35 to 77 track 
mini-disk drives, and contains a hardware data 
separator which substantially increases the 
reliability of data transfers. Attaches to the 
CPU/Keyboard connector and comes complete 
with mini-disk controller, 32K expansion 
memory, power supply, optional Centronics 
compatible printer port, real time clock and 
buffered bus expansion connector. 

"Reviewing Disk-80 is almost incongruous, 
because any comments can be summarized 
with the sentence, "It works." Dennis Bathory 
Kitsz, 80 Microcomputing, March 1982. 

All interfaces are Radio Shack hardware and 
software compatible and carry a 60 day war- 
rantee including parts and labor. 
All units include user's manual, power sup- 
ply & auxiliary TRS-BUS connector for future 
expansion. 

Dealer Inquires Invited 

N.Y. State residents please add appropriate sales tax. 



To Order: Call Toll Free: 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 

MICROMINT INC. 
917 Midway 
Woodmere, N.Y. 11598 




Comm-80 



31! 




Byte Magazine, May and June 1980 

The COMM-80 is the only interface you 
need to turn your TRS-80 Model I into a 
time sharing terminal with provisions for a 
printer. The COMM-80 combines the most 
used features of the RS expansion inter- 
face in a low cost unit containing a built-in 
RS-232-C interface, a full 8-bit parallel port 
and a 40 pin bus connector for future 
expanstion. Terminal software is included 
at no extra cost. 

• RS-232-C Serial output port (50-19200 baud) 
with standard DB25 connector. 

• Centronics compatible parallel printer port (34 
pin) 

• 40 pin card edge connector for bus expansion 

• Connects directly to CRT terminals, modems, 
printers, other computers. 

• Includes case, power supply & interconnecting 
cable. 

CM01 COMM-80 Serial/Parallel 

I/O Interface A&T $150.00 

TRS-80 is a trademark of Tandy Corp. , 



^■See List oi Advertisers on Page 563 
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(such as A9) to the hexadecimal con- 
stant form (&HA9) recognized by Ex- 
tended Basic. This form handled by the 
VAL function generates the decimal 
value handed over by POKE. Tem- 
porary variable A detects the end of the 
table. This also catches many missed- 
comma typing errors in the data list. 
When the over-255 value planted in 
9900 is detected, the machine-language 
load is stopped, and control returns to 
the main program section. 

The regular Basic version of the pro- 
gram has the same data except for 
the table addresses. For simplicity, I 
present the data as decimal numbers. 

Now we turn on the tape-to-tv path 
again, because we can enter statement 
50 from below as well (that's line 60 in 
regular Basic). The programs pause for 
keyboard input. In Extended Basic the 
computer automatically goes to Text 
mode when it hits the Input command. 
For regular Basic I force the video sys- 
tem back into line with the GOSUB 
300 section. 

The input statement allows final 
positioning of the source tape before 
starting digitization. When you hit 
return the computer flips to maximum 
graphics mode to show 6K bytes on the 
screen. GOSUB 200 in regular Basic 
does this. Then the Record routine 
starts. 

As the recording progresses, you 
will see short horizontal lines and rows 
of dots written or modified on the 
graphics screen. Each group of eight 
dots represents one byte of the table. 
They group into 32 columns. The right- 
most bit of each column is the one bit of 
that count byte. A tone of short counts 
(or tape hiss) tends to form vertical 
lines along their zone's right edge. You 
will see the bytes change as a ripple 
across each of the 192 lines, from left 
to right, from top to bottom. When the 
ripple hits the bottom, the recording 
section stops, and Playback begins. 
The computer speaks ! 

After one pass through Playback, 
control returns to Basic. At this point I 
use a loop to cause a slight silent delay, 
and then enter the Playback routine 
directly. The computer speaks again! 

I then check the fire button on the 
right joystick. This check can also be 
satisfied by holding down any key be- 
tween A and G. If the key (or button) is 
not hit, I repeat the Playback loop. If 
the key (or button) is down, I go back 
for another Record session. 

To stop the program, Extended Ba- 
sic responds to the break key. Regular 
Basic needs to be told how to restore 
the text screen, so the program checks 
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for the left joystick fire button, too. If 
that button is pushed, GOSUB 300 re- 
sets the screen before the program 
stops. If you break out of the program, 
you may type GOSUB 300 (even if you 
can't see it) to get the text screen back. 
The alternative is to push the reset 
button. 
More and Better 

What next? I have tried to lower 
storage requirements by increasing the 
loop times. This means each count in 
the table covers a wider time slice. 
Higher frequencies will not be seen. 
Since higher frequencies make lots of 
table entries in a short time, this trick 
saves a good deal of memory. I added 
sections to scan through the data and 
show graphs of how many entries 
(channels) contain which counts. This 
is a rough form of spectrum analyzer. 

I have also explored removing or re- 
placing ranges of table entries. If I re- 
place all entries below 16 with one, the 
speech becomes garbage. But if I re- 
place those same entries with random 
numbers between one and 16, the 
speech is almost unchanged. 



Loss of the high frequencies affects 
some words before others. For exam- 
ple, "cold mysterious," when robbed 
of its high frequencies by cutting 
below 16 or by loop-lengthening, 
becomes "cold whoosh." Perhaps you 
could generate a chart of low-fre- 
quency words (like "word") that can 
be stored efficiently. If the original 
sound is loud and full of low frequen- 
cies, the 6K region can hold more than 
10 seconds of speech. Loudness keeps 
the smaller-level high frequencies from 
making zero crossings. The low fre- 
quencies make each table byte take 
longer. If you are now recording 500- 
cycle tones instead of 1,000-cycle tones, 
each byte holds the loop for twice as 
long. By having that repeated 6,000 
times, the total time spent by the re- 
cord/playback is more than doubled. 

Another obvious step is to improve 
the volume resolution by using the 
A/D ability of the computer. This need 
not be done to the full 6-bit resolution 
if time is a problem. You can reach the 
proportional input through either of 
the joystick inputs. 



1 ' TALK for Color Computer Regular Basic 

2 ' (c) Richard Seymour aug 1981 

10 CLEAR 200,8192 : MOTOR ON : AUDIO ON : REC=16200 

20 R1=INT( REC/256 ) : R2= REC - Rl*256 : PLY=R2 + 31 

30 PRINT"HOLD THE RIGHT 'FIRE' BUTTON" : PR INT" TO RECORD ANOTHER SECTION" 

40 PRINT"H0LD THE LEFT 'FIRE' BUTTON" : PRINT" TO EXIT THE PROGRAM" 

50 POKE 275, Rl : POKE 276, R2 : L0C=REC : GOSUB 9900 

60 GOSUB 300 : AUDIO ON : INPUT "HIT RETURN TO START CONVERSION" ;A$ 

70 GOSUB 200 : ' start graphics 

80 POKE 276, R2 : A-USR(O) 

90 FOR 1=1 TO 200 : NEXT I 

100 POKE 276, PLY : A=USR(0) 

110 A=PEEK( 65280) : IF (A AND 1)=0 THEN 60 

120 IF (A AND 2)=0 THEN GOSUB 300 : END 

130 GO TO 90 

200 POKE 65314,249 : POKE 65475,1 : POKE 65477,1 : POKE 65480,1 : POKE 65487,1 

210 RETURN 

300 POKE 65314,0 : POKE 65474,1 : POKE 65476,1 : POKE 65481,1 : POKE 65486,1 

310 RETURN 

9000 DATA 26, 80, 206, 255, 32, 142 

9005 'table start address follows 

9010 DATA 32,0 

9020 DATA 134, 1, 95, 92, 165, 196, 

9030 DATA 95, 92, 165, 196, 39, 251, 

9035 'table end address follows 

9040 DATA 55,252 



38, 251, 231, 128 
231, 128, 140 



26, 80, 206, 255 

67, 204, 249, 60, 167 

67, 204, 180, 

95, 142 



53, 167 



9050 DATA 37, 235, 

9060 DATA 32, 111, 

9070 DATA 66, 231, 

9080 DATA 93, 231, 

9085 ' table start address follows 

9090 DATA 32, 

9095 ' the next 96 Is the volume 

9100 DATA 134, 96 

9110 DATA 230, 128, 167, 196, 90, 

9120 DATA 79, 230, 128, 167, 196, 

9125 'table end address follows 

9130 DATA 55, 252 

9140 DATA 37, 234 

9150 DATA 57 

9900 DATA 1000 : ' flag to stop transfer 

9910 READ A 

9920 IF A>255 THEN RETURN 

9930 POKE L0C.A : L0C=L0C+1 : GOTO 9910 

9999 END 



38, 251 

90, 38, 251, 140 



Program Listing 2. Regular Basic Version 



Another area to explore is shaping 
the output to something smoother than 
on/off. You can do this by dividing the 
loop count into quarters. Then send a 
12 for the first quarter, 24 for the mid- 
dle two quarters, and finish with 12 for 
the last quarter. This would produce 
the wave in Fig. 3a. By shifting to 16 
and 24 for the on cycle, and eight and 
zero for the off cycle, you should get 
even smoother sound. 

The Color Computer uses a similar 
technique for the waveform it sends to 



the cassette tape, but it reads values 
from a table stepped through at a con- 
stant rate. To achieve the higher fre- 
quency it uses every other value from 
the table. That table can be found 
starting at location A85C (decimal 
43100) in the regular Basic ROM. 

Other Computers 

This method requires a single input 
bit driven by your sound source. Like 
the Color Computer, you can use the 
cassette inputs of other computers to 



do this. If you can drive a peripheral 
input adapter (PIA) pin from a sound 
source, you could use it. You cannot 
connect a normal digital integrated cir- 
cuit to an alternating signal. When the 
signal drops below -0.5 volts, it 
would damage the chip. ■ 

Richard Seymour (Univ. of Wash- 
ington, Nuclear Physics Lab, GL-10, 
Seattle, WA 98195) has been doing 
hardware and software development 
and management for 15 years. 



TALK Assembly 
Loc Hex 
Dec Code 


language 


routine 
Source 
Code 




Comments 


16236 6F43 
16238 CCF83C 
16241 A7 42 


CLR 

LDD 
STA 


3,U 

#F83C 

2,U 


clear FF23 register 
pattern for 6-bit sound 
set the direction register 


16200 1A50 


RECORD 


ORCC 


#50 


block FIRQ and IRQ interrupts 


16243 E7 43 


STB 


3,U 


set sound out enable 


16202 CEFF20 




LDU 


#FF20 


address of cassette input flag 


16245 CCB4 35 


LDD 


#B435 


pattern for sound path 


16205 8E06 00 




LDX 


#0600 


table starting address 


16248 A7 5D 


STA 


-3,U 


set the analog switch 


16208 86 01 




LDA 


#01 


one bit for cassette flag 


16250 E7 5F 


STB 


-1,U 


at FF1DandFF1F 


16210 5F 


HIGH: 


CLRB 




start loopcount at zero 


16252 8E06 00 


LDX 


#0600 


beginning of table 


16211 5C 


HLOOP: 


INCB 




count the loop 


16255 86 60 HIOUT: 


LDA 


#60 


volume value (times 4) 


16212 A5C4 




BITA 


,u 


check 1 bit at FF20 


16257 E6 80 


LDB 


,X + 


get next loop count 


16214 26 FB 




BNE 


HLOOP 


loop if on 


16259 A7C4 HILOOP: 


STA 


,U 


turn on D/A 


16216 E7 80 




STB 


,X + 


put count in table 


16261 5A 


DECB 




downcount B register 


16218 5F 




CLRB 




reset count to zero 


16262 26 FB 


BNE 


HILOOP 


until zero 


16219 5C 


LOW: 


INCB 




count this loop 


16264 4F 


CLRA 




zero volume 


16220 A5C4 




BITA 


,U 


check the cassette bit 


16265 E6 80 


LDB 


,x + 


next table entry 


16222 27 FB 




BEQ 


LOW 


loop while off 


16267 A7C4 LOLOOP 


STA 


,U 


turn off D/A 


16224 E7 80 




STB 


,x + 


put count in table 


16269 5A 


DECB 




down we go 


16226 8C1DFC 




CMPX 


#1DFC 


table end address 


16270 26 FB 


BNE 


LOLOOP 


until run to zero 


16229 25 EB 




BLO 


HIGH 


keep recording if ok 


16272 8C1DFC 


CMPX 


#1DFC 


at top of table yet? 


16231 1A50 


PLAY: 


ORCC 


#50 


block FIRQ and IRQ 


16275 25 EA 


BLO 


HIOUT 


if not, do more 


16233 CEFF20 




LDU 


#FF20 


address of D/A output 


16277 39 


RTS 




otherwise, return to Basic 










Program Listing 3. Assembly Language Routine 









EPSON PRINTERS 



C00S0L COMPUTER PRODUCTS 

HAYES SMART 
MODEM & CHRONOGRAPH 



SANYO COMPUTER 




ffttmn -Vr 

mmSBBm 

• EPSON MX70 S288 

• EPSON MX80F/TGRAFTRAX PLUS CALL 

• EPSON MX1 00 GRAFTRAX PLUS CALL 

OTHER PRINTERS 

• NEC PC-8023A-C CALL 

• NEC 3550 CALL 

• NEC3510, 3515, 3530 S1695 

• NEC 771 0, 771 5, 7730 S2275 

• NEC 7720, 7725 S2645 

• C-IT0H 8510AP CALL • 8510ACD CALL 

• C.IT0H1541SP CALL • 1541SRE CALL 

• C.IT0H F10-40PU S1395 • F10-40RU... $1395 

• C.ITOH F10-55PU S1795 • F10-55RU $1795 

• 0KIDATA 82A CALL • 83A CALL 

• 0KIDATA84A .... CALL • 82A TRACTOR $55 

• TALLY MT 1 602 MT 1 605 $1 495 

• TALLY MT 1802 MT1805 $1795 

• DIABLO 630 and 620 SERIES CALL 

• QUME SPRINT 5 45/RO.KSR & 55/RO.KSR . CALL 

• ANADEX ADX-9500-P, ADX-9501 -P $1 295 

• C0MREX CR-1 -S, CR-1 -C CR-1 -0 CALL 

• SMITH-CORONA TP-1 CALL 




• HAYES SMARTMODEM (300 BAUD) $229 

• HAYES SMART MODEM (300 & 1 200 BAUD) $595 

• RS-232C COMPATIBLE 

• FULL and HALF-DUPLEX OPERATION 
WITH BOTH 

• TOUCH TONE and PULSE DIALOG 

• AUTO-ANSWER/DIAL/REPEAT 

• COMPLETELY PROGRAMMABLE 

• BUILT-IN AUTO MONITOR 

• STATUS AT A GLANCE 

• DIRECT-CONNECT DESIGN 

• HAYES CHRONOGRAPH S209 

• NOVATION AUTO-CAT AUTO ANS $219 

• SIGNALMAN MARK 1 (300 BAUD) $89 

• U.D.S. 103 0ALP (300 BAUD) $175 

• U.D.S. 103 JLP (300 BAUD) $199 

• U.D.S. 202 SLP (1200 BAUD) $249 

TERMINALS 

• TELEVIDEO 91 $595, • 91 2 $705 

• TELEVIDEO 920 $750, • 950 $959 

• ADDS Viewpoint A1 , A2. A3 $535 




• SANYO MBC-1 000 

• SANYO MBC-2000 

• SANYO MBC-3000 

• SANYO ACCESSORIES & SOFTWARE 
OTHER COMPUTERS 



ALTOS Computer Systems 

ADDS Computer Systems 

NECPC-8001A, PC-8012A, PC-8031A,and 

JB-1201 (NEC SYSTEM) 

NEC Other CPU's and Software 

DYNABYTE 5605-6-1 

DYNABYTE OTHER SYSTEMS 

XEROX 820 SYSTEM w/5 1/4" DRIVES 

XEROX 820 SYSTEM w/8" DRIVES 

SOFTWARE FOR THE ABOVE 



CALL 



CALL 
CALL 

$2149 
CALL 

$5999 
CALL 

$2499 

$2995 
CALL 



C00S0L SPECIAL DISCOUNTS 



I APPLE SOFTWARE 
IBM SOFTWARE ... 



CALL 
CALL 



C00S0L, INC. P.O. BOX 743, ANAHEIM, CALIFORNIA 92805-0743 



PHONE 7 DAYS 
A WEEK 



Calif. (714)545-2216 
(800) 854-8498 



■See List of Advertisers on Page 563 
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GAME 



Five Games for 4K 



by James Wood 



D 



on't despair if your Color Computer has only 
4K memory — here are Pong, Bingo, Simon, and 
Hangman clones written to fit your system. 



5 'ROCKET 

10 'JAMES W. WOOD, 424 N. MISSOURI ,ATWOOD, IL, 61913 

20 CLS0:PRINT@0,"":PRINT@4,"HITS"; :PRINT@27 , "SHOTS" ; :PRINT@13 , "R 

OCKETS"; 

30 POKE1530,143:POKE1532,143 

40 Z$=CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128) 

50 F$=CHR$(128) +CHR$(175) +CHR$ (175) +CHR$ (175) 

60 H=H+1:PRINT@8,H;:E=RND(13)*32+32:PRINT@E,F$; 

70 F=E 

80 PRINT@E,F$; 

90 E$=INKEY$ 

100 IFE$="F"THENV=V+1:PRINT@23,V; :GOTO120 

110 E=E+1:IFE>F+28THEN200ELSE80 

120 FORQ=507TO35STEP-32 

130 PRINT@Q,CHR$(255) ; : PRINT@Q ,CHR$ (128) ; 

140 E=E+1:IFE>F+28THEN200 

150 PRINT@E,F$; 

160 IFQ=E+1ORQ=E+2ORQ=E+3THEN170ELSE180 

170 W-W+l: PRINT @0,W; :GOSUB210:FORTT=1TO50 :NEXTTT:GOTO60 

180 NEXTQ 

190 E=E+1:GOTO80 

200 PRINT@E-1,Z$; :GOTO60 

210 FORWW=1TO5:SOUND180,1:PRINT@Q-2,CHR$(RND(128)+127)+CHR$(RND( 

128) +127) +CHR$(RND(128) +127) +CHR$ (RND( 128) +127) +CHR$ (RND(128) +12 

7) ; :NEXTWW:PRINT@Q-2,Z$; : RETURN 

Program Listing 1 



The 4K Color Computer is limited 
by its small memory, but programs can 
be developed for it. Here are five 
games you can play on a 4K or larger 
Color Computer. 

Rocket displays the number of hits, 
number of rockets, and number of 
shots at the top of the screen. A rocket 
(actually a rectangle) moves across the 
screen at various heights. A base at the 
lower right corner fires a missile when 
you press the F key. When you hit the 
rocket, a graphic explosion results. 
Make up your own rules; find out how 
many rockets you can hit with 10 shots 
or how many of the first 20 rockets you 
can hit. Adjust the program to fit your 
rules. 



"Here are five 

games you can play 

on a 4K or larger 

Color Computer. " 



Program Listing 2 

5 ' PONG 

7 'JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913 

10 CLS : PRINT :PRINTTAB( 13) "PONG": PRINT: PRINT" PLAYER ON LEFT":PRIN 

T" USES UP ARROW AND DOWN ARROW" : PRINT: PRINT" PLAYER ON RIGHT" :P 

RINT" RIGHT ARROW IS UP": PRINT" LEFT ARROW IS DOWN" : F0RTI=1T03 

000:NEXTTI 

20 XX=RND(9)-1 

30 Q=20:A=25:L=25:O=20:CLS0 

40 PRINT@66,LL;:PRINT@91,RR; 

50 FORY=9TO30:SET(0,Y,XX) :SET(63 ,Y,XX) :NEXTY 

60 C=l:K=l:PRINT@76,"PONG"; 

70 FORJ=20TO25:SET(7,J,XX) :SET( 56 , J, XX) :NEXTJ 

80 F0RX=1T062:SET(X,9,XX) : SET(X,30 ,XX) :NEXTX 

90 Y=10:X=RND(40)+10 

100 SET(X,Y,XX) 

110 F0RJ=1T02:NEXTJ:RESET(X,Y) 

120 IFPEEK(344) =247THENGOSUB350 

130 IFPEEK(343) =247THENGOSUB370 

140 IFPEEK(341) =247THENGOSUB390 

150 IFPEEK(342)=247THENGOSUB410 

160 X=X+C 

170 Y=Y+K 

Listing 2 continues 



Pong is similar to the tv pong games. 
The paddles move continuously if you 
keep the arrow keys pressed. 

For Bingo, you will need markers 
and bingo cards. The computer gener- 
ates bingo calls and graphically dis- 
plays them on a chart. Each number 
appears on the screen as orange col- 
ored but turns red as subsequent num- 
bers are called, so you can easily find 
the last call or check a winning card. 



The Key Box 

Color Computer 

4KRAM 

Color Basic or Extended Color Basic 



478 • 80 Micro, Anniversary 1983 



Listing 2 continued 




180 


IFY<30ANDY>9THEN220 


190 


IFX>58THEN300 


200 


IFX<6THEN280 


210 


IFPOINT (X,Y)THEN26 


220 


IFX>58THEN300 


230 


IFX<5THEN280 


240 


IFPOINT (X f Y)THEN27 


250 


GOTO10 


260 


SOUND1 00,1: K=-K : GOT017 


270 


SOUND200,1:C=-C:GOTO16 


280 


SOUND20,5:RR=RR+1:PRINT@91,RR; : IFRR=15THEN320 


290 


GOTO90 


300 


SOUND20,5:LL=LL+1:PRINT@66,LL; : IFLL=15THEN320 


310 


GOTO90 


320 


PRINT@485,"PLAY AGAIN" :KI$=INKEY$ 


330 


B$=INKEY$:IFB$=""THEN330 


340 


IFB$="Y"THENRUN1ELSEIFB$="N"THENENDELSE330 


350 


IF0<11THENRETURN 


360 


RESET(56,L) : 0=0-1 :L=L-1: SET ( 56 ,0,XX) :RETURN 


370 


IFL>28THENRETURN 


380 


RESET(56,0) : 0=0+1 :L=L+1:SET ( 56 , L,XX) :RETURN 


390 


IFQ<11THENRETURN 


400 


RESET(7,A) :Q=Q-1:A=A-1:SET(7,Q,XX) :RETURN 


410 


IFA>28THENRETURN 


420 


RESET(7,Q) :Q=Q+1:A=A+1:SET(7,A,XX) :RETURN 



5 "BINGO 

7 'JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913 

10 CLS:PRINT@200, "BINGO": PRINT: PRINT" PRESS <ENTER> FOR NEXT C 

ALL.":PRINT:PRINT"PRESS <Z> IF READY FOR NEXT GAME" 

20 PRINT@420, "PRESS <ENTER> TO CONTINUE" 

30 A$=INKEY$:IFA$=""THEN30 

40 CLS0:PRINT@4,"B"; : PRINT@9 , "I" ; : PRINT@14 , "N" ; :PRINT@19 , "G" ; :PR 

INT(a24,"0"; 

50 F0RC=1T015:PRINT@32*C,C; : PRINT@32*C+5 ,C+15; :PRINT@32*C+10 ,C+3 

0; :PRINT@32*C+15,C+45; : PRINT @32*C+20 ,C+6 0; :NEXTC 

60 FORC=35T0291STEP32:PRINT@C,CHR$(143) ; :NEXTC 

70 DIMB(75) 

80 A=RND(75) : IFB(A) =1THEN80 

90 B(A)=1 

100 IFA<=15THENP=4+32*A:PRINT@P,CHR$(255) ; :GOTO150 

110 IFA<=30THENP=9+32*(A-15) :PRINT@P,CHR$ ( 255) ; :GOTO150 

120 IFA<=45THENP=14+32*(A-30) : PRINT@P,CHR$ ( 255) ; :GOTO150 

130 IFA<=60THENP=19+32*(A-45) : PRINT@P,CHR$ ( 255) ; :GOTO150 

140 P=24+32*(A-60) : PRINT@P,CHR$ (255) ; 

150 K$=INKEY$ 

160 KK=KK+1:IFKK=75THEN210 

170 A$=INKEY$:IFA$=""THEN170 

180 IFA$="Z"THENRUNELSEIFASC(A$)=13THEN190ELSE170 

190 PRINT@P,CHR$(191) ; 

200 GOTO80 

210 CLS:PRINT@194,"YOU USED ALL THE SPACES!!!" 

Program Listing 3 



Program Listing 4 

5 'REREPEAT 

7 'JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913 

10 CLS 

20 PRINT@230, "REPEAT! ! !":INPUT" HOW MANY CAN YOU REPEAT" ;M 

30 IFM>50THENPRINT"SORRY, I CAN ONLY GIVE FIFTY" : PRINT@281 , " 

"; :GOTO20 
40 IFM<1THENPRINT"D0N'T BE SILLY" ;: PRINT@281 , " ";:GOTO20 

45 PRINT@416," USE THE ARROWS TO REPEAT THE PATTERNS OF LIGHT 
!!!!"; 

46 FORD=1TO1500:NEXTD 

50 DIMQ(50) :CLS0:FORB=1TO4:FORA=1TO5:A$(B)=A$(B)+CHR$(127+16*B) : 

NEXTA,B 

60 FORW=1TO50:Q(W) =RND(4) :NEXTW 

70 E=E+1: IFE=M+1THENCLS0:FORI=1TO30:SOUNDRND(150) +50 ,1:PRINT@RND 

(500) ,A$(RND(4) ) ; : NEXTI :GOTO250 

80 FORF=1TOE:FORD=1TO100:NEXTD 

90 CLS0:FORD=1TO100:NEXTD:ONQ(F)GOSUB210, 220, 23 0,240 

100 NEXTF:FORD=1TO100:NEXTD:CLS0 

110 FORF=1TOE:Z=0:CLS0 

Listing 4 continues 



TRS-80 MODEL II 
SCRIPSIT USERS 

KEY WORD INDEX 

(KVVIX) 

Alphabetically lists every KEY WORD from 
the SCRIPSIT document(s) you select. Up 
to 100 documents from multiple diskettes 
may be indexed together. 

KWIX uses a "Non-Key-Word" dictionary 
file to eliminate common words, then 
produces a sorted listing of KEY WORDS, 
with document and page reference 
numbers. 

KWIX also has a "Key Word in Context" 
capability. Key Words may be listed alone, 
or centered in 80 or 132 characters of 
context. 

KWIX is FAST and EASY TO USE. All disk 
output files are "packed" to provide max- 
imum indexing capacity and speed. 

Requires a 2-disk Model II and SCRIPSIT. 



Complete documentation included 



$40.00 



TRS-80 MODEL II USERS 
TRSDOS REVEALED! 

TRSDOS 2.0 MEMORY MAP 

Complete address/function map of 
Model II TRSDOS (0000-27FF). Identi- 
fies system subroutines, tables and 
status indicators. Many useful patches 
included $15.00 

MOD II DISASSEMBLER 

Produces an assembly language source 
code listing, with LABELS and CROSS- 
REFERENCE, from any machine code 
program in memory. ASCII data areas 
translated, NOT listed as instructions! 
Contains a "search" mode and many 
other special features. 

Requires a 1-disk Model II (64K) 

Complete documentation included 

$45.00 

SPECIAL OFFER 

Use the TRSDOS Memory Map, Dis- 
assembler, and your own ideas to 
"customize" your operating system. 
TRSDOS Map and Disassembler 

$50.00 

SKYLINE SOFTWARE 

Suite 2411 South 

3705 S. George Mason Dr. 

Falls Church, Va. 22041 

^279 

TRS-80, IKSDOS and SCRIPSIT are trademarks of Tandv Corp. 



■See List ot Advertisers on Page 563 
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Rerepeat is an imitation of Simon. 
Colored squares at the top, bottom, 
and sides of the screen flash a pattern 
that you must repeat using the up, 
down, left, and right arrows. First re- 



' 'Colored squares at 

the top, bottom, and sides 

of the screen 

flash a pattern. . . " 



peat one square, then the same one 
plus another, and so on. If you success- 
fully repeat the pattern, a wild graphics 
display appears on the screen. 

Hangman makes you guess the let- 
ters in a word in an attempt to save the 
little man from the rope. You can 
change the words in the data lines or 
add more. Be sure to change the 72 in 
line 70 to the total number of words in 
your data lines. ■ 

James Wood (424 N. Missouri, At- 
wood, IL 61913) is the coach for a 
high-school scholastic team. 



Listing 4 continued 



ft 



PACKER Machine language program that edits all or part 
of your Basic program to run taster, save memory, or 
ease editing The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines. 
SHORT— deletes unnecessary words, spaces, and REM 
statements PACK— packs lines into maximum multiple 
statement lines, including all branches MOVE— moves 
line or blocks of lines to any new location on program. On 
2 cassettes tor 16K. 32K. & 48K 
For TRS-80 Mod I or III Level II or Oisk Basic . . . $29.95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM format 
tapes Includes verify routines The Model III version 
allows use of both 500 and 1500 baud cassettes speeds. 

For TRS-80 Model I or III Level II S15.95 

CASSETTE LABEL MAKER A mini word processor to print 
cassette labels on a line printer Includes 50 peel - and - 
stick labels on tractor feed paper 

For TR-80 Model I of III Level II & Printer S17.95 

PRINT TO LPRINT TO PRINT: Edits your Basic program in 
seconds to change all Prints to LPrints (except Print© or 
PrinW) or LPrints to Prints. Save edited version. 

For TR-80 Modei I or III Level II S12.95 

FAST SORT ROUTINES: for use with Radio Shacks 
Accounts Receivable. Inventory Control I, and Disk 
Mailing List Systems for Model I Level II Sorts in 
SECONDS' You'll be amazed at the time they can save. 
Supplied on data diskette with complete instructions. 

FAST SORT for Accounts Receivable S19.95 

FAST SORT for Inventory Control I S19.95 

FAST SORT for Disk Mailing List (specify data diskette of 

cassette for 1 drive system} $14.95 

ALL THREE ROUTINES S44.95 

Prices subiect to change without notice Call or write tor a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted. Foreign order in US currency 
only. Kansas residents add 3% sales tax. 
On-line catalog in Wichita F0RUM-80 316-682-2113 
Or call our 24 hour phone (316! 683-4811 or writ*. 
COTTAGE SOFTWARE 1R , 
614 N.HARDING "" 

WICHITA. KANSAS 67208 
TRS-80 is a trademark of Tandy Corporation 



120 
130 
140 
150 
160 
170 
180 
20, 
190 
200 
210 
220 
230 
240 
250 
260 



A$=INKEYS 

A$=INKEY$:IFA$= nn THEN130 
IFA$=CHR$ ( 94) ANDQ(F) =1THENGOSUB210 : Z=l 
IFA$=CHR$ ( 8) ANDQ (F) =2THENGOSUB220 : Z=l 
IFA$=CHR$ ( 9) ANDQ (F) =3THENGOSUB230 : Z=l 
IFA$=CHR$ ( 10) ANDQ ( F) =4THENGOSUB240 : Z=l 

IFZ=0THENFORV=1TO5 : SOUND5 , 5 : NEXTV : FORF=lTOE : ONQ ( F ) GOSUB210 , 2 
230,240: FORD=1TO100 : NEXTD : CLS0 : NEXTF :GOTO250 
NEXTF 
GOTO70 
FORC=13T077STEP32 : PRINT@C , A$ ( 1 ) ; : NEXTC : S0UND147 , 2 : RETURN 



FORC=193T0257STEP32:PRINT@C,A$(2) ; 
FORC=21 8T0282STEP32 : PRINT@C , A$ ( 3) ; 
FORC=429T0493STEP32:PRINT@C,A$(4) ; 
CLS:PRINT@230, n PLAY AGAIN? (Y/N) " 
B$=INKEY$:IFB$="Y"THENRUNELSEIFB$="N"THENENDELSE260 



NEXTC: S0UND159 ,2 : RETURN 
NEXTC : SOUND17 , 2 : RETURN 
NEXTC : SOUND176 , 2 : RETURN 



10 'HANGMAN 

20 'JAMES W. WOOD, 424 N. MISSOURI ,ATWOOD, IL, 61913 

30 CLS:DIMA$(30) :FORA=lTOl4 :BL$=BL$+CHR$ (128) :NEXTA: FORA=201TO48 

9STEP32:PRINT@A,BL$; :NEXTA 

40 PRINT@235,CHR$(159)+CHR$(156)+CHR$(156)+CHR$(158)+CHR$(156)+C 

HRS(156)+CHR$(157)+CHRS(156) ; 

50 PRINT@267,CHR$(159)+CHR$(128)+CHR$(150) ; 

60 PRINT@299,CHR$(159)+CHR$(150) ; :FORA=331T049lSTEP32: PRINT@A,CH 

R$(159) ; :NEXTA 

70 T=RND(72) :FORY=lTOT:READA$:NEXTY 

80 B=LEN(A$) :F0RQ=1T0B:A$(Q)=MID$(A$,Q,1) :NEXTQ 

90 PRINT@96, "LETTERS USED, " ; :F0RA=1T0B: PRINT@38+A, "-" ; :NEXTA 

100 PRINT@160,"WHAT LETTER?"; 

110 PRINT@172," "; 

120 IK$=INKEY$ 

130 B$=INKEY$:IFB$=""ORB$=CHR$(13)THEN130 

140 PRINT@172,B$; : FORTI=1TO40 :NEXTTI 

150 FORQ=lTOB: IFB$=A$ (Q) THENPRINT@Q+38 ,B$; : SOUND150 ,1 

160 NEXTQ 

170 FORQ=1TOB:IFB$OA$(Q)THENNEXTQ:G=G+1:SOUND5,1:ON G GOSUB 210 

,220,230,240,25 0,260,270,280,290,300 

180 PRINT@W+110,B$; :W=W+1 

190 FORQ=1TOB:IFCHR$(PEEK(1062+Q))=A$(Q)ORPEEK(1062+Q)=64+ASC(A$ 

(Q) )THENNEXTQ:FORT=1TO10:PRINT@1 2, "CORRECT"; :FORTT=1TO10 :NEXTTT: 

PRINT@12 , " " ; : SOUND150 , 1 : FORTT=1TO10 : NEXTTT: NEXTT: RUN 

200 GOTO100 

210 PRINT@272,CHR$(158)+CHR$(159)+CHR$(157) ; : PRINT@304 ,CHR$ (157) 

+CHR$(159)+CHR$(158) ;:RETURN 

220 PRINT@336,CHR$(143)+CHR$(143)+CHR$(143) ; : PRINT@368,CHR$( 143) 

+CHR$(143)+CHR$(143) ; :PRINT@400 ,CHR$ (17 5) +CHR$ (175) +CHR$ (175) ;:P 

RINT<a432,CHR$(172)+CHR$(172)+CHR$(172) ;:RETURN 

230 PRINT@432,CHR$(175) ; : PRINT@464,CHR$ (175) ; :RETURN 

240 PRINT@434,CHR$(175) ; : PRINT@466 ,CHR$ (175) ;:RETURN 

250 PRINT@335,CHR$(142) ; : PRINT@367 ,CHR$ (138) ; :RETURN 

260 PRINT@339,CHR$(141) ; :PRINT@371 ,CHR$ (133) ;:RETURN 

270 PRINT@399,CHR$(158) ; :RETURN 

280 PRINT@403,CHR$(157) ;:RETURN 

290 PRINT@495,CHR$(177)+CHR$(183) ; :RETURN 

300 PRINT@498,CHR$(187)+CHR$(178) ; 

310 PRINT@0," THE WORD IS " ;CHR$ (34) ; A$; CHR$ ( 34) : SOUND89 , 8 : SET( 3 

3,17,2) :SOUND89,8:RESET(33,17) :SOUND89 ,4 : SET(36 ,17 ,2) :SOUND89,8: 

RESET(36,17) : SOUND117 ,8:SET(33 ,17 ,2) :SOUND108,4 :RESET(33 ,17) : SOU 

ND108,8:SET(36,17,2) :SOUND89 ,4:RESET(36 ,17) :SOUND89,8 

320 SET(36,17,2) :SOUND78,4 : SET(33 ,17 ,2) : SOUND89 , 8:RUN 

330 DATAABLE , ABOUT , ACCIDENT , BABY , BALANCE , BED 

340 DATACARE, CHANGE, CONTAINER, DAUGHTER, DELIVER, DISAPPOINTED 

350 DATAEAT , EMPTY , ENERGY , FIGURE , FAST , FRUIT 

360 DATAGATHER , GRACEFUL , GRANDFATHER , HANDKERCHIEF , HELLO , HUNGRY 

370 DATAIODINE, ICE, INVENT, JACKET, JET, JUNGLE 

380 DAT AK ANG AROO , K I NGDOM , K I ND ERG ARTEN 

390 DATALADDER, LATER, LADY 

400 DAT AMONEY, MATCH, MARRY 

410 DAT ANOTHING, NEW, NARROW 

420 DAT AOCTOPUS, OATMEAL, ONLY 

430 DATAPACKAGE, PARTY, PALACE 

440 DATAQUARTER, QUESTION, QUEEN 

450 DAT ARACE, READY, REASON 

460 DAT AS AD, SAILBOAT, SAT 

470 DATATALL, TEACHER, TEASE 

4 80 DATAUGLY , UNDERSTAND , UNUSUAL 

4 90 DATAVACATION, VASE, VACUUM 

500 DATAWADE, WAGON, WALL 

510 DATAXYLOPHONE, ZEBRA, ZIPPER 

Program Listing 5 
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AT LAST! 

A PROFESSIONAL JOURNAL FOR ENGINEERS 

SCIENTISTS MATHEMATICIANS & STATISTICIANS USING 

MICROCOMPUTERS. 

PLUG INTO- 

ACCESS! 
The Journal of Microcomputer Applications 
for 

* numerical analysis * computerized design 

* math modeling * process simu'ation 

* statistical analysis * report generation 

The articles in ACCESS are written hy working 
engineers and scientists who share their knowledge ot 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And you'll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
microcomputer into the most productive too! possible. 
Sign up NOW be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada & Mexico 
$20. Other $32). Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 

QSign mc up. $16 enclosed B HI me Bill ^ 155 
Company Charge VISA MC § 

Exp __^__^ Send sample issue here's $3 

Name & addres s 

City State and nv 

Mafl to ACCESS PO Box 12847 Research Triangle Park, 
NC 27709 Published by LEDS Publishing Co., Inc. 



Sales Opportunity 

A few select territories available 



Join a fast growing company in- 
volved in the microcomputer in- 
dustry as a direct salesman. 
Sales involve our wide selection 
of books, four publications and 
software. We are looking for a 
non-smoking individual with a 
good sales background and a ba- 
sic understanding of microcom- 
puters. An excellent career 
awaits the person who wants to 
be "on his own." It will be the re- 
sponsibility of our direct sales- 
man to become familiar with all 
makes of computers and their 
sales outlets, amateur radio and 
electronic stores, book stores, 
and other outlets for our prod- 
ucts in your given territory. We 
will also add other lines as they 
become available. Arrangements 
are being made to coordinate ef- 
forts with some other firms in the 



area, including a major printer 
manufacturer. We offer an excel- 
lent growth potential with a high- 
ly motivated, young corporation. 
If you or someone you know is in- 
terested in the opportunities 
available at Wayne Green Inc., 
please submit your background 
in detail, including sales experi- 
ence, recent work history, knowl- 
edge of the microcomputing in- 
dustry, educational background 
and references to: 



Sales Manager 
Wayne Green, Inc. 
Peterborough, NH 03458 



All replies will be immediately ac- 
knowledged and held in the strict- 
est of confidence. 




WAYNE GREEN, INC. 
(AN-80) Pine Street 
Peterborough, N.H. 03458 



INNOVATION — QUALITY 
SUPPORT 

PIONEER SOFTWARE 

1746 NORTH WEST 55TH. AVE. #204 
, LAUDERHILL. FLORIDA 73313 

PHONE 1- (305) -739-21? 71 Hj I 



J 
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SCRIPTR MAEE5 SCRIPSIT A COMPLETE W-P SYSTEM 
MENTION THIS ISSUE AND GET *5.00 OFF EITHER PROGRAM 



NEW' GRAPHTRAX ! - I TAL I CS-UNDERL INE-DOUBLE- EMP*JUST IFY TEXT. 
NEW' DIAL -A -PR I NT - GET LETTER GHIAl I TY BY REPRINTING I INES 

ENTER/fXIl SCRIPSIT AT WILL WITHOUT LOSING TEXT BUF. 

OUTPUT ANY CODE' (S) (0-255). DIRECT FROM THE TEXT. 

SIMPLE LETTER COMMANDS CONTROL < EVERY. MX -80 + 100 

PROGRAMMABLE FEATURE I NCI. . VAR I I Nl SPACING AND FORMS. 

WRITE FORM IETTFRS AND INPUT DATA INTO REPORT FORMS. 

DISPLAY ONI Y MODE HELPS SHOW WHERE PAGES START/END. 

EDIT MODE FOR ERRORS. CHANGES. GRAPHICS OR PAUSING. 

SELECTED PAGES PRINTED DIRECT /CORRE CT HEADERS. PAGE* ' S 

PRINT OUI lllll SCREEN PICTURE FILES MADE BY CRAYON ■ ' 

7 SAMPLE TEACHING PROGRAMS TAE E YOU STEP BY STEP. 

66 PAGE MANUAL. BOUND, INDEXED. COMPLETELY REVISED. 
Ill- CUSTOM VERSIONS AVAILABLE FOR THE (Oil OWING PRINTERS: 
NEW 1 MICROLINE-B0 *■ 82A. PROWRITER ♦ LP IV. t VIII. ♦ F-10 
NEW' DAISY WHEEL 2 VER. ALLOWS SUB/SUPER SCRIPTING 10". 12" 
NEW 1 » PROPORTIONAL-UNDERLINING- I* 1/2 LEGAL LINE SPACING 
NEW' EMPHAS I ZED. D I AL-A-PR I NT. PROGRAMMABLE OVERSTRIEE MODE. 

MX 80/1130 VER. WORES WIIH/WITHOUT GRAPHTRAX 80 OR PLUS 
DISE SCRIPTR MOD 1/3 - *40.00 MOD 1 + 1 I I . VERSIONS BOTH 
WORE. WITH MODEL I. SCRIPSIT/LC NO PATCHING REQUIRED. 
CASSETTE SCRIPTR MOD 1/3 = *40.00 WORE S WITH REG. SCRIPS. 
1.0 FOR MOD 1/3 REQ.32K.+ LC/MOD SCRIPTR IS A 5.5k PROG. 
SEND EOR OUR FREE BROCHURE THAT DEMONSTRATES ALL FEATURES 
SCRIPTR IS WELL DOCUMENTED AND BUG FREE' CUSTOMER SUPPORT 
SATURDAYS * fVENINGS FOR YOUR CONVENIENCE . FREE BROCHURE 1 



•:•'•• PLEASE INCLUDE THIS INFORMATION WHEN ORDERING >V>> 
NAME ........I MODEL 1 OR 3 _ I CASSETTE/D I SE 

ADDRESS ...... I TYPE PRINTER . I SCRIPSIT VER *. 

CITY/STATE/ZIP/PHONE I MEMORY SIZE . I PAYMENT METHOD 

CHECH S - MONEY ORDERS - COD"S ACCEPTED , 



c re R >" OM 



CRAYON IS A GRAPHICS DESIGN UTILITY THAT NO TRS-B0 
OWNER SHOULD BE WITHOUT. CRAYON DOES IT ALL ' ' 

YOU'VE SEEN THE ADS FOR OTHER DRAWING PROGRAMS. SOME 
CHARGE AS MUCH AS *150.00 FOR THE ABILITY TO ADD GRAPHICS 
TO YOUR PRINTOUTS. CRAYON ISN'T A CONVERTED TEXT PROCESSOR 
CRAYON WAS DESIGNED FROM THE GROUND UP TO GIVE YOU THE 
VERY FINEST GRAPHIC'S EDITOR POSSIBLE. COMFLEX GRAPHICS 
REQUIRE ROUTINES TO MOVE AND MANIPULATE GRAPHICS THAT NO 
TEXT PROCESSOR CONTAINS. ALSO CRAYON PRODUCES SUPER HIGH 
SPEED GRAPHICS THAT YOU CAN ACCESS FROM YOUR ASSEMBLY AND 
BASIC PROGRAMS. ALSO WITH A BLOCK GRAPHICS PRINTER AND 
SCRIPTR YOU CAN PRINT OUT YOUR CRAYON FILES FROM SCRIPSIT. 
BEFORE YOU WASTE YOUR MONEY ON HALF A PROGRAM CHECK OUT 
CRAYON'S MANY FEATURES. CRAYON DOES IT ALL 11 ! 
1). TYPESET LOGO'S - LETTERHEADS - ENVELOPES - BUSINESS 
CARDS AND OTHER OFFICE FORMS. THIS AD WAS TYPESET 
FROM AN MX-80 PRINTOUT THEN SHRUNK. COST = «4.50 
IF AD WAS TYPESET AT A PRINTSHOP THE COST = «200 * 
2). CREATE AND RUN REAL CARTOONS WITH CRAYON AND THEN 
RUN YOUR CARTOONS FROM BASIC AT ASSEMBLY LANGUAGE 
SPEEDS. SPEEDS OF 35 FRAMES/SECOND POSSIBLE. USE IT 
TO DESIGN DISPLAYS FOR USE IN BASIC 8. ASSEMBLY PROG'S 
3). MANAGE DISE.'ETTE DIRECTORIES, PRINT THEM, SEARCH THEM, 
COMMENT THEM. MOD 3 DIR. WORKS ON A TRSDOS SYS. ONLY. 
4). DRAW ANYTHING YOU DESIRE ONTO THE SCREEN AND PRINT IT 

OUT OR SAVE IT TO DISK/TAPE - UP TO 30 SCREENS/FILE. 
5). SCREEN FILES MAKE CRAYON A FAST EASY WAY TO KEEP AN 

ELECTRONIC NOTEBOOK. FAST+EASY INFORMATION RETREIVAL. 
6). PREFORM ALL VIDEO WORKSHEET FUNCTIONS RIGHT ON SCREEN 



2) . 



6) . 



7) . 



3i.', n«ur_',r L' 

2 s 



USER FRIENDLY / 42 PAGE DOC'S, OFFSET PRI NTED, INDEXED 

NINE CHARACTER USER DEFINED CURSOR. > ■■■ ■ ■ 

16 LETTER COMMANDS FOR GRAPHICS ENTRY. |s| TYPE 
COPY CHARACTERS IN ANY DIRECTION FAST. 
UPPER/LOWER CASE SUPPORT WITHOUT DRIVERS. 
DO ALL OF THE FOLLOWING ON VARIABLE LENGTH LINES-> 
COPY-FILL-DELETE-EXCHANGE-MOVE-PULL-UC/LC- INVERT 
GRAPHICS-PRINT-JUSTIFY TEXT-BUFFER/RESTORE TO SCREEN. 
UTILITIES INCLUDE — > MASK - AUTOMATIC PRINTS NUMBERS 
CURSOR LOCATION AND VALUE-3 SELECTIVE CLS ' S-PATTERN- 
EXTRA BUFFERS-COMBINE SCREENS -HEXDUMP-SEARCHES. MORE 
8). FULL DISK / CASS I/O DIR-WRITE-LOAD-APPEND-COPY-KILL 
SCREENPRINT- OUTPUTS CODES TO DRIVE ANY PARALLEL PRINTER 
PROFESSIONALLY WRITTEN S< SUPPORTED-NO PROGRAMMING REQUIRED 
OVER 90 COMMANDS -> FAST / EASY / FUN <- ALL MACHINE LANG. 
CASS MOD l+3=*35.00 / DISK MOD 1 OR 3=«45.00 10K PROGRAM 
WORKS IN 16K. OR MORE AND ADJUSTS TO MEMORY SIZE CHANGES. 
ESPECIALLY FOR MX-80, MICROLINE80 AND OTHER BLOCK GRAPHIC 
PRINTERS. PRINTER NOT REQ. FOR FILE HANDLING + CARTOONS. 
U_ LIBERAL DEALER TERMS AVAILABLE - INQUIRIES INVITED _J 



iiiiiio: 



sSee List of Advertisers on Page 563 
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BUSINESS 



Reconcile with Color 



by David Dacus 



Y 



ou don't need a Model II, CP/M, and a general 
ledger program to balance your checkbook. 
Just run this routine on your CC with 32K. 



If keeping track of finances gets you 
down, try this program. It contains a 
comprehensive financial management 
package associated with the check regis- 
ter, and it performs the following tasks: 

• Enters transactions 

• Edits transactions 

• Reconciles your bank statement 

• Searches for checks to a specific 
payee 

• Searches for a series of checks 

• Lists all checks in the file to a printer 

• Shows the current bank balance 

• Searches for checks written during a 



specific month 

• Searches for checks written for a 
specific category 

• Exits the program with no file save 

• Records all checks to disk and exits 
This program was written for a 32K 

Color Computer with Radio Shack 
Disk Basic, and it uses all the available 
memory in the 32K. With one page of 
graphics reserved when the program is 
running (PCLEAR 1 — the smallest 
amount reservable with disk opera- 
tional) and with all arrays dimen- 
sioned, 202 bytes are free. You can 



Program Listing 

10 REM CHECK REGISTER 

20 REM COPYRIGHT 1982 BY DAVID M. DACUS, 1670 VALENCIA, LAS CRUC 

ES, NM 88001 

25 GOTO 2005 

30 CLEAR 7000 

40 CLS:PKlNTia0,STRING$(64,165) :INPUT"IS THIS A NEW FILE (Y OR N) 

";A$:PRINT@128, STRING$ (32, 165) 

50 DIM FIL$(80) ,T(250) ,A(250) 

60 DIM NAM$(250) ,CHK$(250) ,AMT$(250) ,MON$(251) ,CAT$(250) ,REC$(25 

0) 

70 IF A$="Y" THEN INPUT "WHAT IS THE NAME FOR YOUR NEW DAT 

A FILE?";FL$:N = 0:GOTO 200 

80 INPUT "WHAT IS THE NAME OF YOUR CURRENT DATA FILE?";FL 

$: PRINT STRING? (32, 165) ; : PRINT"LOADING DATA" 

90 OPEN n D", #1, FL$, 64 

100 N = N + 1 

110 GET #1, N 

120 INPUT #1, CHK$(N) ,AMT$(N) ,REC$(N) ,NAM$(N) ,MON$(N) ,CAT$(N) 

130 A(N) = VAL(AMT$(N)) 

140 IF LOF(l) <> N THEN 100 

150 CLOSE #1 

160 FOR D = 1 TO N 

170 IF CAT$(D) <> "DEPOSIT" THEN 190 

180 T(D) = T(D-l) + A(D):NEXT DrGOTO 200 

190 T(D) = T(D-l) - A(D):NEXT D 

200 CLS:PRINT@0,STRING$(32,175) 

210 PRINT@ 32,"**TO RECOVER FROM ERROR WITHOUT LOSING DATA ENTER 

GOTO 200**" 

Listing continues 



modify the program to operate on a 
16K Color Computer or a TRS-80 
Model I, II, or III. Suggestions for 
modifications and a discussion of some 
of the Color Computer's commands 
appear in the conclusion. 

The program keeps track of all 
checks written on your account by ask- 
ing you to enter five data items for each 
check. The program accepts credits and 
deposits as well as checks and debits. 
The current balance is maintained with 
each entry; this is useful if you have two 
checkbooks for the same account. 

Another useful function is the search 
by category. This function is priceless at 
income-tax time. 

Reconcile saves time when the 
monthly bank statement arrives. You 
can reconcile savings and checking ac- 
counts in 15 to 20 minutes; it takes two 
to three hours by hand. 

Algorithms 

The Enter subroutine (lines 260-410) 
lets you enter new checks, deposits, 
credits, and debits. The program asks 
you to enter a check by entering five 
data items separated by commas. Enter 
the data in the following order: check 
number, up to six digits; payee name, 
up to 16 characters; the amount of the 
check, up to nine characters; the month 
the check was written, three characters 
(e.g., JAN); and the category of the ex- 
penditure, up to 16 characters. 

Any entry that adds money to the ac- 
count must be entered as category De- 
posit. The automatic balance function 
searches the category of an entry for the 
value Deposit. If the category is Depos- 
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listing continued 

220 PRINT @ 96, STRING$ (32 ,175) :PRINT @ 128, "SELECT A FUNCTION. 

ENTER A NUMBER": PRINT @ 160, STRING$ (32 ,175) 

23 PRINT @ 192, "l.ENTER" , "2. EDIT" , "3 .RECONCILE" , "4. PAYEE" , "5 .C 

HECK # ","6. LIST", "7. BALANCE", "8. MONTH ","9. CATEGORY", "10. QUIT", "1 

l.EXIT - SAVE FILE":PRINT @ 384, STRING? ( 32 ,175) 

240 INPUT "PLEASE ENTER A #";B:IF B < 1 OR B > 11 THEN FOR B = 1 

TO 200: PRINT "PLEASE ENTER A # BETWEEN 1 & 11": NEXT B:GOTO 200 
250 ON B GOTO 260,420,600,990,1230,1360,1460,1490,1650,2000,1940 
260 FOR D = N + 1 TO 250 :CLS: PRINT@0 ,STRING$ (32 ,169) : PRINT@32 , " 
** ENTER ANY MONEY ADDED TO THE ACCOUNT AS CATEGORY - DEPOSIT ** 
":PRINT@96,STRING$(32,16 9) 

270 PRINT@128,"LAST CHECK ENTERED WAS "; CHK$ (N) : PRINT@160 , STRING 
$(32,169) 

280 PRINT@192, "ENTER CHECK DATA SEPARATED BY ,S (6)/(16)/ (9) 
/ (3) / (16) CHK#, NAME, AMOUNT, MONTH, CATEGORY" : PRINT@288 ,STRIN 
G$(32,169) 

290 INPUT CHK$(D) ,NAM$(D) ,AMT$(D) ,MON$(D) ,CAT$(D) :A(D) = VAL(AMT 
$(D) ) :IF N <= 1 THEN 350 

300 FOR E = 1 TO N:IF CHK$(D) <> CHK$(E) THEN NEXT E:GOTO 350 
310 CLS:PRINT@0, STRING$(224, 246) ; "CHECK NUMBER ";CHK$(D); n HAS B 
EEN ENTERED ALREADY" 

320 PRINT"CHECK NUMBER ";CHK$(D);" IS":PRINT CHK$(E) n "NAM$(E) n 
"AMT$(E)" "MON$(E)" "CAT$(E) 

330 INPUT "DO YOU WANT TO 1. RETURN TO INPUT 2. RETURN TO MAIN MEN 
U"; B 

340 IF B = 1 THEN 260 ELSE GOTO 200 
350 N = D:IF CAT$(D) <> "DEPOSIT" THEN 370 
360 T(D) = T(D-l) + A(D) :GOTO 380 
370 T(D) = T(D-l) - A(D) 
380 CLS:PRINT@0, STRING$(32, 169) ; "THERE ARE NOW" ;N; "CHECKS IN THE 

FILE. THE LIMIT IS 250 CHECKS" :PRINT@96 ,STRING$ (32 ,169) 
390 PRINT"THE CURRENT BALANCE IS ": PRINTUSING"**$## ,#####.##" ;T( 
D) :PRINT@224,STRING$(32,169) 

400 INPUT "ARE YOU THROUGH ENTERING (Y/N) " ;X$: IF X$ <> "N" THEN 
200 

410 NEXT D:GOTO200 

420 CLS:PRINT@0,STRING$(160,181) ; :INPUT "ENTER CHECK # FOR EDIT" 
; X$ : CLS : PRINT@0 , STRING $(32,181); 

430 PRINT @ 32, "CHK# , NAME, AMOUNT, MONTH, CATEGORY" : PRINT@64 ,STRIN 
G$(32,181) ; 

440 FOR D = 1 TO N:IF X$ <> CHK$(D) THEN NEXT D 

450 PRINT CHK$(D)" "NAM$(D)" "AMT$(D) n "MON$(D)" "CAT$ (D) : PRINTS 
192,STRING$(32,181) ; 

460 PRINT@224, "WHICH OF THE ITEMS IS INCORRECT ";"1. CHECK #","2. 
NAME ","3. AMOUNT", "4. MONTH ","5. CATEGORY", "6. ALL ARE RIGHT" : INPUT 
B:CLS:PRINT@0,STRING$(32,181) ; 
470 ON B GOTO 480,490,500,550,560,590 
480 INPUT "ENTER CORRECT CHECK #" ;CHK$ (D) :GOTO570 
490 INPUT "ENTER CORRECT NAME" ; NAM$ (D) :GOTO57 

500 INPUT "ENTER CORRECT AMOUNT" ;AMT$ (D) : A (D) = VAL(AMT$(D)) 
510 FOR E = D TO N:IF CAT$(E) <> "DEPOSIT" THEN 530 
520 T(E) = T(E-l) + A(E):NEXT E:GOTO 540 
530 T(E) = T(E-l) - A(E) :NEXT E 

540 PRINT"THE CORRECT BALANCE IS":PRINT USING "**$##,####.##" ;T( 
N) :PRINT@128,STRING$(32,181) ; :GOTO 570 
550 INPUT"ENTER CORRECT MONTH" ;MON$ (D) : GOTO 570 
560 INPUT"ENTER CORRECT CATEGORY" ; CAT$ (D) 

570 PRINT @ 224,CHK$(D)" "NAM$(D) n "AMT$(D) n "MON$(D)" "CAT$(D): 
PRINT@288,STRING$(32,181) ; 
580 PRINT@320,; : INPUT "IS THE ENTRY CORRECT (Y/N) " ;X$: IF X$ = "N" 

THEN CLS: GOTO 450 
590 PRINT@288,STRING$(32,181) ; : INPUT "DO YOU WANT TO EDIT AGAIN( 
Y/N)";X$:IF X$ = "Y" THEN 420 ELSE 200 

600 CLS:PRINT@0,STRING$(32,185) ;"ENTER# OF CHECK TO BE RECONCILE 
D": INPUT "CHECK # ";X$ 

610 PRINT@96,STRING$(32,185) ; "CHK# , NAME, AMOUNT, MONTH, CATEGORY "; 
STRING$(32,185) 

620 FOR D = 1 TO N:IF X$ <> CHK$(D) THEN NEXT D 

630 PRINT@192,CHK$(D) ■ "NAM$(D)" "AMT$(D) n "MON$(D) n "CAT$(D):PR 
INT@256,STRING$(32,185) 

640 PRINT"DOES THE COMPUTER ENTRY MATCH YOUR CHECK ",,"1.YES", 
"2. NO", "3. DO NOT RECONCILE" : INPUT "#";REC$(D) 
650 IF VAL(REC$(D)) <> 2 THEN 790 

660 CLS:PRINT@0,STRING$(32,185) ;CHK$(D)" "NAM$(D) n "AMT$(D) n "MO 
N$(D)" "CAT$(D) 

670 PRINT@96, STRING$(32, 185) ; "WHICH OF THE ITEMS IS INCORRECT "; 
"1. CHECK #","2. NAME", "3. AMOUNT", "4. MONTH", "5. CATEGORY", "6. ALL AR 
E RIGHT":INPUT B: PRINT@288,STRING$(32 ,185) ; 
680 ON B GOTO 690,700,710,750,760,790 

690 INPUT "ENTER THE CORRECT CHECK #" ; CHK$ (D) :GOTO770 
700 INPUT "ENTER THE CORRECT NAME" ;NAM$ (D) :GOTO770 

710 INPUT "ENTER THE CORRECT AMOUNT" ;AMT$ (D) : A (D) = VAL(AMT$(D)) 
720 FOR E = D TO N:IF CAT$(E) <> "DEPOSIT" THEN 740 
730 T(E) = T(E-l) + A(E) :NEXT E:GOTO770 
740 T(E) = T(E-l) - A(E):NEXT E:GOTO 770 

Listing continues 



it, the amount is added to the account. 
All other entries are subtracted from the 
account. 

Enter's algorithm prevents you from 
entering two checks by the same check 
number. If two checks are entered by 
the same number, you can never reach 
the second check to reconcile it. If you 
need to enter two checks with the same 
number, label one with a trailing alpha 
character (e.g., 1459 and 1459A). 

Each time you enter a check you are 
asked if you want to enter another 
check or return to the main menu. The 
default value is return to the main 
menu, and if you press enter without 
entering a response, the main menu 
appears. 

Edit (lines 420-590) allows you to 
change any data item entered for a 
check. When you enter a check number, 
the current data for that check displays 
and you are offered six choices. Options 
1-5 let you change one of the five data 
entries. Option 6 lets you say that the 
data is fine. This option is offered in 
case you select the wrong check number 
for edit. 

If you select option 6, you do not 
need to change any value. You are 
asked if you want to edit another check 
or return to the main menu. If you 
change a data entry, the new check 
displays and you are asked if it is cor- 
rect. If you answer yes, the program 
asks if you wish to enter another check 
for edit. If the check is not correct, it 
asks which data item you wish to 
change. When the data item changed is 
the amount, the balance of the account 
is updated. 

Reconcile (lines 600-980) is the heart 
of the checkbook portion of the pro- 
gram. This algorithm keeps track of 
each check that has been returned with 
your monthly bank statement, so you 
know which checks have cleared the 
bank and which have not. 

The function asks for a check num- 
ber to be reconciled. When you enter 
the number, the data stored for the 
entered check is displayed to the screen 
and you are asked if the data matches 
the check you hold in your hand. If you 
enter 1 (yes) the check is flagged as 
reconciled and will not be listed as an 
outstanding check. If you enter 2 (no) 
you are sent to an edit subroutine and 
asked which data item is incorrect. 

This subroutine works in the same 
manner as the Edit function. After you 
have corrected the data you are again 
asked if the data matches the check. 
If you respond with a 1 or 2, the pro- 
cedures just discussed are repeated. 
Option 3 is "do not reconcile." This 
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option allows you to skip functions 1 
and 2 if you have entered an erroneous 
check number or do not wish to recon- 
cile the check. 

After you have completed option 1, 
2, or 3, you are asked if you want to 
enter another check, list all outstanding 
checks, or return to the main menu. If 
you request to enter another check, re- 
peat the above procedure. If you ask to 
return to the main menu, you exit the 
reconcile algorithm. 

If you ask to list all outstanding 
checks, you are offered two options. 
You can have all outstanding checks 
listed on the printer or on the screen. 
Once you have selected either a printout 
or CRT listing, you are asked for the 
closing balance of the current bank 
statement. All five data items are listed 
for each outstanding check, followed by 
a list of the total value for the outstand- 
ing checks and a list of the value of out- 
standing deposits. The reconciled bal- 
ance is also listed. 

The Payee function (lines 990-1220) 
lists all checks to a specified payee. You 
are first presented with the option of 
listing all payees. The payees may either 
be listed to the CRT or to the printer. If 
you have written checks to a large num- 
ber of payees, you may experience a BS 
error. The unique-payees array is di- 
mensioned to hold 80 payees (FIL$(80) 
in line 50). After the payees have been 
listed, or if you select no listing, you are 
asked to name the payee you want 
listed. You can then select between 
listing all checks to the payee to either 
the printer or the CRT. 

The Check # function (lines 
1230-1350) lets you list a series of 
checks searched by check number. You 
are asked to input the first and last 
number for the search, separated by 
a comma. 

List (lines 1360-1450) sends a list of 
all checks in the file to the printer. At 
the end of the check list, the current 
bank balance is printed. 

The Balance function (lines 1460- 
1480) lists the current balance to 
the screen. 

Month (lines 1490-1640) lists all 
checks written within a single month. 

Category (lines 1650-1930) automa- 
tically provides a list of categories and 
then asks you to select a category for 
Search. 

The Quit function (line 2000) exits the 
program without saving any transac- 
tions done before the exit. 

The Exit-Save File function (lines 
1940-2000) saves all check data to the 
disk file named when you enter the pro- 
gram, and then exits the program. You 
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Lining continued 

750 INPUT "ENTER THE CORRECT MONTH" ;MON$ (D) :GOTO770 

760 INPUT "ENTER THE CORRECT CATEGORY" ;CAT$ (D) 

770 CLS:PRINT@0,STRING$(32,185) ; "THE CURRENT BALANCE IS":PRINT U 

SING"**$##, #####. ##";T(N) :PRINT@96 ,STRING$ (32 ,185) 

780 PRINT@128,CHK$(D)" "NAM$(D) n "AMT$(D) n "MON$(D) n "CAT$(D):PR 

INT@192,STRING$(32, 185) ; : INPUT "IS THE CHECK DATA CORRECT" ;X$: IF 

X$ = "N" THEN 660 ELSE GOTO640 
790 PRINT@256,STRING$(32,185) ; :PRINT "DO YOU WANT TO ",, "l.ENTER 

ANOTHER CHECK", "2. LIST ALL CHECKS OUTSTANDING" , "3 .ENTER ANOTHER 

FUNCTION" ;STRING$( 41, 32) ; : INPUT E 
800 ON E GOTO 600,810,200 
810 CLS:PRINT@224,STRING$(32,185) :INPUT"DO YOU WANT (l)HARDCOPY, 

OR (2) CRT LISTING OF OUTSTANDING CHECKS?" ; F : INPUT"ENTER C 
LOSING BALANCE FROM STATEMENT" ; Si : K=0 :H=0 : IF F = 2 THEN 910 
820 PRINT "LISTING OUTSTANDING CHECKS" : PRINT#-2 , "****LIST OF OUT 
STANDING CHECKS* ";CHR$( 10) ;CHR$(10) 

830 PRINT#-2, "CHECK #", "MONTH" , "NAME" , "AMOUNT" , "CATEGORY" 
840 FOR D = 1 TO N 

850 IF VAL(REC$(D)) <> 1 THEN PRINT #-2, CHK$ (D) ,MON$ (D) ,NAM$ (D) 
,AMT$(D) ,CAT$(D) :IF CAT$(D) = "DEPOSIT" THEN 860 ELSE H = H + A( 
D) 

860 IF VAL(REC$(D)) <> 1 AND CAT$(D) = "DEPOSIT" THEN K = K + A( 
D) 

870 NEXT D:PRINT #-2, CHR$ (10) ;CHR$ (10) ; "THE TOTAL VALUE OF OUTS 
TANDING CHECKS IS $"H 

880 IF K > THEN PRINT #-2, CHR$ (10) ; "THE TOTAL VALUE OF OUTSTA 
NDING DEPOSITS IS $"K 

890 S1=S1+K:S1=S1-H:PRINT#-2,CHR$(10) ;CHR$(10) ;"* RECONCILED BAL 
ANCE= ";S1 
900 GOTO200 

910 PRINT"CHK#, NAME, AMOUNT, CATEGORY" : FOR D = 1 TO N 
920 IF VAL(REC$(D)) <> 1 THEN PRINT CHK$(D)" "NAM$(D) n "AMT$(D) n 

"CAT$(D) ELSE 940 
930 IF CAT$(D) <> "DEPOSIT" THEN H = H + A(D) ELSE K = K + A(D) 
940 NEXT D 

950 PRINT"THE TOTAL VALUE OF OUTSTANDING CHECKS IS: 
960 IF K > THEN PRINT "THE VALUE OF OUTSTANDING 
S I S " K 

970 Sl=Sl+K:Sl=Sl-H:PRINT"RECONCILED BALANCE="S1 
980 INPUT "PRESS ENTER TO RETURN" ;X$ : GOTO 200 

990 CLS:PRINT@0 r STRING$(32, 201) : INPUT "DO YOU NEED A LIST OF PAY 
EES";X$:IF X$ = "Y" THEN INPUT "HARDCOPY (Y/N) " ;Xl$:GOSUB 1120:1 
F Xl$ <> "Y" THEN INPUT "ARE YOU FINISHED READING" ;X$:CLS ELSE C 
LS 
1000 PRINT@0, STRING$( 32, 201) ;: INPUT "ENTER PAYEE TO BE SOUGHT 

B ;X^:PKINT@128,STRING$(32,201) ;:INPUT "DO YOU WANT HARD C0PY( 
ENTER 1)";E:IF E <> 1 THEN 1080 

1010 CLS:PRINT@0,STRING$(160,201) :PRINT"PRINTING PAYEE LISTING" 
1020 PRINT#-2, "PAYEE - "X$,CHR$ (10) ,CHR$ (10) 
1030 PRINT#-2, "CHECK #", "MONTH" , "AMOUNT" , "CATEGORY" ,CHR$ (10) :Xl 

= 0:FOR D = 1 TO N 
1040 IF X$ <> NAM$(D) THEN 1060 

1050 PRINT#-2, CHK$(D) ,MON$(D) ,AMT$(D) ,CAT$(D) :X1 = XI + VAL(AMT 
$(D)) 

1060 NEXT D 

1070 PRINT#-2, CHR$(10) ,CHR$(10) ; "THE TOTAL PAID TO ";X$;" IS "; 
Xl:GOTO 200 

1080 CLS:PRINT "CHECK* , MONTH, AMOUNT, CATEGORY" 
1090 XI = 0:FOR D = 1 TO N:IF X$ <> NAM$(D) THEN 1110 
1100 PRINT CHK$(D)" "MON$(D)" "AMT$(D)' 
MT$(D)) 

1110 NEXT D: PRINT"** THE TOTAL PAID TO 
YOU THROUGH READING" ;X$:GOTO200 
1120 E = 1:X1 = 0:FIL$ = "" 
1130 FOR D = 1 TO N 
1140 FOR X = 1 TO E 

1150 IF FIL$(X) = NAM$(D) THEN 1210 
1160 NEXT X 

1170 IF Xl$ = "Y" THEN PRINT#-2, NAM$ (D) , :GOTO 1190 
1180 PRINT NAM$(D) , 
1190 FIL$(E) = NAM$(D) 
1200 E = E + 1 
1210 NEXT D 
1220 RETURN 

1230 CLS:PRINT@ 128, STRING$ (32 ,246) : INPUT 
ND LAST CHECK NUMBER FOR SEARCH (F,L) 
1240 CLS:PRINT@ 128 , STRINGS (32 ,246) : INPUT "DO YOU WANT HARDCOPY( 
Y/N) ";X2$:IF X2$ <>"Y" THEN 1310 

1250 CLS:PRINT@ 128 ,STRING$(32 ,246) ; "PRINTING CHECK SERIES" 
1260 PRINT#-2, "LISTING OF ALL CHECKS NUMBERED BETWEEN ";X$; n A 
ND ";Xl$;CHR$(10) ;CHR$(10) 

1270 PRINT#-2, "CHECK #", "PAYEE" , "AMOUNT" , "MONTH" , "CATEGORY" ;CHR 
$(10) 

1280 FOR D = 1 TO N:IF VAL(CHK$(D)) < VAL(X$) OR VAL(CHK$(D)) > 
VAL(X1$) THEN NEXT D:GOTO200 

Listing continues 



"CAT$(D) :X1 = XI + VAL(A 
,X$;" IS" ;X1: INPUT "ARE 



'PLEASE ENTER FIRST A 
';X$,X1$ 



are also asked if you intend to exit. If 
you do not answer Y you are returned 
to the main menu. 

I use this option to back up my check 
files. I keep two disks current with my 
checks. When I exit saving the file to 
disk, I tell the computer I do not want to 
exit. Then, I switch disks and re-exit, 
saving my file, and copying data to my 
back-up disk. 

These functions should meet most of 
the needs for financial transactions for 
a family or small business, but the pro- 
gram is easy to tailor to your own needs. 

To adapt the program for a 16K ma- 
chine, reduce the number of checks 
stored per file to 50 or 75. You may also 
want to eliminate some of the func- 
tions, such as Edit (Reconcile has an 
edit function anyway), Payee, Check #, 
and Month. 

Those of you who don't have a Color 
Computer will have to reformat the dis- 
plays, because the Color Computer has 
a display of 14 lines of 32 characters 
rather than 16 of 64 or 24 of 80. All the 
PRINT© commands, except those of 
PRINT@0, must be recalculated. 
PRINT STRING$(X,Y) prints a string 
of X characters of ASCII code Y. The Y 
values in this program are block color 
graphics, which can be replaced on the 
Models I, II, and III by the block- 
graphic characters for these machines. 

The disk commands in lines 90 and 
1 940 open a direct (random access) file 
with a limit of 64 characters per entry. 
The other computers require appropri- 
ate random-access file commands and 
format statements. The Color Comput- 
er has no DEFINT command. Some ar- 
rays can be converted to integers to save 
memory. The PRINT #-2 command 
of Color Basic is the equivalent of 
LPRINT. The Print Using format 
"**$###,###.##" specifies two decimal 
places with commas inserted every three 
numbers, a floating dollar sign, and fill 
from the left with asterisks. Color Basic 
doesn't allow the defining of a format 
variable. If your computer lets you 
define a format, you don't have to 
repeat the format each place it is used. 

The program is long, but it should 
make your financial management tasks 
easier. The program also makes use of 
some unusual features of the Color 
Computer that you may find useful in 
your programming efforts. B 

David Dacus (1670 Valencia, Las 
Cruses, NM 88001) is an Operations 
Research Analyst for the U.S. Army 
Training and Doctrine Command 
Systems Analysis Activity at White 
Sands Missile Range, NM. 
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Listing continued 

1290 PRINT#-2, CHK$(D) ,NAM$(D) ,AMT$(D) ,M0N$(D) ,CAT$(D) 

1300 NEXT D:GOTO 200 

1310 CLS:PRINT"LIST OF CHECKS ";X$" TO ";X1$ 

1320 PRINT "CHK#, NAME, AMOUNT, MONTH, CATEGORY" 

1330 FOR D = 1 TO N:IF VAL(CHK$ (D) ) < VAL(X$) OR VAL(CHK$ (D) ) > 

VAL(X1$) THEN NEXT DrGOTO 1350 

1340 PRINT CHK$(D)" "NAM$(D) n "AMT$(D)" "M0N$(D) M "CAT$ (D) :NEXT 

D 

1350 INPUT "ARE YOU THROUGH WITH THE LIST" ;X$:GOTO 200 

1360 CLS:PRINT@0, STRING$(192, 134) ; "PRINTING A LIST OF ALL CHECKS 

IN THE FILE" :PRINTSTRING$ (192 , 134) 
1370 PRINT#-2,"LIST OF ALL CHECKS" 
1380 PRINT#-2,CHR$(10) 

1390 PRINT #-2, "CHECK #", "MONTH" , "NAME" , "AMOUNT" , "CATEGORY" 
1400 FOR D = 1 TO N 

1410 PRINT #-2, CHK$(D) ,MON$(D) ,NAM$(D) ,AMT$(D) ,CAT$(D) 
1420 NEXT D 

1430 FOR D = 1 TO 3:PRINT #-2,CHR$(10) :NEXT D 
1440 PRINT#-2, "CURRENT BALANCE IS: ";:PRINT#-2, USING 
##.##";T(N) 
1450 GOTO 200 

1460 CLS:PRINT@0,STRING$(192,172) ; 

1470 PRINT"CURRENT BALANCE IS: " ; rPRINTUSING "**$##,####.##" ;T(N) 
:PRINT@256,STRING$(160,172) ; 
1480 INPUT"READY TO RETURN" ;X$:GOTO200 

1490 CLS:PRINT@0,STRING$(32,206) ; :INPUT"ENTER MONTH FOR FILE SEA 
RCH";A$:PRINT@96,STRING$(32,206) ; 

1500 INPUT"DO YOU WANT HARDCOPY( ENTER 1)";E:IF EOl THEN1580 
1510 PRINT@192 ,STRING$( 32, 206 ); "PRINTING CHECKS FOR "A$:PRINT#-2 
, "******** ";A$;" ********";CHR$(10) ;CHR$(10) 
1520 PRINT#-2, "CHECK #", "NAME" , "AMOUNT" , "CATEGORY" 
1530 PRINT#-2,CHR$(10) 
1540 FOR D = 1 TO N 
1550 IF A$ <> MON$(D) THEN 1570 

1560 PRINT #-2, CHK$(D) ,NAM$(D) ,AMT$(D) ,CAT$(D) 
1570 NEXT D:GOTO 200 
1580 CLS:PRINT@0,STRING$(32,206) ; 
1590 PRINT-CHECK #, NAME, AMOUNT, CATEGORY" 
1600 FOR D = 1 TO N 

1610 IF A$ <> MON$(D) THEN NEXT D:GOTO 1640 
1620 PRINT CHK$(D);" ";NAM$(D);" ";AMT$(D);" ";CAT$(D) 
1630 NEXT D 

1640 INPUT "READY TO RETURN" ;A$ : GOTO 200 
1650 GOSUB 1840 

1660 CLS:PRINT@0,STRING$(32,239) ; :INPUT"ENTER CATEGORY FOR FILE 
SEARCH ?" ;Z$ 

1670 PRINT@96,STRING$(32,239) ; 

1680 INPUT"DO YOU WANT HARDCOPY ( ENTER 1)";E:IF EOl THEN 1780 
1690 PRINT@192, STRING$(32, 239) ; "PRINTING CHECKS IN CATEGORY 

";Z$:PRINT#-2, "CATEGORY - "Z$ 
1700 PRINT #-2, CHR$(10) ; "CHECK #", "MONTH" , "NAME" , "AMOUNT" ; CHR$ ( 
10) 

1710 FOR D = 1 TO N 
1720 IF Z$ <> CAT$(D) THEN 1750 

1730 PRINT #-2,CHK$(D) ,MON$(D) ,NAM$(D) ,AMT$(D) 
1740 XI = XI + VAL(AMT$(D)) 
1750 NEXT D 

1760 PRINT#-2, CHR$(10) ;CHR$(10) ;CHR$(1 
S FOR CATEGORY ";Z$;" IS " XI 
1770 GOTO 200 
1780 CLS: PRINT 
OUNT" 

17 90 .FOR D = 1 TO N 
1800 IFZ$OCAT$(D) THEN 1820 

1810 PRINT CHK!?(D)" "MON$(D)" "NAM$(D)" *'AMT$(D) 
1820 NEXT D 

1830 INPUT "READY TO RETURN" ; Z$:GOTO 200 
1840 CLS:E=1:X1 = 0:FIL$ = "" 
1850 FOR D = 1 TO N 
186 FOR X = 1 TO E 

1870 IF FIL$(X) = CAT$(D) THEN 1920 
1880 NEXT X 
1890 PRINT CAT$(D) , 
1900 FIL$(E) = CAT$(D) 
1910 E = E + 1 
1920 NEXT D 

1930 INPUT "ARE YOU THROUGH READING" ; XI $: RETURN 
1940 OPEN "D", #1, FL$, 64 
1950 FOR I = 1 TO N 

1960 WRITE #1, CHK$(I) ,AMT$(I) ,REC$(I) ,NAM$(I) ,MON$(I) ,CAT$(I) 
1970 PUT #1, I 
1980 NEXT I 
1990 CLOSE #1 

2000 CLS:PRINT@0,STRING$(224,246) ; :INPUT"ARE YOU SURE YOU WANT T 
EXIT" ;X:?: IF X$ <> "Y" THEN 200 ELSE END 
2005 PCLEAR l:GOTO 30 



THE TOTAL EXPENDITURE 



l,STRING$(32,239) ; :PRINT"CHECK #, MONTH, NAME, AM 
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TECHNIQUE 



Expanded Color Capabilities 



by James Wood 



According to the Going Ahead With 
Extended Color Basic manual, the Col- 
or Computer can display only certain 
colors on the screen at one time. In the 
high-resolution modes you can have 
black and green; black and buff; red, 
blue, green, and yellow; or cyan, ma- 



genta, orange, and buff. But, I wanted 
several colors on a black background. 
After experimenting, 1 obtained these 
colors. I don't know why it works, but I 
can tell you how to put green, red, blue, 
and black in the same picture (great col- 
ors for a space game). 



The Color Computer can 
now display green, 
blue, red, and black on 
the screen at one time. 



8 creates strings for numbers to display number of hits 

10 clears screen, prevents FC error first time rock is erased 

20 resets timer 

30 dimensions array for ship and dust 

50 draws ship 

60 creates dust for explosion 

70 paints ship 

80 part of ship 

90 changes colors 

100 places ship into array 

1 10 places dust into array 

120 clears graphics and shows new graphics screen 

130 reads joysticks 

140 used with line 240 

150 changes joystick reading to even numbers to prevent distorted ship image (necessary due 

to switching PMODEs) 

160 places ship array onto screen 

1 70 reads j oysticks 

180 displays laser blast and sound if joystick button is pressed 

190 determines if rock has been hit, sounds explosion 

200 delay to leave rock on screen long enough to hit (if you're fast) 

210 erases rock 

220 determines position for next rock 

230 puts rock on screen 

240 erases old ship position only if joysticks have moved (prevents flicker of motionless ship) 

260 determines if number of hits equals 10, places number of hits on screen, prints time 
elapsed after 10 ships destroyed 

Table 1. Line Descriptions 



Program Listing 



5 'SPACE ROCKS 

7 'JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913 

8 A$(l) ="D10" : A$ (2) ="R5D5L5D5R5" :A$ (3) ="R5D5L5R5D5L5" : A$ (4) ="D5R 
5U5D10":A$(5) ="R5L5D5R5D5L5" : A$ (6) ="R5L5D10R5U5L5" : A$ (7) ="R5D10" 
:AS(8)="R5D10L5U10D5R5":AS(9)="R5D5L5U5R5D10" 

10 U=3:V=3:CLS0 
20 TIMER=0 

Listing continued 



Type in and run the Red, Green, 
Blue, Black demo, which starts at line 
295. Lines 300-330 use PMODE 3,1 
and SCREEN 1,0 to create red, blue, 
and yellow boxes on a green back- 
ground. After the For loop in line 340, 
the monitor is changed by PMODE 
4,1: SCREEN 1,1. The red changes to 
green, blue to red, yellow to blue, and 
green to black. 

You could use these colors to create a 
space ship as well as some rocks to blow 
up. In the Space Rocks program, a red 
and blue ship shoots green laser blasts at 
red and blue rocks against a black sky. 
The rocks explode into green, red, and 
blue dust. The right joystick controls 
the up, down, left, and right movement 
of the space ship. Depressing the fire 
button creates a laser blast. 

The program has one minor problem. 
The ship points to the right and shoots 
to the right. If a rock is on your left, you 
can still blow it up by shooting to the 
right. This problem will give you some- 
thing with which to experiment. ■ 

James Wood can be reached at 424 
N. Missouri, At wood, IL 61913. 



The Key Box 

Color Computer 
16KRAM 

Extended Color Basic 
One Joystick 
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Listing continued 

30 DIMW(20,10) ,E(10,10) 

40 PM0DE3,1:PCLS 

50 DRAW"BM0,0R4F4R8F4L20U8" 

60 FORT=1TO20:PSET(RND(10) +100,RND(10) +100 ,RND ( 3) +1) : NEXTT 

70 PAINT(3,4) ,3,4 

80 FORX=10TO14:PSET(X,6,2) :NEXTX 

90 PM0DE4,1 

100 GET(0,0)-(20,10) ,W 

110 GET(100,100)-(110,110) ,E 

120 PCLS:SCREEN1,1 

130 A=JOYSTK(0) :B=J0YSTK(1) 

140 A1=A:B1=B 

150 A=INT(A/2)*2:B=INT(B/2) *2 

160 PUT(A*4,B*3)-(A*4+20,B*3+10) ,W 

170 AA=JOYSTK(0) :BB=JOYSTK (1) 

180 P=PEEK (65280) : IFP=1260RP=254THENPLAY"04V31L255BCB" :LINE (A* 4+ 

22,B*3+8)-(255,B*3+8) ,PSET: LINE (A*4+22 ,B*3+8) -( 255 ,B*3+8) , PRESET 

:GOTO190ELSE200 

190 IFABS( (B*3+8)-V) <=3THENPUT(U-5,V-5) -(U+5 ,V+5) ,E: PLAY"O2L100V 

31GECA":LINE(U-10,V-10)-(U+10,V+10) , PRESET, BF:NH=NH+1 :GOSUB26 :G 

OTO220 

200 JW=JW+1:IFJW=6THENJW=0:GOTO210ELSE240 

210 LINE(U-3,V-3)-(U+3,V-f3) , PRESET, BF 

220 U=RND(100)+150:V=RND(170)+10 

230 CIRCLE(U,V) ,3 

240 IF AAOAl OR BBOBl THENLINE (A*4 ,B*3) - (A*4+22 ,B*3+10) , PRESET 

,BF:GOTO130 

250 GOTO170 

260 IFNH=10THENPRINT@192,INT(TIMER/60) ; "SECONDS FOR 10 HITS"ELSE 

LINE(0,180)-(6,190) , PRESET, BF:DRAWBM1,180"+A$(NH) : RETURN 

290 END 

295 'RED, GREEN, BLUE, BLACK DEMO 

298 'JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913 

3 00 PMODE3,1:PCLS:SCREEN1,0 

310 LINE(20,20)-(80,80) ,PSET,BF 

320 COLOR3,1:LINE(80,80)-(140,140) ,PSET,BF 

330 COLOR2,1:LINE(140,140)-(190,190) ,PSET,BF 

340 FORTT=1TO500:NEXTTT 

350 PMODE4,l:SCREENl,l 

360 GOTO360 



REAL ESTATE INVESTMENT 
SOFTWARE 

FOR TRS 80 SYSTEMS 

REAL PACK is a comprehensive package of 
programs lor analyzing real estate investments. 

INCOME PROPERTY ANALYSIS proiects profits and 
cash flows before and after taxes, ROI, IRR, equity 
returns, breakeven occupancy requirements, property 
values, mortgage balances and results of sale for up 
to 15 years Handles multiple loans, depreciation 
methods, income and appreciation patterns. 
LOAN calculates loan terms, provides amortization 
tables, and computes discounted loan values or 
yields. Handles balloon payments; provides loan 
evaluations at future time periods. 

WRAP provides similar computations for wrap around 

loans 

HOUSE RENT/BUY compares cash flows and real 

costs for house purchase compared to renting 

Handles multiple mortgage and graduated payment 

loans Generates unique personalized narrative letter 

to explain the tabular output 

POLICY analyzes real estate investment strategies 
You specify investment values such as leverage, 
interest, capitalization, and appreciation rates and also 
investment strategies such as tax free exchanging, 
sale and purchase of larger properties, and physical 
improvement to increase income ala Nickerson 
Projects, lor up to 20 years, profits and cash flows, 
rates of return, the results of projected individual buy. 
sell, and trade transactions, tax consequences, and 
accumulated property values and cash flows. 

REALTOR TESTED by professionals; error tolerant 
and easy to use. 

MORE THAN AN OPERATING MANUAL. The 150 

page instruction manual also includes chapters, "How 
to Use REAL PACK to Increase Your Real Estate 
Business"' and "How to Operate Your Own Financial 
Analysis Business". 

$295.00 lor the whole package. 

Check. COD. Visa. Mastercharge 

To order, call (206) 734-4323 or write: ^g 

CONEX ELECTRO SYSTEMS INC. 

1602 Carolina Street, Belllngham, WA 98226 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



The UPI serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port on TRS-80 
Models I, II and III. 

Software compatibility problems are totally eliminated because 
the TRS-80 "Thinks'that a parallel printer has been attached. 
No machine language driver needs to be loaded into high 
memory. VISACALC, SCRIPSIT, BASIC, FORTRAN, etc. all 
work as if a parallel printer was in use. 

The UPI interfaces are completely self contained and ready 
to use. A 34 conductor cable and connector plugs onto the 
parallel printer port of the Model I expansion interface or 
onto the parallel printer port on the back of Models II and 
III. A DB25 socket mates with the cable from your serial 
printer. The UPI interfaces convert the parallel output of the 
TRS-80 printer port into serial data in both the RS232-C and 
20 MA. loop formats. 



bd 



BINARY DEVICES 

Formerly SPEEDWAY ELECTRONICS 
11560 TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 
(317) 842-5020 ^ 106 



trademark ol Tandy 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per word 

• Parity or no parity 

• ODD or EVEN parity 

NEW VARIABLE BAUD RATE MODELS 

Switch selectable from 110-9600 BAUD 

UPI-3VB for models I or III $149.95 

UPI-2VB for model II $149.95 

UPI-3VB-6 for model I or III with 6 ft. cable $159.95 

UPI-2VB-6for model II with 6ft. cable $159.95 

Shipping and handling on U.S. orders. $4.00 

90 day warranty on all interfaces, ten day return privilege. 



t^See List ol Advertisers on Page 563 
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INDEX 



80 Index, 1980-1982 



Many of you have asked for it, and 
here it is: a cumulative, annotated, 
cross-referenced 80 Micro article index 
through October 1982. (Look for the 
rest of 1982 in the January issue). We've 
even included references for Debugs! 

The index is divided into the follow- 
ing categories: Business, Education, 
Games, General, Graphics, Hardware, 



Home/Hobby, Programming Tech- 
niques, Science/Math, Tutorials, and 
Utilities. Reviews are listed in a sec- 
tion of their own. The articles are sorted 
by title. 

The computer the article was written 
for is listed in parentheses at the end of 
the annotation. If no computer ap- 
pears, it is a general article that applies 
to all TRS-80s. 



You will notice that most are listed as 
Model I articles. Many of these pro- 
grams will run on a Model III, but we 
could not test them all to be sure. Also, 
it is often easy to convert Basic pro- 
grams from one TRS-80 to another. 

If you do not have the issue that has 
the article you want, many back issues 
are still available. Look for an order 
form elsewhere in this magazine. ■ 



1980 










BUSINESS 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Accountant's Aid 


Shcats 


6/80:130 




Produce columnar work sheets. (Model I) 


Business Programming 


Clarke 


5/80:78 




See Tutorials. 


Doctor Your Records 


Muehlig 


9/80:162 




One doctor's bookkeeping program. (Model I) 


Down the Road 


Vick 


9/80:212 




Stock and sales plan to maximize profit. (Model I) 


Get the Whole Story 


Blechman 


7/80:62 


9/80:14 


Computerize your Amway business. (Model 1) 


Investment Analysis 


Sparks 


3/80 




Use sophisticated financial techniques to analyze 
possible investments. (Model I) 


Livestock Management 


Nott 


10/80:106 




How farmers use computers to keep track of herd 
management. 


Office Computer, The 


Valle 


12/80:109 




Set up your computer to handle common chores of a 
business. 


Printer's Apprentice 


Barnes 


3/20:22 




Give printing estimates on the computer. (Model I) 


EDUCATION 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Braille 


Bruey 


1/80:52 




Generate Braille on an impact printer adjusted for a 
heavy impression. (Model 1) 


Computer Education 


Chartier/Goldncr 


7/80:44 




Computer-ed class at the Fort King Middle School. 


Fraction Tutor 


Orr 


1/80:80 




Teach fractions to children. (Model I) 


Hey. . .You in the Cor- 


South 


11/80:186 




Educational games. (Model I) 


ner 
Kidstuff 


Keen/Dischert 


9/80:124 




Pick out shapes on screen. (Model I) 


Math Flash 


Barbarello 


9/80:158 


12/80:18 


Simulation of math flashcards on screen. (Model 1) 


More Night School 


Lopez 


4/80:45 




Another report on Loyola University's computer 
education course. 


Music Note Recognition 


McClung 


9/80:182 




Program that teaches you how to read music. 
(Model I) 


Night School 


Lopez 


1/80:41 




University of Loyola uses 25 Model Is in computer 
education course. (Model I) 


Preschool Math 


Hastings 


4/80:77 




Teach math to young children. (Model I) 


Quiz Master 


Eckert 


6/80:148 




Store questions and answers on disk. (Model I) 
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GAMES 










Title 


Author 


Issue/Page 


Debug 


Annotation 


4K Intelligence 


Lope/ 


3/80:55 




Artificial intelligence in Level 1. (Model I) 


Asteroid Adventure 


Perry/Taylor 


10/80:212 




4K arcade space game. (Model I) 


Ball Box 


I .ewis 


4/80:60 




Based on Pong Squot . (Model I) 


Code Cracker 


Morgan 


8/80:110 




Generate codes for one or two players to decipher. 
(Model I) 


Computer Monopoly 


Adams 


11/80:83 




Computer simulation of the board game. (Model 1) 


Game of Life, The 


Kitsz 


6/80:38 


8/80:16 


Based on British mathematician John Conrey's game, 
in Assembly language. (Model I) 


Heartbeat Away, A 


Morey 


8/80:76 




Simulation for being President of U.S. (Model I) 


Life in the Fast Lane 


Kepner/Grace 


8/80:62 




Basic/Assembly game of Life. (Model I) 


Ping-Pong 


Moehlis 


9/80:216 




Hit the bouncing dot. (Model I) 


Puzzler 


Morgan 


10/80:198 




Find the hidden word. (Model 1) 


Rock, Scissors, Paper 


Harris 


4/80:116 




An old standard computerized in 4K. (Model I) 


Slot Machine 


Fason 


8/80:84 




Casino simulation. (Model I) 


Star fighter 


Ferrera 


8/80:59 




Space arcade game for 4K. (Model I) 


Swords and Sorcery II 


Adams 


8/80:42 


10/80:14 


Adventure game. (Model I) 


Third Dimension, The 


Dillehay 


7/80:152 


4/81:22 


Tic-Tac-Toe-like game. (Model I) 


True or False? 


Krutch 


6/80:116 




Guessing game with artificial-intelligence techniques 
employed. (Model I) 


U-Boat 


Borrmann 


8/80:68 




Sink subs and learn matrix handling. (Model 1) 


Westward Ho! 


Herold 


10/80:148 




Simulation of a westward trek by pioneers. (Model 1) 


GENERAL 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Computer Bulletin Boards 


Cambron 


5/80:110 




All about bulletin boards and how to access them. 


Confessions of a 


Kornfeld 


4/80:30 




Humor 


Computer Derelict 










Courts Smashed 


Kitsz 


10/82:55 




Software Copyright and the courts. 


Copyright? 










Dealer's Experience, A 


DeFonzo 


4/80/98 




RS dealer experience. 


EDTASM Index 


Kepner 


6/80:124 




A cross-referenced index for the RS E/A manual. 


Electronic Networks 


Robertson 


11/80:62 




Computers and networking. 


How the Gamesman 


Robertson 


7/80:48 




Scott Adams profile. 


Began 










I Ching 


Scarpelli 


4/80:123 




Calculate life's changes on the TRS-80. (Model I) 


In the Beginning 


Herro 


7/80:78 




One man's experience with the TRS-80. (Model I) 


On the Radio 


Hastings 


8/80:86 




Do a broadcast log on the TRS-80. (Model I) 


Owner's Tale, An 


Dilbeck 


5/80:107 




Why 1 bought my microcomputer. 


Part-time Consultant 


Morin 


3/80:79 




How to be a computer consultant. 


Put-N 


O'Brien 


5/80:46 




A list of structured statements to build a language 
around. 


Radio Shack 


Busch 


11/80:109 




TRS-80 compared to other computers. 


vs. Competition 










Table of Contents, The 


Thurlow 


11/80:234 




Outline for Scripsit instruction tapes. 


Tally with an 80 


Graham/Haller 


11/80:114 




Computerize election returns. (Model I) 


Tandy Story, The 


Brown 


1/80:28 




Short history of the Tandy/ Radio Shack 
Corporation. 


The Bottom Shelf 


Shu ford 


2/80:36 




Profile of a software company. 


GRAPHICS 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Adventures in Roseland 


Joffe 


6/80:62 


8/80:16 


Use J = a SIN X to draw a three-leafed rose. (Model I) 


Basic Drawing 


Gorsky 


7/80:140 




Draw on the screen and save your work. (Model I) 


Beginner's Formatting 


Keller 


7/80:108 




See Tutorials. 


Beyond Blackjack 


Thorsen 


1/80:60 




See Programming Techniques. 


CAL81 


Strazzarino 


12/80:128 




See Home/Hobby 


Compu-Sketch 


Hendricks 


12/80:255 




Short Basic program to draw on the screen. (Model I) 


Curve Plotter 


Cecil 


7/80:130 




Draw curved graphics in Basic. (Model I) 


Doodle Bug 


Bishop 


6/80:72 


8/80:16 


Doodle on your screen with eight direction keys. 
(Model 1) 
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Title 


Author 


Issue/Page 


Debug 


Annotation 


Double-size Graphics 


Thiel 


6/80:106 




How to get around CHR$(23) and keep your 
graphics. (Model 1) 


Graphics Coder, The 


Racine 


8/80:160 




See Utilities. 


Images 


Gorsky 


11/80:220 




Draw radial lines on the screen. (Model 1) 


lnside-out Debugging 


Ogren 


11/80:222 




See Tutorials. 


Kaleidopen 


Nicholas 


6/80:78 




Display kaleidoscope-like graphics on the screen. 
(Model 1) 


Random Walker 


Strazzarino 


11/80:179 




Randomly generated graphics on the screen. 
(Model I) 


Real-lime Graphics 


Zidonis 


6/80:82 




Use PEEK and POKE in game simulations. (Model I) 


Seasons Greetings 


Vann 


12/80:112 


3/81:14 


Generate greeting cards on your screen. (Model 1) 


Simple Graphics 


Hommel 


7/80:76 




Draw designs with arrow keys in 4K. (Model I) 


Super Graphics 


Mover 


10/80:202 


1/81:28 


Fast animation using the Print graphics method. 
(Model 1) 


HARDWARE 










Title 


Author 


Issue/Page 


Debug 


Annotation 


300-baud Terminal 


Loos 


8/80:136 




Use unused ICs in the TRS-80 to make it a half- 
duplex terminal. (Model I) 


Babybug Keypad 


Kitsz 


3/80:88 




Hex keypad to use with machine code. (Model I) 


Box It In 


Zalnerunas 


3/80:132 




Build a box to hold wires and keyboard. (Model I) 


Build a Light Pen 


Holder 


4/80:38 


6/80:12 


(Model 1) 


Build Your Own Port 


Hawkes/Reese 


9/80:116 




Build a parallel port using the 8255 PPI chip. 
(Model 1) 


Cassette Problems 


Stoner/Barker 


1/80:62 




See Tutorials. 


Cassette Problems 11 


Stoncr/ Barker 


2/80:54 




Build the Data Dubber, which regenerates original 
CSAVE pulses. (Model 1) 


Caveat Emptor 


Parris 


10/80:122 




Trials and errors of homebrew interfacing. (Model I) 


Cheap CLOAD Fix 


King 


1/80:132 


4/80:27 


Device to block unwanted noise on CLOADs. 
(Model 1) 


Cheap Video 


Fowler/Murray 


8/80:116 




Interface a iv to your computer. (Model 1) 


CLOAD Micrometer 


Thiel 


5/80:84 




Device to monitor load level. 


CTR-41 Modifications 


Hinrichs 


4/80:110 




Mods for a better recorder. (Model 1) 


Destick Your Relay 


Lukoff 


5/80:74 




Mod to prevent relay from sticking on the cassette 
recorder. 


Disaster Saver 


Brooks 


7/80:156 




Power interlock to prevent garbaged disk files. 
(Model I) 


DVM Interface for the 80 


Casper/Frccdman 


10/80:156 




Hook up a digital voltmeter to the TRS-80. (Model 1) 


Faster, Faster 


Kitsz 


2/80:50 




Program speedup device. (Model 1) 


Fuse Fix 


Winter 


6/80:154 




Put an external fuse on your power supply. (Model 1) 


H14, Meet the TRS-80 


Friesen 


10/80:118 




Interface Heathkit printer to TRS-80. (Model I) 


Homebrew Interface, A 


Vince 


3/80:96 




Real-time interface for home climate control, etc. 
(Model 1) 


Homebrew Memory 


Ragucci 


5/80:70 




Extra memory with no expansion interface. (Model 1) 


Homebrew TRS-80 


Steele 


11/80:146 




Build your own TRS-80 from scratch. (Model I) 


I/O Ports Plus 


Harron 


3/80:120 




Interface to turn on any memory location for control 
or monitor use. (Model I) 


Interfacing the NFC 


Kunzman 


10/80:144 




Gel the NEC printer to work at 1,200 baud. (Model 1) 


Spinwriter 










Joystick City- 


Suter 


12/80:186 




Interface joysticks via the cassette I/O port. (Model 1) 


Level II to Model 33 


Colby 


1/80:70 


3/81:14 


Interface Model 33 Teletype to TRS-80. 


Look, a Super Snubber 


Martel 


11/80:216 




Protect cassette's relay from high voltage across its 
contact when turned off. 


Lowercase and Uppercase 


Stoner/Barker 


3/80:72 




Build a lowercase mod. (Model 1) 


LPRINT "Cheap" 


Blechman 


2/80:100 




Using a serial printer with TRS232/Formatter. 
(Model I) 


Mem Size. . .20K? 


Stanley 


11/80:116 


5/81:22 


Add 4K to 16K. (Model 1) 


Mork & Mindy Monitor 


Jackson 


4/80:58 




Use lv as a computer monitor. (Model I) 


PR- 40 Printer Interface 


Hise 


8/80:152 




Connect an SWTPC printer to a TRS-80. (Model I) 


Regulate It! 


Klungle 


3/80:113 




Build a voltage regulator. 


Relay Assistant 


J alms 


7/80:112 




Circuit to prevent recorder on/off control from 
welding in the close position. 
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Title 


Author 


Issue /Page 


Debug 


Annotation 


Relay Protection 


Richardson 


1/80:78 




Build a protection device for your cassette relay. 
(Model I) 


Reverse Video 


Kitsz 


4/80:54 


5/80:28 


Build a reverse-video device. (Model I) 


Selectric Hardcopy 


Bickerton 


9/80:102 


11/80:22 


Interface a TRS-80 and a Selectric typewriter. 
(Model 1) 


Serial Clank on the Prinl 


O'Brien 


10/80:194 


4/81:22 


Interfacing serial printers via the RS-232. (Model 1) 


Simple Interface 


Mullin 


2/80:94 




Interface switches using one chip and eight resistors. 
(Model 1) 


Teletype Interface 


Noeth 


6/80:142 




Interface a Model 33 with no modification to the 
CPU. (Model I) 


Teletype Interface 


Commander 


9/80:84 




instructions and driver program to interface a TTY to 
your computer. (Model 1) 


Testing 1, 2, 3 


Nelson 


6/80: 1 36 




Interface your computer with a test measuring 
system. (Model I) 


TTY Interface 


Rum bolt 


7/80:144 




Use a TTY as a printer. (Model 1) 


Turn-on 


Nestor 


12/80:208 




Automatically turn on the RS line printer with a relay 
and software control. (Model I) 


Two Basics Better than 


Frickson 


10/80:182 




Mod for Level I and Level 11 in the same machine. 


One 








(Model 1) 


Two Different Worlds 


Eckert 


7/80:116 




A/D converter using the AD570 and AD582 chips. 
(Model 1) 


Video Tune-up 


Miller 


2/80:62 




Eliminate fuzzy edges and make monitor electrically 
safe. (Model 1) 


HOME/HOBBY 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Bout with the IRS, A 


Blechman 


9/80:58 




How a TRS-80 can help in an IRS audit. (Model 1) 


CAL81 


Strazzarino 


12/80:128 


4/81:22 


Print out personalized calendar with graphics. 
(Model T) 


Carpool 


McCahan 


5/80:62 




Program to organize a carpool. (Model I) 


Cold Comfort 


Keen/I. aughlin 


10/80:176 




Heating and insulation-analysis program. (Model 1) 


Decisions, Decisions 


Walton 


1/80:56 




Basic program to aid in decision making. (Model I) 


Duty Roster 


Straw 


3/80:127 




Keep track of who's in charge of what for club or 
church functions. (Model 1) 


Fixer, The 


Ashley 


11/80:90 




Program to keep photographer's darkroom organ- 
ized. (Model I) 


Graph Plotter 


King 


3/80:130 




Plot how much you spend each month. (Model I) 


Gregorian Converter 


Borrmann 


12/80:260 




Convert Gregorian dates to Julian. (Model I) 


Household Accountant 


Andresen 


2/80:114 


4/80:27 


Keep family expense records. (Model I) 


IRS-80 


McNeil 


3/80:42 




Keep tax records. (Model 1) 


Itinerary 


Gorsky 


4/80:95 




Keep track of travel arrangements. (Model 1) 


Magazine Index 


Klungle 


4/80:114 


2/81:31 


Keep track of up to 300 articles in 16K. (Model I) 


Merry TRSMAS 


Taylor 


1/80:32 




Display Christmas greetings on TRS-80. (Model I) 


Mind Your As and Ps 


Leonard 


9/80:174 




Compile grocery lists in 16K. (Model 1) 


Model Conversion 


Blackburn 


5/80:128 




Work out model measurements. (Model 1) 


Passing the Plate 


Rickets 


2/80:70 




Keep track of Sunday church donations. (Model 1) 


Reference Library Index 


Morgan 


9/80:146 




Keep track of articles in 16K. (Model I) 


Soundcx Codes 


Hodge 


3/80:138 




Class similar-sounding names together for easier 
genealogical research. (Model I) 


Tout I 


Wilson 


1/80:90 




Horse-racing analysis program. (VIodel 1) 


Video Tiller 


Rotzien 


4/80:121 




Generate captions for video productions. (Model 1) 


Your Personal Calendar 


Colsher 


11/80:132 




Put important dates, etc. on your 16K one-disk 
system. (Model I) 


PROGRAMMING TECHNIQUES 








Title 


Author 


Issue/Page 


Debug 


Annotation 


Adventures in Roseland 


Joffe 


6/80:62 




See Graphics 


Beyond Blackjack 


Thorsen 


1/80:60 




Learning Level 1 Basic graphics techniques. (Model I) 


Cheap Trills with T-Bug 


Joffe 


11/80:168 




How to get sound in machine code. (Model 1) 


Cutting & Splicing Basic 


Nottingham 


5/80:134 




Reorder programs via block movement. 


Display Formatting 


Joffe 


6/80:134 




Techniques for a tidy screen display. (Model I) 


Doodle Bug 


Bishop 


6/80:72 




See Graphics. 
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Free Format Search 


Riekers 


5/80:94 


See Utilities. 


Get Serious 


Pape 


10/80:93 


Using the RST instruction. (Model I) 


Hidden Codes/ 


O'Connor 


1/80:93 


Use commands the RS manuals don't 


Missing Chip 






mention. (Model I) 


INKEYS 


Himler 


4/80: 103 


Enhance computer/user interaction. (Model I) 


Keyboard Interrogation 


Yarbrough/Vesteen 


6/80:140 


Use PEEK to directly access keyboard memory. 
(Model I) 


Long and the Short of It 


Bole 


11/80:180 


Format RS Quick Printer output for screen dumps of 
game displays. (Model 1) 


Merry TRSMAS 


Taylor 


1/80:32 


See Home/Hobby. 


Multiple USRs 


Ventimiglia 


4/80:80 


Get up to 10 USR subroutines. (Model I) 


Music Maestro! 


Pape 


1/80:36 


Machine-language and Basic tone-generating routines. 
(Model 1) 


Now It's Time for. . . 


Cornell 


12/80:160 


Use mnemonics for Basic functions call, with 


Name That Routine 






Assembly-language listing. (Model I) 


Of Two- Dimensional 


Conhaim 


11/80:160 


How to use two-dimensional arrays. (Model I) 


Arrays 








Randomness 


Carpenter 


6/80:65 


Use bargraphs to see how RND works in a program. 
(Model 1) 


Rom Routines 


Thielke 


2/80:106 10/80:14 Use Microsoft ROMs for programming shortcuts. 








(Model I) 


Smart Programs 


Lovy 


11/80:202 


Write programs with self-modifying code. (Model I) 


Soundex Codes 


Hodge 


3/80:138 


See Home/Hobby 


Stringy Machine Code 


Grimes 


9/80:152 


String-packing techniques with Basic program. 
(Model I) 


Super Graphics 


Moyer 


10/80:202 


See Graphics. 


U-Boat 


Borrmann 


8/80:68 


See Games. 


Useful USR(O) Function 


Kcpner 


10/80:100 


Ways to imbed and use USR(0) in programs. 
(Model I) 


Variations on a Theme 


Bullitt 


9/80:188 


Use Print to print lines. (Model 1) 


SCIENCE/MATH 






Title 


Author 


Issue/Page Debug Annotation 


Biorhylhms 


Holthausen 


3/80:117 


Get a numerical indication of daily biorhythms. 
(Model I) 


Divine Proportions 


Cecil 


9/80:170 


Generate figures to study aesthetics. (Model 1) 


Equations 


Joffe 


3/80:84 


Algebraic equation solutions. 


Genotype 


Rauber 


10/80:188 


Program to estimate risk of having children with 
defects for parents with genetic problems. (Model I) 


Linear Meter Design 


Thibodeau 


7/80:58 


Program to calculate values for linear dials. (Model I) 


Oh No! Calculus 


Joffe 


1/80:114 


Calculus demystified. 


Process Control 


Hoffman 


2/80:104 


Prevent problems caused by over-adjustment of a 
process containing random errors. (Model I) 


Real Roots 


Daniels 


7/80:166 


Compute square roots in Level 1 Basic fast. (Model 1) 


Root Routines 


Gerald 


2/80:73 


Solve algebraic equations. (Model 1) 


Telepathy 


Warren 


1/80:54 


Computer-simulated Zener cards to test for ESP. 


TUTORIALS 






(Model 1) 


Title 


Author 


Issue/ Page Debug Annotation 


Article Called Intrepid 


Gorsky 


9/80:178 


How coding works — cryptography on the computer. 
(Model I) 


Assembly-language 


Colsher 


6/80:118 


Assembly-language program that shows the result of 


Trainer 






most machine instructions. (Any Z80 computer) 


Basic Switchyard, The 


Perkins 


7/80:52 


How the Basic interpreter works. 


Beginner's Formatting 


Keller 


7/80:108 


Put graphics where you want them. (Model I) 


BINAX KIBUFF 


Blair 


9/80:187 


ROM routines not listed in your manual. (Model I) 


Break Disable 


Rastin 


4/80: 128 6/80: 1 2 Software to prevent unwanted breaks. (Model I) 


Business Programming 


Clarke 


5/80:78 


How to write a business program. 


Cassette Problems 


Stoner/Barker 


1/80:62 


Reasons why a cassette won't load and possible solu- 
tions. (Model I) 


Disk Files 


O'Brien 


7/80:88 


Use random and sequential access on your disk 
system. (Model 1) 
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A ut ho r 
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Disk Primer, A 


O'Brien 


1/80:130 




How disk drives work and what they can do. 


EDTASM on Disk 


Butler 


1/80:120 


5/80:28 


Convert RS E/A from tape to disk. (Model I) 


Equations 


Joffe 


3/80:84 




See Science/Math. 


Floppy PIMS 


Herman 


2/80:80 




Convert SCELB1 Personal Information Management 
System to run on Disk Basic. (Model I) 


Get T-Bug High 


Rappaport 


1/80:118 


3/80:13 


Move T-Bug to higher memory. (Model I) 


Graphic Sort 


de Zoysa 


8/80:166 




Graphic depiction of how the computer sorts. 
(Model I) 


Inside Level I 


Meushaw 


6/80:96 




Make better use of Level I. (Model I) 


Inside the ROMs 


Stock 


3/80:94 




Using built-in Assembly-language subroutines. 
(Model I) 


Inside- out Debugging 


Ogren 


11/80:222 




Graphics techniques to get game figures on screen. 
(Model I) 


Into the 80s, Pt. I 


Sinclair 


9/80:50 




Pointers for beginners. (Model I) 


Into the 80s, Pt. II 


Sinclair 


10/80:68 




String variables. Clear command, Input tips. 
(Model I) 


Into the 80s, Pt. Ill 


Sinclair 


11/80:70 




If. . .Then. . . Else, Clearing methods, and more ex- 
plained. (Model I) 


Into the 80s, Pt. IV 


Sinclair 


12/80:82 




Storing variables, dimensioning, loading strings, 
matrices, cutting strings, and more. (Model I) 


Keyboard Information 


Levy 


1/80:138 




Use INKEYS more efficiently. (Model I) 


Machine-code USR 


McDonald 


8/80:178 




Incorporate machine code into Basic programs. 
(Model I) 


Manipulative Wizard, A 


Adams 


12/80:94 




How to handle array management. (Model 1) 


Modification Update 


Richards 


7/80:84 




Things you can do to modify your computer. 
(Model 1) 


My Way 


Meushaw 


9/80:138 




Self-help routines to let the computer help solve your 
computing problems. (Model I) 


Mysteries of Level 1 1 


Griswold 


12/80:147 


4/81:22 


Jump addresses, compression codes, variable storage 


ROM 








formats, etc. of Level 11 ROMs. (Model I) 


"Next" Trap, The 


Borrmann 


9/80:208 


11/80:22 


Avoid the ?NF error message. (Model 1) 


Oh No! Calculus 


Joffe 


1/80:114 




See Science/Math. 


Pascal I & II 


Monsour 


5/80:38 




A look at two commercial Pascal interpreters. 
(Model I) 


Printer Calibration 


Rex rode 


9/80:94 




Ways to ensure your labels or paper is properly 
aligned before you print. 


Pulling Strings Together II 


Adams 


10/80:76 




A look at string management instructions. (Model I) 


Pulling Strings Together I 


Adams 


9/80:62 




How to manipulate string data. (Model 1) 


Punch Out Your Disks 


Taylor 


10/82:140 




Get double-sided disks with a paper punch. 


Relocate with PEEK 


Rappaport 


2/80:88 




Move machine-code programs aound using a Basic- 


POKE 








program. (Model I) 


Saving Money 


Acres 


7/80:110 




Buy mail order and install yourself. 


Smart Programs 


Lovy 


11/80:202 




See Programming Techniques. 


Towards Machine 


Joffe 


8/80: 144 


12/80:18 


How to begin learning machine language. 


Language 










UTILITIES 










Title 
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Append It! 


Gerald 


2/80:82 




Add Basic statements to your program from cassette. 
(Model 1) 


Assemble It Yourself 


Koch 


12/80:212 




Modify EDTASM to run without disk or cassette, 
and to use the editor as a WP. (Model I) 


AutoPOKH 


Kump 


8/80:132 




Load machine-language routines with a Basic routine. 
(Model 1) 


Babybeep 


Kitsz 


4/80:68 




Machine-language sound routine. (Model I) 


Babybug I 


Kitsz 


2/80:42 


4/80:27 


Machine-code monitor. (Model I) 


Babyroot 


Kitsz 


5/80:76 




Find defective memory locations. (Model I) 


Backup/Display 


Lindley 


5/80:96 




Assembly-language program to back up tapes and 
display contents in ASCII and hex. (Model I) 


Basic Basic Renumbering 


Orleff 


1/80:82 




150-byte renumbering program. (Model I) 


Basic Terminal 


Noreault 


4/80:133 




Turn the TRS-80 into an intelligent terminal. 
(Model 1) 
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Basic Word Processor 


Hinrichs 


5/80:50 


WP in Basic. (Model I) 


Beyond Shell Metzner 


Walker 


9/80:192 


Basic sort routine. (Model 1) 


Buffer Analysis 


Chambers 


6/80:132 


Display buffer contents in hex, ASCII, or decimal. 
(Model I) 


Cassette File 


Tallman 


8/80:174 


Use the first program on the tape to keep track of the 
others. (Model I) 


C 1.0 AD Assembly 


Baker 


6/80:146 


CLOAD Assembly-language Level 1 programs. 


I .anguage 






(Model I) 


CLOAD Machine 


Schimelman 


2/80:68 


Modify your machine-language monitor. (Model I) 


Language 








CLOAD Monitor 


Whaland 


5/80:86 


Get a graphic display when CLOADing Level I or 11. 
(Model I) 


Compac 


Romanchik 


12:80:198 


Assembly-language subroutines to speed up I/O pro- 
gramming. (Model I) 


Competition's Cursor, 


Bishop 


9/80:210 


Get a flashing cursor in Level II Basic. (Model 1) 


The 








Compress It! 


Powers 


2/80:118 


Take out remark statements. (Model I) 


Cross Reference 


Camp 


11/80:128 


Basic program that builds cross reference of machine- 
language calls and jumps. (Model I) 


Custom EDTASM 


Blair 


8/80:122 11/80 


22 Assembly-language printer driver for EDTASM. 






1/81:28 (Model I) 


Decwriter Driver 


Beauchamp 


6/80:111 


I/O driver to interface DEC I.A-34 terminal to a 
TRS-80, in Assembly language. (Model I) 


Deflower Your Debug 


Walter 


9/80:196 


Access previously inaccessible memory locations. 
(Model II) 


Delay Loop 


Joffe 


9/80:168 


Delay or timing loops for Assembly-language pro- 
grams. (Model 1) 


Disk File Protection 


Kcen/Dischert 


8/80:164 


Protect disk files from being overwritten. (Model 1) 


Disk Index 


Cheshire 


2/80:124 


Keep list of programs on file. (Model I) 


Displaced Programs 


Vloehlis 


7/80:158 


Move machine-language programs to high memory 
and save them to disk. (Model 1) 


Document Those 


Noel 


9/80:88 2/81: 


2 Program that lists variables and tells what they rep- 


Variables 






resent. (Model I) 


Doodle Bug 


Bishop 


6/80:72 


See Graphics. 


DOS Machine-code 


Turner 


11/80:208 


Keep routines in high memory from conflicting with 


Loading Techniques 






each other. (Model I) 


Dvorak Keyboard, The 


Boyd 


12/80:66 


Program to convert your keyboard from Qwerty to 
Dvorak format. (Model I) 


Etch-A-Screen 


Shrum 


5/80 


116 


Design video layouts for use in programs. (Model 1) 


Extra Errors 


Moses 


3/80 


125 


Add error messages. (Model I) 


Extra Variables 


Clark 


1/80 


134 


Get extra variables in Level I. (Model I) 


FASTDOS 


Neher 


5/80 


114 


Modify TRSDOS for more speed. (Model 1) 


Format 40 


Adams 


7/80 


162 10/80:14 Basic printout format routine. (Model I) 


Fractional Input 


Cecil 


5/80 


142 


Use fractions instead of decimals in input statements. 








(Model I) 


Free Format Search 


Riekers 


5/80:94 


Search a data base character by character. (Model 1) 


Free Space 


Cornell 


9/80:68 


Load this utility thai deletes spaces, line feeds, and 
remarks into the input buffer. (Model I) 


Graphics Coder, The 


Racine 


8/80:160 


Generate a video-display worksheet to compute prop- 
er graphics POKE locations. (Model I) 


Heathkit Interface 


Kunk 


7/80:114 


Increase the speed of the Heathkit H14 printer with 
software. (Model 1 ) 


Hex Display 


Campbell 


6/80:88 


Convert hex to decimal. (Model I) 


Holiday Cheer 


Kerr 


12/80:132 4/81:22 Address list and letter-writing program in Basic. 








(Model I) 


Input with Insight 


Decker 


10/80:138 


Get around the limitations of the Input command. 
(Model 1) 


Invisible Password 


Conley 


8/80:107 


Hide your passwords on disk systems with 
NEWDOS. (Model 1) 


KBFIX Fix 


Andreasen 


4/80:108 


Move KBFIX in memory with a Basic program. 
(Model I) 
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Keyword List Plus 


Decker 


12/80:263 


Routine to print keyword table with starling addresses 
(Model I) 


KWIC Index 


Sparks 


3/80:60 5/80:28 
6/80:12 


Find articles with this technique. (Model 1) 


Less Is More 


Winterbauer 


12/80:259 


Short Assembly-language print routine. (Model I) 


Level II to Level I 


Wolf 


4/80:62 


Convert Level 11 object lapes to Level 1 CLOADable 
format. (Model 1) 


Listen to Your Keyboard 


Domuret 


1/80:109 


Debounce program with audio feedback on 
keystrokes. (Model I) 


Lowercase with Strings 


Chcpko 


8/80:121 


Program to generate lowercase. (Model 1) 


Attached 








I. PRINT Formatter 


McCormick 


2/80:120 


Format printouts. (Model 1) 


LPRINT Routines 


Werner 


3/80:105 


Prinl out data from the screen. (Model 1) 


LPVIDEO 


Powers 


5/80:136 


Assembly-language program to prinl out screen con- 
tents. (Model 1) 


MACROPOKE Monitor 


Suter 


4/80:90 


Incorporate machine-code routines in Basic programs. 
(Model 1) 


Memory Dump 


Joffe 


5/80:144 


Look at memory via PEEK. (Model 1) 


Memory Sizer 


Decker 


10/80:114 


Set memory size from Basic. (Model I) 


Menu List Selection 


Rowletl 


11/80:195 


Select menu items by number. (Model 1) 


Subroutine 








Mix Your Own P1MS 


Busch 


11/80:212 


Add a directory to Scelbi's Personal Information 
Management System. (Model 1) 


Music Maestro! 


Pape 


1/80:36 4/80:27 


See Programming Techniques. 


New Restored 


Fordham 


1/80:84 


Recover programs after typing New and restore to 
anywhere you like with these Assembly-language 
routines. (Model 1) 


Pencil RS-232 Driver 


Kinsey 


8/80:170 


Use Electric Pencil and a printer through the RS-232C 
interface. (Model I) 


Position Display 


Frost 


9/80:150 


Display lilies in programs or have a message stand 
out, draw borders. (Model 1) 


Pow— Bang— Zap— 


Brandolini 


11/80:230 


Assembly-language sound routine that uses cassette 


(Crash) 






I/O port. (Model I) 


Progdata 


Kelley 


5/80:126 


Edit Assembly/Basic programs. (Model I) 


QWIKDISK 


Na/arian 


9/80:206 


Software patch to cut track access time in half. 
(Model I) 


Relocate with PLLK 


Rappaport 


2/80:88 


See Tutorials. 


POKE 








Restore Data Pointer 


Cecil 


12/80:257 


Set data pointer to a place other than the start of the 


Control 






data list. (Model I) 


Resurrect It! 


Quindry 


11/80:206 


Recover Basic programs lost due lo errors in Basic or 
object-code programming. (Model I) 


Scatterplot 


GenQvese 


7/80:128 


Use the Pearson Product-Moment correlation to ex- 
amine one variable as a function of another. 
(Model I) 


Screen Editor 


Colsher 


3/80:122 


Document your programs in Level 1. (Model I) 


Screenprint 


Frankenberg 


5/80:152 8/80:16 


Screendump by pressing I, J, and K simultaneously. 






9/80:14 


(Model 1) 


Service Tape 


Flalley 


4/80:106 


Load a collection of utility programs with one com- 
mand. (Model I) 


Slash Zero 


Richardson 


8/80:108 


Assembly-language routine to print out all zeros with 
a slash. (Model I) 


Slow Scroll 


Lewis 


9/80:202 


Video driver mod to slow scrolling. (Model I) 


Smart Terminal 


Shirley 


1/80:104 


Assembly-language program to make your TRS-80 an 
intelligent terminal for a larger system. (Model I) 


Software Lock 


Kclleher 


8/80:118 


Limit access to machine-code routines. (Model I) 


Sort 80K in 6K! 


Fitchhorn 


1/80:102 3/80:13 


Use disk random access to sort more data than fits in 
memory. (Model I) 


Sound X 


Baker 


7/80:136 


Machine-language sound routine. (Model I) 


Spool and Despool 


Gentry 


3/80:46 


Prinl files while running another program. (Model I) 


Super Sound 


Morr 


5/80:130 


Assembly-language sound-generating routine using 
cassette recorder. (Model I) 
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T-Bug and Then Some 


Paxton 


11/80:172 


Add Clear, Dump, and Shift commands to T-Bug. 
(Model I) 


T-Bug for II 


Curtis 


4/80:84 


Shorten Level II T-Bug and customize it. (Model 1) 


Take Me Beyond Your 


MeTcrnan 


10/80:210 


Move cassette past leader to oxide. (Model I) 


Leader 








Tape Librarian 


Herold 


8/80:100 


Keep track of your tapes. (Model I) 


TCopy 


Stevens 


7/80:160 


Copy tapes with source or object code in one step. 
(Model 1) 


Test Your Memory 


Chepko 


3/80:80 


Test program for new memory chips. (Model I) 


Tinycomp 


Bohlke 


5/80:44 


Basic program to compile into Assembly language. 
(Model I) 


Triple Play for T-Bug 


Johnson 


10/80:207 5/80:22 Put T-Bug into three different memory locations. 








(Model I) 


T Tape 


Stevens 


1/80:122 


Analyze and adjust cassettes for better CLOADS. 
(Model I) 


Uni-key 


Archer 


9/80:76 


Enter Basic keywords in one stroke. (Model 1) 


Up and Down 


Parris 


11/80:177 


Rerecord any 500-baud tape without fumbling with 
sound levels. (Model I) 


Variable Scroll 


Colsher 


10/80:134 


Gel a screen display of variables used at any time. 
(Model I) 


Versatile Input 


Wilde 


9/80:98 


Routine for easy, elegant data input. (Model 1) 


Walking Words 


Borrmann 


9/80:173 


Move words across the screen, left to right. (Model I) 


Whazit? 


Penny 


3/80:115 


Identify System and Basic tapes. (Model I) 


White 


Commander 


7/80:94 


Command to fool interpreter into executing your own 
commands. (Model 1) 


Winking Cursor 


Lovy 


1/80:68 


Give input statements a winking cursor or graphics 
block. (Model I) 


You Can Call It. . .Ray 


Kornfeld 


11/80:226 


Read disk directories, number programs, and run 
them in one keystroke. (Model I) 



1981 

BUSINESS 










Title 


Author 


Issue/Page 
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After the Goldrush 


Frost 


1/81:120 




Calculate value of your precious metals. (Model I) 


Analytic Inventory 


Harper 


12/81:314 




Organize your inventory management. (Model I) 


Management 










By Appointment Only 


Busch 


3/81:152 




Appointment-tracking program. (Model I) 


Dollars and Sense 


Andrews 


5/81:216 




See Utilities. 


Exponential Forecasting 


Gorney 


4/81:266 




Forecast demand for your products. (Model I) 


General Ledger 


Conhaim 


5/81:222 


7/81:20 


General ledger program for 32K and disks. (Model I) 


House Detective, The 


Cominio 


11/81:160 




Real estate information library. (Model I) 


How to Buy & Sell 


Whitman 


5/81:103 




Program to figure wraparound mortgages. (Model I) 


Houses 










Income Averaging — 1980 


Grothman 


3/81:136 




Program to aid in figuring your taxes with income 
averaging. (Model I) 


Investment du Jour 


Honess 


11/81:190 


3/82:18 


A look at the basic aspects of a business package. 


Investment Property 


Sparks 


11/81:144 




Estimate income from rental property. (Model I) 


Analysis 










Landlord 


Tuohy 


2/81:154 




Evaluate potential real estate investments. (Model I) 


Line Up! 


Anderson 


3/81:174 




Simulate waiting lines to study check-out counter effi- 
ciency. (Model I) 


Loan Wrangler 


Jensen 


3/81:240 




Loan calculator program. (Model I) 


Micros — Business or 


Latamore 


7/81:90 




How Tandy is pushing the TRS-80 as a business 


Pleasure 








machine. 


Mind Your Own Business 


Glau 


3/81:200 




Assembly time-cost analysis program. (Model I) 


Paper Mountain 


Wierenga 


11/81:118 




See Education. 


Pacemaker, The 


Tinis 


11/81:220 




Assembly time-cost analysis program. (Model I) 
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Title A uthor 

Punch Out Conroy 

Software Broker, The Harper 

Some Fundamentals Tune 

State of the Union Reid 

Take a Letter Mullin 

Tenant Tracker Kwascha 

Ups and Downs of Foley 
Graphs 



Issue/Page Debug 



2/81:198 

6/81:268 

2/81:216 

11/81:321 
8/81:290 
11/81:138 
11/81:176 



10/81:19 



4/82:26 



Annotation 

Program to aid tallying of time cards. (Model 1) 

Seven-program investment-analysis package. 

(Model 1) 

Use the TRS-80 as an effective business computer. 

(Model 1) 

Financial trend monitor for credit unions. (Model I) 

See Utilities. 

Computerize your rental records. (Model 1) 

See Graphics. 




EDUCATION 

Title Author 

Alternate Course, Pt. I Duffin 



Alternate Course, Pt. II 


Duffin 


9/81:204 


Alternate Course, Pt. Ill 


Duffin 


10/81:180 


Alternate Course, Pt. IV 


Duffin 


11/81:274 


Analogies 


Spencer 


9/81:328 


Calling All Teachers 


Hedden 


11/81:306 


Classroom Computing 


Droegemueller/Bell 


2/81:78 


Classroom Doodles 


Rosenberg 


2/81:86 


Foreign -language 


Robinson 


5/81:219 


Green Register, The 


LaBorde 


8/81:214 


Math Derby 


Duffin 


9/81:244 


Notes from the Classroom 


von Kaenel 


2/81:96 


Paper Mountain 


Wierenga 


11/81:118 


Programming for 


Weintraub 


2/81:68 


Education, Pt. I 






Pogramming for 


Weintraub 


4/81:144 


Education, Pt. II 






Programs for the 


Nowak/Muswick 


10/81:141 


Handicapped 






Project Local 


Petrakos 


2/81:74 


Quiz 


Olsen 


8/81:188 


Rushing Toward 


Petrakos 


4/81:74 


Courseware 






Specific Heat 


Fetchko 


12/81:220 


Teacher Mod 


Fish 


9/81:272 


Vocabulary Builder 


Zimmerman 


2/81:226 


Walls of Jericho, The 


McNichols 


9/81:292 



Issue/Page Debug 

8/81:180 12/81:28 



3/82:22 



Annotation 

Programs to teach data processing and alleviate com- 

puterphobia. (Model I) 

See Part I. 

See Part I. 

See Part I. 

Analogy-quiz program. (Model I) 

Package for teachers' record keeping. (Model I) 

How a school started a computer-education course. 

Graphic program to encourage problem solving and 

Use Electric Pencil to build a foreign-language 

dictionary. (Model I) 

Program to keep student records. (Model I) 

Math game to teach the basics. (Model I) 

Tips on introducing computers to the classroom. 

Program to keep school personnel records. (Model 11) 

Things you should know about writing educational 

software. 

How to go about writing test programs. 

Programs handicapped children can use to learn. 

(Model I) 

CAI as it is done at one school. 

Use the computer to test students. (Model I) 

How computerized instruction is affecting the 

classroom. 

Program to help students learn how to find the 

specific heat in chemistry lab. (Model I) 

Modify ISI's teacher program for networking. 

(Model 1) 

Program to aid learning a foreign vocabulary. 

(Model I) 

Teach the Bible with this program. (Model I) 
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GAMES 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Boa 


Myers 


5/81:294 




Two-player graphic game of survival. (Model I) 


Capture the Computer 


Fisher 


12/81:176 




Computer version of the game of Tag. (Model I) 


Chess Tutor, The 


Dowd 


12/81:154 


3/82:18 

4/82:24 


Let the computer teach you chess. (Model I) 


Color Concentration 


Wrye 


12/81:298 




Like the tv show. (CC) 


Colorful Maneuvers 


Wood 


11/81:328 




Out maneuver a friend. (CC) 


Compukala 


Moller 


3/81:278 




Computer version of the game of Kala. (Model 1) 


Dessert Solitaire 


Ratke 


12/81:226 




Based on the board game. (Model 1) 


Digits for Fun 


Wirth 


8/81 


304 




Math Puzzle. (Model I) 


Dot Game, The 


Welcher 


4/81 


210 




Simple game to connect the dots. (Model I) 


Formula 80 


Sprague 


8/81 


122 




Race sports cars on your screen. (Model I) 


Frankenstein 


Nicholas 


8/81 


92 




Three word games in one. (Model I) 


Let's Get Rude! 


Ramella 


12/81:142 




Removal game with pejorative prompts. (Model I) 


Level 11 Black Box 


Jones 


7/81:217 




Find the contents of The Black Box. (Model I) 


Lunar Lander Revisited 


Beringer 


6/81:244 




Another version of an old standard. (Model 1) 


Magic Cube, The 


York 


12/81:346 




Simulation of the Rubik's Cube. (Model I) 


Magic Trick, The 


Busch 


9/81:300 




Party game. (Model I) 


Master Mind 


Hope 


10/81:122 




Computer version of game, using Al techniques. 
(Model I) 


Math Derby 


Duff in 


'9/81:244 




See Education. 


Micro-basketball 


Weindorf 


3/81:118 




Computer basketball game for 16K. (Model 1) 


Micro-Yahtzee 


Johnson 


10/81:302 




Computer dice game. (Model I) 


Simon 


McGlumphy 


8/81:112 




Computer simulation of Simon in 4K. (Model 1) 


Simul-80 — a Weird Game 


Kitsz 


4/81:154 




Game that simulates what happens inside a 
microprocessor. (Model I) 


Space Empires 


Smith 


8/81:106 


5/82:26 


Strategy space game. (Model I/I II) 


Space Potatoes 


Brumme/Abel 


8/81:102 




Shoot down cosmic spuds. (Model I) 


Star Colony 


Beringer 


10/81:334 




Colonize and explore the star system. (Model 1) 


Star Guard 


Beringer 


8/81 


116 




Three-dimensional space game. (Model I) 


Startrek 4.0 


Commander 


8/81 


86 


1/82:24 


Classic Star Trek space game. (Model I/I1I) 


Subdestroy 


Cominio 


6/81 


186 




Arcade-style battle game. (Model I) 


Supermaze 


Batie 


6/81 


160 


9/81:16 


Maze game, using arrays. (Model 1) 


Tank 


Rice 


8/81 


104 




Arcade game for preschoolers. (Model I) 


This Ain't No Party! 


Fason 


4/81 


179 




Party game that interviews guests. (Model I) 


Walk on the Monster Side 


Latamore 


8/81 


84 




Short history of games and game development. 


Writers of a Lost Art 


Albino 


12/81:290 




See Tutorials. 


GENERAL 










Title 


Author 


Issue/Page 


Debug 


Annotation 


80 Interview with 


Robertson 


3/81:82 




Two interviews, one with Lew Kornfeld and one with 


Kornfeld/Roach 








John Roach, both of Tandy. 


80 Limited, The 


Latamore 


12/81:128 




How a TRS-80 runs a model train setup. 


Between the Lines 


McTernan 


3/81:216 




Level II manual errata fixed, with thoughts on the 
rest of it. 


Color Computer 


Kilmon 


8/81:286 




Thoughts on the "new" computer. 


First Impression 










Computerization/ 


Brown 


11/81:110 




How the Computer Revolution is affecting the 


Workplace 








management/labor relationship. 


Date Maker, The 


Grosse 


8/81:274 




Julian-to-Gregorian date converter. (Model I) 


Digital Delivery 


Latamore 


11/81:112 




Future of electronic mail. 


Dragnetwork 


Kennedy 


6/81:122 




How a police department set up a network with 
microcomputers. 


Field Guide to 


Doherty 


5/81:208 




Humor piece on different types of computer users. 


Computerists 










Getting Involved 


Batty 


7/81:179 




Looking back on how one got started with micros. 


It's All Robotese to Me 


Gesamte 


9/81:101 




Humor — a robot glossary. 


Just a Matter of Time 


Busch 


3/81:196 




Thoughts on using a micro to save money around the 
home. 


Lenny's Story 


Busch 


12/81:384 




Humor piece on virtues of making back-ups. 
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Title Author 

Queue Theory Neibauer 

Realm of Science Fiction Robertson 

Unexpurgated Version, Busch 

The 

User's Groups staff 



Issue/Page Debug 

12/81:368 
10/81:136 
4/81:178 

11/81:272 



Annotation 

Simulate a gas line. (Model I) 

A look at Al in science fiction. 

Humor piece on the "real" definitions of some 

computer terms. 

A list of TRS-80 user's groups. 




GRAPHICS 



Title 


Author 


Issue/Page Debug 


80 Cartoon Capers 


DeVigili 


9/81:320 12/81:28 


Advanced Graphics 


Boothe 


4/81:116 


Techniques, Pt. 1 






Advanced Graphics 


Boothe 


5/81:119 


Techniques, Pt. 11 






Advanced Graphics 


Boothe 


6/81:68 


Techniques, Pt. Ill 






Banner Banter 


Vann 


2/81:128 


Can Computing Be Art? 


Conroy 


2/81:122 


Classroom Doodles 


Rosenberg 


2/81:86 


Color by Percom 


Kalinowski 


1/81:68 


Curve Plotter 


Zimmerman/Stanley 


9/81:256 


Doodlebug 


McKenna 


1/81:208 


Perspective on Cubes, A 


Gerhardt 


1/81:182 


Picture This 


Keen/Dischert 


9/81:214 


POKE A, Color Com- 


Esposito 


12/81:362 


puter 






Rotation 


Yelling 


9/81:154 


Tiger with Dots, A 


Somers 


6/81:96 


Title Graphics 


Kalinowski 


9/81:302 


Turn of the Screw 


Boothe 


4/81:117 


Unlocking the Graphic 


Weintraub 


6/81:147 


Code 






Ups and Downs 


Foley 


11/81:176 


of Graphs 







Annotation 

Generate cartoons on the screen. (Model I) 
Use disk commands without disks to get graphic 
printouts. (Model I) 
See Part I. 

Manipulate three-dimensional objects on screen. 

(Model I) 

Print out large-letter banners on the Quick Printer 

(Model I) 

Reproduce pictures with characters on a printer. 

(Model 1) 

See Education. 

Use Pcrcom's Electric Crayon to get color on the 

Model 1. 

See Science/Math. 

Draw on the screen from the keyboard. (Model I) 

How to program computer to draw cubes. (Model I) 

Animation via string packing. (Model I) 

Access graphics modes in the CC. 

See Programming Techniques. 

Control matrix print-head needles through software 

on the IDS 440. (Model 1) 

Get flashy titles on the screen for your programs. 

(Model 1) 

Three-dimensional, rotating graphics for printer and 

video. (Model I) 

Relationships between graphic elements and their 

ASCII character codes. (Model 1) 

Generate graphs. (Model I) 
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HARDWARE 










Title 


Author 


Issue/Page 


Debug 


Annotation 


80 Appliance Control 


I .ewart 


3/81:230 




Build a circuit to control home appliances with 
software-generated tones. (Model 1) 


Alternate Source, An 


Conner 


5/81:254 




Battery-charger-based power supply. 


Another Noise Maker 


Erb 


12/81:312 




Sound synthesizer. (Model 1) 


Audio Interface 


Batie 


1/81:172 




Cassette dubbing, aural and video load monitoring, 
debounce, and more with this device. (Model 1) 


Baudot LPRINT 


Rister 


11/81:314 


2/82:28 


Interface the Teletype Model 15 to the TRS-80. 
(Model 1) 


Cruise Control 


Waltjen/Placido 


12/81:320 




Auto-adjusting speed-up mod. (Model I) 


Eye-80 


Haw kes/ Reese 


6/81:140 




Photo cell interface that will allow a Model 1 to detect 
objects and speed and direction. 


Gold-plated 80, A 


Martin 


12/81:302 




Gold plate your contacts. 


Hang Person 


Hilton 


10/81:320 




Hangman with sound. (Model I) 


Hard and Soft Printware 


Sinclair 


10/81:234 




Build a printer interface. (Model I) 


Hardwire the RS-232 


Dejarnette 


5/81:202 




Solder the RS-232 in place. 


High-Density Graphics 


Murray/Fowler 


4/81:134 




Get 192-by-96 resolution on your monitor. (Model 1) 


Interface, Pt. I 










High-Density Graphics 


Murray/Fowler 


5/81:80 


10/:81:19 


Sec Part 1. 


Interface, Pt. II 










Inverse Video 


Smith 


5/81:176 




Build a device to print characters in black on white. 
(Model I) 


Joysticks for the Model I 


DiNunzio 


6/81:157 


10/81:23 


Build a two-joystick interface. 


Last CLOAD Fix, The 


Stanley 


7/81:171 




Build your own X2X CLOAD fix. (Model 1) 


Lightning Strikes Twice 


Fowler /Murray 


7/81:184 




Build a permanent transient suppressor. 


Lower Cost Lowercase 


Van Praag 


4/81:228 




Lowercase Mod and KB fix. (Model I) 


Spare-time Generator, 

The 

Split and Splice 


Mehesan 


5/81:264 




Quick sort utility for name lists. (Model I) 


Mills 


9/81:228 




Split up Basic programs, convert Level I to II, merge 










together again. (Model I) 


Spooler, The 


Gault 


12/81:222 


3/82:18 


Use your computer while the printer prints. (Model I) 


Superlist 


Jones 


11/81:333 




Get more readable listings. (Model I) 


T-Bug III 


Kleinfelter 


11/81:390 




Convert Model I T-Bug to Model 111. 


Take a Letter 


Mullin 


8/81:290 


12:81:26 


Letter-writing program. (Model I) 


Take T-Bug Higher 


Stanley 


5/81:284 




Move T-Bug to high memory. (Model 1) 


Tale of Two Drivers, A 


Blair 


10/81:326 




Printer patches for Level II Basic and NEWDOS. 
(Model I) 


Terminal Plus 


Gorsky 


1/81:226 




Assembly-language terminal program for 48K disk 
systems. (Model I) 


Through-boot 


Smith 


10/81:312 




Initial program loader for TRSDOS. (Model I) 


TRS-80 Disassembler 


Wuebker 


8/81:240 




Read bits in ROM and convert them to Z80 
mnemonic instructions. (Model I) 


UC/LC Fix 


Thurlow 


8/81:260 




Get INKEYS working properly with the RS lowercase 
mod. (Model I) 


Underscoring Scripsit 


Iseli 


6/81:246 




Underline in Scripsit. (Model I) 


Variable Lister, The 


Webster 


7/81:259 




List variables. (Model I) 


Voice Synthesizer 


Hall 


10/81:146 




Program to generate words on the RS Voice Syn- 
thesizer. (Model I) 


Weak Link 


Denholtz 


10/81:360 




Strengthen NEWDOS80's Chain command. 
(Model I) 


Where Have All the 


Borr matin 


3/81:236 


6/81:16 


Program that lists line numbers with specific instruc- 


GOTOs Gone 








tions. (Model 1) 


Wherzit— Keyword Index 


Fox 


4/81:252 


9/81:16 


Indexing program that searches by title. (Model I) 


Write Stuff, The 


Barnes 


12/81:390 


3/82:22 


Assembly-language word processor. (Model 1) 


ZBug. . .Super Debug 


Harrell 


1/81:130 


4/81:22 


An Assembly-language monitor for 16K. (Model I) 


Monitor 










HOME/HOBBY 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Auto Mentor, The 


Sparks 


5/81:87 


7/81:20 
8/81:16 


Program to aid in buying a car. (Model 1) 
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Title 


Author 
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Being of Sound Algorithm 


Weinberg 


8/81:136 


Write your will on your TRS-80. (Model I) 


Cadet — The Decision 


Albino 


10/81:298 


Program to aid in making decisions. (Model I) 


Maker 








City Accessibility 


Todd 


12/81:310 


Find out which city is most convenient for all group 


Calculation 






members to meet in. (Model I) 


COINS 


Lloyd 


12/81:134 


Catalog your coin collection. (Model I) 


Computer Cantos 


Griffiths 


3/81:154 


Computer-generated poetry. (Model I) 


Computerized Complaint 


Gillig 


5/81:276 


Send out complaint letters via computer. (Model I) 


Dancin! A Disco Primer 


Modla 


5/81:194 


Generate disco dance steps on screen. (Model I) 


Dollar Down, A 


Martin 


5/81:113 


Evaluate financing plan for a new or used car. 
(Model 1) 


Endorse It 


Welcher 


4/81:214 


Basic check-writing program. (Model 1) 


Equine Equation 


Herold 


9/81:262 


Horse-racing program. (Model I) 


Evaluation 








Family Relationships 


Horwitz 


8/81:192 


Genealogy program. (Model I) 


Fat City 


Busch 


10/81:274 


Freezer inventory program. (Model I) 


Final Notice, The 


Atkins 


2/81:200 


Personal payment scheduling program. (Model I) 


Firestream 


Gille 


10/81:316 


Calculate correct water pressure for fire hoses. 
(Model I) 


Hold That Pose 


Ebert 


8/81:248 


Photo and slide-indexing program. (Model I) 


Home Buyer's Helper, 


Stinson 


5/81:99 4/82:26 Estimate what it will cost you to buy a home. 


The 






(Model I) 


Hoops 


Cornwell 


10/81:184 


Program to keep basketball statistics. (Model I) 


House Plant Index, The 


Chipman 


12/81:116 


Keep the vital statistics of your house plants on the 
computer. (Model I) 


Lifespan 


Wailand 


9/81:252 12/81:28 Program that estimates your lifespan based on your 








lifestyle. (Model I) 


Loan Sharp 


Atkins 


10/81:338 


Figure interest on the Pocket Computer. 


Mileage Manager, The 


Frink 


6/81:236 


Keep track of the gas consumption of your car. 
(Model I) 


Morse Resource, Pt. I 


Joffe 


8/81:150 


Software to help you send Morse code. (Model I) 


Morse Resource, Pt. II 


Joffe 


9/81:130 


See Part I. 


Nag Analysis 


Crosby 


7/81:243 


Horse-handicapping program. (PC) 


Philatelist's Friend, The 


Castor 


12/81:108 5/82:26 Catalog your stamp collection. (Model I) 


Pocket Full of Chips 


Do Ian 


12/81:230 


Several common calculation programs. (PC) 


Procedures Pricing 


Keller 


12/81:252 


Keep track of the cost of living. (Model I/I 1 1) 


Quick Riff on Synthesizer 


Keen/Dischert 


7/81:294 


ARPs, Moogs, and TRS-80s. 


Real Rules of 78s, The 


Conhaim 


7/81:289 


Figure early loan repayment. (Model 1) 


Rule of 78s, The 


Conhaim 


6/81:296 


Figure rates on early payment of loans. (Model I) 


Runner's Logbook, The 


Vosc 


12/81:100 


Keep a log of running times and distances. 
(Model I/HI) 


Second Sourcing 


Tinis 


11/81:348 


See Hardware. 


Secret Ballot 


Busch 


9/81:286 


Use your computer as a ballot box. (Model I) 


Sharp Marketing 


Aikins 


12/81:150 


Supermarket program. (PC) 


Shoplist 


Smith 


3/81:274 


Shopping-list program. (Model I) 


Shopper's Aid 


Maninger 


12/81:172 


Shoplist program. (PC) 


Two Cents Worth 


Clayton 


4/81:192 


Program to evaluate old pennies. (Model I) 


Watt's It All About? 


Hubert 


3/81:219 6/81:16 Home electrical utility monitor program. (Model I) 


Worldly Goods 


Fail 


10/81:220 


Keep inventory of your belongings. (Model 1) 


PROGRAMMING TECHNIQUES 




■ 


Title 


Author 


Issue /Page Debug Annotation 


All About Program Files 


Barnard 


10/81:258 


Use program files with small DBMs on cassette. 
(Model I) 


All About Sorts, Pt. I 


Gorney 


8/81:208 


See Tutorials. 


Bascal 


Metzler 


9/81:334 


Get a hybrid Basic/Pascal programming language. 


Be a Super USR! 


Alford 


8/81:254 


Ways to use USR calls. (Model 1) 


Chain Command 


Papc 


11/81:250 


Program chain and edit programs and continue 


Implementation 






execution. (Model I) 


Debug with GOTO 


Pape 


10/81:249 


Save what's in memory when your program crashes. 


Delete and Save 


Langston 


9/81:240 


Delete lines and stay in the program. (Model I) 
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Author 
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Do Not Enter 


Weintraub 


3/81:104 


Use INKEYS and eliminate prompts in programs. 
(Model I) 


Doing Two Things at 


Gorsky 


3/81:178 


Using interrupts in your programs. (Model 1) 


Once 








Efficient Cassette I/O 


Sabin 


1/81:218 


How to better handle cassette data files. (Model I) 


Erudite Arrays 


Barnes 


9/81:226 


Use one array as a series of arrays in Level I. 
(Model I) 


FOR My NEXT Trick . . . 


Mac Lean 


12/81:380 


See Tutorials. 


Formatted Screen Input 


Byrnes 


10/81:350 


Easier way for data entry. (Model I) 


Get Organized 


Lesley 


12/81:398 


Organize your programming methods. 


High-speed Sorts 


Robson 


9/81:220 


Sort in machine language. (Model I) 


How to Handle Those 


Knecht 


7/81:271 


See Tutorials. 


Random Files 








In Praise of Outlines 


Drew 


11/81:204 


Outline your programs before you write them. 


Loops and Arrays 


Wein 


4/81:246 


Combine loops and arrays in your programs. 


Multi-statement 


Keen/Dischert 


10/81:296 


Using multi-statement lines in programs. 


New Words for Basic 


Neibauer 


9/81:170 


Simulate commands not in Level II Basic. 


Not-So-Random Numbers 


Zeigler 


5/81:246 


Generate random sequences using Poisson, exponen- 
tial, or normal distributions. (Model I) 


On Embedding Data 


Adams 


6/81:294 


Tips on using Read . . . Data . . . Restore. 


Pascal Dream, The 


Krutch 


6/81:174 


Pascal as compared to Basic. 


Perspective on Cubes, A 


Gerhardt 


1/81:182 


See Graphics. 


Picture This 


Keen/Dischert 


9/81:214 


See Graphics. 


Plan of the Page, The 


MacLean 


1/81:222 


Improve your video page layouts for Level I. 
(Model I) 


POKE A, Color 


Esposito 


12/81:362 


See Graphics. 


Computer 








Program Chaining and 


Brown 


6/81:255 10/81 


22 Chaining, variable storage and preservation, and 


Local Variable Definitions 






string storage tips. 


in Basic 








Programming with Voice 


Werner 


8/81:208 


See Tutorials. 


Synthesizers 








RAM Squeeze 


Adams 


8/81:230 


Space-saving methods. (Model I) 


Regression and 


Honcss 


7/81:254 


Using regression and correlation for forecasting. 


Correlation 








Rotation 


Yellin 


9/81:154 


How to rotate 3-D figures. (Model I) 


Simple Syllogisms 


Hoffman 


10/81:132 


AI techniques for theorem-proving programs. 
(Model I) 


Slice & Dice Basic 


Schneider 


9/81:322 


Write self-modifying Basic code. 


Thoughts on For . . . Next 


Amyx 


10/81:354 


Ways to use the loop. 


Three's Not a Crowd 


Mawdsley 


8/81:292 


Program with utilities in memory. (Model I) 


Title Graphics 


Kalinowski 


9/81:302 


See Graphics. 


Undocumented 


Cameron 


7/81:296 


Split sometimes unused 16-bit index registers in half. 


Instructions 






(Model I) 


USR Usery 


Freese 


12/81:248 


Put Variables and $ in USR calls. (Model I) 


Vital Statistics 


Honess 


8/81:194 12/81:26 Build a program to summarize and display descriptive 








data value characteristics. (Model I) 


Wild Glitch Hunting 


Warren 


3/81:186 


Finding the more subtle bugs in your program. 


SCIENCE/MATH 






Title 


Author 


Issue/ Page Debug Annotation 


And Now Artificial 


Nelson 


10/81:108 


Some techniques used in AI research. 


Intelligence 








Applications in Real Time 


Genet 


6/81:127 


How a Model I runs the night shift at an observatory. 


Artificial Intelligence 


Vose 


10/81:118 


A look at current research. 


at MIT 








Artificial Intelligence — 


Brown 


10/81:103 


State of the art of artificial intelligence research. 


Technology and the Search for Self 






Curve Plotter 


Zimmerman/Stanley 


9/81:256 


Graph math functions. (Model I) 


Digits for Fun 


Pirth 


8/81:304 


See Games. 


Dome Time 


Nickell 


5/81:182 


Analysis program for geodesic dome design. 
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Author 
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Function Plotter 


Graue 


Molality Crunching 


Suder 


Number Cruncher 


Barbarello 


On the Average 


Gorney 


Pocket Stats 


Atkins 


Population Estimation 


Solomon 


Sheer Lunacy 


Harris 


Simple Syllogisms 


Hoffman 


Solar Altitude Plotter 


Rea 


Specific Heat 


Fetch ko 


Sunrise. . .Sunset 


Skramstad 



2/81:126 
2/81:194 

1/81:232 

5/81:292 

11/81:392 
2/81:152 

12/81:386 

10/81:132 
8/81:294 
12/81:220 
10/81:272 



Annotation 

(Model I) 

Graph any function. (Model 1) 
Use atomic masses in practical problems on the com- 
puter. (Model I) 

Data reduction program for statistical studies. 
(Model I) 

Program to figure mean, midrange, mode values in 
averaging. (Model I) 
Median-length statistics program. (PC) 
Analysis program based on Lincoln-Peterson tech- 
niques. (Model I) 

Gel a graphic representation of the moon for any 
point in time. (Model I) 
See Programming Techniques. 
Track the Sun's position. (Model I) 
See Education. 
Calculate time and place of sunset/sunrise. (Model I) 




TUTORIALS 

Title Author 

Adventures in Blechman 

Modemland 

All About Program Files Barnard 

All About Sorts, Pt. I Gorney 



All About Sorts, Pt. II 



Gorney 



Bascal 


Metzler 


Basic Difference, The 


Blechman 


Be a Super USR! 


Alford 


Be a Super User 


Joffe 


Better Documentation 


Ferber 


Buyer's Guide to Printers 


staff 


Buyer's Guide: Peripheral 


staff 


Clear N 


Salsbury 


CLOAD Is Just a Five- 


Kitsz 


Letter Word 




Cobol: Ready and 


Bradley 


Waiting 




Color Computer, The 


Martel/Nicholas 


Coming to Terms 


Fugate 


Compile, Interpret, 


Faulk 


Assemble 




Conversion, The 


Woeger 


Cost-effective Word 


He win 


Processor 





Issue/Page 

10/81:264 

10/81:258 

8/81:208 

9/81:148 

9/81:334 

10/81:290 

8/81:254 

2/81:166 

3/81:209 

6/81:84 
12/81:183 
9/81:312 
1/81:114 

7/81:116 

6/81:202 
7/81:112 
2/81:224 

12/81:324 

4/81:222 



Debug 



12/81:28 
1/82:24 

1/82:24 



9/81:16 



Annotation 

Using TRS-80 with a modem. (Model 1) 

See Programming Techniques. 

Choosing the correct sort method. (Model I) 

See Part I. 

See Programming Techniques. 

Converting Model I programs to Model III. 

See Programming Techniques. 

How to use USR. (Model I) 

How to develop a trainer module for program users. 

(Model I) 

Available printers compared. 

What's available in peripherals for the TRS-80. 

What Clear N does. (Model I) 

Problems and solutions to CLOAD woes. (Model I) 

An introduction to Cobol. 

A look at the CC's capabilities. 

Some common computer buzzwords defined. 

How the compiler, interpreter, and assembler work. 

Hands-on approach to converting from a Basic to 

Assembly-language program. 

Putting together a cheap word-processing system. 
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Title 


Author 


Issue /Page Debug Annotation 


Datacom Decisions 


Derfler 


8/81:262 


How to start your data communications system. 


Disk DOSsicr 


Commander 


3/81:68 


What a DOS is; how TRSDOS works. 


Disk to Tape 


Hocking 


3/81:250 


Thought about using cassettes after getting disks. 


Fast Clock DOS 


Domuret 


4/81:240 


Speed up your DOS when you speed up your hard- 
ware. (Model I) 


Fast Round-up, A 


McComb 


11/81:184 


Choosing a word processor. 


First Look at Forth, A 


Krutch 


7/81:162 


Introduction to Forth. 


Floppy Talcs 


Keener 


2/81:220 


How to use the Extaron Stringy Floppy for data 
storage. (Model I) 


FOR My NEXT Trick... 


MacLean 


12/81:380 


Uses of the For. . .Next loop. 


Freebie, The 


Adams 


12/81:304 


How to take 150 bytes out of reserved RAM on 
cassette systems. (Model I) 


Going Pro 


Moss 


9/81:242 


Tips on programming for money. 


How to Handle 




Knecht 7/81:271 Make efficient use of random-access disk 


Those Random Files 






files. (Model I) 


Idiot's Guide to AL, Pt. 1 


Montgomery 


5/81:168 


Beginner's guide to Assembly-language programming. 
(Model I) 


Idiot's Guide to AL, 

Pt. II 

In Command 


Montgomery 


6/81:112 


See Part I. 


Rutledge 


11/81:300 


Stay in the Command mode. (Model I) 


In Praise of Outlines 


Drew 


11/81:204 


See Programming Techniques. 


Ins and Outs of Edit, The 


Schrader 


12/81:358 


Notes on using the Edit utility. (Model I) 


Into the 80s, Pt V 


Sinclair 


1/81:100 


Using math on the computer. (Model I) 


Into the 80s, Pt. VI 


Sinclair 


2/81:100 


Producing a menu, using subroutines, and more. 
(Model I) 


Into the 80s, Pt. VII 


Sinclair 


3/81:92 


Program construction, using variables, PEEK and 
POKE, and more. (Model I) 


Join the Pascal Parade 


Grothman 


7/81:146 


Introduction to Pascal. 


Keep it in the Black 


Johnston 


5/81:188 


Reink printer ribbons. 


Keyboard Incantations 


Robnett 


11/81:352 


Mysteries of the TRS-80 keyboard. (Model I) 


Language Quest '81 


Vose 


7/81:96 


What a computer language is and how they work. 


Level II Utilities/Mod III 


Bigelow 


9/81:182 


Modify machine-language subroutines for the 
Model III. 


LLIST for Level I 


Ogden 


7/81:251 


How to get Level I printouts from Level II. (Model I) 


Macroprocessor for Basic 


Olm stead 


8/81:156 


Using macros in logical programming. 


Macroprocessor for Basic 


Olmstead 


9/81:142 


Why most compilers fail, and how to change that. 


Pt. Ill 








Macroprocessor for Basic 


Olmstead 


10/81:228 


What the Metabasic compiler is. 


Pt. IV 








Macroprocessor for Basic 

Pt. V 

Macroprocessor for Basic 


Olmstead 


11/81:243 


See Part IV. 


Olmstead 


12/81:206 


See Part IV. 


Pt. VI 








Memories Are Made of 


Randall 


5/81:146 9/81:16 RAM/ROM explored with memory test routines. 


This 






(Model I) 


Model II Q and A 


Yager 


6/81:197 


Common questions about Model II answered. 


Modify Tiny Pascal for 


Harrell 


7/81:154 1 2/8 1 :26 How to make changes to put RS Tiny Pascal on disk. 


Disk 






(Model I) 


On Modems 


Brown 


1/81:98 


Basic information on modems. 


Pilot — Language of CAI 


Hawkins 


7/81:122 


Introduction to Pilot. 


Programming for 


Weintraub 


2/81:68 


See Education. 


Education 








Programming with Voice 


Werner 


8/81:208 


Techniques for programming voices. (Model I) 


Synthesizers 








Random Tricks 


Perkins 


2/81:168 


Why Z80 random number sequences are somewhat 
predictable. 


Regression and 


Honess 


7/81:254 


See Programming Techniques. 


Correlation 








Shadow Knows, The 


Romkey 


3/81:244 


What some of the undocumented RAM areas hold. 
(Model I) 


Short and Sweet 


Gundlach 


3/81:272 


One line instructions that are useful. (Model I) 


Smart Answers 


Williams 


4/81:298 3/82:24 Answer computer prompts in hex. (Model I) 
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Title 


Author 


Issue/Page 


Debug 


Soft Characters 


Moulton 


10/81:285 




Speedset 


Winings 


5/81:258 




To Err Is. . .Forbidden, 


Adams 


6/81:108 




Pt. I 








To Err Is. . .Forbidden, 


Adams 


7/81:291 




Pt. II 








USR Usery 


Freese 


12/81:248 




Writers of a Lost Art 


Albino 


12/81:290 




UTILITIES 








Title 


Author 


Issue/Page 


Debug 


80 Black Book 


McGIumphy 


12/81:278 




80 to RS-232 to TI-810 


Herman 


8/81:164 




Auto Edit 


Rollins 


2/81:144 


5/81:22 


Auto-key 


Ghan 


10/81:242 




Babydub 


Kitsz 


3/81:210 




Base Conversions 


Yclvington 


9/81:186 




Basic Disassembler, A 


Delfine 


7/81:244 


2/82:28 


Basic Shorthand 


Radin 


8/81:282 




Basic — Enhanced Again 


Goodwin 


11/81:384 




Block That Cursor 


Balewski 


4/81:297 


7/81:20 


Building Bridges 


Mueller 


10/81:306 




Captran 


Gorsky 


6/81:192 




Cheater Poker 


Davies 


12/81:356 




Check Writer 


Tzinberg 


4/81:261 




Clock Boot 


Boehmke 


2/81:112 




Command File Modifier 


Crawford 


8/81:278 




Compare 


Everett 


4/81:271 




Comprs 


Barker 


5/81:270 




Constant Alternatives 


Hand 


3/81:225 




Copyit 


Balewski 


10/81:370 




Copykill 


Kelly 


6/81:224 




Crossdos 


Means 


10/81:288 




Crossref 


Ewart 


1/81:212 




Customized Commands 


Rupert 


11/81:292 




Datafix 


Barnard 


10/81:358 




Datagen 


Lewart 


8/81:168 




Dateline 80 


Press 


9/81:333 




DB to LII Converter, The 


Mumford 


1/81:200 





Annotation 

Get six more characters from the RS generator ROM. 

(Model I) 

Calibrate your drive speed. 

What the error messages the TRS-80 gives mean. 

(Model I) 

How to use error traps. 

See Programming Techniques. 
Write your own adventure games. 



Annotation 

Find ROM addresses fast. (Model I) 
Software to interface the TI-810 printer to the TRS-80 
via the RS-232. (Model I) 

Find out where the current line pointer is located and 
simplify editing. (Model I) 

Define strings in Basic and execute USR commands 
to enter character from keyboard. (Model I) 
Copy most cassette programs under 16K with greater 
volume variation. (Model I) 
Convert number bases in Assembly language. 
(Model I) 

Generate Assembly listings of machine code and ex- 
amine Level II PROMs. (Model I) 
Enter Basic keywords with one keystroke. (Model I) 
Twelve new commands for Level II Basic. (Model I) 
Turn the winking cursor into a block cursor. 
(Model I) 

Move AIDS Ill's fields to or from Special Delivery's 
fields. (Model I) 

Convert uppercase text files to upper/lowercase. 
(Model I) 

Data-generating utility that is easy to use. (Model I) 
Patch for check-writing programs to produce 
professional-looking results. (Model I) 
Put the TRSDOS clock back on time after a reboot. 
(Model I) 

Create new command files or modify existing ones. 
(Model I) 

Double check accuracy of ASCII disk dumps. 
(Model I) 

Machine-language routine to remove remarks and 
spaces from Basic programs. (Model I) 
Use decimal, hex, and octal constants in Level II 
Basic. (Model I) 

Eliminate retyping duplicate data statements in pro- 
grams. (Model I) 

Copy or kill dozens of programs with one command. 
(Model I) 

Convert TRSDOS to CP/M. (Model I) 
Get a variable cross-reference listing. (Model I) 
Add merge and other commands to Level II Basic. 
(Model I) 

Translate two or more keypad periods into a word or 
other punctuation. (Model I) 

Get data statements from machine language to Basic. 
(Model I) 

Create Basic data statements from object-code disk 
files. (Model I) 
Convert Disk Basic to Level II. (Model I) 



80 Micro, Anniversary 1983 • 505 



Title 


Author 
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Death Wish, The 


Smith 


12/81:262 


Program that generates machine-language data 
statements as it self-destructs. (Model I) 


Dexterous Data Entry 


Shuken 


12/81:280 


Menu-generating routine. (Model I) 


Direct Statement in File 


Fitchhorn 


5/81:190 


Retrieve programs from disk after the "direct state- 
ment in file" error. (Model I) 


Dirprog 


Egbert 


8/81:270 


Disk directory program. (Model I) 


Disk Auto-Menu, The 


Hewin 


6/81:178 


Run and list programs from the menu. (Model I) 


Disk Index 


Schilling 


8/81:268 


Keep track of all your directory listings. (Model I) 


Dollars and Sense 


Andrews 


5/81:216 


Generate formatted input commands in business soft- 
ware. (Model I) 


Driven Printer, A 


Mueller 


11/81:164 


Assembly-language driver for the Centronics inter- 
face. (Model I) 


El Cheapo Packer 


Browne 


3/81:168 


Routine to pack two lines together or break one line 
in two. (Model I) 


Emterm 


Mills 


10/81:156 


Terminal program to use with ESI Lynx modem. 
(Model I) 


Encoder, The 


Cain 


5/81:234 


Convert hex into blocks of Basic that POKE hex back 
into proper memory locations. (Model 1) 


Enhance Your Level II 


Spencer 


7/81:202 


Assembly-language listing to add functions to Level 


Basic 






11. (Model I) 


Everyman's Mod II WP 


Kilroy 


7/81:226 10/81:22 A Basic word processor. (Model II) 


EZ Wider 


Chepko 


3/81:247 


Set printer character width and line length. (Model I) 


Fast Edit 


Illk 


2/81:218 


Juggle utilities to save time in reloading them. 
(Model I) 


Find It Fast! 


Yelvington 


3/81:180 


String-search for Basic programs. (Model I) 


Flexible Scroller, The 


Myers 


5/81:204 


Get segmented screen scrolls. (Model I) 


Floppy Fixer 


Beebe 


12/81:326 


Look anywhere on your disk and modify its contents. 
(Model I) 


Full Error 


Keairns 


10/81:340 


Get full error messages instead of abbreviations. 
(Model I) 


Get High on Histograms 


Lovy 


1/81:211 


Bar-graph generator. (Model I) 


Head Bright 


Hesse 


9/81:327 


Head-cleaning program. (Model I) 


Hex Converter 


M alone 


5/81:244 


Take hex off number base conversions. (Model I) 


High-speed Data Tapes 


Glosser 


7/81:280 11/81 


16 A quick string-array tape subroutine. (Model I) 


11 the Dump 


Faber 


12/81:236 


Machine-language screen-dump routine. (Model II) 


KBEEPFIX Revisited 


Whitehead 


3/81:270 6/81: 


6 Modify KBEEPFIX (2/80:14) for disk-based systems. 
(Model 1) 


KII.DOS Is Here 


Soltysik 


6/81:265 


Eliminate DOS from the disk to free space. (Model I 
and NEWDOS) 


Know-It-All 


Sehmer 


5/81:288 


List variables and lines in which they are used. 
(Model I) 


Letter Counter 


Atkins 


3/81:192 


Analyze text by tallying frequency of letters. 
(Model I) 


Line Loss 


Borrmann 


5/81:283 


Save the line lost to answering prompts. (Model 1) 


Listprog 


Riff el 


10/81:374 


Improve your program listing's appearance. 
(Model I) 


Logger, The 


Kelly 


12/81:374 


Keep track of your programs. (Model I) 


LPRINT Formatter II 


Tzinbcrg 


2/81:214 


Print professional-looking listings. (Model 1/1II) 


Memory Expander, The 


Kenealy 


9/81:174 


Space saver thai deletes spaces and remarks. 
(Model I) 


Memory Window 


Mcrkcy 


10/81:364 


Machine-code subroutine to dump memory onto the 
screen. (Model I) 


Merge for Level II 


Dalesandry 


11/81:284 


Put a Merge utility on Level II cassette Basic. 
(Model I) 


Mergers 


Lloyd 


12/81:238 


Run RS's Mail List program in 48K. (Model I) 


Modifying EDTASM + 


Rhode 


10/81:344 


Store source and object code on disk. (Model 1) 


Never Ready 


Balewski 


7/81:199 


Routine to change the Ready prompt. (Model I) 


Newbug 


Marks 


11/81:368 


Fifteen new commands for T-Bug. (Model I) 


No Forwarding Address 


Thiel 


3/81:160 


Protect your programs from tampering. (Model I) 


Now You See It 


Borrmann 


2/81:236 


Save and restore screen contents in 24 bytes or less. 
(Model I) 


On Error. . .Fix 


Richardson 


9/81:250 


Routine that detects and repairs errors. (Model I) 
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Title 


Author 


Issue/Page 


Debug 


Annotation 


One-wheel Drive 


Keen/Pezzuto 


5/81:256 




Copy utility for one disk drive. (Model I) 


Paper Tiger Screenprinter 


Lewart 


2/81:138 




Get screendumps of graphic display with the IDS 440 
printer. (Model I) 


Patching Across 


Koch 


9/81:282 


12/81:26 


Use Model 1 Scripsit on the Model III. 


Pauper's Processor 


Osburn 


3/81:232 




Simple Basic word processor. (Model I) 


Purge 


Ligori 


6/81:219 




Purge utility for disk. (Model I) 


Ready — For the 


Barbarello 


12/81:260 




Make your programs novice-proof. (Model II) 


Model 11? 










Rename 


Busch 


9/81:317 




Get a rename utility on NEWDOS. (Model I) 


Sans Disks 


Hunter 


4/81:186 




Data-base management on cassette with fast loading 
and saving techniques. (Model I) 


Sargon Saver, The 


Quindry 


5/81:272 




Save Sargon in mid-game and play later. (Model I) 


Sargon Saver, Pt. II 


Quindry 


12/81:348 


4/82:26 


A better way to save Sargon to tape. (Model I) 


Scrip Patch 


Allred 


3/81:222 




Go from Scripsit to DOS without losing text. 
(Model 1) 


Scripsit — Sans Serif 


Cochrell 


11/81:172 




Use your printer's special features from Scripsit. 
(Model I) 


Sentry, The 


Rastin 


12/81:242 




Time-saving shift-entry utility. (Model I) 


Serial Printing/ 


Cohen 


9/81:276 




Driver to get serial printouts using EDTASM + . 


EDTASM + 








(Model I) 


Shift Lock 


Hambel 


5/81:260 




Assembly-language subroutine for shift reversal. 
(Model I) 


Simplezap 


Safford 


11/81:360 




Inspect your disk sectors. (Model I) 


Single-drive File Copy 


Gorsky 


3/81:191 




Copy utility for TRSDOS and one drive. (Model I) 


Soft Tach 


North 


6/81:232 




Display the rotational speed of your disk drives. 
(Model I) 



1982 

BUSINESS 








Title 


Author 


Issue/ Page Debug Annotation 


Autotrak 


Lloyd 


10/82:203 


Keep track of maintenance records for a fleet of 
vehicles. (Model I/III) 


CC — Color Computer or 


Adcock 


3/82:210 


Using the Color Computer as a business machine. 


Chamber of Commerce 








Discriminating Pallets 


Eaton 


1/82:98 


Plot prices for increasing material costs. (Model I) 


Financial Wizard 


Perelman 


5/82:326 


Figure compound interest, annuity, and amortization. 
(Model II) 


High Finance 


Byrne 


10/82:324 


Program to use with all-saver savings accounts. 
(Model I/III) 


Industry Saver 


Leichtman 


10/82:156 


How a TRS-80 improved production-line efficiency. 


Invoice 


Hackman 


10/82:342 


Organize your billing procedures. (Model I/I II) 


One Twelfth of a Misery 


Krapf 


4/82:298 


Loan-amortization program. (Model I) 


Order Form 


Wright 


9/82:270 


Produce custom-designed forms. (Model I/III) 


Phonfind 


Fldridgc 


6/82:358 


See Home/Hobby. 


Pocket Portfolio 


Dethlefsen 


1/82:94 


Investment-analysis program. (PC) 


Portal-to-Portal Report 


Keneipp 


6/82:300 


Keep track of air miles traveled. (Model 1) 


Production Learning 


Jeffrey 


10/82:316 


Program to track production costs per unit. 


Curve 






(Model III) 


Profit Prognosticator 


Nottingham 


2/82:268 


Estimate business profits. (Model III) 


Questions, Questions, 


Rutledge 


1/82:102 


Tabulate and average survey results for a business. 


Questions 






(Model l/III) 


QuickCalc 


Leafstand 


10/82:114 


VisiCalc clone. (Model I/III) 


Rule of 300 


Zimmerman/Conrad 


1/82:116 


Figure interest payments on loans. (Model 1/1 II) 


Spanning of Mod II Disks 


Keen/Dischert 


1/82:110 


See Programming Techniques. 


Survey 


Wells 


6/82:248 


Telemarketing program. (Model I/III) 
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Title Author 

Tax Relief for the Rich Perelman 



Issue/ Page Debug Annotation 



Trade Wins, The 



Finkelstein 



3/82:176 
2/82:238 



Figure taxes after the Economic Recovery Act. 

(Model II) 

Stock Market simulator. (Model I/I 1 1) 




EDUCATION 

Title 

80 in the Apple, An 
Anything Jodi Can Do. 

BIPED 



Author 

Radin 
Tallman 



Leichtman 



CIE— Computers in Radin 

Education 

Classroom Crystal Ball Keough 



Issue/Page 

2/82:68 
2/82:60 

4/82:112 

6/82:254 

2/82:94 



Computer Etch-a-sketch 


Mustico 


2/82:70 


Do Not Pass 


Wood 


6/82:352 


Dynamic Item Scheduling 


Wyckoff 


5/82:316 


Earth to Class, Listen Up 


Fish 


2/82:120 


Elementary, My Dear 


Vanderburgh 


2/82:256 


Primate 






Extra-terrestrial 


Wells 


2/82:112 


Fret No More! 


Louis 


5/82:164 


Future in Miniature, The 


Mello 


2/82:53 


Grade Book 


Pugsley 


3/82:184 


King Komputer 


Allison 


4/82:302 


Learning the Elements 


Wood 


2/82:116 


Making More Possible 


Leichtman 


2/82:128 


Moby Dick Touch 


Brown 


9/82:139 


Typing Tutor 






OJT 


Tymon 


6/82:326 



Put Them to the Test 


Davis 


2/82:104 


Roll Call 


Henderson 


2/82:100 


RS-80Tay, Aysay 


Stratton 


2/82:142 


Hatway? 






Ten-key Tutor, The 


Knoyle 


2/82:192 


Time to Make 'em Sweat 


Hawkes 


5/82:332 


To Comma, or Not to 


Perron 


2/82:82 


Comma 






Vocabulary Test 


Kalkstein 


4/82:294 


You Light Up My Life 


Wood 


3/82:330 



Debug Annotation 

About a teacher in NYC using 80s in the classroom. 
Code game written by 9-year old and comments from 
her dad on teaching kids to program. (Model I) 
Story on a program using micros to train handi- 
capped people. 
How a school district uses computers. 

The future of computers and education, and how 
programmers should view educational software. 
See Programming Techniques. 
Teach road signs in driver-education class. (CC) 
Write educational programs that interest and teach 
students. (CC) 

Classroom networking. (Model I) 
Use randomly generated text to study language syn- 
thesis. (Model I) 

Program to teach the solar system. (Model I) 
Learn how to play the guitar with your 80. (Model I) 
The micro in the classroom. 
Keep students' grades on the computer. (Model I) 
Program to teach kids how to read a ruler. 
(Model l/III) 

Program to teach chemical elements. (Model l/III) 
How micros help the handicapped. 
Learn touch typing. (Model l/III) 

Program to build your own educational programs 
from. (Model 1) 

Program that generates quizzes. (Model l/III) 
Using computers to keep track of student records. 
Program to teach a foreign language. (Model I) 

Program to teach typing on the ten-key pad. 

(Model I) 

Generate multiple-choice, true-false, short-answer, or 

completion tests. (Model I) 

Punctuation-teaching program. (Model I) 

Match a word with a definition. (Model I) 
Teach the physics of light. (CC) 
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Title 


Author 


Issue/Page 


Debug 


Annotation 


Acrostic Generator 


Falk 


8/82:240 




Create puzzles. (Model I/III) 


Alien Attack 


Perry 


8/82:282 




Arcade game, with joysticks. (CC) 


Amazing Cardoni II 


O'Connor 


8/82:302 




Card trick. (Model I/III) 


Assignment 46 


Albino 


8/82:66 




Adventure game. (Model I) 


Birthday Party 


Zuckerbraun 


10/82:262 




Games for kids' birthday parties. (Model I) 


Casino Slot Machine 


Balewski 


8/82:222 




Simulate a Las Vegas slot machine. (Model I) 


Color Breakaway 


Grossbach 


8/82:268 




One-on-one hockey simulation. (CC) 


Color Maze 


White 


8/82:188 




Maze game. (CC) 


Color Reversi 


Ledger 


3/82:90 




Reversi on the Color Computer. 


Computer Repeat 


Fontenot 


4/82:222 


9/82:32 


Memory game. (Model I) 


Conquest of Memory 


Myers 


8/82:254 




Colonize the universe. (Model I/III) 


Alpha 










Cram 


Brothers 


8/82:234 




Draw the line without going back or into it. 
(Model I/III) 


Cube-80 


Washington 


8/82:106 


10/82:30 


Rubik's Cube on the computer. (Model I/III) 


Enter the Dragon 


Hadlock 


8/82:248 




Kung-fu adventure. (Model I/III) 


Flip-a-piece 


Cominio 


3/82:252 




Othello-like game. (Model III) 


Fortran Puzzler 


Yehle 


6/82:227 




Figure out the secret code. (Model I) 


Four in One Plus Another 


Becker 


8/82:202 


10/82:31 


Four games and a utility for the CC. 


Game of Kalah, The 


Victor 


8/82:132 




Similar to Reversi. (Model 1) 


Game of Sim, The 


Radin 


9/82:276 




Similar to tic-tac-toe. (Model I/III) 


Intellectual Somnambulism Keller 


8/82:296 




Arcade game. (Model I) 


Kings and Catapults 


Adams 


2/82:232 


9/82:32 


Two fuedal kings battle it out. (Model I/III) 


Loco Motion 


Ridgway 


8/82:286 




One-player to align objects into a pattern. (Model I) 


Martian Missile Attack 


Gillen 


1/82:265 




Save cities, destroy Martians. (Model I) 


Master Muses, The 


Heath 


8/82:186 




See Tutorials. 


Micro Puzzle Box 


Moews 


1/82:302 


3/82:28 


Put the numbers in the right order in a grid. 
(Model I) 


Naval Wars 


Byrnes 


8/82:114 




Battleship with two computers. (Model I/III) 


Outdoor Computer 


Adams 


8/82:80 




Play spy vs. spy outdoors with your computer. 


Games? 








(Model I/III) 


Pitty Pat 


Barnes 


8/82:270 




Variation of draw poker. (Model I/III) 


Save All Humans 


Boothe 


3/82:154 




Save people from flying saucers. (Model I/III) 


Save Our Ship 


Hawkins 


8/82:174 




Star Trek adventure. (Model I/III) 


Ski Slalom 


Commander 


8/82:112 




Hit the slopes on the 80. (Model I/III) 


Space Chase 


Gillen 


5/82:292 


10/82:30 


Arcade space game. (Model I) 


Space Duel 


Edick 


8/82:260 




Arcade game. (Model I/III, CC) 


Square Game 


Kanach 


8/82:264 




Merlin-like game. (CC) 


Stanley 


Black 


8/82:300 




Out stare your VDT. (Model I) 


Sub Destroy, Model II 


Steele 


8/82:212 




Arcade game for the Model II. 


Style 










Subchaser! 


Steiner 


3/82:106 




Avoid depth charges and learn graphics techniques. 
(CC) 


Subs 'n Choppers 


Gillen 


8/82:216 




Arcade game, subs vs. choppers. (Model I) 


Tee for Six 


Bevington 


8/82:156 




Tee-jumping board games for the computer. 
(Model I/III) 


Termites 


Weindorf 


8/82:274 




Eat through the wood, but remember where the knots 
are. (Model I/III) 


Thru the Asteroids 


Fugate 


8/82:280 




Find your way through the asteroid belt and land 
safely. (Model I/III) 


Tumblin' Dice 


Bobo 


2/82:166 




Based on Boggle. (Model I) 


You Light Up My Grid 


McGlumphy 


6/82:330 




Light all the squares but the center one. (Model 1) 


GENERAL 










Title 


Author 


Issue/Page 


Debug 


Annotation 


Basic Misinterpretcr 


Busch 


4/82:86 




Humor — change Basic keywords to misspelled words. 
(Model I) 


Bob Rosen — A Colorful 


Leichtman 


6/82:174 




Personality piece on Bob Rosen. 


Story 
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Title 


Author 
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Broadening the TRS-80 


Busch 


3/82:298 


Thoughts on expanding your system. 


Horizons 








Celluloid CPUs 


Nadeau 


5/82:98 


Micros in the movies. 


CompuServe, MicroNet 


Maguire 


1/82:74 


TRS-80 users and CompuServe. 


and the TRS-80 






• 


Computer Creationists 


Rose 


5/82:80 


How micros are used in sound studios. 


Confessions of a 


Keller 


5/82:320 


One user's life after buying a TRS-80. 


Microholic 








Dateline: Sri Lanka 


Mello 


4/82:128 


Personality piece on David Busch. 


Divine Dementia 


Nadeau 


5/82:176 


Personality piece on Dennis Kitsz. 


Dream Team 


Wangsness 


2/82:196 


Put together an ideal team with this program. 
(Model I) 


Gabby the Space Cowbum 


Ramella 


5/82:322 


This space cowboy won't shut up. (Model I) 


Graphics King, The 


Frann 


8/82:120 


Personality piece on Leo Christopherson. 


Jake's Wampetcrs 


Mcllo 


3/82:162 


Profile on Jake Commander. 


Kryha Cipher Machine 


Deavours 


5/82:272 


Use Tiny Pascal in cryptology. (Model I) 


Little Byte Music, A 


Levine 


5/82:128 


History of digitally synthesized music. 


Night on the Town, A 


Gunn 


4/82:124 


Humor — take your computer out on a date. 


Northern Lights 


Latamore 


5/82:104 


How a sculptor uses a micro to plan his designs. 


Ohio Electronic News 


Chidsey 


6/82:100 


Progress report on the Tiffin, OH, newspaper's elec- 


Experiment 






tronic news experiment. 


Out of Thin Error 


Adcock 


5/82:258 


Humor — what error messages "really" mean. 


Philly Phiasco 


Gunn 


5/82:140 


Commentarty on the Philadelphia Computer in the 
Arts Symposium. 


Radio Shack vs. IBM 


Van Ghent 


3/82:168 


Model II compared to the IBM 5150. 


ROM Bibliography 


Secord 


4/82:76 


Annotated list of literature on the ROM. 
(Model I/Ill) 


Shopping with Uncle Sam 


Stolker 


10/82:88 


A look at the Federal DP Expo in Washington, DC. 


Terminal Case, A 


Latamore 


1/81:66 


A look at the Canadian videotext system, Telidon. 


TRON: Man in the 


Mello 


8/82:124 


Piece on the movie, Tron. 


Computer 








Vexed by the Void 


Resnick 


4/82:262 


An alien's view of TRS-80 users — humor. 


Videotext for the Masses 


Nadeau 


1/82:60 


What videotext means to the home computerist. 


When the Postman 


Averill 


3/82:308 


Thoughts on mail order. 


Doesn't Ring 








GRAPHICS 








Title 


Author 


Issue/ Page Debug Annotation 


3-D Graphics 


Fogelin 


3/82:138 


Get 3-D geometric shapes on the screen. (Model I/III) 


Alpha-graphics 


Basch 


1/82:190 


See Programming Techniques. 


Back to the Drawing 


Rappaport 


3/82:120 


See Utilities. 


Board 








CC on Parade, Pt. I 


Barden 


10/82:82 


Using graphics on the CC. 


Color from a Model II? 


Ward/Deninger 


3/82:240 


Use the DMP-3 digital plotter to get color graphics. 
(Model 11) 


Colorful Computer, Pt. I 


Miller 


8/82:94 


Twenty-one graphics programs. (CC) 


Colorful Computer, Pt. II 


Miller 


9/82:152 


See Part I. 


Colorful Computer, Pt. Ill 


Miller 


10/82:254 


See Part I. 


Computer Etch-a-sketch 


Mustico 


2/82:70 


See Programming Techniques. 


Conversion 


Osborne 


9/82:238 


Bob Boothe's graphics on the CC. 


Different Perspective 


Nielsen 


5/82:242 


Use shadows to gain perspective in graphics. 
(Model I) 


Editor's Choice, The 


Gesamte/Commander 


3/82:78 


Graphic patterns. (CC) 


Is a Rose in Color/ 


Green 


3/82:142 6/82:26 Earlier 80 Micro graphics programs converted to the 


a Rose? 






CC. 


Joystick Paintbrush 


Sprouse 


9/82:230 


Draw on the screen with joysticks. (CC) 


Mirror Imagining 


Boot he 


3/82:112 


Plot spheres, paraboloids, and other high-resolution 
shapes for the Epson. (Model I) 


Paper Graphics 


Rosenberg 


3/82:270 


See Utilities. 


Pictures at a Mod II 


Baker 


3/82:280 6/82:26 Bob Boothe's techniques on a Model 11. 


Exhibition 
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Polar Generator 


Webb 


2/82:204 


See Programming Techniques. 


Random Picture 


Swarts 


2/82:194 


Let the computer be the artist. (Model 1) 


Generator 








Shady Characters 


Ramella 


3/82:258 6/82:26 Get silhouette printouts. (Model 1) 


Smooth Graphics 


Goodman 


3/82:304 


Sec Programming Techniques. 


Spiromania, Pt. I 


Commander 


5/82:88 


Draw spirographs on the Color Computer. 


Spiromania, Pt. 11 


Commander 


6/82:106 


See Part 1. 


Sublime Simulations 


Keough 


4/82:258 


How computer simulation/modeling works. 


Super Banner 


Balewski 


5/82:282 


Print out banners on a Centronics 737. (Model I) 


When Black Is White 


Tache 


3/82:294 


Reverse graphic printouts. (Model l/lll) 


HARDWARE 








Title 


Author 


Issue/ Page Debug Annotation 


Bare-bones Communicator 


Hart 


6/82:128 


Get a communications system without the expansion 
interface or RS-232 adapter, with software. (Model 1) 


Battery Back-up 


Batie 


2/82:126 


Build a battery back-up unit. 


Building an M-80 


Hawkes/ Reese 


3/82:172 


Build a single-board microprocessor with the Z80. 


Cheaper Upgrade 


Tucker 


9/82:186 


Install the Extended Color Basic ROM yourself. (CC) 


Color Computer Upgrade 


Murphy 


3/82:102 


Go from4K to 16K. (CC) 


Color from a Model 11? 


Ward/Dcninger 


3/82:240 


See Graphics. 


Computerized Engraving 


Joffe 


5/82:318 


Drive a pantograph with your 80. (Model III) 


Cybernetics and Jelly 


Davids 


10/82:190 


Build a robot to detect jelly beans. (Model I) 


Beans 








Digital Doodles 


Sehmer 


1/82:244 9/82:30 Build a graphics plotter. (Model 1) 


Do-it-yourself Disks 


Schaefer 


1/82:172 


Install your own disk drives in a Model III. 


Double Your Density 


Domuret 


1/82:294 


Adding double density to your system section. (Model I) 


Four Into One Will Go 


Hawkes/Reese 


2/82:226 


Put a 4K program in IK by bank. (Model I) 


Handy Dandy Tandy 

Table 

1 lardware Hacker, Pt. I 


l.angston 


4/82:328 


Build a desk for your computer. 


Van Praag 


10/82:216 


Connect a Centronics-compatible printer to the 








Model 1. 


Hydra-disk 


Robins 


3/82:206 6/82:26 Add dual-headed drives. (Model 1) 


Joy of Interfacing, The 


Batie 


3/82:242 


Joystick interface. (Model 1) 


Juicing Pin 18 


Gorodctzer 


9/82:288 


Use pin 18 on the MX-80 printer connector with the 
buffered cable. (Model I) 


Look into Disk Drives, A 


staff 


1/82:179 


Buyer's guide to disk drives. 


Modem Auto-answer 


Westbrook 


6/82:229 


Build an auto-answer device. 


Multi-programming on a 


Genovese 


1/82:278 


See Programming Techniques. 


Micro 








Networking on a 


Meinke 


2/82:184 


Build your own networking system. (Model I) 


Shoestring 








New Generation of 


Park 


4/82:220 


Install the AXX3027 character generator chip. 


Characters 






(Model 1) 


Programmable Baud Rate 


Cottle 


5/82:306 


Device for the LNW interface to get a programmable 
baud rate. (Model 1) 


Programmable Sound 


Robins 


5/82:106 


Get up to nine simultaneous voices for about $125. 


Generator 






(Model I) 


RAM Wars 


McClenahan 


3/82:156 


Get 64K RAM on the CC. 


Singer Printer Interface 


Mailhot 


6/82:374 


Interface the Singer printer. 


Sixteen-channel A/D 


Haan 


6/82:310 


Interface eight joysticks. (Model I) 


Board 








Smarten Up, Color 


Esposito/Thiel 


3/82:126 


Add memory to the CC. 


Computer 








Straight Shooter, The 


Quindry 


1/82:318 10/82:30 Build an inexpensive light pen. (Model I) 


Telephone Dialer 


H ic key- 


6/82:160 


Device to let your computer dial phone numbers. 
(Model I) 


Those CLOAD Blues 


Hart jes 


1/82:288 


Build a data compensator and audio amplifier. 
(Model I) 


Video Snow Shovel 


Smith 


3/82:290 9/82:30 Gel rid of those black streaks against white 








characters. (Model I) 


Where There's a Will. . . 


McClenahan 


3/82:84 


Device to let the Color Computer print while on 
CompuServe. 
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HOME/HOBBY 



Title 


Author 


Issue/Page 


Bringing the Supermarket 


Kraynak 


4/82:270 


to Its Knees 






Computer Racing Form 


Bobo 


5/82:252 


Fore! Scorekeeper 


Wells 


5/82:298 


Gentle Reminder, A 


Rosen 


6/82:348 


Home Budgeteer — Reprise 


Pablo 


5/82:238 


If This Is Tuesday, It 


Atkins 


1/82:308 


Must Be. . . 






Income Tax Estimator 


Stark 


10/82:168 


Model III Biorhythms 


Anderson 


5/82:280 


No More 90-pound 


Stevens 


1/82:174 


Weakling 






Phonfind 


Eldridge 


6/82:358 


To Catch a Thief 


Kuhn 


4/82:274 


Trick or TRS-80 


Keller 


10/82:104 



Two Strokes a Side Avery 

Ultimate Parts Manager McCalley 
You're in the Money Montgomery 



5/82:264 
1/82:140 
10/82:140 



Debug Annotation 

Grocery-list program. (Model 1) 

Handicap horse races on your micro. (Model I/III) 
Keep track of your golf scores. (Model 1/1 II) 
Schedule your work projects. (Model l/III) 
Keep track of household expenses. (Model l/IIl) 
5/82:26 Date program. (PC) 

Figure your income tax on the CC. 

Find out what your good and bad days will be. 

(Model II) 

Excercise log program. (PC) 

Phone-log program. (Model I/I II) 
Home-inventory program. (Model I/III) 
Have a jack-o-lantern on your screen greet trick-or- 
trcaters. (Model 1/111) 
Figure your golf handicap. (Model 1/1 II) 
Keep inventory of Model T parts. (Model I) 
Project the impact of personal savings and borrow- 
ing plans. (Model III) 




PROGRAMMING TECHNIQUES 

Title 

Add That Professional 
Touch 

Alpha-graphics 
Basic Word Processing 
CC on Parade, Pt. 1 
Colorful Computer, Pt. I 
Colorful Computer, Pt. II 
Colorful Computer, Pt. Ill 
Computer Etch-a-sketch 



Conversion 
Different Perspective 
Dizzy Decimals 
Do-it-yourself DB, Pt. I 



Author 


Issue/Page 


Steelhammer 


1/82:258 


Basch 


1/82:190 


Cutrona 


9/82:140 


Barden 


10/82:82 


Miller 


8/82:94 


Miller 


9/82:152 


Miller 


10/82:254 


Mustico 


2/82:70 


Osborne 


9/82:238 


Nielsen 


5/82:242 


Shore 


3/82:326 


Townsend 


6/82:176 



Debug Annotation 

Make DBMs easier to use. (Model I/III) 

Technique to build graphic strings. (Model I/III) 

See Utilities. 

See Graphics. 

See Graphics. 

See Part I, Graphics. 

See Part I, Graphics. 

Add graphic routines to educational programs. 

(Model I) 

See Graphics. 

See Graphics. 

Eliminate round-off errors. (Model l/IIl) 

How to write your own data base. 
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Title 


Author 


Issue/ Page Debug Annotation 


Do-it-yourself DB, Pt. II 


Townsend 


9/82:242 


See Part I. 


Do-it-yourself DB, Pt. Ill 


Townsend 


10/82:332 


See Part I. 


Editor's Choice, The 


Gesamte/Commander 


3/82:78 


See Graphics. 


Flasher, The 


Mickey 


1/82:276 


Flash prompts. (Model I) 


I Have a Secret 


Demberger 


10/82:296 


See Utilities. 


I Program, Therefore 


Adcock 


5/82:302 


Use the indexed sequential addressing mode. 


ISAM 








Mirror Imagining 


Boothe 


3/82:112 


See Graphics. 


Model I Do Files 


Jackisch/Knapp 


4/82:254 


Ease program operation by using Do files. (Model 1) 


Multi-programming on a 


Genovese 


1/82:278 


Execute several programs simultaneously. (Model I) 


Micro 








Ordered Chaos 


Webb 


1/82:310 


Using randomness in programs. (Model I/III) 


PCLEAR 


Heusinkveld 


9/82:282 


Make high-resolution graphics use high memory. 
(CC) 


PEEK of Its Career, The 


Wilson 


6/82:308 


Simulate PEEK and POKE on the Model II. 


Performance Analysis 


Ballard 


2/82:240 


Detail the execution path of your programs. 
(Model I/III) 


Polar Generator 


Webb 


2/82:204 


Generate a map of the Arctic on the screen. (Model I) 


Priming the Data Base 


Ring 


3/82:152 


Use prime numbers for labels in DBMs for fast se- 
quential searches. (Model I/III) 


Printer Color Art 


Kalinowski 


9/82:168 


Get color printouts on your MX-80 using colored rib- 
bons. (Model I/III) 


Programmers for Hire 


Gillig 


1/82:274 


Techniques of a professional programmer. 
(Model I/III) 


Programming Pitch, 


Davis 


5/82:142 


How to program pitch in music-generation programs. 


Pt. 1 






(Model I) 


Programming Pitch, 
Pt. II 
Programming Pitch, 


Davis 


6/82:362 


See Part I. 


Davis 


10/82:228 


See Part I. 


Pt. Ill 








ROM Breakout 


Sprott 


6/82:350 


Use the interpreter's built-in exits to make modifica- 
tions. (Model I/III) 


Sling Some Hash 


Knecht 


9/82:124 


Use hashing to store and retrieve items in an unsorted 
list. (Model I/III) 


Smooth Graphics 


Goodman 


3/82:304 


Add precision to animation. (Model I/III) 


Spanning of Mod II Disks 


Keen/Dischert 


1/82:110 


Link files with multi-disk Model lis. 


Stepwise Refinement 


Boasso 


6/82:232 


Excercise using psuedo-code. 


STRINGS the Thing, The 


Knight 


6/82:298 


Use STRINGS to pack strings. (Model I/I 11) 


Subchaser! 


Steiner 


3/82:106 


See Games. 


Super Banner 


Balewski 


5/82:282 


See Graphics. 


To Err Is . . . Okay 


Adcock 


3/82:230 


Use On Error GOTO to work out of programming 
problems. 


Total Recall 


Bender 


4/82:332 


Get direct access to anything in memory with Fortran. 
(Model I) 


Using Print Using 


Rende 


1/82:290 


Tips on using the Print Using command. 


Worm Pills for Basic 


Keen/Dischert 


4/82:290 


Find the most efficient way to use Basic keywords. 


SCIENCE/MATH 






Title 


Author 


Issue /Page Debug Annotation 


Bemusing Triangle, The 


Honcss 


2/82:210 


Use the TRS-80 to implement the trapezoidal rule. 
(Model I/III) 


Colorful Titrations 


Wood 


2/82:202 


Isolate specific elements in chemical solutions. (CC) 


DIGRAPH Digressions 


Gorney 


6/82:192 


Use a directed graph to learn graph theory. 
(Model I/III) 


Extra-terrestrial 


Wells 


2/82:112 


See Education. 


Learning the Elements 


Wood 


2/82:116 


See Education. 


Model III Biorhythms 


Anderson 


5/82:280 


See Home/Hobby. 


Propagation Prediction 


Chipman 


6/82:272 


Predict high-frequency wave propagation. (Model I) 


Two-way ANOVA 


McGarvey 


3/82:234 


Get two-way analysis of variance. (Model I) 


You Light Up My Life 


Wood 


3/82:330 


See Education. 
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TUTORIALS 








Title 


Author 
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BBS Primer 


Wright 


6/82:284 


What you need to hook onto a bulletin board. 


Bit Smitten, Pt. II 


Chidsey 


9/82:268 


Formerly "For the Novice;" heat build-up, turn-on 
and turn-off shock, and more discussed. 


Bit Smitten, Pt. Ill 


Chidsey 


10/82:96 


What a baud is, screen-dump routines, and more. 


Breaker 19 


Busch 


6/82:96 


How to use CompuServe's CB simulator. 


Damping Cassette Output 


Sinclair 


5/82:324 


What to do when CLOAD problems are really 
CSAVE problems. 


Data Communications — 


Dcrflcr 


6/82:82 


How to set up your TRS-80 as a data-communica- 


TRS-80 Style 






tions terminal. 


Do-it-yourself DB, Pt. I 


Townsend 


6/82:176 


See Programming Techniques. 


Do-it-yourself DB, Pt. II 


Townsend 


9/82:242 


See Part I, Programming Techniques. 


Extended Color Basic 


Miller 


6/82:266 


A look at Extended Color Basic. (CC) 


For the Novice, Pt. I 


Chidsey 


6/82:148 


What MEM SIZE?, high and low memory, high and 
low-level languages are all about. 


Graftrax 80 


McNamee 


9/82:190 


Use bit graphics on the MX-80. (Model I/1II) 


Inside Scripsit, Pt. I 


Lindley 


9/82:222 


Learn how Scripsit works before you modify it. 
(Model I/I 1 1) 


Inside Scripsit, Pt. 11 


Lindley 


10.82:276 


See Part I. 


Learn a Little Pascal, 


Groihman 


1/82:80 


Program using RS Tiny Pascal. 


Pt. 11 








Make Butterflies— Not 

Bugs 

Master Muses, The 


Commander 


4/82:152 


Tips on using utilities. 


Heath 


8/82:186 


Author of Master Reversi talks about computer 








Othello. 


Mod III Notes 


Ratzlaff 


2/82:200 


Model 11 monitors and cassette I/O. 


Model I, Meet Model III 


Barlow/Brydges 


1/82:316 


Convert programs from Model I to Model III. 


Model II Primer 


Baker 


5/82:260 


Tips for the new Model II owner. 


Ordered Chaos 


Webb 


1/82:310 


See Programming Techniques. 


Printing Perfection 


Phillip 


9/82:126 


Control print density and size options of the MX-80 
while in Scripsit. 


Radio Shack Repairs 


Kepncr 


10/82:101 


What Radio Shack charges to repair specific things. 


Stepwise Refinement 


Boasso 


6/82:232 


See Programming Techniques. 


Technological Destiny, 


Dilllio 


4/82:264 


What a job in data processing requires. 


rt. 1 

Technological Destiny, 


Dilllio 


5/82:228 


See Part I. 


Pt. 11 








Technological Destiny, 


Dilllio 


6/82:186 


See Part I. 


Pt. Ill 








Technological Destiny, 


Dilllio 


9/82:260 


See Part I. 


Pt. IV 








Technological Destiny, 

Pt. V 

Using Print Using 


Dilllio 


10/82:246 


See Part I. 


Rende 


1/82:290 


See Programming Techniques. 


Utilities Buyer's Guide 


staff 


4/82:135 


Stats on various utilities for the TRS-80. 
(Model I/II/III, CC) 


Welcome to Cobol 


Keen/Dischert 


1/82:92 


Introductory look at Cobol. 


Worm Pills for Basic 


Keen/Dischert 


4/82:290 


See Programming Techniques. 


Z80 Bit Tables 


Robinson 


3/82:260 


Op-code secrets revealed. (Model I) 


UTILITIES 








Title 


Author 
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16, 10, 2, or 8— Which 


Sarnow 


6/82:334 


Decimal to octal to hex conversion. (Model I/III) 


Base Do We Appreciate? 








Add CRC ASAP 


Baker 


1/82:204 


Perform cyclical redundancy code checks for tape- 
based systems. (Model I) 


Another Major Operation 


Graves 


1/82:230 


Add serial printer capabilities to Scripsit. (Model I) 


on Scripsit 








Array I/O 


Neff 


1/82:200 5/82:26 Machine-language routine for fast Basic data transfer. 








(Model I) 
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Title 


Author 


Issue /Page Debug Annotation 


As the Screen Scrolls 


Keller 


2/82:264 6/82:26 Protect some of your screen from scrolling. (Model I) 


Back to the Drawing 


Rappaport 


3/82:120 


Design graphic displays on the screen and let the com- 


Board 






puter produce the code for it. (Model 1) 


BAM! 


Byrkit 


4/82:167 


Change one-letter commands in your monitor program 
to a full word. (Model I) 


Base 2 Screcnprinter 


Kent 


3/82:214 


Get screen dumps on the Base 2 printer. (Model I) 


Basic Communication 


McGarvey 


6/82:324 


Terminal program in Basic. (Model I) 


Basic Compiler in Basic 


Bertsekas 


10/82:122 


(Model I) 


Basic Translator 


Miller 


6/82:194 


Translate different Basic dialects for communication 
with other computers. 


Basic Word Processing 


Cutrona 


9/82:140 


Basic word processor. (CC) 


Can You Get Me a Date? 


Phillipp 


2/82:220 


Routine to let you enter a date in any format you like. 
(Model I) 


Colormon 


Cook 


3/82:212 


Monitor program. (CC) 


Command Interpreter 


Alford 


4/82:244 


Directly access machine-language routines. (Model I) 


CP80 


Cameron 


4/82:306 


IBM-like monitor program. (Model I) 


Datagen 


I leusinkveld 


6/82:346 


Convert machine code to Basic statements. (CC) 


Direct Access 


Fink 


4/82:214 


Access Disk I/O routines from Basic using string 
variables as input buffers. (Model I) 


Docs Format Get Your 


Hart 


1/82:217 


Useglitched disks. (Model I) 


Backup? 








Error Code Expanded 


Alford 


2/82:260 


Get full error messages. (Model I) 


Expand It — Burn It In 


Alexander 


6/82:344 


Test program for memory upgrade. (Model III) 


Fill in the Blanks 


Schuldenfrei 


1/82:224 


Pack records before sending them to tape. 
(Model I/III) 


Graphics for Profile 


Wood 


3/82:284 


Get graphics with Model II Profile. 


Half Duplexer 


McGarvey 


5/82:172 


Get screen echo for typed communications. (Model I) 


Hoodwinking TRSDOS 


Anderson 


6/82:296 


CP/M printer driver for Model 11 TRSDOS. 


Horizontal Scrolling 


Foley 


6/82:318 


Scroll back and forth and up and down. (Model I) 


I Have a Secret 


Demberger 


10/82:296 


Data encryption-decryption program. (Model I/III) 


JKL Minus Blanks 


Straw 


9/82:290 


Modify the NEW DOS f JKL so it doesn't print blank 
lines. (Model I) 


Loc-Editor 


O'Connor 


4/82:206 


A spelling checker for program listings. (Model I) 


Lost and Found 


Athanasiou 


6/82:288 


Disk -directory program. (Model III) 


Lost in Basic 


Paxton 


1/82:304 5/82:26 Find variables in Basic programs. (Model I) 


Lots of Little Letters to 


Olsen 


2/82:262 


Convert upper to lowercase. (Model I) 


Litter Your Listings 








LP VII Patch for the CC 


Degler 


10/82:304 


Eight-bit printer driver. (CC) 


Memory Size? 


Jackson 


4/82:226 


Store machine-language routines as string variables in 
Basic programs. (Model I) 


Micro Melodies 


Gibbs 


5/82:234 


Music-generation program. (Model I) 


Model 11 Disassembler 


Faber 


4/82:182 


A disassembler for the Model II. 


Model II Terminal Driver 


Korenthal 


4/82:176 


Terminal driver for use with Lifeboat's CP/M. 
(Model II) 


Model III Master Director} 


Muehlig 


4/82:250 


A master-directory program in 32K. (Model III) 


Neatlist 


Ewart 


1/82:196 


Produce neat program listings. (Model I) 


One-drive Bulletin Board 


Hodgson 


3/82:314 


Set up a CBBS with one disk drive. (Model I) 


Paper Graphics 


Rosenberg 


3/82:270 


Get graphics printouts on an LP IV. (Model I) 


Play a Trick on Profile 


Scott 


6/82:306 


Directly access profile files. (Model I) 


Print That Index 


Everett 


6/82:184 


Print out an address file. (Model I/III) 


Print Whiz 


Parker 


2/82:250 


Routine to use Electric Pencil and the RS LP IV to 
their full extent. (Model I) 


Program Begat, Son of 


Christ ensen/Sater 


6/82:320 


Self-reproducing program. (Model I) 


Program Begat 








Rapid System Loader 


Hedinger 


4/82:188 


Software tape-load speedup. (Model I) 


Reading, Writing, and 

AL 

Recover 


Morgan 


3/82:318 


Routines for disk I/O. (Model I/III) 


Gobel 


9/82:256 


Recover from unwanted exits from Scripsit. (Model I) 


Screen Veil 


Keller 


9/82:286 


Temporarily hide your screen's contents. 
(Model I/III) 


Screenplay 


Merkey 


9/82:204 


Print out anything in memory. (Model I) 
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Title 


Author 


Issue /Page Debug Annotation 


Secrets 


Mills 


3/82:216 


Hide sensitive data and protect your software. 
(Model I) 


Snapshot 


Rice 


2/82:272 


See how the values of your variables change during 
program execution. (Model I) 


Systemized Basic 


Browne 


4/82:234 


Save Basic programs in System format. (Model 1) 


Tab Extender 


Hedinger 


2/82:248 


Put 127 more spaces on your tab limit. (Model I) 


Tape Spate 


Bowman 


1/82:240 


Shorten time for cassette data saves and recoveries. 
(Model I) 


TRSDOS 2.0 Fix 


Mornini 


3/82:332 


Keep from exiting to DOS. (Model II) 


Two Transfers Please 


Hollins 


2/82:188 


Put Eliza and Micromusic on disk. (Model I) 


Using Test 1 A 


Moultrie 


4/82:240 


Use TRSDOS' s memory test with other DOSes. 
(Model 1) 


Varispeed 


Evans 


3/82:336 


Control the speed of your Basic interpreter. (Model I) 


Zubroutincs 


Ashley 


4/82:209 


Fifty short subroutines to aid your programming. 
(Model I) 


Lowercase Done Right 


Burgan 


9/81:298 


Build a better LC mod. (Model I) 


Model 1 Vi , The 


Forlna 


4/81:218 


Install your Stringy Floppy in the TRS-80 as one 
system. (Model I) 


Model I as a Dumb 


Tall man 


4/81:276 


Level I or II communications system. (Model 1) 


Terminal 








One Man's Robot 


McAllister 


9/81:114 


Build a light-sensitive robot. 


Onomatoeighty 


Mein 


1/81:190 


Interface the General Instruments AY-3-8910 pro- 
grammable sound generator. (Model I) 


Plug-compatible Processor 


Vonk 


6/81:137 


Z80A black box to make your Model I run at 4 MHz. 


Polyphonic Sound 


Brocaw 


6/81:166 3/82:18 Complex sound generation using the General Instru- 


Synthesizer 






ments AY-3-8910 Programmable Sound Generator. 
(Model 1) 


Pulse Jockey, The 


Suter 


5/81:236 


Interface via serial I/O through the cassette port. 
(Model 1) 


Real World Interface, 
Pt. 1 

Real World Interface, 


Ran 


10/81:202 


Build an interface device. (Model I) 


Rand 


11/81:208 


See Part I. 


Pt. 11 








Real World Interface, 

Pi. Ill 

Recipe for Hardcopy 


Rand 


12/81:192 


See Part I . 


Keith 


7/81:262 


Interface a Teletype Model 33 with a Mulli-80 and 








software. (Model I) 


Red Letter Day/Lowercase 


Ferber 


4/81:248 


Installing commercial lowercase printer and video 
mods and patches. (Model 1) 


Robotics — The Micro 


Brown 


9/81:104 


How robotics are edging into the micro field. 


Conned ion 








ROM Roll-over 


Kelch 


1 1/81:362 4/82:24 Mod to roll 16K of RAM over the ROM operating 








system. (Model 1) 


Second Sourcing 


Tinis 


11/81:348 


Program to screen op-amps. (Model 1) 


See No Evil 


Macri/Grcgory 


3/81:214 


Monitor status of the CPU when the video isn't 
hooked up. (Model I) 


Svvitched-on CLOAD 


Bickel 


3/81:252 


Play tapes without unplugging wires from the 
keyboard. (Model I) 


Tandy Acquires IBM! 


Stanley 


12/81:268 


Interface the Selectric Model 1980 typewriter to the 
TRS-80. (Model I) 


Tape Regenerator 


Lewart 


10/81:196 


Back up even poor tape recordings on a second 
recorder with this device. 


That Annoying Twitch 


Smith 


10/81:310 


Device to eliminate video twitch. (Model I) 


TRS-80 Bus Conductor 


Fox 


4/81:272 


Build an expansion bus. (Model I) 


TRS-80 Joystick Control 


Barker 


4/81:262 


Interface Atari joysticks. (Model I) 


Very Versatile Interface 


Stanley 


2/81:175 


Build an interface board. (Model 1) 


Wandering 80, The 


Hubert 


8/81:298 


Build a cabinet for your Model 1. 


Wave Shaper 


Shreve 


9/81:218 


Build a device to square pulses during CLOADs. 


Width Control 


Barbarello 


9/81:258 


Build a control to set repeatable character widths on 
RS line printer. 


Xerox 1740 and the 


Nestor 


6/81:92 


Interface Xerox 1740 printer to Model II. 


Mod II 
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80 F 


leviews 1980 




Books 






Product 


Manufacturer 


Issue/Page 


1001 Things to Do w/ Personal Computers 


TAB Books 


12/80:32 


80 Programs for the TRS-80 


Wayne Green Inc. 


4/80:20 


80-US 


80 NW Publishing 


2/80:38 


An Intro, to Computer Music 


John Wiley & Sons Inc. 


12/80:32 


Computer Games for Business and School 


Winthrop Publishers Inc. 


9/80:20 


Freelance Software Publishing 


Kern Publications 


2/80:15 


Guide to TRS-80 Information 


F. E. Hubener 


2/80:38 


Inside Level 11 


Mumford Micro Systems 


10/80:32 


Introduction to TRS-80 Graphics 


Dilithium Press 


4/80:24 


Introduction to 1 -Bug 


Dilithium Press 


7/80:16 


Learning Level II 


Compusoft Publishing 


5/80:12 


Micro Millenium, The 


Viking Press 


8/80:20 


Most Popular Subroutines in Basic 


TAB Books 


11/80:38 


Pascal-Intro to Logical Programming 


Computer Science Press 


5/13:13 


Periodical Guide for Computerists 


E. Berg 


2/80:39 


Problem Solving/Structured Programming 


Addison-Wesley 


5/80:13 


Programming Techs for Level II Basic 


Tandy/Radio Shack 


11/80:38 


Programmer's Book of Rules, The 


Lifetime Learning Publications 


5/80:14 


Recreational Computing 


Peoples Computer Co. 


2/80:39 


Running Wild 


Osbornc/McGraw Hill 


4/80:24 


Software Buyer's Guide 


Wallace Electronics 


2/80:39 


SSI Micro Software Guide, The 


SSI 


2/80:38 


Supermap 


Fuller Software 


7/80:16 


TRS-80 Disassembled Handbook 


Richcraft Engineering 


6/80:18 


TRS-80 Interfacing 


Blacksburg Education Series 


9/80:20 


TRS-80 Monthly Newsletter 


H&E Computronics 


2/80:38 


TRS-80 Technical Reference Manual 


Tandy/Radio Shack 


5/80:12 


Hardware 






Product 


Manufacturer 


Issue/Page 


Acu-Data Tape Digitizer 


Alphanctics Mfg. 


6/80:14 


Anadex Printer 


Anadex 


2/80:79 


Beta-80 


Meca 


5/80:82 


Centronics 730 Printer 


Centronics Inc. 


7/80:124 


Comprint 912 


Computer Printers International 


11/80:40 


DB-9500 Line Printer 


Anadex Inc. 


10/80:39 


Exatron Stringy Floppy 


Exatron 


5/80:82 


High-speed Modification Kit 


Simutek 


11/80:39 


Mayday + S 


Sun-Research Inc. 


6/80:16 


Microline-80 


Okidata 


10/80:39 


Model 440 Paper Tiger 


Integral Data Systems Inc. 


10/80:36 


Model 800 Printer 


Base-2 


9/80:24 


Percom Disk Drives 


Percom 


2/80:66 


Quick Printer 


Centronics Data Computer Corp. 


3/80:77 


RS-232 Board 


Tandy/ Radio Shack 


3/80:136 


TC-8 Cassette System 


J PC Products 


6/80:14 


Trendcom 100 Printer 


Trendcom 


8/80:18 


TRS-80 


Tandy/Radio Shack 


8/80:184 


TRS-80 Model 11 


Tandy/Radio Shack 


7/80:20 


TRS-80 Voice Synthesizer 


Tandy/ Radio Shack 


9/80:154 


Software 






Product 


Manufacturer 


Issue/Page 


Adventure 


So ft win Assoc/ Microsoft 


6/80:18 


Air Flight Simulation 


Instant Software Inc. 


4/80:24 


Android Nim 


80-NW Publishing Co. 


2/80:60 


Applications 


Dilithium Tapes 


4/80:136 


AUTOK and QEDIT 


Discovery Bay Software 


2/80:58 
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Product 

Basic IP 
Bootstrap 

Business Mail System 
C Basic- 
Disk Directory 
Disk Instruction Course 
Disk Mod 
Doctor and Fetch 
EDAS 4.0 
Educational 
ESP- 1 
Games 

Generalized Subroutine Facility 
Gomoku 

Graphics and Miscellaneous 
IDM-IV Data-base Manager 
Individual Study Center 
Inseq-80 and Insorl-80 
Interlude — Ultimate Experience 
ISAM 

ISAR, Information Storage & Retrieval 
Keepit Version 2.0 



level I in Level li 

Level III 

Line Renumbering 

Mail/File List 

Mai I list 

Mathematics 

Maxi-Disk and Shufrieboard 

Micro Music 

Micro-Opoly 

MMS Forth 

MON-2 

Morse Code Transmit & Receive Program 

Moving Signboard 

Music Composer/Editor 

Name and Address System 

OBJREL 

People's Pascal I and II 

Planetary Lander 

Poor Man's Text Editor 

Pyramid 

Radex-10 

Radio Shack Mailer 

Remodel- Proload 



Manufacturer 
Small Systems Software 
Practical Applications 
The Bottom Shell" 
FMG Corp. 

Mum lord Microsystems 
Tandy/ Radio Shack 
Misosys 

Omicron Software 
Galactic Software 
Dilithium Tapes 
Small Systems Software 
Dilithium Tapes 
Racei Computes 
Discovery Bay Software 
Dilithium Tapes 
Micro Architect 
TYC Software 
S & M Systems Inc. 
Syntonic Software 
Johnson Associates 
The Alternate Source 
The Alternate Source 



Issue/Page 

5/80:14 
7/80:17 
2/80:24 

4/80:130 
1/80:34 

11/80:44 

12/80:35 
1/80:48 
8/80:20 

4/80: 1 36 
2/80:59 

4/80:136 
1/80:49 
2/80:80 

4/80:136 

11/80:44 
4/80:20 

10/80:33 
9/80:21 
9/80:22 
12/80:36 
12/80:33 





Apparat Software 

Microsoft 

Software Association 

Galactic Software 

DAR Sales 

Dilithium Tapes 

Parasitic Engineering 

Tandy/ Radio Shack 

Level IV Products lnc 

Miller Microcomputing Services 

Hubert Howe 

Richcraft Engineering 

Circle Enterprises 

PFDC Software 

Small Business Systems Group 

Hubert Howe 

Computer Information Exchange 

Instant Software Inc. 

Don Coon 

Tandy/ Radio Shack 

IJG Computer Services 

Tandy/ Radio Shack 

Racet Computes 



3/80:134 

5/80:58 

1/80:48 

2/80:24 

10/80:36 

4/80:136 

5/80:15 

10/80:35 

10/80:35 

11/80:45 

2/80:59 

7/80:100 

2/80:58 

1/80:49 

2/80:25 

2/80:59 

5/80:38 

9/80:21 

2/80:111 

8/80:21 

7/80:18 

2/80:26 

3/80:58 
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Product 


Manufacturer 


Issue/Page 


Renumber 


Tandy/Radio Shack 


3/80:58 


RSM-2 Monitor 


Small Systems Software 


4/80:70 


Scripsit 


Tandy/ Radio Shack 


5/80:56 


Sort-II 


Northeast Microwave 


2/80:59 


Special Delivery 


Software Etc. 


7/80:16 


Step by Step. . 


Program Design Inc. 


2/80:59 


T-Short 


Web Associates 


4/80:23 


TRS-232 Formatter 


Small Systems Software 


10/80:32 


Video Checkers 


Compu-Quote 


2/80:98 


Win 21 


Discovery Bay Software 


2/80:97 


Word-1 


Micro Architect 


6/80:92 


Word-IV — Disk Word Processor 


Micro Architect 


11/80:44 


Z80 ZAP/CMD 


Org- Tex Industries 


9/80:22 



80 F 


Reviews 1981 




Books 






Product 


Manufacturer 


Issue 


57 Practical Programs & Games/Basic 


fandy/ Radio Shack 


4/81:31 


A Safe House Electronically 


Tandy/Radio Shack 


2/81:20 


Magazine of Advanced Applications 


Alternate Source, The 


1/81:47 


Basic Fortran 


Hayden Book Co. 


6/81:36 


Basic Scientific Subroutines 


Byte Publications 


9/81:24 


Creative Kids Guide/Home Computers 


Doubleday & Co. 


4/81:31 


Data File Programming In Basic 


John Wiley & Sons 


11/81:30 


Heath kit Assembly Lang Course 


Heath Corp. 


9/81:146 


Inside Basic Games 


Sybex Inc. 


9/81:22 


Intro To Pascal, UCSD Pascal 


Sybcx Inc. 


11/81:28 


Microcomputing Techniques 


Reslon Publishing Co. 


3/81:18 


Mindstorms: Children, Computer 


Basic Books Inc. 


2/81:14 


More TRS-80 Basic 


John Wiley & Sons 


12/81:82 


Morse Code, Baudot and ASCII 


Richcraft Engineering, Ltd. 


11/81:34 


Musical Applications of Micro. 


Hayden Book Co. 


9/81:22 


Nature of Computation: Intro 


Computer Science Press 


10/81:36 


New Uses For Home Comp/Stock Mkt 


Thomas V. Lenz 


11/81:30 


Owning Your Home Computer: Guide 


Everest House 


6/81:34 


Pascal 


Matrix Publishing 


4/81:31 


The Small Computer In Small Business 


The Stephen Green Press 


11/81:31 


Structured Basic and Beyond 


Computer Science Press 


11/81:28 


The CP/M Handbook With MP/M 


Sybcx 


3/81:18 


TRS-80 Assembly Language 


Prentice-Hall Inc. 


10/81:36 


TRS-80 Level II Basic, T Guide 


Tandy/Radio Shack 


1/81:47 


UCSD Pascal Compiler 


FMG Corp. 


10/81:40 


Your First Computer 


Sybex Inc. 


2/81:20 


Hardware 






Product 


Manufacturer 


Issue/Page 


Centronics 739 Printer 


Centronics Corp. 


12/81:75 


Coosol 101B-80E Printer 


Coosol Inc. 


12/81:76 


Dip-81 


Dip Inc. 


10/81:38 


Dynatyper Keyboard Actuator 


Rochester Data Inc. 


12/81:70 


Home Computer Work Table 


Computer Roomers Inc. 


10/81:39 


Internal Memory, The 


Holmes Engineering 


12/81:68 


KGS Keyoard Actuator 


Nik International Trading Co. 


9/81:26 


LX-80 


Lobo Drives International 


7/81:86 


Lynx 


Emtrol Systems Inc. 


9/81:134 


Microconnection, The 


The Micro Peripheral Corp. 


8/81:154 
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Product 


Manufacturer 


Issue/Page 


Microconnection.The 


The Micro Peripheral Corp. 


9/81:134 


Model I Speed-Up 


Archbold Electronics 


7/81:236 


Rex-80 


Palomar Computer Products 


12/81:68 


SA800 


Lobo Drives International 


7/81:86 


Telephone Interface II 


Tandy/ Radio Shack 


9/81:134 


Records 






Product 


Manufacturer 


Issue/Page 


Computerworld/Kraftwerk 


Warner Bros. 


12/81:78 


Software 






Product 


Manufacturer 


Issue/Page 


ACCEL2 Compiler 


Allan Gelder Software 


11/81:38 


Acquire 


Avalon Hill 


11/81:37 


Aids II/Aids 111 


Mela Technologies Corp. 


4/81:34 


Aids 111 with Calcs III 


Meta Technologies Corp. 


8/81:222 


Ast ro-Scope/Scxoscope 


Ags Software 


9/81:32 


Astrology 


Tandy/Radio Shack 


5/81:32 


Bl Bomber/Nukewar 


Avalon Hill 


6/81:34 


Bascom: Basic Compiler, Mod I 


Microsoft 


5/81:31 


Boss 


Soft Sector Marketing Inc. 


7/81:27 


C-Bug 


The Micro Works 


9/81:29 


CCA Data Manager 


Personal Software 


8/81:222 


Cocobug 


Allan Gelder Software 


9/81:30 


Creator, The 


Complete Business Systems Inc. 


11/81:36 


Dancing Demon 


Tandy/Radio Shack 


4/81:40 


Datestones of Ryn 


Automated Simulations 


4/81:37 


DDT (Disk Drive Timer) 


Disco-Tech Microcomputer Prod. 


4/81:35 


Deathmaze 5000 


Med Systems Software 


2/81:21 


Deluxe Personal Finance 


Small Systems Group 


5/81:37 


Di seal /Mod 1 32K/48K 


Myatte Smith 


7/81:28 


Edas 


Misosys 


11/81:44 


EDTASM Plus 


Microsoft 


10/81:32 


Elect ra Skelch 


Macrotronics Inc. 


1/81:44 


Eliza 


Tandy/ Radio Shack 


4/81:38 


Everest Explorer 


Acorn Software Products Inc. 


8/81:30 


File Management System (FMS) 


Exatron Corp. 


3/81:19 


Flextext 


Apparat 


9/81:290 


Flopycat/Bas, Disk Name/Bas 


Marvin Plunkett 


5/81:31 


Fractional Sound 


The Innovative Penguin 


9/81:34 


Galactic Empire 


Broderbund Software 


8/81:39 


Galaxy Invasion 


Big Five Software Co. 


8/81:35 


Gambiet 80 


Microtrend U.S.A. 


12/81:80 


General Accounting Package 


Microed 


6/81:26 


Haunted House 


Tandy/ Radio Shack 


8/81:36 


Hell lire Warrior 


Automated Simulations 


10/81:28 


In Memory Information 


Tandy/ Radio Shack 


11/81:40 


Invaders Plus 


Level IV Products 


8/81:35 


Invaders Plus 


Level IV Products 


4/81:40 


Invasion from Outer Space 


The Software Exchange 


8/81:35 


Keynote 


Hay den Book Co. 


5/81:26 


Kim's Game 


General Computer Co. 


5/81:32 


Labyrinth 


Med Systems Software 


8/81:26 


Lazy Writer 


ABC Sales 


6/81:20 


LDOS 


Lobo Drives International 


6/81:130 


Master Directory 1.1 


Micro Systems Software 


4/81:32 


Maxi Micro Manager 


Exador/ Adventure Intnl. 


8/81:222 


Midway Campaign 


Avalon Hill 


6/81:30 


Music Box, The 


Newtech Computer Systems 


5/81:27 


Music Master 


Instant Software 


5/81:26 
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Manufacturer 


Issue/Page 


Mychess 


Programma International 


12/81:80 


Orchestra 80 


Software Affair 


5/81:30 


Rats Revenge 


Med Systems Software 


11/81:40 


Regression II 


Dynacomp 


9/81:28 


Rcmassem 1 


Remsoft Inc. 


12/81:76 


Remodel & Proload, Infinite Basic 


Racet Computes 


9/81:168 


Sargon II 


Hayden Book Co. 


12/81:80 


SFinks 


William A. Fink 


12/81:80 


Small Home/Business Software 


Blechman Enterprises 


11/81:24 


Smart80D 


The Micro Peripheral Corp. 


9/81:180 


Southeastern Textan 


Southeastern Software 


10/81:33 


Space Shuttle 


Instant Software 


9/81:36 


Spooler 


Mumford Micro Systems 


10/81:30 


ST80-III 


Small Business Systems Group 


9/81:180 


Subedit/Subscript 


Prosoft Software 


6/81:20 


Subscript 5.0 


Prosoft 


9/81:290 


Supernova 


Big Five Software Co. 


8/81:32 


Superscript 


Acorn Software Products 


3/81:20 


Superstep 


Allen Gelder Software 


9/81:34 


Swamp Wars 


Instant Software 


8/81:36 


T80-FS1 Flight Simulator 


Sublogic Company 


8/81:26 


The Patch 


Cecdat 


2/81:22 


Tiny Pascal 


Supersoft 


7/81:168 


Trackcess 


The Alternate Source 


10/81:26 


TRS-Opera 


Acorn Software 


8/81:38 


Two Heads of the Coin 


Adventure International 


8/81:38 


Ultra-Mon 


Interpro 


4/81:37 


Varkeep 


Circle J Software Ranch 


4/81:33 


Winged Samurai 


Discovery Games 


8/81:40 


Wizard, The 


Programs Unlimited 


5/81:33 


Word Challenge 


Acorn Software 


8/81:38 


Wordo 


Microfantastic Programming 


4/81:35 


XBasic 


Snapp Inc. 


9/81:278 


XBE 


Computer Applications Unlimited 


11/81:42 


ZBasic "Compiler 


Simutek 


6/81:30 



80 Reviews 
1982 Through October 



Hardware 

Product 

AD-III Audio Amplifier 

A J 841 I/O Terminal 

AN-551 Eprom Programmer 

Base2 850 

C. ltoh Daisy Wheel Printer 

C. ltoh 8510 Printer 

Centronics 737 

Cheaptalk 

Color Computer Disk System 

Color Computer Disk System 

CPrinl Parallel Printer Interface 

Disk 80 

EPS-80 Word Processor 

Epson MX-80 



Manufacturer 

Thomas Engineering/TCS 

Anderson-Jacobson 

Design Solutions Inc. 

Base2 

C. ltoh Electronics 

C. ltoh Electronics 

Centronics 

Alan Saville 

Tandy/Radio Shack 

Tandy/Radio Shack 

Micro Labs Inc. 

Micromint Inc. 

PMC Inc. 

Epson of America 



Issue/Page 

2/82:316 

4/82:56 

6/82:68 

4/82:278 

2/82:316 

5/82:184 

4/82:278 

5/82:54 

9/82:72 

6/82:48 

3/82:56 

3/82:62 

9/82:78 

4/82:278 
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Manufacturer 


Issue/Page 


Escon Selectric Interface 


Escon Products Inc. 


6/82:47 


ETF-80 Electric Typing Fingers 


PMC Inc. 


9/82:78 


Floppy Disk Controller 


A.M. Electronics 


4/82:53 


Gold Plug 80 


E.A.P. Co. 


5/82:50 


Hayes Stack Smartmodem 


Hayes Microcomputer Products 


10/82:47 


IDS 445 Paper Tiger 


Integral Data Systems 


4/82:278 


IDS 460 Printer 


Integral Data Systems 


4/82:54 


Line Printer VII 


Tandy/ Radio Shack 


4/82:82 


Line Printer VIII 


Tandy/Radio Shack 


4/82:70 


LNW-80 


LNW Research 


5/82:206 


MDX-2 


Micro- Design 


4/82:58 


MDX-3 Interface PC Board 


Micro- Design 


10/82:60 


Memory Box, The 


Displayed Video 


5/82:224 


Micro Cue Print Buffer 


Microcompatiblc 


3/82:58 


Micro Mainframe Disk Controller 


Micro Mainframe 


11/82:58 


Microline 80 


Okidata 


4/82:278 


Microline 82A Printer 


Okidata Corp. 


5/82:56 


Micromouth 


Micromint 


4/82:59 


Modem 80 


Icrom Enterprises Ltd 


6/82:45 


Modem I 


Tandy/Radio Shack 


1/82:51 


Novell Image 800 Printer 


Novell 


5/82:57 


Patch 2.0 


Cecdat Inc. 


6/82:62 


PI80C Parallel Printer Interface 


The Micro Works 


6/82:46 


Plotter Printer 


Tandy/ Radio Shack 


1/82:122 


Plug 'N Power Controller 


Tandy/Radio Shack 


3/82:61 


Power Pack ROM Package 


Computerware 


6/82:118 


Printer/Cassette Interface/PC 


Tandy/ Radio Shack 


4/82:60 


QuCcS Hard Disk Subsystem 


Quality Computer Services 


10/82:154 


Select ronic 841 


Anderson-.lacobson 


4/82:56 


SK-2 


Mum ford Micro Systems 


2/82:180 


Snapp Spooler 


Snapp Inc. 


9/82:80 


Sooperspooler 


Compulink 


9/82:66 


Sprinter II 


Holmes Engineering 


11/82:56 


Starbuck 8882 


Starbuck Data Co. 


8/82:42 


Strobe 100 Drum Plotter 


Strobe Inc. 


9/82:58 


Tandy 6-Pen Plotter 


Tandy/ Radio Shack 


10/82:58 


TP-1 Smith-Corona Printer 


Smith-Corona 


11/82:61 


TRZ-80 




1/82:218 


UPI-3, UPI-4 Serial Printer Interface 


Speedway Electronics 


2/82:314 


Video 1 


Archbold Electronics 


5/82:54 


Books 






Product 


Manufacturer 


Issue/Page 


55 Color Computer Programs 


Arcsofl Publishers 


9/82:64 


6809 Assembly-Language Programming 


Osborne/McGraw Hill 


3/82:62 


8080/Z80 Assembly-Language Techniques 


John Wiley & Sons 


2/82:310 


Basic 2nd Edition 


John Wiley & Sons 


2/82:310 


Basic Adventures 


80-NW Publishing 


8/82:37 


Basic Conversions Handbook 


Hayden Books 


9/82:66 


Basic Faster and Better 


IJG Inc. 


5/82:37 


Basic for Home Computers 


John Wiley & Sons 


2/82:310 


Basic Handbook, The 


Compusoft Publishing 


2/82:312 


Computer Programming Basic Self Instruction 


Cambridge Learning Enterprises 


4/82:63 


CP/M Primer 


Howard W. Sams & Co. Inc. 


4/82:65 


Data File Programming/Basic 


John Wiley & Sons 


2/82:310 


Graphic Software/Micros 


Kern Publications 


5/82:37 


Intro/8080/8085 Assembly Language Programming 


John Wiley & Sons 


2/82:310 


Learning with Computers 


Digital Press 


2/82:310 


Microcomputer Math 


Micro Applications Publishers 


3/82:64 


Microsoft Basic Decoded 


IJG 


1/82:38 


Murder in the Mansion 


Arcsoft Publishers 


2/82:326 


Pascal 


TAB Books 


1/82:27 



522 • 80 Micro, Anniversary 1983 



Product 


Manufacturer 


Issue/Page 


Pascal Handbook 


Sybex 


1/82:42 


Pascal Primer 


Howard W. Sams & Co. Inc. 


1/82:40 


Robot Intelligence/Experiments 


TAB Books 


6/82:51 


RS Model 111 Service Manual 


Tandy/ Radio Shack 


3/82:65 


TRS-80 Graphics 


Tandy/ Radio Shack 


3/82:63 


Using CP/M 


John Wiley & Sons 


2/82:310 


Videotext, Coming Revolution 


Knowledge Industry Publications 


1/82:36 


Software 






Product 


Manufacturer 


Issue/Page 


ACCEL2 


Allen Gclder Software 


5/82:218 


Ace Automated Communications 


Ace Computer Products 


10/82:47 


Aircraft Instrument Approach 


J.C. Sprott 


2/82:318 


Alcatraz II 


Spectral Associates 


8/82:40 


Alien Defense 


Soft Sector Marketing 


8/82:50 


Ann Rose 


Sturdivant and Dunn 


5/82:42 


Ants 


Synergistic Solar Inc. 


4/82:46 


Arcade 80 


Datasoft Inc. 


2/82:320 


Armored Patrol 


Adventure International 


8/82:36 


ASPTCH 3.2 


Byte Miser Software 


2/82:322 


Asylum 


Med Systems Software 


5/82:41 


Attack Force 


Alpha Products 


1/82:51 


Auto-Writer 


Software Options 


9/82:110 


Autobasic 


Schneider Enterprises 


9/82:82 


Basic Compiler (BASCOM) 


Microsoft Consumer Products 


5/82:218 


Basicpro 


Soltworx Inc. 


1/82:49 


C. C. Writer 


Transformat ion Technologies 


3/82:50 


Cassette Comm 


Tandy/Radio Shack 


1/82:44 


Cave Hunter 


Mark Data Products 


9/82:76 


Check Register Plus 


So ft co 


6/82:338 


Checkwriter 80 


Tandy/Radio Shack 


6/82:338 


Chextext 


Apparat 


9/82:119 


Chextext 


Apparat 


4/82:98 


Chromasette Magazine 


CLOAD Magazine 


3/82:52 


Codes 11 


Nelson Software 


9/82:96 


Color Assembler 


Computcrwarc 


6/82:116 


Color Berserk 


Mark Data Products 


9/82:76 


Color Editor 


Computerware 


6/82:116 


Color Pac Attack 


Computerware 


8/82:45 


Color Scripsit 


Tandy/ Radio Shack 


10/82:40 


Color Space Invaders 


Spectral Associates 


3/82:48 


Commbat 


Adventure International 


1/82:43 


Compiler Basic, I & III 


Tandy/Radio Shack 


2/82:164 


Compiler Basic, II 


Tandy/ Radio Shack 


2/82:148 


Computer Downs 


Ernest H. Fellows 


2/82:327 


Computer Major League 


Avalon Hill 


5/82:38 


Conflict 2500 


Avalon Hill 


8/82:46 


Copyart 


Simutek Computer Products 


9/82:108 


Crush, Crumble, and Chomp 


Epyx, Automated Simulations 


2/82:324 


Data Ace 


Computer Software Design 


10/82:266 


Datahandler 


Miller Microcomputer Services 


6/82:150 


DBase II 


Ashlon-Tate 


6/82:53 


Defense Command 


Big Five Software 


8/82:50 


Direct Kile Transfcr/DFT 


Big Systems Software 


6/82:66 


DOSPLUS3.4 


Micro Systems Software 


10/82:244 


Dragons of Hong Kong 


Adventure International 


8/82:52 


Draw5 


Wilson Software Division 


1/82:42 


DSMBLR 


Misosys 


9/82:85 


Dynamic Report Generator 


Dynamic Software 


10/82:56 


Edit 


Southern Software 


6/82:71 


Electric Pencil 2.0 


IJG Inc. 


9/82:98 


Electric Spreadsheet 


Exatron 


1/82:49 
9/82:116 
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Product 


Manufacturer 


Issue/Page 


Electric Webster 






Eliminator 


Adventure International 


8/82:54 


ENHBAS 


Cornsoft Group 


1/82:320 


Faster 1.2 


Prosoft 


4/82:40 


FIextext/80 


Apparat 


9/82:100 


GEAP 


J.F. Consulting 


10/82:184 


Grammatik 


Aspen Software 


9/82:120 


Graphics Editor/Programmer 


J.F. Consulting 


3/82:57 


GRBasic 3.0 


Med Systems Software 


6/82:54 


Hexspell 


Hexagon Systems 


4/82:98 


Hexspell 2 


Hexagon Systems 


9/82:116 


HORKS 


Edu-Ware East 


9/82:70 


ICL 


XYZT Computer Dimensions 


6/82:64 


IDM/V 


Micro Architect Inc. 


6/82:150 


Institute, The 


Med Systems Software 


9/82:64 


INT ASM 2.0 


Singular Systems 


9/82:68 


KWICOS 


Kwik Software 


2/82:322 


Lablmakcr 


ETS Center 


10/82:34 


Laser Defense 


Med Systems Software 


8/82:39 


Lazy Writer 


Soft Sector Marketing 


9/82:102 


I. DOS 5.1 


Logical Systems Inc. 


9/82:252 


Letter-Writer 


Astro-Star Enterprises 


9/82:112 


Life List 


Manhattan Software 


5/82:46 


Litigation Support System 


Tandy/ Radio Shack 


6/82:50 


Local Call for Death 


Adventure International 


8/82:52 


LZ Patcher 


Imaginuity Inc. 


9/82:104 


Maces & Magic 


Adventure Int. /Chameleon 


8/82:38 


Macro-Mon, The Shadow 


Advanced Operating Systems 


9/82:292 


Mailmcrgc 


Micropro 


9/82:94 


Master Control 


Soft Sector Marketing 


3/82:49 


Maxi Check Register Acct. 


Exador/Adventure Intnl. 


6/82:338 


Maxi Manager 3.1 


Adventure International 


6/82:150 


Maxprint 


Peggytronics 


10/82:33 


Mctcoroids 


Spectral Associates 


3/82:48 


Micro-Typit 


Coolidge & Associates 


9/82:114 


Microcosm III 


Basics & Beyond Inc. 


1/82:48 


Microproof 


Cornucopia Software 


9/82:116 


Microproof 


Cornucopia Software 


4/82:98 


Microstat 


Ecosoft 


6/82:280 


Mind Thrust 


Hayden Software 


8/82:56 


Mi?.' Spell 


Programs Unlimited 


4/82:98 


Miz' Spell 


Programs Unlimited 


9/82:120 


Mod II Game Package 


Small Business Systems 


5/82:52 


MZAL 


Computer Applications Inc. 


10/82:160 


New Starship Battles 


Synergistic Solar Inc. 


4/82:46 


NEWDOS80 V. II 


Apparat 


2/82:152 


NewScript 


Prosoft 


9/82:104 


NewScript 6.0 


Prosoft 


3/82:53 


NewScript 7.0 


Prosoft 


10/82:52 


Newtalk 


Star Kits 


10/82:38 


Newtrieve 


Unique Printing & Stationery 


10/82:42 


Omniterm 


Lindberg Systems 


4/82:94 


On Her Majesty's Ship Impetuous 


Adventure International 


8/82:52 


Packer 1 .5 


Cottage Software 


6/82:60 


Parsector 8 


Synergistic Solar Inc. 


4/82:46 


Pencil Plus 


Dan Robinson 


9/82:96 


Penetrator 


Melbourne House Software 


9/82:74 


Pensawrite 1 


Pensadyne Computer Services 


9/82:112 


Pensawrite 2 


Pensadyne Computer Services 


9/82:106 


Personal Finance for C.C. 


Tandy/ Radio Shack 


10/82:38 


PL/ 1 -80 


Digital Research 


6/82:122 


Powerdraw 


Powersoft 


10/82:40 


Profile II 


Tandy/ Radio Shack 


4/82:48 
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Product 


Manufacturer 


Issue/Page 


Profile III Plus 


Small Computer/Tandy 


10/82:308 


Profile Plus 


Tandy/ Radio Shack 


4/82:48 


Proofreader 


Aspen Software 


4/82:98 


Proofreader/Proof-Edit 


Aspen Software 


9/82:118 


QSD Utility Disk #1 


Quality Software Distributors 


4/82:41 


Qwerty 


Med Systems Software 


10/82:34 


Qwerty 


Med Systems Software 


9/82:102 


Refware Thesaurus 


David C. Whitney Associates 


4/82:52 


Robot Attack 


Big 5 Software 


8/82:39 


RPM 


Prosoft 


4/82:40 


Scarfman 


The Cornsoft Group 


3/82:53 


Scrinput 


ACR Consultants 


4/82:44 


Scriplus 


Quality Software Distributors 


9/82:101 


Scripmod 


MG Products 


9/82:102 


Scripsit 


Tandy/ Radio Shack 


9/82:98 


Scripsit Dictionary 


Tandy/Radio Shack 


9/82:120 


Scripsit, Mod 11 


Tandy/Radio Shack 


2/82:222 


Scriptr 


Pioneer Software 


9/82:102 


SDS80C Editor/ Assem/Mon 


The Micro Works 


6/82:70 


Search and Sort 


Micro Pro Systems 


8/82:56 


SECS 


Datasoft Inc. 


3/82:52 


SFinks3.0 


William Fink 


9/82:80 


Sigmofi 


Datasoft Inc. 


3/82:52 


Smart Terminal Program, STERM 


Howe Software 


6/82:60 


Snapp 111 Extended Built-in Functions 


Snappware 


1/82:134 


Snapp IV Auto Map 


Snappware 


1/82:134 


Snapp V Extended File Map 


Snappware 


5/82:216 


Softext/Softscrecn 


Aspen Software 


9/82:106 


Space Ace 21 


Synergistic Solar Inc. 


4/82:46 


Space War 


Spectral Associates 


3/82:48 


Space Waste Race 


Storybooks of the Future 


5/82:42 


Special Delivery 


Software Concepts 


9/82:110 


SpellGuard 


Innovative Software Applications 


9/82:95 


SpellStar 


Micropro International 


9/82:95 


Star Blaster 


Micro Works 


8/82:44 


Star Warrior 


Automated Simulations 


4/82:50 


Starfighter 


Adventure International 


2/82:320 


Statistical Analysis 


Tandy/Radio Shack 


6/82:280 


Stud5 


Wilson Software Division 


1/82:42 


Super Color Writer 1 .0 


Nelson Software 


9/82:62 


Super Micro Pro Football 


Micro Pro Systems 


6/82:54 


Superscript 


Acorn Software 


9/82:101 


Supcrsort 


Micropro International 


9/82:94 


Tank tics 


Avalon Hill 


4/82:63 


Tape Downloading System/TDS 


Big Systems Software 


6/82:66 


TASMON 


Alternate Source 


1/82:126 


Telewriter 


Cognitcc 


5/82:208 


Temple of Apshai 


Automated Simulations 


2/82:323 


Tower of Orlandor 


Compu- things 


8/82:46 


Two Heads of the Coin 


Adventure International 


8/82:52 


Uniterm 


B.T. Enterprises 


6/82:56 


Utility Pack, The 


B.T. Enterprises 


4/82:42 


VisiGraph 


Micro Software Systems 


10/82:54 


Voyage of the Valkyrie 


Advanced Operating Systems 


5/82:44 


Word IV/Word V 


Micro Architect 


9/82:110 


Word Machine, The 


GB Associates 


9/82:112 


Wordslinger, The 


Instant Software 


9/82:114 


Wordsmith 


ABS Suppliers 


6/82:63 


Wordsmith 


ABS Suppliers 


9/82:112 


WordStar 


Micropro International 


9/82:92 


XBug 


Computer Applications Unlimited 


3/82:54 


XTEND40 


Prosoft 


4/82:40 


ZBasic 2.0 


Simutek Computer Products 


5/82:48 
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User 


• Grou] 


f)S 








rr^his magazine is 


not the only good information 


source 








A for your TRS-80. There are many computer 


clubs, 










called user groups, 


that help out members with technical 










tips and a pool of experience. 












Below is a list of 


user groups that cater to the TRS-80 






' 




owner, many exclusively. The list is long, but by the time 










you read it, there will certainly be more. Look for 


one in 










your area and drop them a line. 












If you belong to a user group that does not appear 


on this 










list, send a letter to 80 Micro telling us about the club 


. We'll 










get your group in our next list. We also want to hear about 










any updates on the 


groups in this list.B 








STATE 


GROUP NAME 


ADDRESS 


CITY 


ZIP 


AK 


ANCHORAGE USERS GROUP 


BOX 10, 385 .SOUTH STATION 


ANCHORAGE 


99511 


AL 


CENTRAL AL MICRO SOCIETY JUNIOR CHAPTER 


RT. #3 BOX 570 


MONTGOMERY 


36110 


AL 


CENTRAL ALABAMA COMPUTER SOCIETY 


2073 REXFORD RD 


MONTGOMERY 


36116 


AL 


G2C3 


4307 OLD SHELL RD 


MOBILE 


36608 


AZ 


PHEONIX USERS GROUP 


1850 EAST MARYLAND #27 


PHEONIX 




AZ 


ARIZONA USERS GROUP 


4322 EAST FAIRMONT 


PHOENIX 


85018 


AZ 


USERS GROUP OF ARIZONA 


6218 W. MARLETTE 


GLENDALE 


85301 


BRA 


BRASILIAN CLUB 


RUA SAMBAIBA 516, LEBLON 


RIO DE JANEIRO 


22450 


CA 


THE FORTH INTEREST GROUP 


PO BOX 1105 


SAN CARLOS 


94070 


CA 


HOMEBREW COMPUTER CLUB 


BOX 626 


MOUNTAIN VIEW 


94042 


CA 


VENTURA COUNTY TRS-80 


2534 NORTH TEMPLE AVE. 


CAMARILLO 


93010 


CA 


USERS GROUP 


7465 HOLLISTON AVE., SUITE 


23 GOLETA 


93017 


CA 


USERS GROUP 


712-C COUNTRY WOOD 


WALNUT CREEK 


94598 


CA 


USERS AND ABUSERS 


1350 GRANT RD. 


SUNNYVALE 


94040 


CA 


REDWOOD EMPIRE USERS GROUP 


7136 BELITA AVE. 


ROHNERT PARK 


94928. 


CA 


SOUTH BAY USERS GROUP 


3605 PINE AVE 


MANHATTEN BEACH 


90266 


CA 


EAST BAY USERS GROUP 


17 ECHO AVE 


OAKLAND 


94611 


CA 


SAN FRANCISCO TRS-80 USERS GROUP 


338 ALIDA WAY #306 


SOUTH SAN FRANCISCO 


94080 


CA 


CAUSE (SOFTWARE EXCHANGE) 


186 51 VON K ARM AN 


IRVINE 


92713 


CA 


INLAND COMPUTER SOCIETY 


3359 SECOND ST 


RIVERSIDE 


92501 


CA 


SOUTH BAY USERS GROUP 


BOX 6302 


STANFORD 


94305 


CA 


TRS-80 FREE PROGRAM EXCHANGE 


4418 MORROW RD. 


MODESTO 


95350 


CA 


COUNTRYWIDE USER GROUP 


10409 STATE ST. 


SOUTH GATE 


90280 


CA 


LITTON CALULATOR/COMPUTER CLUB 


5500 CANOGA AVE 


WOODLAND HILLS 


91364 


CA 


MARIN COUNTY USERS GROUP (MCTUG) 


45 SELFRIDGE WAY 


HAMILTON AFB 


94934 


CA 


SONOMA COUNTY COMPUTER CLUB 


BOX 945 


COTATI 


94928 


CA 


TRS-80 NIBBLERS 


2555 HESPERIAN BLVD 


HAYWARD 


94545 


CA 


MONTEREY. BAY USERS GROUP 


1002 HALSEY DR 


MONTEREY 


93940 


CA 


VALLEY COMPUTER CLUB 


3311 WEST THIRD, APT. 1-319 LOS ANGELES 


90020 


CA 


PAMONA COMPUTER SOCIETY 


4155 OAK HOLLOW RD. 


CLAREMONT 


91711 


CA 


COMPUTER INFO EXCHANGE (CIE SOFTW NEWS) 


BOX 15 9 


SAN LUIS REY 


92068 


CA 


ORANGE COUNTY USERS GROUP 


3521 E. COMMONWEALTH 


FULLERTON 


92631 


CA 


ET-3400 USERS GROUP 


11231 OAK ST. 


EL MONTE 


91731 


CA 


TRS-80 USERS GROUP OF NAPA 


4432 SPRINGWOOD 


NAPA 


94558 


CA 


OASIS USERS GROUP 


PHASE ONE SYSTEMS 


OAKLAND 




CA 


VENTURA COUNTY TRS-80 COMPUTER CLUB 


567 WEST LOOP DR. 


CAMARILLO 


93030 


CA 


VALLEY TRS-80 USERS GROUP (VTUG) 


19116 NASVILLE ST 


NORTHRIDGE 


91326 


CA 


SACREMENTO USERS GROUP 


1237 BEARD WAY 


CARMICHAEL 


95608 


CA 


SAN JOSE USERS GROUP 


3490 BON AIR COURT 


SAN JOSE 


95117 


CA 


SAN FRANCISCO USERS GROUP 


HQ USARRIX 


PRESIDIO OF SAN FRAN 


94129 


CA 


FORTH INTEREST GROUP 


PO BOX 1105 


SAN CARLOS 


94070 


CA 


SAN GABRIEL VALLEY TRS-80 USERS GROUP 


750 E. 5TH ST. #75 


AZUSA 


91702 


CA 


SILICON VALLEY COMPUTER CLUB 


P.O. BOX 61593 


SUNNYVALE 


94088 


CAN 


KITCHENER-WATERLOO MICRO CLUB 


UNIVERSITY OF WATERLOO 


WATERLOO, ONT 


N2L3G1 


CAN 


MICRO-80 COMPUTER CLUB OF OTTAWA 


17 8 MONTEREY DR 


NEPEAN, ONTARIO 


K2H7A8 


CAN 


REGINA OPERATORS OF MICRO SYSTEMS 


BOX 1001 


REGINA 


S4P3B2 


CAN 


TMUG, TORONTO MICRCOMPUTER USERS GROUP 


OX 857, STATION A 


TORONTO, ONT 


M5W1G3 


CAN 


COLOR COMPUTER USERS GROUP 


33 KILLDEER CRESCENT 


TORONTO, ONTARIO 




CAN 


AURORA COMPUTER SOCIETY 


BOX 4342 


EDMONTON, ALBERTA 


T5H1R5 


CAN 


INTERESS-80 


673 CLAIRETTE 


FABREVILLE, QUEBEC 


H7P2Y3 


CT 


NORTH EASTERN BASIC FOUR USER GROUP 


22 TOBEY RD. 


BLOOMFIELD 


06002 


CT 


FAIRFIELD COUNTY TRS-80 USERS GROUP 


10 RICHLEE RD. 


NORWALK 


06851 


CT 


SOUTHERN NEW ENGLAND COMPUTER SOCIETY 


267 WILLOW ST 


NEW HAVEN 


06511 


CT 


CONN MICROISTS 


8802 WENDY LANE 


WESTPORT 


06881 


CT 


CONNECTICUT COMPUTER CLUB 


18 RIDGE COURT WEST 


WEST HAVEN 


06516 


DE 


DELAWARE USERS GROUP 


1116 PIPER RD 


WILMINGTON 


19803 


DE 


DELAWARE USERS OF MICROS 


318B CHAPEL AVE 


CLAYMONT 


19703 


DE 


SOUTHEASTERN DELAWARE CTY TRS80 USR GRP 


1109 MADISON AVE 


PROSPECT PARK 


19076 


ENG 


NATIONAL TRS-80 USERS GROUP 


40A HIGH ST., STONY STRATFORD MILTON KEYNES 




FL 


TBUG-80 NEWSLETTER (TAMPA BAY GROUP) 


322 S. 21ST STREET 


HAINES CITY 


33844 


FL 


TBUG-80 


PO BOX 247 


TAMPA 


33602 



526 • 80 Micro, Anniversary 1983 



STATE GROUP NAME 



FL ORLANDO, FL, COMPUTER CLUB 

FL CLUB OF CENTRAL FLORIDA 

FL FL EDUCATIONAL COMPUTER USERS GROUP 

FL TAMPA BAY USERS GROUP 

GA USERS GROUP OF ATLANTA, LTD. 

GA STATESBORO TRS-80 USERS GROUP 

GA CSRA COMPUTER CLUB 

GA USERS GROUP OF ATLANTA, LTD. 

GRC USERS GROUP 

HOL TRS-80 GEBRUIKERS VERENIGING BENELUX 

IA TRS-80 USER GROUP 

IA MARSHALLTOWN COMPUTER CLUB 

IA DES MOINES USERS GROUP (DM-TUG) 

IL COMPUTER RENTAL SERVICE 

IL PEORIA AREA COMPUTER CLUB 

IL CHICAGO TRS-80 USERS GROUP 

IL QUAD CITY COMPUTER CLUB 

IL CHICAGO AREA COMPUTER HOBBYIST EXCH 

IL ONE ON ONE 

IN INDIANAPOLIS TRS-80 USERS GROUP 

IN GROUP OFF SOUTHWEST INDIANA 

KS COMPUTER NETWORK OF KANSAS CITY 

KS KBUG 

KS GREATER KANSAS CITY USERS GROUP 

KY TRS-80 USERS CLUB 

LA CRESCENT CITY COMPUTER CLUB 

MA SMALL BUSINESS SYSTEMS GROUP (SBSG) 

MA TRUGEM 

MA NEW ENGLAND SYSTEM/3, INC. 

MA NATIONAL COMPUTER SHOWS 

MA BOSTON' COMPUTER SOCIETY 

MA PRIME COMPUTER, INC. 

MA GOSUB TRS80 USERS GROUP 

MA WESTERN MASS COMPUTER CLUB 

MA ALCOVE COMPUTER CLUB 

MA NEW ENGLAND COMPUTER SOCIETY 

MA CULPRIT/EDP-AUDITOR USER GROUP 

MA TRS-80 NEWSLETTER 

MD TRS-80 BALTIMORE USERS GROUP 

ME AUGUSTA USERS GROUP 

ME SOUTHERN MAINE TRS-80 USERS GROUP 

MI MICROCOMPUTER USERS INTERNATIONAL 

MI CENTRAL MICHIGAN USERS GROUP 

MI CENTRAL MICHIGAN USERS GROUP 

MI MACUL (MICH. ASSN. FOR COMPUTER USERS) 

MI COLOR COMPUTER OWNER'S GROUP (CCOG) 

MI EDUCATIONAL RECREATIONAL CLUB (ERCC) 

MI MID-MICHIGAN COMPUTER CLUB 

MI SOUTHEASTERN MICHIGAN COMPUTER 

MI MACUL (MICH ASSOC COMP USERS/LEARNING) 

MI HAMUG 

MI FARGO-MOORHEAD COMPUTER CLUB 

MN MINNESTOTA COMPUTER SOCIETY 

MO ST. LOUIS AREA COMPUTER CLUB 

MS OXFORD Z-80 USERS GROUP 

NC NATIONAL COMPUTER SOCIETY 

NC USERS NOTES 

NH NORTHERN NEW ENGLAND SOCIETY 

NH GOSUB USERS GROUP 

NJ AMATEUR COMPUTER CLUB OF NJ 

NJ TRS-80 USERS GROUP OF CHERRY HILL, NJ 

NJ NORTHERN NJ AMATUER COMPUTER CLUB 

NJ BASIC FOUR USER GROUP, MID-ATLANTIC 

NJ CENTRAL JERSEY COMPUTER CLUB 

NM LLANO ESTACADA COMPUTER CLUB 

NM APPRAISER'S TRS-80 CLUB 

NV NORTHERN NEVADA AMATUER COMPUTER CLUB 

NY TRS-80 COLOR COMPUTER CLUB 

NY ZWEIBRUECKEN MICROCOMPUTER USERS GROUP 

NY TRS-80 USERS GROUP 

NY METRO TRS-80 USERS GROUP 

NY KINGS BYTE TRS-80 USERS GROUP 

NY USERS GROUP (DIVISION OF C.H.I.P.S.) 

NY TRS-80 SPECIAL INTEREST GROUP 

NY TRS-80 USERS GROUP, CHURCH APPLICATIONS 

NY CENTRAL NEW YORK TRS-80 USERS GROUP 

NY SAINT PETER'S COMPUTER CLUB 

NY USERS GROUP 

NY INTERNATIONAL SOFTWARE A.G. USERS GROUP 

NY CP/M USERS GROUP 

NY S & N COLOR, I AND III CLUB 

NY ONONDAGA COUNTY 

NY LONG ISLAND COMPUTER ASSN 

OH DAYTON AREA USERS GROUP 

OH CLEVELAND DIGITAL GROUP 

OH TRS-80 CLUB 

OH BASIC FOUR USER GROUP, N. OHIO 

OH NORTH CENTRAL OHIO COMPUTER SOCIETY 

OH PRIDE USERS ASSOCIATION, INC. 



CITY 



ADVENTURE INTERNATIONAL 

152 MILL RUN DRIVE 

57 20-1 ATLANTIC BLVD. 

322 S 21ST ST 

340 8 CLAIRMONT RD , N.E. 

223 N. EDGEWOOD DRIVE 

BOX 284 

1315 RUSTIC RIDGE DR, N.E. 

CHRISSOSTOMOU SMYRNIS 30 

EIZENLAAN 8, 1214 KL 

1400 EAST POST B 

1101 SOUTH 2ND AVE 

#303 4215 GRAND AVE 

RR BOX 1138 

2019 NORTH IDAHO 

3950 N.LAKE SHORE DRIVE 

4211 1/2 7TH AVE. 

BOX 5 2 

94 8 PROSPECT AVENUE 

2203 CORD ST. 

BOX 3284 

7631 BROADMOOR LANE 

BOX 1398 

890 9 WENONGA 

PO BOX 1097, U. OF NEW ORLEAN 

6 CARLISLE ROAD 

61 LAKE SHORE RD 

PO BOX 127 5 

BOX 678 

17 CHESTNUT ST 

40 WALNUT ST. 

PO BOX 712 

134 BRECKWOOD CIR. 

230 MAIN ST 
PO BOX 198 

20 WILLIAM ST. 

96 DOTH AN ST. 

3505 N. CHARLES ST. 

BOX 2143 

15 MOUNTAIN VIEW ROAD 

1804 WEST 18TH ST 

5582 CORAL WAY 

93 8 WILDEWOOD 

C/O WCISD 33500 VAN BORN ROA 

P.O. BOX 1113 

PO BOX 325 

15151 RIPPLE DR. 

BOX 9578 

33500 VAN BORN RD 

HOPE COLLEGE 

111 SO MAIN ST. 

BOX 35317 

PO BOX 28924 

PO BOX 847 

PO BOX 41205 

7554 SOUTHGATE RD. 

PO BOX 6 9 

346 S. TAYLOR ST. 
UCTI 1776 RARITAN RD 
27 42 VIRGINIA TRAILS 
6 BRYSON ROAD 

PO BOX 2214 

RD #1, BOX 147 

1509 FAIRWAY TERRACE 

1215 FRUIT, NW 

PO BOX 906 8 

347 WEST 48TH ST. 
TAMMC ARMT DIV. 
245 MAPLEVIEW RD 

310 WEST 106 ST - 15D 

1063 EAST 84 ST. 

407 N. 6TH ST. 

RD 2 

PO BOX 41 

26 JAMESVILLE VE. J-4 

JAMES ST. 

RT #1 , BOX 8 

1 NEW YORK PLAZA 

164 WEST 83RD ST 

3 BOHR COURT 

BAKER HALL, ELECTRONICS PKWY 

36 IRENE LANE E 

231 GREEN ST 
P.O. BOX 17440 
8106 QUAILWOOD CT 
3203 W. 71ST ST. 
P.O. BOX 965 

1248 SPRINGFIELD PIKE 



ORLANDO 


32802 


LAKE MARY 


32746 


JACKSONVILLE 


32207 


HAINES CITY 


33844 


ATLANTA 


30319 


STATESBORO 


30458 


AUGUSTA 


30903 


ATLANTA 


30319 


NEO PSYHIKO 




HILVERSUM 




MARION 




MARSHALLTOWN 


50158 


DES MOINES 


50312 


CRETE 


60417 


PEORIA 


61604 


CHICAGO 


60613 


ROCK ISLAND 


61201 


SOUTH HOLLAND 


60473 


ELMHURST 


60126 


SPEEDWAY 


46224 


EVANSVILLE 


47732 


OVERLAND 


66204 


WICHITA 


67201 


LEAWOOD 


62206 


LOUISVILLE 




NEW ORLEANS 


70122 


WESTFORD 


01886 


NATICK 


01760 


LOWELL 


01853 


BROOKLINE VILLAGE 


02147 


BOSTON 


02108 


WELLESLEY 


02181 


WORCESTER 


01613 


SPRINGFIELD 


01119 


NORTH READING 


01824 


BEDFORD 


01730 


WELLESLEY 


02181 


ARLINGTON 


02174 


BALTIMORE 


21218 


AUGUSTA 


04330 


CAP ELIZABETH 


04107 


SAULTE STE. MARIE 


49783 


HASLETT 


48840 


EAST LANSING 


48823 


WAYNE 


48184 


DEARBORN 


48121 


OWOSSO 


48867 


LINDEN 


48451 


DETROIT 


48202 


WAYNE 


48184 


HOLLAND 


49423 


DILWORTH 


56529 


MINNEAPOLIS 


55435 


ST. LOUIS 


63132 


UNIVERSITY 


38677 


FAYETTEVILLE 


28304 


FAYETTEVILLE 


28304 


BERLIN 


03570 


MANCHESTER 


03103 


SCOTCH PLAINS 


07076 


BROWNS MILLS 


08015 


FAIR LAWN 


07410 


CLIFTON 


07015 


HOPEWELL 


08525 


CLOVIS 


88101 


ALBUQUERQUE 


87102 


RENO 


89507 


NEW YORK 


10036 


APO NEW YORK 


09052 


CHEEKTOWAGA 


14225 


NEW YORK 


10025 


BROOKLYN 


11236 


FULTON 




BLOSSVALE 


13308 


MASONVILLE 


13804 


SYRACUSE 


13210 


ROSENDALE 


12472 


MILTON 


12547 


NEW YORK 


10004 


NEW YORK 


10024 


SPRING VALLEY 


10977 


SYRACUSE 




PLAINVIEW 


11803 


DAYTON 


45402 


CLEVELAND 


44117 


WEST CHESTER 


45069 


CLEVELAND 


44102 


MANSFIELD 


44901 


CINCINNATI 


45215 
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STATE GROUP NAME 



OH TRS-80 ACSCO (ADVENTURE COMP. SOCIETY) 

OK TULSA USERS GROUP 

OR PORTLAND USERS GROUP 

OR EUGENE TRS-80 USERS GROUP 

OR TEKTRONIX, INC. 

OR CENTER FOR THE STUDY OF THE FUTURE 

PA CRANBERRY COMPUTER CLUB 

PA LEHIGH VALLEY COMPUTER GROUP 

PA DELAWARE VALLEY COMPUTER CLUB 

PA PHILADELPHIA AREA COMPUTER SOCIETY 

PA AUUA, INC. 

PA PITTSBURGH AREA COMPUTER CLUB 

PA CAPATUG (CAPITAL AREA TRS80 USERS GRP) 

PA ATLANTIC SOFTWARE, INC. 

PR SPANTRASH CLUB 80 

RI RI TANDY USERS GROUP (RITUG) 

RSF TRS-80 CLUB 

TN CHATTANOOGA MICROCOMPUTER CLUB 

TN NASHVILLE TRS-80 USERS GROUP 

TX FORTRUG 

TX TRS-80 USERS GROUP 

TX COMPUTER CLUB OF SAN MARCOS 

TX NASA/BAY AREA USERS GROUP 

TX TEXHOMA MICROCOMPUTER ENTHUSIASTS 

TX PERMIAN BASIN COMPUTER GROUP 

TX HIGH PLAINS USERS GROUP 

TX KILLEEN USERS GROUP 

TX PAN HANDLE COMPUTER SOCIETY 

TX USERS GROUP 

TX WICHITA VALLEY USERS GROUP 

TX COMPUTER HOBBYIST GROUP OF NORTH TEXAS 

TX TRS-80 USERS GROUP 

TX EAST TEXAS COLOR COMPUTER CLUB 

TX USERS GROUP OF S.W. HOUSTON 

TX ALAMO COMPUTER ENTHUSIASTS 

TX TEXAS USERS GROUP 

UK NORTH LONDON HOBBY COMPUTER CLUB 

UK UK LEVEL I USERS GROUP 

VA RICHMOND TRS-80 USERS' GROUP 

VA TIDEWATER TRS-80 USERS GROUP 

VA PRINCE WILLIAM COMPUTER CLUB 

VA AMATEUR RADIO REASEARCH AND DEV. CORP 

VA TCUG, INC 

VT NORTHERN VERMONT COMPUTER CLUB 

WA USERS GROUP 

WA USERS CLUB — WASHINGTON 

WA USERS GROUP 

WA NATIONAL CINCOM USERS GROUP 

WA USERS GROUP OF SPOKANE 

WA USERS GROUP - WASHINGTON 

WGR TUG 

WI TRI-CO GSD USERS 

WI USERS NOTES 

WI MADISON USERS GROUP 



ADDRESS 



BOX 28355 

PO BOX 1133 

13485 S.W. DRIFTWOOD 

296 HERITAGE AVE 

PO BOX 500 

4110 NE ALMEDA 

RADIO SHACK STORE, CRANBERRY 

P.O. BOX 2952 

BOX 651 

PO BOX 432 

FLEET MATERIAL SUPPORT OFF., 

400 SMITHFIELD ST. 

4644 CARLISLE PIKE 

901 LAFAYETTE BLDG. , 5TH & CH 

P.O. BOX 9475 

1441 PARK AVE. 

PO BOX 35461, NORTHCLIFF 2115 

4429 PAULA LANE 

BOX 2891 

7952 HIGHWAY 80 

PARK ROW AT COLLINS 

PO BOX 199 

PO BOX 57116 

PO BOX 43 91 

BOX 3912 

PO BOX 30545 

BOX 510 

3440 BELL SUITE 226 

1516 DALLAS. ST. 

PO BOX 43 91 

BOX 1344 

7 822 SHADY HOLLOW LANE 

2101 EAST MAIN 

3723 PURDUE 

4847 CASTLE SHIELD 

5224 WINIFRED DR 

HOLLOWAY RD. 

123 ROUGHWOOD DRIVE 

C/O MC STUDIO, 4115 HOPKINS R 

BOX 10281 

1524 SPRINGVALE AVE 
PO BOX 2826 

SOUTH 3718 MANITO BLVD. 

PO BOX 7112 

3 825 NORTH 26 TH ST. 

480 HOUSER WAY NORTH 

S. 3718 MANITO BLVD 

21814 PACIFIC HWY SOUTH - LOT 

1M ORTFELD 12 

PO BOX 768 

61 13TH AVE. SOUTH 

430 JEAN ST 



CITY 



ZIP 



COLUMBUS 


43228 


TULSA 


74101 


BEAVERTON 


97213 


EUGENE 


97404 


BEAVERTON 


97077 


PORTLAND 


97212 


CRANBERRY 


16319 


LEHIGH VALLEY 


18001 


LEVITTOWN 


19058 


AUDUBON 


19403 


MECHANICSBURG 


17055 


PITTSBURGH 


15222 


MECHANICSBURG 


17055 


PHILADELPHIA 


19106 


PONCE 


00732 


CRANSTON 


02920 


REP S AFRICA 


23.881 


RED BANK 


37415 


NASHVILLE 


37219 


WEST FORT WORTH 


76116 


ARLINGTON 


76010 


SAN MARCOS 


78666 


WEBSTER 


77598 


WICHITA FALLS 


76308 


ODESSA 


79760 


AMARILLO 


79120 


KILLEEN 


76541 


AMARILLO 


79109 


KILLEEN 


76541 


WICHITA FALLS 


76308 


GRAND PRAIRIE 


75051 


SAN ANTONIO 


78255 


HENDERSON 


75652 


HOUSTON 


77005 


SAN ANTONIO 


78218 


FT. WORTH 


76133 


N. LONDON 


N7 8DB 


NORTHWOOD KIRKBY 


MER L339UG 


RICHMOND 


23234 


NORFOLK 


23513 


WOODBRIDGE 




MCLEAN 


22101 


FAIRFAX 


22031 


ROXBURY 


05669 


SPOKANE 


99203 


TACOMA 


98407 


TACOMA 


98400 


RENTON 


98055 


SPOKANE 


99203 


DES MOINES 


98188 


4300 ESSEN 14 




MANITOWOC 


54220 


ONALASKA 


54650 


MADISON 


53703 




LNW Research A ***^ 

Modem $2499 

TRS-DOS & CP/M Cmpatible— Green 
Phosphor Monitor — Two 40 Trk. 
Drives— 96K— 4 Mhz. Speed— Hi Res & 
Color Graphics— RGB Interface- 
Fan — 6 Month Warranty 



Buy one of our computers at our usual discounted 
price and get the new Timex-Sinclair Computer Free. 

Custom Radio Shack 

"~7~ $1899 



Model 111 

—Dual 40 Trk. Drives— 48K RAM— 180 

Day Warranty 

Options: CP/M— 64K RAM 



Other Drive Configurations Available 



Sanyo MBC-1000 $1899 

"Affordable High Performance 

Computer" 

40 Trk. Double Sided Disk Drive— 64K 

— 4Mhz Speed— CP/M— Basic 

Language — Detachable Keyboard 



Software: MicroPro • Microsoft • Ashton-Tate • Sorcim • LifeBoat 
Printers: Epson • Okidata • C. Itoh • Smith Corona • Comrex 
Specialty Items: LNW Expansion Interface & Doubters Disk Drives 
• TRS-80 Mod III Drive Kits • Printer & Drive Cables 



Timex-Sinclair $89.95 

Atari 400, Atari 800 $Call 

Lobo Max 80 $call 



Freedom Technology Int'l 
CP/M Conversion Boards for TRS-80 
Freedom Option ... $199 • Freedom 
Plus (adds 16K) ... $399 



Visa, Mastercard, Personal 
checks accepted. This is a 
limited time offer. 



MCRIDIAN 



Trademarks TRS-DOS TRS-80. Radio Shack- Tandy Corp . CP M-Digilal Research Corp 



119 N. 18th Street Phila., PA 19103 
(215)-569-2420 
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Part IV. 



MODEL II 
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TECHNIQUE 



The Art of Encoding 
and Decoding 



by Karl Andreassen 



u 



se your computer to translate your messages 
into an indecipherable mess; then, with this 
program, you can translate them back again. 



The work of encrypting and analyz- 
ing encrypted messages is drudgery, 
even though the results are fascinating 
and the challenge of a cipher message 
too intriguing to pass up. This drudg- 
ery was recognized centuries ago, and 
machines were invented to create and 
decode messages. 

The art and craft of cryptanalysis 
has been neglected because many as- 
sumed that ciphers were impossible 
to break. 

It wasn't until World War I that 
cryptology came into its own, and an 
agency of the War Department was 
formed specifically for making and 
breaking codes. 



A$() 


Straight alphabet 


B$() 


Inverted alphabet 


C$() 


Accumulate ciphertext 


AS 


Decode key 


B$ 


Encode key 


CS 


Encode/Decode switch 


D$ 


Hardcopy/Quit switch 


E$ 


Transient variable 


Z$ 


Keyboard string 


I 


Keyboard count 




Table I 



While computers have increased the 
demand for cryptanalysts, they have 
relieved the cryptographer of the 
drudgery of cracking an encrypted 
message for which he has no key. The 
computer doesn't do all the work; the 
cryptanalyst is freed from the trial 
and error, pencil and paper work for- 
merly required. 

Stripped of drudgery by the comput- 
er, cryptanalysis becomes a fascinating 
challenge and a great mind developer. 
But one thing the computer cannot do: 
It cannot replace human ingenuity and 
the all-important hunch. Deductive 
and inductive reasoning alone are in- 
sufficient; the cryptanalyst becomes al- 
most prescient at times. 

The Program 

This Model II program, Quick Cryp- 
to, encodes and decodes messages, us- 
ing a simple substitution cipher. Line 
80 produces a standard A, B, C. . .Z 
alphabet, and line 90 produces its in- 
version. Line 150 produces the cipher 
encoding key, while line 140 reads the 
decoding key into A$. By adding lines 
and increasing the program's complex- 
ity, the program could have produced 
the decoding key. 

The cipher alphabet is a double al- 



TZGNY ZQXQI XFZJV GWJSY STHPJ XIZAP QXDZK 

XAXXG FSQJA XYZPQ XTZGN QJZJX QQPHH SIJJD 

XIPFX JDZJX FXYJI STZWG X.IVYV THPFQ XQZIX 

GSJHI SHXIJ NYJDU 

MANYCASESCELATINGTOCOMPUTERABUSEHAVEBEEN- 
LOSTBECAUSEMANYSTATESSUPPORTTHERULETHAT- 
ELECTROMAGNET1CIMPULSESARENOTPROPERTYBZND 

Figure I 



phabet with the reversed alphabet in- 
terspersed between every other letter of 
the straight alphabet. This may be 
somewhat complicated to those new to 
cryptology, but it is one of the most 
elemental cipher alphabets. 

To keep the program within bounds, 
the encoding must be uppercase and 
without numerals or punctuation. 
Most cipher messages are sent and re- 
ceived in this form since punctuation 
would assist the cryptanalyst in crack- 
ing the code. Substituted letters are 
formed into five-letter code groups, 
this being the average number of ran- 
dom letters that can be easily keyed 
into the decoding machine. 

As you enter the plaintext (the ori- 
ginal message for encoding), the com- 
puter screens the message exactly as 
received from the keyboard. If the 
message exceeds 500 letters, the pro- 
gram jumps to line 420 and screens the 
coded text directly beneath the plain- 
text version. If the message is less than 
500 letters, pressing uppercase 8 or * 
accomplishes the same result. Then the 
option to printout appears. The print- 
out is the enciphered message only, 
ready for mailing. 

If your addressee is privy to this pro- 
gram, it is simple to decode the mes- 
sage. The menu selection EN or DE 
engages line 250 if you enter DE. 
Again, you can use the spacebar, but 
no punctuation or numerals (an error 
will result if you do). Backing up and 
striking over also produces an error; if 
you make a mistake in entering the 
message, just keep on going or rerun 
the program. 

As in entering plaintext, when the 
cipher entry is complete, press * and 



The Key Box 

Model II Basic 
Model II 
64K RAM 
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IT'S MORE FUN THAN A THREE-RING CIRCUS 




EDUCATIONAL 
K FEATURES 

EXPANDS CREATIVITY 

DEVELOPS KEYBOARD SKILLS 

GEOGRAPHICAL QUIZZES 

MATH AND WORD GAMES 

* * & 



[OUR CHILD WILL BE CAPTIVATED 
for hours with your gift of the 60 programs in 
Computer Carnival. Tests of skill, haunted houses,^^ 
mazes, wizards and dragons are all a part of this 
funhouse book. Written in TRS-80* Level II Basic. 
Author Richard Ramella creates many characters, from the 
mysterious Sugar Louie to the mystical Madam Zelda, as he 
takes your child through his arcade of games, graphics and 
quizzes. 

Carnival Companion™ is a 30-minute cassette 
of the longer listings which eliminates the 
aggravation of typing and searching for errors, 
leaving more time to spend on the midway. 




LARGE READABLE TYPE ^ 
SPIRAL BINDING 
* SHORT, EASY-TO-TYPE 

PROGRAMS # 

READY-TO-LOAD CASSETTE 

OF THE LONGER LISTINGS 

AND 

MORE 



All orders shipped UPS if 
complete street address 
is provided. 



mama 



IKS-HOiv.i 

trademark «>i iht 
K.iclin Stack 
division 01 
T.indy Cor| 



~] COMPUTER CARNIVAL and CARNIVAL 

COMPANION CC7389 $24.97 
COMPUTER CARNIVAL (book only) BK7389 $16.97 
Include $2.00 per order for shipping and handling charges.) 
I I Payment enclosed Fl MC f~l VISA HI Am Ex 

Gircl# Expires MCBank# _ 




Package price: 
$24.97 
Book only: 
$16.97 



tMlWf'// 



Name 



Address & City 



Photo- 
copied 
coupon is 
accept- 
able for or- 
dering. 



Slate 



Zip. 



CC11A 



«£**" 



DQSPUUS 

4A ihe perfect 

CSYMA The DOSPLUS 4.0 hard 

3\A/IC« drivesystemishere! 



A hard drive without the dynamic new DOSPLUS 4.0 is like an eggshell 
without the egg. The new DOSPLUS 4.0 is the leading edge-the latest in 
the line of advanced disk operating systems from MICRO-SYSTEMS 
SOFTWARE INC. It's the only current operating system written from the 
ground up for hard disk operation. Not just a driver but a fully 
developed system. What that means to you is more bang for your 
buck! Finally an unlimited TRS-80 for small business. For only SI 899 you 
get the DOSPLUS "PLUS" 

THE DOSPLUS 4.0 FEATURES 

• Single volume addressing/Double sided floppies seen as 
one drive-one file con expand ro limir of the hard drive 

• Hard Disk— disk editing utilities 

• Incredible I/O speed 

• Runs any combination of densities or tracks 

• Also operates 8" drives with special hardware — comes 
with expanded users guide and complete DOS technical 
section on I/O colls ond DCD organization 

• Ability ro use hard drive os the "system" drive. 

"PLUS" MANY OF THE SENSATIONAL NEW DOSPLUS 3.4 
FEATURES 

• BASIC arroy sort — multi key. mulfi array 

• Tape/ Disk— Disk/Tape utility (with relocator) 

• Input (controlled screen input) 

• Random access ond ASCII modification on Diskdump 

• DASIC checks for active "DO" 

• Backup and Format from a "DO" file 

• Much improved Backup (More reliable) 



$1899 



COMPLETE WITH 5 MEG SYSTEM. 



TAKE YOUR MICRO 
TO THE MAX. 
ORDER NOW! 



• I/O package much faster (disk qccess time reduced) 

• Repeat last DOS command with "/" [ENTER] 

• Short directory (filename and extension) available 

• Short directory of Model III TRSDOS disks 

• Single file convert from Model III TRSDOS 

• COMPLETE device routing supported (DOS and BASIC) 

• Ability to save BASIC programs directly to another machines' 
memory (if equipped with DOSPLUS 3.4) 

NOTE: The final versions of 3.4 and 4.0 will have almost 
identical features and documentation. 

THE COMPLETE SYSTEM 

• Smooth, silent, swift 

• Error-free disk I/O 

• *Add on up to 4, 10 meg units for a total of 40 megabytes! 

• Plugs on the 50 pin data bus.— no loss of floppy drives 

• Completely self-contained— just plug it in and go 

• 10 meg units ovoiloble Soon. 

NOTE: Specify 40 or 80 track when ordering DOS diskette. 
After initial bootup. user can create any DOS desired. 



The first in the industry backed by a lifetime warranty 



** 



•Lifetime worronty on original medio 



DQSPWS 

DOSPLUS first In quality! 
First in ths Industry! 



MICROSYSTEMS 
SOFTWARE, INC. 

4301-18 Oak Circle 
Boca Raton, FL 33431 
Telephone: (305) 983-3390 




f±LZ^> 




£-^'' * nC ' 



-384 
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the decoded version appears on screen 
in solid lines without spaces. Punctua- 
tion and spaces are almost as great a 
bounty for a cryptanalyst as having the 
original cipher key handed to him. 

The printout option appears, and 
the solid lines are repeated on the 
printer. Punctuation is easy to edit into 



the completed plaintext, if this is a 
message shared with others unfamiliar 
with crypto procedures. 

If you and your addressee have ac- 
cess to modems, you can encrypt your 
outgoing messages and decipher your 
incoming messages directly, without 
going through the printout stage. 



Upcoming 80 Micro issues will carry 
a series on cryptology and cryptana- 
lysis, with programs to assist in decod- 
ing with an unknown cipher. ■ 

Karl Andreassen can be reached at 
24750 Chianti Road, Clover dale, CA 

95425. 



Program Listing 




10 CLS 


370 IF C$="DE" THEN C$(l)=MID$ (A$ ,D, 1 ) 


20 PRINTTAB(30)"BASIC CRYPTO PROGRAM" 


380 IF C$="EN" THEN C$(l)=MID$(B$ ,D, 1 ) 


30 PRINTTAB(31)"by Karl Andreassen" 


390 1=1+1 • 




40 '==Copyright July 3 1982 


400 IF I>500 THEN 420 




50 CLEAR 7500 : 1=1 


410 GOTO 310 




60 DIM A$(26),B$(27),C$(500),D(26) 


420 PRINT : PRINT : FOR X=l TO 


1-1 


70 FOR X=l TO 26 


430 PRINT C$(X); 




80 A$(X)=CHR$(X+64) 


440 IF C$="DE" THEN 460 




90 B$(X)=CHR$(91-X) 


450 IF RIGHT$(STR$(X),1)="0" 


OR 


100 NEXT X 


RIGHT$(STR$(X),1)="5" THEN 


PRINT " "; 


110 DATA B,D,F,H,J,L,N,P,R,T,V,X,Z 


460 NEXT X 




120 DATA Y,W,U,S,Q,0,M,K,I,G,E,C,A 


470 E$=RIGHT$(STR$(I-1),1) 




130 FOR X=1T0 26 


480 IF E$="l" OR E$="6" THEN 


560 


140 READ F$ :A$=A$+F$ 


490 IF E$="2" OR E$="7" THEN 


550 


150 B$=B$+B$(X)+A$(X) 


500 IF E$="3" OR E$="8" THEN 


540 


160 NEXT X : PRINT 


510 IF E$="4" OR E$="9" THEN 


530 


170 PRINT "TO WRITE A MESSAGE IN 


520 GOTO 580 




CIPHER, ENTER < EN >" 


530 FOR X=1T01 :G0T0 570 




180 LINE INPUT " TO DECODE A CIPHER 


540 FOR X=1T02 : GOTO 570 




MESSAGE, ENTER < DE > ";C$ 


550 FOR X=1T03 :G0T0 570 




190 IF C$="EN" THEN 210 


560 FOR X=1T04 : GOTO 570 




200 IF C$="DE" THEN 250ELSE 170 


570 PRINT CHR$(RND(26)+64);: 


NEXT X 


210 PRINT :PRINTTAB(15) "Write message 


: PRINT : PRINT 




in plain language, using spacebar 


580 PRINT : PRINT "ENTER <HC> 


FOR HARD 


220 PRINTTAB(15) "between words. No 


COPY PRINTOUT" 




punctuation or numbers permitted." 


590 LINE INPUT " <QT> TO 


QUIT ";D$ 


230 PRINTTAB(15) "UPPERCASE letters 


600 IF D$="HC" THEN 620 




only. Touch < * > at end of 


610 END 




message. " 


620 LPRINT :FOR X=l TO 1-1 




240 PRINT c PRINT "BEGIN:" : PRINT : GOTO 


630 LPRINT C$(X); 




310 


640 IF C$="DE" THEN 660 




250 PRINT : PRINT "Enter cipher message 


650 IF RIGHT$(STR$(X),1)="0" 


OR 


exactly as received, using 


RIGHT$(STR$(X),1)="5" THEN 




260 PRINT "space bar but no 


LPRINT " "; 




punctuation. Do not try to correct 


660 NEXT X 




270 PRINT "errors as this will 


670 IF E$="l" OR E$="6" THEN 


750 


introduce additional errors." 


680 IF E$="2" OR E$="7" THEN 


740 


280 PRINT "Touch < * > at end of 


690 IF E$="3" OR E$="8" THEN 


730 


message to initiate decode function." 


700 IF E$="4" OR E$="9" THEN 


720 


290 PRINT :PRINTTAB(20) "UPPERCASE 


710 LPRINT :END 




LETTERS ONLY!" .-PRINT 


720 FOR X=1T01 : GOTO 760 




300 PRINT "BEGIN:" 


730 FOR X=1T02 


GOTO 760 




310 Z$=INKEY$ :IF Z$="" THEN 310 


740 FOR X=1T03 


GOTO 760 




320 IF Z$="*" THEN 420 


750 FOR X=1T04 


GOTO 760 




330 PRINT Z$; 


760 LPRINT CHR$(RND(26)+64); 


.-NEXT X 


340 IF Z$=" " THEN 310 


: LPRINT : LPRINT 




350 IF ASC(Z$)=13 THEN 310 


770 END 




360 D=ASC(Z$)-64 
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UTILITY 



BRKSEL 



by Jim Barbarello 



w 



hat could be worse than accidentally pressing 
the break key when running a Basic program 
on your Model II? Disable break using Debug. 



Model II owners know that inadver- 
tently pressing the break key halts any 
Basic program. Any further keyboard 
input can modify the program currently 
in the machine by deleting lines or 
changing variable values. Other unde- 
sirable results, such as data files stuck in 
the open mode, portions of the disk di- 
rectory damaged, and the boot tracks 
on the disk damaged, are also possible. 

I have a simple remedy for the break- 
key problem. My short machine-lan- 
guage program, BRKSEL, allows you 
to enable or disable the break key as 
simply as turning your living room lamp 
on and off. BRKSEL can be used in any 
Basic program. 

Creating BRKSEL 

Creating the BRKSEL program re- 
quires two steps. You must enter the 
BRKSEL program into the computer's 
memory, and transfer that program 
from memory to a disk file that you can 
use. These two steps are accomplished 
with another machine-language pro- 
gram (Debug) already part of the 
TRSDOS 2.0a operating system. Debug 
lets you view and change the contents of 
a large portion of the computer's mem- 
ory. It also allows you to permanently 
copy some portion of the memory to a 
disk file. To make the procedure as sim- 
ple as possible, we'll break it into steps. 

• Start with the computer off. If it is 
not off, end any program, remove all 
disks, and turn the power off. 

• Use any System disk (one that allows 
you to start up the machine) that 
doesn't automatically run a program 
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after startup. Turn on the machine, en- 
tering the date and time responses as 
normal. 

• Once in the TRSDOS ready mode, 
proceed to the next step. 

• Type Debug On and press enter. 
Then type Debug and press enter. The 
screen will look like Fig. 1. 

• Press the M key (to examine/change 
Memory). Next to the question-mark 
prompt will be M A = . . . . Type EFDA 
(do not press enter). The screen will 
look like Fig. 2. 

• Press the Fl key. The cursor will 
move to the first displayed number on 
the EFDA line. Type in the following 
38 characters exactly (do not press 
enter or the spacebar. Make sure the 
caps key is lit): 

7EFE0020072 1 00003 E03CFC92 1 69603 E03CFC9 

• Review the screen. If any character is 
incorrect, use the right and left-arrow 
keys to position the cursor over the in- 
correct character. Then type the correct 
character. (In this string the 0s are the 
number zero, not the letter O.) When all 
characters are correct, press the 
keyboard's F2 key (this places the char- 
acters into the machine's memory). See 
Fig. 3. 

• Now press the O (not zero) key (this 
turns Debug off). The characters now 
stored in memory can be transferred to 
a disk file. The last message you see will 
be TRSDOS ready. 

• Now type the following: 

DUMP BRKSEI.JSTART = EFDA, END = 
EFFF! 



Check what you have typed. If it is not 
correct, use the backspace key to return 
the cursor to the offending position and 
retype the correct characters. When 
everything is correct, press enter. The 
disk drive will start, and after some 
time, you will again see TRSDOS ready. 
Type DIR and press enter. Your direc- 
tory has a new entry entitled BRKSEL. 

Using BRKSEL 

BRKSEL can only be used by Basic 
programs or in the Basic command 
mode. The first line of your Basic pro- 
gram must include the following: 
CLEAR xxxxx,61401:SYSTEM 
"LOAD BRKSEL":DEFUSR = 
&HEFDA, where xxxxx is any number 
less than 32000, and is the amount of 
storage space you wish to reserve (if not 
specified, Basic performs an automatic 
CLEAR 50). 

To disable the break key, you must 
perform a USR(0) anywhere in the pro- 
gram, or in the Basic command mode 
with a command such as X = USR(0) or 
BRKOFF = USR(0). The variable to the 
left of the equal sign must not be a 
string or contain any reserved words 
(such as For or On). 

To enable (or re-enable) the break 
key, use the command USR(x), where x 
is any number between 1 and 255. 

A Test Program 

When in the Basic mode, type in the 
Program Listing. 

List the program to make sure it's in 
memory, and run it. Follow the instruc- 
tions and note that the break key has no 
effect when it has been disabled by the 
program, and then causes the program 
to end after it has been re-enabled. 

When the program has ended, you 
are in the Basic command mode. Press 
the break key and note that it is func- 
tioning (you will see AC each time you 



If you're tired of playing 
games with your TRS-80... 




Turn it into a high 
power computer! 

Now you can give full CP/M 
capabilitites to your TRS-80. 

Announcing the new 
Compactor family from 
Hurricane Laboratories. We know 
limitations are a reality but we put 
on our thinking caps and did 
something about it. The new 
Compactor II (112K) gives CP/M 
2.2 capabilities to the Model III 

30-day money-back guarantee on 
Compactor II if not totally satisfied. 



5149 MOORPARK AVENUE, SUITE 105 



without altering the TRSDOS and 
TRS-Basic environment. It's fast, 
it's easy to install and needs no 
extra hardware. The Compact IV 
enhances the video display to 80 x 
24. In short, Compactors make 
your Model III an intelligent and 
powerful computer. So why not 
quit playing games and put that 
TRS-80 to work ! It's as simple as 
saying, "...Compactors by 
Hurricane Labs." 





HURRICANE 

Laboratories Inc 



Write to us or ask your TRS-80 dealer for all the facts 
about the new Compactor Family from Hurricane Labs. 

SAN JOSE, CALIFORNIA . (408)257-8676 



sSee List ol Advertisers on Page 563 
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DISCOUNT 



TRS 80™ Model I & III 

External Mini Disk Drives 





Single Chassis w/Power Supply: 

Fully assembled silver chassis with external card edge connector for easy 
cable installation. Chassis includes power supply & one Tandon drive. 



• TM 100-1 w/chassis 

• TM 100-2 w/chassis 

• TM 100-4 w/chassis 



$249 
$329 
$399 



Tandon Bare Drives: 

• TM 100-1 



TPI. Capable of single or 



5'A", single sided, 40 TRK, 
double density 

TM 100-2 

5'A", double sided. 40 TRK, 48 TPI. Capable of single or 
double density 

TM 100-4 

S'A", double sided, 
double density 



$199 
$279 
$359 



TRK, 96 TPI. Capable of single or 



FREE SHIPPING 

ORDER NOW - TOLL FREE 

1-800-531-5475 

(512) 250-1523 in Texas 

"If we can't ship the next working day, 
we won't take the order." 



CompuAdd Corp. 

13010 Research Blvd. 

Suite 218 
Austin, Texas 78750 



Visa, MasterCard, Money Order 
or Cashier's Check. Add 5% sales 
tax if Texas Resident. 

TRS 80 is a Trademark of 
Tandy Corp. 



f 



0000000000000000000000000 



% 



Model-I 



S E 

V^imple 



pansion 
ffective 
pie 

* INCLUDES* 

1-40 track, Disk Drive 

1-MDX-6, Controler Board 

1-2 Drive Internal Mtg. Kit, 

Power Supply and Cables 

Doubler $9900 

Character Generator$189 5 
Data Separators: 

Double Den. $39.95 
Single Den. $24.95 

40 track Disk Drives $199.00; 

.000000000000000000000000000 














(/PROGRESSIVE ELECTRONICS 

643 E. CHESTNUT ST o 

LANCASTER. OHIO 43130 " 143 VISA \ 

o 



°o PHONE 614-687-1019 

OOOOOOOOOOOOOOOOOOOOOOOOOOO 



'£ 



r 



All hardware has a 120 Day Limited Warranty. 



m 



Color Com/j 




v 



2! 

v. 



Are you tired of searching the latest magazine for articles about 
your new Color Computer? When was the last time you saw a 
great sounding program listing only to discover that it's for the 
Model I and it's too complex to translate? Do you feel that you are 
all alone in a sea of Z-80's? On finding an ad for a Color Computer 
program did you mail your hard earned cash only to receive a 
turkey because the magazine the ad appeared in doesn't review 
Color Computer Software? If you have any of these symptoms 
you're suffering from Color Computer Blues! 

But take heart there is a cure! 
It's COLOR COMPUTER NEWS. 

The monthly magazine for Color Computer owners and.only Color 
Computer owners. CCN contains the full range of essential 
elements for relief of CC Blues. Ingredients include: comments to 
the ROMS, games, program listings, product reviews, and general 
interest articles on such goodies as games, personal finances, a 
Kid's page and other subjects. 

The price for 12 monthly treatments is only $21.00 and is available 

from: 

<M^ % RKMarkable Software 

P.O. Box 1192 
Muskegon, Ml 49443 c 145 






\J» 



NAME 



ADDRESS 
CITY 



State 



Zip 



Allow 8-10 weeks for 1st issue. 



80 M 
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press it). Now type X = USR(0) and 
press enter — the break key has no ef- 
fect. Type X = USR(255) and press en- 
ter — the break key again performs nor- 
mally. You can now use BRKSEL or 
transfer it to any of your other disks us- 
ing the TRSDOS command Move. (See 
pages 120-121 of your TRSDOS 2.0a 
reference manual for further informa- 
tion on the Move command.) 

Some BRKSEL Pointers 

In BRKSEL's most simple applica- 
tion, execute a USR(O) immediately af- 
ter the DEFUSR statement. At the end 
of the program, execute a USR(l) to re- 
enable the break key. 

However, at some time you might 
not want the break key disabled. Say 
your program included a routine for 
disk access. You might wish to enable 



10 CLS:CLEAR 500,61401 :SYSTEM"LOAD BRKSEL'*:DEFUSR = &HEFDA 

20 PRINTTHE BREAK KEY IS NOW FUNCTIONING." 

30 FOR 1= 1 TO 1000:NEXT I:BRKOFF=USR(0):PRINT 

40 PRINT"I HAVE DISABLED THE BREAK KEY. TRY PRESSING IT AND NOTE 

THAT THE PROGRAM IS NOT INTERRUPTED." 
50 PRINT"WHEN YOU ARE CONVINCED, PRESS 'Fl' TO CONTINUE. 
60 A$ = INKEY$:IF A$ = ""THEN 60 ELSE IF ASC(AS) <>1 THEN 60 
70 BRK = USR(1):PRINT 
80 PRINTTHE BREAK KEY IS NOW FUNCTIONING. WHEN YOU PRESS IT THE 

PROGRAM WILL END." 
90 A$ = lNKEY$:GOTO90 

Program Listing 



break before entering this routine and 
again disable it upon exit. This would 
allow you to manually regain control if 
some problem occurred in disk access. 
Other subtasks, such as a mathematical 
iterative process that could become an 
endless loop (never converge), are prime 



TRS-80 


Model II DEBUG Program 






2800 


C3 7F 2E 5D 


44 7A 44 65 


43 ID 45 50 43 D8 5E 58 


... ]DzDeC.EPC."X 


2810 


61 F8 3A D9 


4E C8 4F B3 


41 2B 4F 3C 50 42 50 CF 


a.:.N.0.A4O<PBP. 


2820 


50 E4 50 CO 


61 C3 61 C6 


61 33 65 86 65 99 65 A7 


P.P.a.a.a3e.e.e. 


2830 


61 AA 61 AD 


61 5D 44 91 


44 BD 44 0A 45 E3 5C DB 


a.a.a]D.D.D.E.\. 


2840 


5A EO 5A E5 


5A Al 5D EF 


5C FF 5C 2E 5D 47 5D 77 


Z.Z.Z. ].\.\. ]G]w 


2850 


5D 80 5D C5 


4E 44 C6 4F 


52 C3 4C 53 D2 41 4E 44 


]. LND.OR.LS.AND 


2860 


4F 4D CE 45 


58 54 C4 41 


54 41 C9 4E 50 55 54 C4 


CM.EXT.ATA. NPUT. 


2870 


49 4D D2 45 


41 44 CC 45 


54 C7 4F 54 4F D2 55 4E 


IM.EAD.ET.OTO.UN 


PC 


SP SZHPNC 


AF EC DE 


HL IX IY AF' BC' 


DE' HL' 


2800 
? P 

DEBUG 


21FE 000000 


0000 0000 0000 0000 0000 0000 0000 000G 


0000 0000 


is now ON 








TRSDOS 


READY 








DEBUG 






Figure I 





candidates for consideration. 

If you get into a situation where you 
cannot regain control, your only re- 
course is to reset. Of course, this will 
leave any disk files stuck in the open 
mode. To properly close the file after 
restarting, follow these steps: 

• Manually open the file by entering 
OPEN"D",l,"file name",xx where 
file name is the name of the file, and xx 
is the record length (this is for random/ 
direct-access files). This command will 
cause an AO (already open) or similar 
error. 

• Enter "close." This should close the 
stuck file. You can verify this by obtain- 
ing a directory and noting that there is 
no question mark after the file's name. 
For obstinate files, you may have to 
perform this procedure twice. 

• Make sure you modify your program 
to allow manual override with the break 
key during the portion that caused you 
to have to reset. ■ 



TRS-80 Model II DEBUG Program 

EFDA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

EFEA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

EFFA 00 00 00 00 00 00 02 FF FF FF FF FF FF FF FF FF 

F00A FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF 

F01A FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 

F02A FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 

F03A FF FF FF FF FF FF 00 00 00 00 00 00 00 00 00 00 

F04A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

PC SP SZHPNC AF BC DE HL IX IY AF' BC ' DE' HL' 

2800 21FE 000000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 
? P 

Figure 2 



TRS-80 Model II DEBUG Program 

EFDA 7E FE 00 20 07 21 00 00 3E 03 CF C9 21 69 60 3E ... .!..>... !i~> 

EFEA 03 CF C9 00 00 00 00 00 00 00 00 00 00 00 00 00 

EFFA 00 00 00 00 00 00 02 FF FF FF FF FF FF FF FF FF 

F00A FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF 

F01A FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 

F02A FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF 

F03A FF FF FF FF FF FF 00 00 00 00 00 00 00 00 00 00 

F04A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

PC SP SZHPNC AF BC DE HL IX IY AF' EC' DE' HL' 

2800 21FE 000000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 



Figure 3 



Jim Barbare/lo can be reached al 
R.D. ft I, Box 241 H, Tennent Road, 
English town, NJ 07726. 



CLINICAL 
LABORATORY SOFTWARE 




■ See List ot Advertisers on Page 563 



LabManager QUALITY CONTROL 

LabManager WORKLOAD and FINANCE 

LabManager TEST PRICING 

TRS-80 Model I or III 
Call or write for brochures. 

DOWNEAST DIGITAL 

P. O. Box 286 • Solon, Maine 04979 

(207) 643-2437 

Versions for other computers 

under development. 

^167 
TRS-80 it> <i registered trademark of Tandy Corporation 
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BUSINESS 



Model II 
Business Bar Graphs 



by Richard Harkness 



T 



he Model II is a powerful business micro, 

but its graphics capabilities fall a bit 

short. Now you can use yours for bar graphs! 



One of the shortcomings of the Model 
II is its lack of graphics capability. The 
Models I and III produce effective, low- 
resolution graphics via a video grid con- 
sisting of 128 points horizontally and 48 
lines vertically. This gives a total of 
6,144 print positions. In contrast, the 
Model II has only the coarse graphics 
capability of its literal video display for- 
mat of 80 characters horizontally and 
24 lines vertically — a total of 1 ,920 print 



positions. Still, you can program the 
Model II to produce and print out sim- 
ple bar graphs that look like those pro- 
duced on the Models I and III. 

This is done with a staple bar-graph 
program written in Model II Disk Basic 
that can be adapted for almost any use 
with minor modifications. You can re- 
label the axes to match the data. You 
can even use the RENUM command to 
renumber the lines starting at a highei 
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number (e.g., 5000), and then Merge it 
for use as a subroutine to graph data 
produced by another program. In this 
example, I graphed monthly electricity 
expenses. Up to 24 bars can be drawn 
across the screen. 

The program prompts you to input 
data for as many months as you want 
graphed, starting with January. After it 
draws the bars, it asks if you want to 
graph the same months for a prior year. 
If you answer yes, it prompts you to 
enter these values, and it graphs them 
beside the others. You get a com- 
parative analysis of monthly expense 
over a two-year period — enough time to 
pick up trends, so you can determine in 
which months the use of central air con- 
ditioning is the heaviest and whether 
you've improved on energy conserva- 
tion from one year to the next. 

You can substitute data and read 
statements for the input statements to 
get the values graphed, if you want to 
save the data along with the program. 

A practical limitation is the 24-by-80 
grid. In this program you are limited to 
18 gradations on the vertical scale — 
from zero to $180 in steps of $10. If 



The Key Box 

Model II or 16 
32KRAM 
Disk Basic 
TRSDOS 1.1 or 2.0 
One Disk Drive 
Printer (optional) 
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COLOR COMPUTER 

COMPUTERWARE® has it all! 



FUN & GAMES 



HOME & WORK 




PAC ATTACK 

Incredibly challenging 
graphics game with great 
sound and action. 

cassette $ 24.95 

disk $ 29.95 

Lots more games & products 
available! 




HOME MONEY 
MANAGER 

Cassette checkbook organ- 
izer with printed reports for 
deposits, expenses, 
transactions & Chart of 
Accounts. 

$ 19.95 




STARSHIP 
CHAMELEON 

Defend your starship's 
planet against Gabalatok 
attack of bombs, anti- 
matter & aerial mines. Fast 
action, graphics, & sound. 

cassette $ 24.95 

disk $ 29.95 




ADDRESS 
FACTORY 

Complete name and 
address mailing list with 
special code selection and 
sorts for labels. 

cassette $ 17.95 

disk $ 22.95 




EL DIABLERO 

You awaken dazed, in the 
middle of the desert. Your 
mentor sorcerer has 
diappeared. You face the 
evil El Diablero alone! Pure 
adventure! 

cassette $ 19.95 

disk $ 24.95 



PROGRAMMING TOOLS 

MACRO 

ASSEMBLER 



6409 PROGRAMMING MODEL 
| X - Index Reg 

| 1 maes.Reg 

| u • User S6tt»i 

| S Ha'd~3>c Siac» 



TO ORDER: 

Add shipping of 
$2 surface or $5 
air/Canada. Visa 
& MasterCard 
accepted. 



Macro conditional 6809 

assembler with library files 

and cross reference 

program. 

Color Computer disk $ 49.95 

FLEX* disk $ 50.00 

(Cassette assembler also 
available.) 

FLEX is a trademark o( TSC 

Dealer Inquires Invited 





COMPUTERWARE 



SCRIBE WORD 

PROCESSOR 

Complete word processor 
(or program editor) with 
headings, footings, right & 
left justification, centering, 
paqination, tabs, . . . and 
more! 

'49.95 
(Cassette editor also available.) 




® 



Computerware is a trademark of Computerware. ^369 



PASCAL 

Dynasoft's compact little 
PASCAL for learning 
structure programming. 
Includes compiler, P-code 
interpreter, editor, 
supervisor, & samples. 
(Req. 32K). 

cassette $ 49.95 

disk $ 50.00 



call or write 

Box 668 

Encinitas, Ca. 92024 

(714) 436-3512 



• See List of Advertisers on Page 563 
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Introducing: 
THE ALL-PURPOSE SHOPPER 

A complete guide to 
fast and economical shopping 

•••••*•*•••*•••••• 

• Models I & III, IBM 

• Menu driven for efficient operating 

• Complete documentation 

• All systems are disk based 

• Run-time diskette 

• Soon to be available on models II & 
Apple II 

*•**•*••***•••**•* 

Due to the number ot options available, please write 
for more details and price information 

(Written inquiries, please include a 
self-addressed slamped envelope) 

AFTER PLAYING GAMES SO LONG 

IT'S TIME FOR SOME: 
SERIOUS PERSONAL COMPUTING 

P.O. BOX 7059 S. NASHUA, N.H. 03060 

603-888-1376 ^528 



STANDARD & CUSTOM 
BUSINESS 
SOFTWARE -«• 



Now yours from 
HON Finance and Insurance Computers 

ForTRS-80, Model III 



Standard Packages: 
Banking ■ Credit Reports 

Leasing (TRW-CBI-TUT) 

Credit Unions ■ Retail Sales 

Credit Insurance ■ Auto Sales 



We will customize our standard packages 
or create new vertical markets for you! 



HON F&l COMPUTERS 

J P.O. Box 23825 
Pleasant Hill, CA 
94523-0825 
(415)680-7888 



EPSON MX-80 

CARTRIDGE RIBBONS 

MINIMUM ORDER 3 



$7 # oo 



LABELS 

,s /i6 x3, /2 Pin-fed white 

PRESSURE SENSITIVE 

Minimum Order lup - 5.0O0; 

2up - 10,000. 3up - 15.000; 4up - 20,000 



$2.99 

per M 



PAPER 

20# white 

1250 sheels 



$20. 00 



Prices Include Shipping! 

Check must accompany orders. 

Ohio residents add 6' . Sales Tax 

COMPUTER SALES AND SUPPLIES 
P.O. Box 02294 - Cleveland, OH 44102 

(216) 281-8820 ^ 



your values go beyond these, just 
change the program to make the grada- 
tion larger. For example, if your top 
value is close to or below $1,800, use a 
range between zero and $1,800 in steps 
of $100. In a graphics representation the 
proportional relationships between the 
values are important. 

The remarks in the program make 
most of the lines self-explanatory. Lines 
330-360 define the graphics characters 
used to draw the scale lines, the bars, 
and the horizontal ruler lines. Line 410 
veers to the subroutine drawing the 
horizontal ruler lines starting at line 
1750. In line 420, EL is the ending 
length of each bar (line 20 on the video 
grid); in lines 430, 490, 560, and so on, 



BL is the beginning length of each bar. 

The statement IF D$ = Y GOTO_ 
appears in several lines including line 
300. It reroutes the program where 
needed on the second trip through (if 
you choose to graph months for a prior 
year alongside those for the current 
year). 

You cannot obtain a printout from 
Program Listing 1, because it uses 
graphics characters unknown to most 
printers. Use Listing 2 if you want a 
printout. ■ 



Richard Harkness can be reached at 
1224 King Henry Drive, Ocean Springs, 
MS 39564. 



Program Listing I 

50 PRINT 

60 PRINT 

70 PRINT" THIS PROGRAM PROVIDES A GRAPHIC ANALYSIS OF YOUR MONTH 

LY ELECTRICITY 

80 PRINT" EXPENSE FOR A YEAR. ENTER A ZERO FOR ANY MONTH YOU WAN 

T TO SKIP, BUT 

90 PRINT" BE SURE YOU COUNT EACH ZERO WHEN ASKED FOR THE NUMBER 

OF MONTHS YOU 

100 PRINT" WANT GRAPHED. ROUND VALUES TO NEAREST TEN DOLLARS AND 

BEGIN 
110 PRINT' 
120 PRINT 
130 PRINT 
INPUT 



WITH JANUARY. 1 



'HOW MANY MONTHS DO YOU WANT TO GRAPH?' 



140 

150 CLS 

160 PRINTQ0, "PLEASE LIST THE" ; Z ; "VALUES TO BE GRAPHED SEPARATED 

BY A COMMA." 

170 ON Z GOTO 180,190,200,210,220,230,240,250,260,270,280,290 

180 INPUT A:GOTO 300 

190 INPUT A, B: GOTO 300 

200 INPUT A,B,C:GOTO 300 

210 INPUT A,B,C,D:GOTO 300 

220 INPUT A,B,C,D,E:GOTO 300 

230 INPUT A,B,C,D,E,F:GOTO 300 

240 INPUT A,B,C,D,E,F,G:GOTO 300 

250 INPUT A,B,C,D,E,F,G,H:GOTO 300 

260 INPUT A,B,C,D,E,F,G,H,I:GOTO 300 

270 INPUT A,B,C,D,E,F,G,H,I,J:GOTO 300 

280 INPUT A,B,C,D,E,F,G,H,I,J,K:GOTO 300 

INPUT A,B,C,D,E,F,G,H,I,J,K,L:GOTO 300 

IF D$="Y" GOTO 1615 



290 

300 

310 CLS 

320 PRINT CHR$(02) 

330 A$=CHR$(61) 

340 B$=CHR$(42) 

350 C$=CHR$(58) 

360 L$=CHR$(144) 

370 X=20 

380 FOR Y=12 TO 71 

390 PRINT@(X,Y) ,A$ 

400 NEXT Y 

420 EL=19 

430 BL=EL-A/10 

440 IF D$="Y" GOTO 460 

450 Y=13 

460 FOR X=BL+1 TO EL 

470 PRINT@(X,Y) ,B$ 

480 NEXT X 

490 BL=EL-B/10 

500 IF D$="Y" GOTO 1630 

510 Y=18 

520 FOR X=BL+1 TO EL 

530 PRINT@(X,Y) ,B$ 

540 NEXT X 

550 BL=EL-C/10 

560 IF D$="Y" GOTO 1640 



'TURNS OFF BLINKING CURSOR 



'DRAWS HORIZONTAL SCALE LINE 



■DRAWS THE FIRST VERTICAL BAR 



'DRAWS THE SECOND VERTICAL BAR 



Listing continues 
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YOU'VE JUST FOUND 



THE MISSING LINK! 



<f Tt 




Computer Shopper is your link to individuals who buy. sell and trade computer 

equipment and software among themselves nationwide. No other magazine fills 

this void in the marketplace chain. 

Thousands of cost-conscious computer enthusiasts save by shopping in Computer 

Shopper every month through hundreds of classified ads. And new equipment 

advertisers offer some of the lowest prices in the nation. 

Computer Shopper's unbiased articles make for some unique reading among 

magazines and there's a "help" column to answer difficult problems you may 

have with interfacing, etc 

For a limited time you can subscribe to Computer Shopper with a 6 month trial 

for only $6 or 12 months for only $10. MasterCard & VISA accepted. 

6 month trial, $ 6 or 1 2 months for only 1 

m cnmPUTSR shoppsr 

^T P.O. Box F700* Titusville. FL 32780 

305-269-321 1 " 3£ 



w 



IXJIIDCAT 



Copvri<)hi * 1981 by Donald M Fielding 



Remarkable Disk Directory 

Catalog System 

For use on Radio Shack TRS-80 Model 

1 and 3 microcomputers. 

Unique abstract feature permits positive file identifi- 
cation. Catalog includes a first line remark from every type 
file. Includes human readable remarks from machine code 
files. Contains ID, name, date, free space, filespec, and 
remark. 

Read any size directory from any size disk of any density 
with any number of tracks and any number of sides. Sort by 
any field. Multi-format print in any sorted order. Single 
sheet or continuous forms. Save to disk option. Very fast 
machine code. Self prompting. User friendly. Complete 
easy to understand documentation. 

Please specify MODEL and DOS when ordering. 
Requires two drives MIN and 48 K RAM. 



Satisfaction Guaranteed — Ten day return privilege. 
$59.95 - $2.00 Shipping & Handling 
*Check Money Order Visa Mastercharge* 
Don Fielding 
2207 N.W. 61 Place □ Margate, FL 33063^ 
(305) 972-6744 




A RANDOM ACCESS DATA FILE MANAGER 

For Model I & III, 48K, Disk Drive, 
TRSDOS 1.3 or NEWDOS/80 Version 2.0 " 



FILEMATE is auto-adaptive so this one universal 
program can serve most any of your filing needs — 
Mailing List, Inventory, Bibliography, Business 
Records, etc. You will not have to change any data 
to meet the constraints of a pre-packaged program. 
Yet, there is no software to write. In fact, FILEMATE 
will convert your existing seguential file to its 
random format. 

Consider these features: 

• CONVERT— Any old seguential file to FILEMATE 

random. All you do is name your field 
variables. 

• CREATE— Random files with up to 20 fields in 

any record. Field length optional, up to 255 
bytes for total record. 

• HASHING— Instant recall of any record. 

• SORT — Screen on any combination of 9 relational 

keys then sort on one or two fields. Save in 
multiple index files for later recall at 11 
records/second . 

• CALCULATE — Double precision calculations 

+ , — , * , /, sin, cos, tan, sqroot functions 
Up to 40 steps, 4 stacks available 
Store algorithm for repeated usage 

• PRINTOUT — Generate custom Dataforms or Labels 

Reverse name option 
Upper and lowercase compatibility. 
Multiple columns — optional spacing of rows. 
Auto-alignment of decimal point in tabulations. 
Save multiple formats for repeat use. 

• SEARCH — Global search for any data in any field 

• EDIT — Add, Change, or Delete records at will 

• CAPACITY— Up to 2000 records on a 40 track, 

double density diskette. 

BEST OF ALL— You can always revise the file 
structure. 

(After you have a working file and want to rename a field, or 
add another field for more data, or change the size of any field 
in the record, or delete a field, or expand the capacity of the file; 
DO IT! And don't lose any of the records you want that are already 
in the file. No need to re-enter any data!) 

DATAFILE SYSTEMS 

801 Welch Road 
Palo Alto, CA 94304 

(415)326-1447 ^531 



, 



VISA/MasterCard 
CA Residents add 6'/2 



$95.00 on Diskette 
Manual & Shipping Inch 



■See List ol Advertisers on Page 563 
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9 GREAT NEW PROGRAMS FROM 

Single SOURCE Solution- 



POCKET COMPUTER USERS 

Here is what you have been looking for to protect and 
transport your complete TRS-80. PC-1 , PC-2 or Sharp PC-121 1 , 
PC-1500 Pocket Computer System. 

THE PC SYSTEM ATTACHE CASE 

A durable, handsomely molded black case with two drawbolt 
keylocks. The interior has a soft foam lining which is cut out 
to safely hold all this: 



^sner— . ■• ^</:>mm>wmm m * mmw m mm»™ wm»> -. 



Pocket Computer 

Printer/Interface 

Pwr Supply/Charger 

Tape Recorder* 

Printer Paper 

Spare Tape 

Cords 

PLUS: Room 
For More 

# 

Visa, Mastercharge 

Accepted 

Send Number & Exp. 

Date 



PC-1, PC-1 211 SYSTEM CASE 54.50 

PC-2, PC-1500 SYSTEM CASE (shown) 59.50 

'Instructions Included On How To Make Cut Out For Your 
Own Small Tape Recorder 

SHALE DIVERSIFIED ENTERPRISES 

108 Ferris Ave. Chardon, Ohio 44024 




7 
8 



RIMS - Rental inventory Management System $795.00 

RIMS, a Rental Inventory Management System, is a fully automated system de- 
nned to meet the needs of the typical Time Rental Business RIMS will save the 
.■uerage business over $4,000 per year RIMS tracks each item in your time rental 
ventory, as well as maintaining performance and income records. RIMS can be 
^ed to operate the computer as a cash register RIMS has extensive error checking 
capabilities. RIMS automatically calculates deposits, time-out. prints rental receipt 
<>i- rental and return, allows instant inquiry into current status of an item, reports 
:lrt ly. monthly, yearly income, expenses, cashflow, produces statements for cust- 
j:;iers with term rentals, produces inventory labels and rolidex cards, uses a warn- 
ing horn to alert you to potential problems and much more Model III 

• FPSSTM FINANCIAL PACKAGE FOR SERVICE STATION ONLY $349.50 
FPSSTM is a complete financial and bookkeeping package for Retail Petroleum 
Service Stations FPSS is written in Microsoft Basic" for the TRS-80 Model III 
FPSSTM i which includes a 90 page detailed User's Manual, offers specialized ac- 
1 ounting modules tailormade for the retail petroleum industry FPSSTM is menu 
driven, keeps track of each sale, purchase, charge and collection of a service stat- 
on. with daily, weekly, monthly or annual reports at the user's command Inven- 
tory control is especially detailed, allowing for determining gasoline leakage. Com- 
missions to employees can be tracked, with two commission rates setup 

1 . FORMGEN™ 2.7 ONLY $249.95 

FormgenTM 2.7 is a sophisticated screen and form generator which in three sep- 
arately callable modules gives users the ability to create their own forms or set up easy 
menu driven inputs for standardized forms Complicated calculations may be in- 
cluded as part of the form output, based on the input data Screen layout, variable 
array lengths, field sizes, prompt messages, form printing positions and variables 
used may all be modified without breaking the program Users save time and very 
little memory is used because most things are done as part of subroutines. Form- 
genTM 2.7 has been used in over 100 Beta test sites in very powerful applications 
with impressive results. 

CCMS ESTIMATING SYSTEM $499.95 

The CCMS Estimating System is a comprehensive construction cost estimat- 
ing system written by a contractor/programmer for contractors. CCMS "talks" the 
contractor's language with several menu driven files The key is the systems cost 
code, which references the unit prices established earlier and organizes the estimate 
into divisions modeled after the uniform system adopted by the AIA, AGCA and 
CSII. Models I and II and Compiler Basic. 

• TRSFLOWTM 1.1 ONLY $149.50 



TRSFlow'" 1 1.1 is a hydraulic model based upon the popular Hardy-Cross 
method of pipe network analysis. By telling the program certain system parameters 
such as the length, diameter and type of pipes, TRSFlowTM calculates head values 
up to 150 pope junctions and the flows through 150 system elements Within the 
150 system elements, TRSFlowTM can handle 10 pumps and 10 fixed head condi- 
tions TRSFlowTM allows the system designated to accurately determine pump and 
pipe sizes in any desired network TRSFlowTM, works with level II Basic on 
TRSDOS. 

BUSINESS MULTI-PACK $99.95 

BUSINESS MULTI-PACK blends four important business functions: sales fore- 
casting (arithmetic avg, regression analysis, expotential smoothing, futures 
analysis), determines the economic order quantity. LIFO or FIFO inventory 
analysis, and a cache of general business utilities. These utilities include Pricing Mer- 
chandise to achieve a desired profit margain, a perpetual calendar, future value of a 
present sum, present value of a future sum, an amortization schedule Model III, 
48Kbytes. one disk TM 

=rr- PERSONAL ACCOUNTER ' M 2.4 ONLY $59.95 

Personal Accounter 2.4 is an easy to use program for keeping track of one 
or more separate accounts and enables the user to see the current balance, search 
for check entries by specific dates, months or year, call up total monthly expendi 
tures, or check when a certain account was paid. A printed copy of all checking ac 
count reports may be ordered Personal AccounterTM 2.4 is very easy to use 
and comes with a reference manual 

— BISPLAN $69.96 

BISPIanTM is a program for making business plans and projections. With 
BISPIanTM you are led through screen prompts to enter data concerning your 
business plans You can enter estimates of a business proposal that you are consid- 
ering and produce projections of potential earnings BISPIanTM w i|| help you 
assess: financing requirements, loan payoff rates, length of time before return on in- 
vestment, and profit potential. Estimates can be projected up to five years, and 
dumped from screen to line printer. BISPIanTM * s menu driven and includes a 
manual Available in 16K for the Model I with a more extensive version in Models II 
and 111. 

— — DISMON - An Interactive Disassembler $49.95 

Now you can control the entire disassembling process through DISMON, an in- 
teractive disassembler Code resides in middle memory and can be used to disas- 
semble programs in either high or low memory Models I or 111. 16Kbytes with 
cassette. 48 Kbytes with disk 
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Dear Single SOURCE Solution. 'Ill' 

Please enter my order lor the following programs at your special 10% discounl rale -^ 

through 1982. ▼ 
Circle program(s) ordered: 1 23456789 



NAME _ 
ADDRESS 
CITY 



Make check or money order payaOle lo. Single SOURCE Solution 

(California residents add 6%) Postage and Handling add $2 00. COD add $1 .50 

TOTAL AMOUNT ENCLOSED $ 



^See List of Advertisers on Page 563 



Satisfaction Guaranteed or Your Money Back in 10 Days • Dealer Inquiries Invited 
Mail today lo: Single SOURCE Solution 

2699 Clayton Rd . Concord CA 94519 or call (415) 680-0202 
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UTILITY 



Mod II Disk Index 



by Charles R. Perelman 



D 



o you find it hard to keep track of all your 
disk files, and even harder to read the direc- 
tories? This disk index utility is for you! 



When was the last time you shuffled 
through your disks or card index to find 
a program for your Model II and mut- 
tered that there must be a better way? 
Here's a disk index utility that reads 



each disk and keeps track of your 
programs. 

A few commands used are unique to 
Model II Basic, but can be readily trans- 
lated into other TRS-80 dialects. Ma- 



Program Listing 

*************************************** 

10 'DIRECTORY PROGRAM FOR TRS-80 MODEL II 

20 'ADAPTED FROM PROGRAM BY ATHANASIOU 80 MICRO, JUNE 82 

30 'BY CHARLES R. PERLEMAN, A PROFESSIONAL CORPORATION 

40 '9777 WILSHIRE BLVD., BEVERLY HILLS, CA. 90212 

50 'PROGRAM FILE NAME 'DIRECTRY/MII ' 

100 <************************************** 

110 'SET PARAMETERS 

120 CLEAR 20000,62270 

130 DEFINT A,J-M,U-Y 

140 DEFSTR F,P,D,C 

150 DIM PN$(600) ,DP$(600) ,U1(23) ,A(96) ,U5(93) 

160 DIM X,Y,XX,J,I:J=0:V9=0 

170 S$(l)=" TO RESTART TYPE: 'BASIC DIRECTRY/MII -F:l' AND PR 

ESS <ENTER>.":S$(2)="*** WORKING. . .PLEASE WAIT ***" :S$(3) ="PRESS 

ENTER TO CONTINUE" :S$( 4) =" PRESS <M> FOR MENU" 
200 '************************************* 

210 'IMPLEMENT PEEK AND SET UP REGISTERS FOR USR ROUTINES 

220 FOR X=0 TO 23:READ Ul(X):NEXT 

23 V=w:DEFUSR=VARPTR(Ul(0) ) :V=USR(0) 

240 U2(0)=15872:U2(2)=8448:U2(6)=256:U2(8)=-13 873 

250 FOR X=0 TO 93:READ U5(X):NEXT 

260 ON ERROR GOTO 11020 

3 00 < ************************************ 

310 'FILES TO BE OPENED FOR MODEL II 

320 CLS:PRINT"MODEL II REQUIRES THAT FILES BE OPENED WHEN ENTERI 
NG BASIC. ":PRINT"IF YOU NEGLECTED TO DO THIS, PRESS <BREAK>, ENT 
ER 'SYSTEM' TO" : PRINT "RETURN TO TRSDOS. ": PRINT S$ ( 1 ): PRINT: PRINT 

Listing continues 



chine-language USR routines are in- 
cluded that take advantage of Model II 
supervisory calls; the program also uses 
a machine-language sort and PEEK in a 
USR routine. You do not need to know 
anything about machine language to 
use the program. 

Simply put the program disk in drive 
and insert each disk to be indexed in 
your second disk drive. The computer 
reads the directory and processes the in- 
formation. 

You must give your disks identify- 
ing numbers. For easy handling, I put 
sequential self-adhesive numbers 
purchased at a stationery store on 
each disk. 

Main menu options permit you to 
create a new index, update, add a disk, 
delete a disk, list the index alphabetical- 
ly or in disk sequence, list the contents 
of a specific disk, list all disks on which 
a particular program can be found, or 
save the revised index to disk. 

The basic organizational structure 
and the vertical raster routine were bor- 
rowed from "Lost and Found," a di- 
rectory program for the Model III by 



The Key Box 

Model II or 16 

64KRAM 

Disk Basic 

TRSDOS 1.2 or 2.0, 2 disk drives 
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SUPER PRICES 





COMPUTERS 

Complete MODEL III COMPUTER 

Model III with 48K memory. 2 disk 

drives. 370K storage, and ready to run with 

TRSOOS 1.3 and manual. 120 day Simutek warranty parts and 

labor. Compatible with all Radio Shack software $1799.99 

Model III with 48K. 2 double sided 40 track disk drives with 750K 
storage. Comes with MULTIDOS and manual. 120 day Simutek war- 
ranty parts and labor. Compatible with Radio Shack software. Com- 
plete and ready to run S2195.99 

MODEL III INTERNAL DISK DRIVE KITS 

If you can use a phil lips screwdriver, you can easily install 

Simutek's Model III disk drives and controller in less than an hour. 

Absolutely NO SOLDERING. TRACE CUTTING OR TECHNICAL 

KNOWLEDGE REQUIRED! The J. & M controller is the best on the 

market today. We've tried others and found J & M's the finest and 

easiest to install. We warranty the J & M controller for 120 days 

against defects in workmanship. 

ONE 40 TRACK TANDON DISK DRIVE WITH 185K STORAGE, and J 

& M controller. Radio Shack DOS. manual. No soldering or trace 

cutting required. Ready to install with instructions $589.99 

TWO 40 TRACK TANDON DISK DRIVES 370K STORAGE, with J & M 
controller Radio Shack DOS. manual. No soldering or trace cutting. 

Ready to install and run. Instructions $824.99 

TWO DOUBLE SIDED 40 TRACK DISK DRIVES with 750K storage 
and J & M controller MULTIDOS and manual and Model III DOS. No 
soldering or trace cutting. Ready to install and run. Full instruc- 
tions $999.99 

MODEL III HARD DISK DRIVES 

FIVE MEGABYTE hard disk with LDOS disk operating system, all 

cables, connectors, ready to plug in $1799.99 

TEN MEGABYTE Hard disk with LDOS. all cables, connectors ready 

to plug in $1999.99 

PRINTERS 

DAISY WHEEL PRINTERS: 

NEW SMITH CORONA DAISY WHEEL 12 CPS $699.99 

NEW BROTHER DAISY WHEEL 16 CPS $1199.95 

TRACTOR FEED FOR BROTHER S250.00 

C-ITOH STARWRITER II F 10. 40 CPS $1649.99 

C-ITOH STARWRITER III F-10 55CPS $1999.99 

TRACTOR FEED FOR STARWRITERS $250.00 

HIGH QUALITY DOT MATRIX: 

C-ITOH PROWRITER I 8510A .2K BUFF. . . PRL. ONLY $499.99 

C-ITOH PROWRITER I 8510ACD...2K BUFF. SER/PRL $649.99 

C-ITOH PROWRITER II 1550. .. 15 INCH. . .3K BUFFER $799.99 

EPSON MX-80WITH GRAFTRAX $479.99 

EPSON MX-80/FT WITH GRAFTRAX $549.99 

EPSON MX-100 $799.99 

OKIDATA MICROLINE 80. (80 CPS) $369.99 

OKIDATA MICROLINE 82A (125 CPS) W/TRACTOR $499.99 

OKIDATA MICROLINE 83A (125 CPS) W/TRACTOR $749.99 

OKIDATA MICROLINE 84 (200 CPS) W/TRACTOR $1199.95 

PRINTER CABLE FOR MOD I EXPANSION INTERFACE OR MODEL 

III (SPECIFY) $29.95 

PROWRITER RIBBONS $12.99 

EPSON MX-80 OR FT RIBBONS $9.99 

OKIDATA RIBBONS...(80.82A.83A) $3.49 



FREE SHIPPING 



CALL TOLL FREE to order: 



1-800-528-1149 ^ 

WE ACCEPT AMERICAN EXPRESS, VISA and MASTERCARD. 
NO SURCHARGE FOR CREDIT CARD ORDERS! 
SORRY, PERSONAL CHECKS REQUIRE 4-5 WEEKS TO CLEAR. 
MINIMUM ORDER $20.00 



DISK DRIVES 



S279.00 



MODEL I DISK DRIVES 

ONE TEC DISK DRIVE 40 TRACK DISK DRIVE with 5ms track to 
track access time, with power supply chassis, extender cable and 
shipping for TRS-80. One year warranty on parts and labor. Ten day 
money back guarantee. 

Model I or III 

TWO 40 TRACK TEC DISK DRIVES, 

with power supply and cable 

One year warranty $539.95 

ONE TANDON 40 TRACK DISK DRIVE. 5 ms track to track, with P/S 
and chassis, ready to run as drive 0-4 or Model III external. 10 day 

money back warranty $279.00 

ONE 2 DRIVE cable for Model I or III. (Specify) $25.00 

$35.00 



SALE! 

DOSPLUS 3.4 

MOD I ONLY 

$69.95 

While supply lasts. 



ONE 4 DRIVE cable for Model I only 

ACCESSORIES/ 
SOFTWAREJTC 

16K MEMORY UPGRADE FOR MOD I, III OR COLOR 4K. 

UNCONDITIONALLY GUARANTEED FOR 2 YEARS $14.95 

DISK OPERATING SYSTEMS 

NEWDOS80 VER.2 $139.95 

LDOS 

DOSPLUS 

MULTIDOS. BEST BUY! SPECIFY DOUBLE OR SINGLE DENS 

DOUBLE DENSITY MODI 

PERCOM DOUBLER II. (NEW LOW PRICE!) $139.99 

With DOSPLUS 3.4 $169.95 

DISKETTE STORAGE 

SMOKED PLASTIC HOLDS 50 DISKETTES 

HARD BOX HOLD TEN 

MODEMS 

LYNX MODEM FOR MODI 

S* , OR III 

OMNITERM SMART TERMINAL 
M PROGRAM 




$129.95 

$139.99 

$79.95 



$21.95 
S3.99 

$239.95 
$99.99 



SUPER BOOKS FROM IJG 
MICROSOFT BASIC DECODED 

AND OTHER MYSTERIES 

TRS-80 DISK AND OTHER 
MYSTERIES 

BASIC FASTER AND BETTER AND OTHER MYSTERIES 

BASIC FASTER AND BETTER PROGRAMS ON DISKETTE 

CUSTOM TRS-80 AND OTHER MYSTERIES 



MONITORS 

OLD MOD I SCREEN STARTING TO GIVE YOU HEADACHES? TRY 

ONE OF THESE HIGH RESOLUTION MONITORS AT SUPER LOW 

PRICES... 

ZENITH GREEN SCREEN 12" 

BMC 12 INCH GREEN SCREEN 

BMC 13 INCH COLOR 

AMDEK 12' BLACK AND WHITE 

OCI AMBER SCREEN MONITOR 12" 

CABLE TO CONNECT MONITORS TO MODEL I COMPUTER 



$29.95 

$22.50 
$29.95 
$19.95 
$29.95 



$139.95 
$109.95 
$299.99 

$97.50 
$189.95 

$14.95 




TRS-80 TMol Radio 



C.O.D.S $5.00 EXTRA. NO C.O.D.S FOR MODEL III COMPUTERS OR PAR- 
CELS THAT CANNOT BE SHIPPED UNITED PARCEL SERVICE. ALL C.O.D.S 
REQUIRE CASH OR CERTIFIED CHECK AT TIME OF COLLECTION. 



SIMUTEK 



Computer Products Inc. 

4897 E. SPEEDWAY BLVD., TUCSON, AZ 85712, (602) 323-9391 



Shack a Tandy corp. 






Robert and William Athanasiou (80 
Micro, June/July 1982, page 288). If 
you are using that program, you can en- 
hance it, yet reduce the size of many of 
the program routines by adapting my 
coding. I have substituted INKEYS rou- 
tines for most of the Input entries, elim- 
inated duplication, and made other 
structural changes. 

Construction of the program is mod- 
ular. Each section performs a separate 
function. You can easily debug each 
part, make changes to it, or use a 
module in other programs. The remark 
lines are not referenced in the program 
and you can delete them in your final 
work copy to increase available mem- 
ory. You can remove spaces for further 
compression. 

The dividing remark lines are num- 
bered with even thousands. Descriptive 
lines end with the digits 10. All program 
lines are divisible by 10. 

Program Overview 

The entire directory of the disk in 
drive 1 is read by a machine-language 
USR routine. The computer extracts the 
name of each program and adds the 
disk identification number for indexing. 
Except for creation of a new index, your 
prior index is read automatically from 
disk before the program proceeds. To 
update a disk, delete the prior disk in- 
formation, then read the present direc- 
tory into the index. 

As you review the contents of the in- 
dex, the headings do not scroll off the 
screen, but remain in place. Up to 80 en- 
tries are on screen at one time. You can 
page back and forth from the beginning 
to the end of your index. The entire in- 
dex may be printed in alphabetical or 
disk number sequence. 

There are no page breaks in the print- 
er routine. You can either stop the 
printer with the hold key to load anoth- 
er sheet of paper or use continuous roll 



or fanfold. The format for printing is 80 
characters wide so that you can use 
standard 8 1/2-inch paper. 

A flashing error message alerts you if 
there is no prior index without terminat- 
ing the program. If you request a print- 
out without turning on the printer, an 
error message prompts you so you can 
try again. At the beginning of the pro- 
gram, you are reminded to open a file as 
required by Model II TRSDOS. Should 
you forget to do this, you will be unable 
to save a revised index to disk. If you try 
to access a disk file without having 
opened a file, you will be returned to 
TRSDOS to start again. 

Detailed Tutorial 

The program contains multiple Basic 
statements on a single line separated by 
colons. This runs faster than individual 
lines. The If... Then... Else format re- 
duces the number of lines. 

• Line 120 clears the maximum space 
to speed program operation. Memory 
above 62270 is reserved for the disk- 
read USR routine. 

• Line 130 defines numerical variables 
as integers, reducing processing time 
and memory usage. 

• Line 150 provides variable space for 
600 programs. This is more than suffi- 
cient for my needs since many of my 
programs are CP/M format. 

• Line 170 avoids retyping repeated 
statements by defining them as strings. 

• In line 220, hexadecimal coding reads 
from the data statement at the end of 
the program for the PEEK function. 

• Line 230's USR routine implements 
the hexadecimal code to replace OCT$ 
in Basic with PEEK, only for this 
program. 

• Line 240 has the coding for USR rou- 
tines to prepare registers, and is used 
with supervisory calls to read the disk 
directories and stop the screen from 
scrolling. 



NEW MODEM GAME 

Presenting Terminal-War. Command a starship as you battle against a human opponent, the computer, or both. Yes, the com- 
puter can control up to 28 ships. Choose trom titteen commands as you fight the alien ships and the other player. But be careful, the 
aliens will intelligently attack with various weapons, advancing and retreating as they try to destroy you. 

Every time you play Terminal-War the scenario is different. You can also make each game as easy or as hard as you like because 
you control the strength and the number of ships. 

Only $29.95 

Includes: 2 detailed manuals. 2 disks each with the 2 player modem version, 1 player version, and a special terminal program so 
that 16K computer users can play Terminal-War. (The terminal program is transferable to cassette. Use the 3?K 
computer.) 
Cassette with the terminial program already on it" $1.00 

Minimum system requirements 



2 Player version: 1 16K TRS-80 level 2 computer with a full 
duplex modem and 1 32K 1 disk TRS-80 computer with a full 
duplex modem. 

1 Player version: 1 32K 1 disk TRS-80 computer 
-DEALER INQUIRIES INVITED— 

TRS-80 is a trademark of Radio Shack a Tandy Corp. 



Ordering Information 
"Specify Mod I or Mod 



disks or one disk of each 



We accept Money orders. Certified checks. C.O.D.. and per- 
sonal checks (Up to 2 weeks' to clear). 
Please add $2.00 shipping. NY residents add 7% sales tax. 

Mail orders. Ocean Computer Products 
P.O. Box 6474 
Ithaca, NY 14850 



24 Hour order line (607) 273-E 



^525 



• Line 250 reads a machine-language 
sort into an array for later call by the 
USR routine. 

• Line 260 initializes an error trap. Any 
error sends the program to line 1 1020. 
When you are typing in the program, 
disable this line. Put a remark at the be- 
ginning. The built-in TRSDOS error 
routines are then available to you in de- 
bugging. After the program is com- 
pletely debugged, remove the remark. 

• Line 320 reminds you that files must 
be opened with the Model II when you 
bring Basic into memory. 

• Line 330 pauses, holding information 
on the screen until any key is pressed. 

• Line 530 names the index file pro- 
duced DSKINDEX. The program rec- 
ognizes only capital letters. Pressing the 
letter M returns you to the main menu 
from various points not always specifi- 
cally prompted. 

• Line 620 provides error traps that 
cause a flashing message if your choice 
is beyond the limits given, or is not a 
whole number. 

• Line 630 sets flag V2 to 1 , if your 
choice is between 1 and 4. Later, this 
flag reminds you that you must save the 
file to disk to retain index changes. 

• In line 640, a K value from 1 to 8 di- 
rects the computer to the appropriate 
program section. 

• In line 1020, after a subroutine to ob- 
tain the disk identification number, 
each program is checked for a match. 
An error message flashes if the ID num- 
ber is already used in the index. 

• Line 1030 instructs you to insert the 
disk to be read and to press enter. 

• In line 1040, if you press M instead of 
enter, the program aborts to the main 
menu. Otherwise, a message is printed 
on the screen while the disk directory is* 
read and processed. 

• Line 1050 lets you process another 
disk, save the file, or return to the menu 
by pressing a single key. The semicolon 
keeps the cursor immediately after the 
prompt rather than moving it to the 
next line. INSTR directs the program to 
the first line number after the GOTO if 
M is pressed, the second for D, the third 
for S. An error message flashes and you 
get another choice if the character 
pressed is not listed. This same type of 
coding is repeated several times in the 
program. 

• In line 2020, if you have not read a 
disk into memory to begin a new index 
or recalled the prior index, DSKINDEX 
is read to memory from disk. 

• Line 3040 compares disk numbers for 
all programs to the disk number you 
want to delete or list. The index number 
for each matching program is put into 
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Listing continued 

S$(3); 
330 IF INKEY$= n " THEN 330 
500 '************************************* 

510 'MAIN MENU 

520 CLS:PRINT@165,"*** INDEX FOR MODEL II ***":PRINT 

530 PRINT, "1. MAKE NEW INDEX" : PRINT, "2. ADD DISK TO INDEX":PRI 

NT, "3. UPDATE DISK IN INDEX" : PRINT, "4 . DELETE DISK FROM INDEX" 

:PRINT,"5. LIST ALPHABETICALLY OR BY DISK NUMBER. ": PRINT, "6 . F 

IND PROGRAM OR LIST A DISK." 

540 PRINT, "7. SAVE INDEX AS 'DSKINDEX ' " : PRINT, " 8 . END PROGRAM" 

: PRINT: PRINT" NOTE: USE CAPITAL LETTERS ONLY. PRESS <CAPS 

> IF NECESSARY. ":PRINTTAB( 13) "WHEN CHOICE IS REQUESTED AT ANY ST 

AGc Or PkOGRAM,":PRINTTAB(13) S$(4) 

550 PRINT: PRINT" PRESS NUMBER DESIRED"; 

600 '************************************* 

610 'INKEY INPUT FOR CHOICES 

620 GOSUB 10020:K=VAL(C$) :IF K<1 OR K>8 OR KOINT(K) THEN M=l:GO 

SUB 10120:GOTO 520 

630 IF K<5 THEN V2=l 

640 CLS:ON K GOTO 1020,2020,3020,3020,5020,6020,7020,8020 

1000 '************************************* 

1010 'PRODUCE NEW INDEX 

1020 GOSUB 10320:FOR X=l TO XX:IF DN$=LEFT$ (DP$ (X) ,2) THEN M=7:G 

OSUB 10120:GOTO 520 ELSE NEXT 

1030 PRINT: PRINT" INSERT DISK ";DN$;" IN DRIVE 1" : PRINT: PRINT S$( 

3) ; :GOSUB 10020 

1040 IF C$="M" THEN 520 ELSE CLS: PRINT@658 ,S$( 2) ; :DZ$=DN$: IF K>1 

THEN DY$=DP$(1) 
1050 GOSUB 10420:V3=1:IF K>1 THEN DP$(1)=DY$ 

1060 CLS:C$="":PRINT:PRINT S$(4);" <D> TO INDEX ANOTHER DISK OR 
<S> TO SAVE FiLE."; :GOSUB 10020:ON INSTR( "MDS" ,C$) GOTO 520,1020, 
7020:M=2:GOSUB 10120:CLS:GOTO 1060 
2000 '*********************************** 
2010 'ADD NEW DISK # 
2020 IF V3=0 THEN GOSUB 10920 
2030 GOTO 1020 
3000 '********************************** 

3010 'DELETE FILE 

3020 IF V3=0 THEN GOSUB 10920 



Listing continues 



the A array. 

• Lines 3050-3080 sort the array and 
list programs in alphabetical order in 
horizontal sequence. The comma in 
3080 causes a tab after each program 
name for a five-column listing. If no 
program matches the input disk num- 
ber, an error message flashes. 

• In line 3090, the same routine is used 
for deleting, updating, or listing the 
programs on a disk. K, the number of 
your original choice from the menu, di- 
rects the computer to the proper contin- 
uation routine. 

• In lines 5030-5060, flag V4 signals an 
alphabetical or disk number. For alpha- 
betical sorting, the disk number is 
changed from the first two characters to 
the last two characters of the string. Al- 
phabetical listing, therefore, takes long- 
er than by disk number. 

• Line 5120 selects the proper heading 
for listing on the screen, based on the 
V4 flag. 

• Line 5130's USR 3 calls supervisory 
routine 27, preventing the top two head- 
er lines from scrolling. 

• Lines 5140-5150 list the index on the 
screen after it is processed by the verti- 
cal raster subroutine. 

• In lines 5160-5200, W4 starts a new 
line after each four entries. The pro- 





AT LAST!!! A Micro-Design 
Model III System Upgrade. 
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controIIer boARd, one 40 tracI< dotblE dENsiiy Disk Drjve, necessary jnstaIIatjon cadIes ANd 

hARd\VARE. 



c 



f For Mori InIormaijon & Frii I in hah re 

CaII or Wrjte 

MICRO-DESIGN 

6501 Mancfiaca RoAd 
Austjn Texas, 78745 

Toll Fr« 

1-800-531-5002 




• See List of Advertisers on 



80 Micro, Anniversary 1983 • 549 



Listing continued 

3030 GOSUB 10320: PRINT: PRINT S$(2); 

3040 U=l:FOR X=l TO XX:IF LEFT$(DP$ (X) ,2) =DN$ THEN A(U)=X:U=U+1 

3050 NEXT:IF U=l THEN M=8:GOSUB 10120:GOTO 3030 

3060 GOSUB 10530 

3070 CLS: PRINT: PR I NT "PROGRAMS ON DISK " ;DN$; ":": PRINT 

3080 FOR X=l TO U-1:PRINT RIGHT$ (DP$(A(X) ) ,12) , : NEXT : PRINT :C$= nn 

3090 IF K>4 THEN PRINT:PRINT S$(3);:GOSUB 10020:GOTO 6030 

3100 PRINT:PRINT S$(4);" OR <D> TO DELETE" ;: GOSUB 10020:ON INSTR 

("MD",C$)GOTO 520,3110:M=2:GOSUB 10120 :CLS:GOTO 3090 

3110 PRINT:PRINT S$ (2) ; :GOSUB 10720:IF K=4 THEN 520 ELSE 1030 

5000 '************************************ 

5010 'SORT 

5020 IF V3=0 THEN GOSUB 10920 

5030 PRINT: PRINT"PRESS <D> FOR LISTING BY DISK, <A> FOR ALPHABET 

ICAL"; :GOSUB 10020:ON INSTR ( "MDA" ,C$) GOTO 520 ,5040 ,5050:M=2:GOSU 

B 10120:CLS:GOTO 5030 

5040 V4=0:GOTO 5060 

5050 V4=l: PRINT: PRINT S$(2):FOR X=l TO XX:DP$ (X) =RIGHT$(DP$ (X) ,1 

2)+LEFT$(DP$(X) ,2) :NEXT 

5060 CLS: PRINT: PRINT: PRINT S$(2);:GOSUB 10520:CLS 
5100 ****************************** 

5110 'SCREEN LIST 

5120 FOR X=l TO 4: IF V4=0 THEN PRINT"DISK PROGRAM. ";:NEXT 

ELSE PRINT"PROGRAM DISK ";:NEXT 

5130 PRINT :PKINT STRINGS { 75 , "-") :V6=0 :U2 (1) =27 :U2 ( 7) =512:DEFUSR3 

=VARPTR(U2(0) ) :V6=USR3(0) 

5140 XX=XX-l:FOR 1=1 TO XX:GOSUB 10820 

5150 IF V4=0 THEN PRINT LEFT$ (DP? ( J) ,2) ; " " ;RIGHT$ (DP$ ( J) ,12) ; 

" ";ELSE PRINT LEFT$ (DP$ ( J) ,12) ; " " ;RIGHT$ (DP$ ( J) ,2) ; " "; 

5160 IF W4=4 THEN PRINT 

5170 IF INT(I/80) OI/80 THEN 5190 ELSE PRINT: PRINT "PRESS <C> TO 

CONTINUE DISPLAY <B> FOR PRIOR PAGE" ; :GOSUB 10020 

5180 IF I>=160 AND C$="B" THEN I=I-160:GOTO 5210 ELSE 5210 

5190 IF I>80 AND I=XX THEN PRINT: PRINT: PRINT"FOR PRIOR PAGE PRES 

S <B>, <C> TO END LIST ";ELSE 5220 

5200 GOSUB 10020:IF C$="B" THEN 1=1- ( 80+(XXMOD80) ) 

5210 PRINT STRING$(48,8) ; 

5220 NEXT:XX=XX+1:C$="" 

5300 '******************************** 

5310 'PRINTER OUTPUT 

5320 PRINT: PRINT: PRINT S$(4);", <P> FOR PRINTOUT" ;: GOSUB 10020:0 

N INSTR("PM",C$)G0T0 5340 , 5330:M=2:GOSUB 10120:CLS :GOTO 5320 

5330 IF V4=l THEN PRINT:PRINT S$(2):F0R X=l TO XX:DP$(X) =RIGHT$( 

DP$(X) ,2)+LEFT$(DP$(X) ,12) :NEXT:GOTO 520 ELSE 520 

5340 LPRINT:FOR 1=1 TO 4: IF V4=0 THEN LPRINT"DISK PROGRAM " 

;:NEXT ELSE LPRINT" PROGRAM DISK ";:NEXT 

5350 LPRINT:LPRINT STRING$(75, "-") :W4=0:XX=XX-1:FOR 1=1 TO XX:GO 

SUB 10820 

5360 IF V4=0 THEN LPRINT LEFT$(DP$( J) ,2) ; " " ;RIGHT$(DP$( J) ,12) ; " 

";ELSE LPRINT LEFT$ (DP$ ( J) ,12) ; " " ; RIGHT$ (DP$ ( J) ,2) ; " "; 
5370 IF W4=4 THEN LPRINT 

5380 NEXT:XX=XX+1:IF V4=l THEN PRINT:PRINT S$(2):FOR X=l TO XX:D 
P$(X)=RIGHT$(DP$(X) ,2)+LEFT$(DP$(X) ,12) :NEXT:GOTO 520 ELSE GOTO 
520 
60 00 '************************************ 

6010 'SEARCH FOR DISK OR PROGRAM 

6020 IF V3=0 THEN GOSUB 10920 

6030 CLS:CS="":PRINT@240,S$(4) ;", <D> TO LIST A DISK, OR <P> TO 

FIND A PROGRAM."; : GOSUB 10020:ON INSTR ( "MDP" ,C$) GOTO 520,3020,60 

40:M=2:GOSUB 10120 :CLS:GOTO 6030 

6040 CLS:PRINT:LINEINPUT"ENTER NAME OF PROGRAM TO BE FOUND: ";P 

N$:IF PN$="M" THEN 520 ELSE J=0 :L=LEN(PN$) 

6050 IF L<12 THEN PN$=PN$+SPACE$(12-L) ELSE IF L>12 THEN PN$=LEF 

T$(PN$,12) 

6060 FOR X=l TO XX-1:IF PN$=RIGHT$(DP$(X) ,12) THEN J=J+1 : PN$ ( J) = 

DP$(X) 

6070 NEXT 

6080 "IF J=0 THEN M=8:G0SUB 10120:CLS:GOTO 6040 

6090 CLS:PRINTTAB(5) ; "PROGRAM" ; TAB ( 20) ; "DISK" : PRINT STRINGS (55," 

-"): PRINT: FOR 1=1 TO J:PRINTTAB(5) ;RIGHT$ (PN$ (I) ,12) ; " ";LEFT$(P 

N$(I) ,2) :NEXT 

6100 C$="": PRINT: PRINT S$(4);" OR <P> TO FIND ANOTHER PROGRAM";: 

GOSUB 10020:ON INSTR ( "MP" ,C$) GOTO 520 ,6040 :M=2 :GOSUB 10120:CLS:G 

OTO 6100 

7000 ************************************* 

7010 'SAVE TO DISK 

7020 IF V3=0 THEN M=3:G0SUB 10120 :GOTO 520 ELSE OPEN "0",1,"DSKI 

NDKX":PRINT@658,"*** SAVING INDEX TO DISK ***"; 

7030 PRINT#1,XX:F0R X=l TO XX: PRINT#1 ,DP$ (X) :NEXT: CLOSE:V3=0 :M=5 

:GOSUB 10120-:GOTO 520 

8000 '************************************ 

8010 'END OF PROGRAM 

8020 IF V2=W THEN 8040 ELSE PRINT"TO RETAIN YOUR UPDATED INDEX, 

YOU MUST SAVE IT TO DISK. " : PRINT"PRESS <S> TO SAVE OR <E> TO END 

WITHOUT SAVING."; 

Listing continues 



gram pauses with 80 items on the 
screen. You may go back to a prior 
screen. A partial final screen is con- 
trolled by lines 5190 and 5200. The 
MOD operator is a remainder function. 
XX MOD 80 gives the remainder of XX 
(total programs) divided by 80. This is 
the number of programs after the last 
full screen. 

• Line 5210 erases the prompt message. 

• In line 5220, For... Next loops always 
add one more than the number of items 
processed. Proper program operation 
requires adjustment at times during the 
program to the actual number of pro- 
grams, or an increase by one as though 
the index had just gone through a loop. 

• In line 5360, J is the sequential num- 
ber of the directory entry in the vertical 
raster. J determines the print position of 
the entry. 

• In line 5380, if the disk number and 
name were switched for alphabetical 
sorting, the disk number is returned to 
the left side of the string. 

• Line 6050 right-justifies the program 
name with spaces or excess characters 
truncated to a 12-character length. (The 
maximum length of a TRSDOS file 
name is 12 characters including the slash 
and extension of up to three characters. 
File names read from disks are adjusted 
to a 12-character length.) 

• Line 6080 gives an error message if 
the program is not in the index. 

• Lines 7020-7030 give an error mes- 
sage if there is no index in memory. 
Number of entries, XX, is saved to disk 
with the index. 

• In line 8020, if V2 = 1, you called a 
routine to change the index. You are re- 
minded to save the new index before ex- 
iting the program. 

• Line 10020 pauses until a key is 
pressed. 

• In line 10220, CHR$(2) turns off the 
cursor to avoid flashes as it moves to the 
message area. 

• In line 10240, Y loops determine on 
and off time for flashing messages. 

• In line 10250, CHR$(1) turns the cur- 
sor on. 

• In line 10320, line Input avoids print- 
ing a question mark on the screen as In- 
put would do. 

• Lines 10330-10340 ensure that one- 
digit disk numbers are preceded 
by zero, allowing only numbers for 
disk ID. 

• Lines 10410-10490 are a USR rou- 
tine with supervisory call 53. It reads 
the entire disk directory into RAM. 
Each entry is 34 characters. Using 
PEEK, the name is extracted and right- 
justified with spaces to a 12-character 
length. The disk number, DZ$, is add- 
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New! 



MBC-1000 
64K Computer 



CP/M & SBASICD • Single 328K Disk 
80 x 25 Green Phosphor CRT 
Business Graphics • 5 FN Keys 
RS-232C & Centronics Parallel Ports 



r» of DICITAl RISEARCH 



AH th.aa faatura. tor oniy $ 1 640 DELIVERED 



software/MODELi.m: 

FOOTMATH 



• Calculate Iki.al maaaure without decimal oonvaralon 
Input/output In angllah wrlttan form 
1 Print, atora. adtt. append fVaa 



$99.< 



MENURITE 



■ Qenerate Baalc manua without programming 
• Drlvoa up to f 1 programs with S eaK option* 
' Automatically apacea A oontora dlaplay 

•yatam Raqutramanta: J2K, 1 Dtak 



$24.« 



Send check or money order and we ship PREPAID. COD's shipped collect. 

$250 deposit required for COD computer orders. 

iilll j.llli dill ^-»t Texas residen t s add 5% sales tax. 

II HI II Cheever 

mail orders: P.O. Box 3834 

Wake Village, Texas 75501 

showroom: 4120 McKnight Road 

Texarkana, Texas 75501 



f ||P' |P Microware , 

:all: (214) 832~4211 



snaa 

In The. . . . 
SOUTH ATLANTIC 



This exciting, realistic war simulation 
puts you in the commander's seat of the 
British Armed Forces. Deal with unpre- 
dictable weather, political unrest, and 
the unruly Argentine Forces to win the 
ultimate goal sovereignty over the 

FALKLAND ISLANDS! 

War in the South Atlantic is available 
fori TRS-80 Models I and III on» 

16K Cass - $14.95 

32K Disk - $19.95 



Order by Check, Money Order, MG or VISA 



PROGRAMS FOR THE 80' s 



317-849-2055 



P.O. Box 50160 
Indianapolis, Indiana 46250 

(IN residents add k-% sales tax) 



TRS-80 is a trademark of Tandy Corp. 




Creative Computer 



Department 80 

1236 E. Colonial Drive 

Orlando, Florida 32803 USA 



In Florida call 
305-894-0789 



; RIBBONS ; 

PRINTER | EZ | CARTRIDGES 

l RELOAD i NEW 



RADIO SHACK 
PRINTERS 

Daisy II Black ! 10 For 24.95 

Brown/Blue/Red | 6 For 24.95 

LP 1-2-4 ! 4 For 18.95 

LP 3 & 5 i 3 For 13.95 

LP 6 & 8 | 3 For 13.95 

EPSON /IBM 

MX-70/80/80F/T [ 3 For 16.95 
MX-100 J 3 For 18.95 

OKI DATA 

80-82-83-84 
CENTRONICS 

700/730/737/739/779 

ZIP PAK ! 4 For 18.95 



6 for 29.95 

N/A 



EPSON BRAND 

18.95 
29.95 

3 For 11.95 



RADIO SHACK 
MODEL I & III 



NEWDOS80 2.0 $139 

LDOS5.1 105 

Maxi-Manager 84 

Maxi-CRAS 89 

Electric Pencil II 79 

Superscript 44 

Business Pac 100 94 

Library 100 39 

Money Manager 36 

GAMES 

Adventure International 
Big Five 1-5% Off 

Avalon Hill 2-10% Off 

Med System 3-15% Off 

Acorn 5-20% Off 

Epyx and Others 



RADIO SHACK 
MODEL It" 



Racet Fastback $ 69 

Business Pac 100 144 

CREATIVE COMPUTER 

Asset Depreciation ..$350/25 
Account Payable .... 495/25 
Account Receivable . . 495/25 

General Ledger 495/25 

Inventory Control .... 495/25 
Order Entry/Invoicing . 395/25 

Job Costing 495/25 

Yahtzee 24.95 

Buy 3 and get 20% off 

CALL TOLL FREE 



Over 100 Items 

We'll Beat Any Price 

On CP/M Items 



HARDWARE 



PRINTERS 



Epson MX 100 

Epson MX 80FT 

Epson MX 80 

Okidata80 

Okidata 82A 

Okidata83A 

Okidata 84 Par 

Okidata 84 Serial 

C. ltohF10-40CPS . . . 
C. Itoh Prowriter Par . . 
C. Itoh Prowriter Serial 
Smith Corona TP 1 ... 

MODEMS 

Hayes Smart Modem . . . $245 
Hayes Clock-Cronograph 235 



Plastic File Box 50-5 V*" $19.00 



.$ 749 

579 

474 

349 

469 

719 

1049 

1149 

1399 

495 

649 

649 



Library Case 5 Vi" 
Library Case 8" . 
Head Clean Kit. . . 
Floppy Saver .... 
Floppy Saver Rings 
Green Screen I, II, II 
Mailing Labels 5000 



3.00 

4.00 

23.00 

11.95 

6.95 

12.00 

$16.00 



-(-Shipping 



-800-327-9294 



Write For Free Catalog 

Over 600 items in Diskettes, Paper, Lables. Ribbons, Checks, 
Storage Boxes. Furniture, Binders and Hardware. " -Mfg. 
Trademark. Florida plus 5% tax. 

FREE SHIPPING except hardware. 

Most orders out in 24 hours with VISA, M/C, Money Order, 
Cashier Check, Bank Wire and C.O.D. Personal check over 
$150 allow 10-14 days. Mail order only. Prices subject to 
change 9-8 Monday-Friday, 9-6 Saturday. ^ ,9, 



vSee List ol Advertisers on Page 563 
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Listing continued 

8030 GOSUB 10020:CLS:ON INSTR( "MS" , C$) GOTO 520,7020 

8040 IF C$="E" OR V2=0 THEN CLS:PRINT"*** END OF INDEX PROGRAM * 

**":END ELSE M=2:GOSUB 10120:CLS:GOTO 8020 

10000 '*********************************** 

10010 'SUBROUTINES 

10020 C$=INKEY$:IF C$="" THEN 10020 ELSE RETURN 

10100 '*********************************** 

10110 'FLASHING MESSAGES 

10120 F$(0)="*** INCORRECT ENTRY — " :F$ ( 1) ="ONLY 1 TO 8 PLEASE":F 

$(2)="ONLY LETTERS IN BRACKETS PLEASE" :F$ ( 3) ="NO INDEX FILE":F$( 

4)="ENTER 2 NUMBERS, NO DECIMALS" : F$ ( 5) =" INDEX SAVED TO DISK.":F 

$(6)="PLEASE TURN ON PRINTER" 

10130 F$(7)="THIS INDEX NUMBER ALREADY IN USE. REENTER. ": F$ ( 8) = 

"DISK NUMBER OR PROGRAM NOT IN INDEX" :F$ ( 9) ="DISK DELETED FROM I 

NDEX" 

10220 PRINT CHR$(2):FOR X=l TO 2 

10230 IF M<5 THEN PRINT@15 ,F$ ( 0) +F$ (M) +" ***"ELSE PRINT@15 . "** 

* "+F$(M)+" ***" 

10240 FOR Y=l TO 300:NEXT Y: PRINT@15 ,SPACE$(65) : FOR Y=l TO 300 

: NEXT: NEXT X 

10250 M=0:PRINT CHR$ (1) : RETURN 

10300 '********************************* 

10310 'DISK ID# 

10320 CLS:DN$="":PRINT:LINEINPUT"ENTER A 2 DIGIT DISK ID NUMBER: 

";DN$ 
10330 IF DN$="M" THEN 520 ELSE IF LEN(DN$)<>2 THEN 10350 
10340 FOR X=l TO 2:IF INSTR( "0123456789" ,MID$(DN$,X,1) ) =0 THEN 1 
0350 ELSE NEXT X: RETURN 
10350 M=4:GOSUB 10120:GOTO 10320 
10400 '******************************* 

10410 'READ DIRECTORY FROM DRIVE 1 TO RAM AND EXTRACT FILENAME 
10420 V1=0:U2(1)=53:U2(7)=256:U2(3)=-3267:DEFUSR2=VARPTR(U2(0)) : 
V1=USR2(0) 

10430 IF V3=0 THEN XX=1 

10440 FOR X=-3267 TO -3 STEP 34 :PN$ (XX) ="" 
10450 FOR Y=0 TO 13 

10460 IF Y=0 AND OCT? (X) =35 THEN RETURN 

10470 IF Y>0 AND OCT$(X+Y)=58 THEN PN$ (XX) =MID$ (PN$ (XX) , 2 , ( Y 
-1) ) :L=LEN(PN$(XX) ) -1:PN$ (XX) =PN$ (XX) +SPACE$(11-L) :DP$ (XX) =DZ$+P 
N$(XX) :GOTO 10490 

10480 PN$(XX) =PN$(XX)+CHR$(OCT$(X+Y) ) :NEXT Y 
10490 XX=XX+1:NEXT X:RETURN 
10500 '******************************** 
10510 'MACHINE LANGUAGE SHELL SORT 
10520 J(0) =VARPTR(DP$(1) ) : J (1) =XX-2:GOTO 10540 
10530 J(0)=VARPTR(PN$(1) ) :J(l)=U-2 

10540 DEFUSR5=VARPTR(U5(0) ) : V9=USR5 (VARPTR( J ( 0) ) ) : RETURN 
10700 '******************************** 

10710 'DELETE AND SORT MARKERS TO END 

10720 FOR X=l TO U-1:MID$(DP$(A(X)) , 1 , 2) ="ZZ" :NEXT 

10730 GOSUB 10520:XX=XX-U 

10740 XX=XX+1:M=9:CLS: GOSUB 10120:RETURN 

10800 ' ********************************** 

10810 'VERTICAL RASTER ROUTINE 

10820 Wl=tI-l)MOD4:W2=XXMOD4:W3=Wl:IF w2<Wl THEN W3=W2 
10830 J=W3+Wl*INT(XX/4)+INT( ( 1-1) /4) +1 :W4=Wl+l :RETURN 
10900 '***************************** 

10910 'DISK INPUT OF PRIOR INDEX 

10920 OPEN "I",1,"DSKINDEX":PRINT@658,"*** LOADING INDEX ***";:I 

NPUT #1,XX 

10930 FOR X=l TO XX:INPUT #1 ,DP$ (X) :NEXT:CLOSE: V3=l :CLS:RETURN 

11000 '************************************ 

11010 'ERROR ROUTINES 

11020 IF ERR=52 THEN CLS: PRINT"YOU MUST START AGAIN AND OPEN FIL 

ES.":PRINT"PRESS <ENTER> TO RETURN TO TRSDOS" : PRINT: PRINT S$(l): 

PRINT:PRINT S$ ( 3) ; : LINEINPUT C$:SYSTEM 

11030 IF ERR=53 THEN M=3:GOSUB 10120:CLS:RESUME 520 

11040 IF ERR=56 THEN CLS:M=6 :GOSUB 10120:RESUME 5320 

11100 '*********************************** 

11110 'DATA FOR PEEK 

11120 DATA -13023,8797,26623,17 441,8830,26625,-155 83,8955,26627, 

14910,1330,104,-12255,8773,107 57,17697,8779,10759,-15583,8959,23 

259,26 430,-8910,-13990 

11200 '*********************************** 

11210 'DATA FuR MACHINE LANGUAGE SORT 

11220 DATA 24013,-6844,-7715,20189,-8958,838,1048,-66 95,-15911,3 

3,-186 88,17133,-13360,-13512,-1507 9,-7719,-8743,62 2,26333,-186 85 

,17133,-9755,-9775,-13560,2183,20189,-8960,326,8645,1,-9755 

11230 DATA -6719,-11815,-6887,107 05,-8935,94,22237,6401,-107 99,6 

373,-7 924,2273,2293,-13327,10311,6321,6863,17999,9173,9054,-5290 

,-6703,9195,9054,-7 850,1284,156 8,3340,12064,4120,3340,3112,-16 87 



11240 DATA 156 8,4899,3333,-6120,7472,-107 91,-97 87,-7727,-4681,10 

322,5054,-9771,-97 91,6,782,-7727,-6903,253 9,6373,-7752,-10799,17 

65,6659,30542,4729,4899,-2288,-13560,2247,-12776 



ed to each program name. SPACES 
prints the indicated number of spaces. 
The symbols # (ASCII 35) and : 
(ASCII 58) are directory and file-name 
end indicators, respectively. 

• Lines 10520-10540 are the machine- 
language sort. USR5 is called to sort 
either the entries on one disk or the 
whole index. 

• Lines 10720-10740 change the disk 
number of all programs to be deleted 
to ZZ. Index is sorted by disk number, 
moving these programs to the end. The 
counter for number of programs is re- 
duced by U, the number of ZZ marked 
programs. This effectively deletes these 
programs. 

• Lines 10820-10830 contain the ver- 
tical raster algorithm. (See the Athana- 
siou article.) W4 is the column in which 
a program is printed. 

• Line 10930 sets flag V3 to indicate an 
index is in memory after loading. 

• In line 1 1020, error 52 means no file 
was open when Basic entered. Error 53 
means no previous index was on the 
disk. Error 56 means the printer output 
was selected but the printer wasn't on. 

• Lines 11220-11240 are a machine- 
language Shell sort from Basic Faster 
and Better by Lewis Rosenfelder, page 
134. It is a very fast sort that swaps 
pointers rather than strings. 

Hints on Using the Program 

If you use disk number 1 or solely 
for your index, all your programs other 
than the one directory program will be 
indexed when you have read your other 
disks with the program. Your directory 
will be handy for ready reference on 
your first disk. Otherwise, you will need 
to use your back-up disk to index your 
master disk and then copy the aug- 
mented DSKINDEX file from the back- 
up disk to the master. 

The slowest part of the program is the 
Basic conversion of directory entries for 
alphabetical search. You will locate 
your file quickest by using function 6 to 
find your program by name or disk 
number, or listing all programs by disk 
number with function 5. Use the alpha- 
betic listing only for a summary print- 
out of all your disks. 

The Model II default-length parame- 
ter for printout is 60 lines. Three lines 
are used for heading. You can print 228 
programs on an 11 -inch sheet. Using 
14-inch paper and setting FORMS 
p = 84 L = 80, you can get 308 programs 
on a single sheet. ■ 

Charles Perelman can be reached at 
9777 Whilshine Blvd., Suite 700, Bever- 
ly Hills, CA 90212 
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Radiojjhack^ 

EL 11/16 

USERS 



• • 



Do you feci "lost at sea?" Let us help you! two/sixteen, a new bi-monthly magazine, is designed to assist users 
of Radio Shack Models II and 16 get the most out of their microcomputers. These machines, with their high 
resolution screens, user-friendly keyboards, and relatively large disk capacity, are probably the best-designed, 
most cost-effective, and reliable micros built for serious use. But many users are frustrated; they can't get the 
unbiased information they need in order to use all the power of their machines. Now, two/sixteen fills that need. 
We cover software running under CP/M, UNIX and other operating systems as well as TRSDOS 2.0a, 2.0b, 4.0, 4.1, 
TRSDOS-II, and TRSDOS-16. We help you get the information you need in order to decide which software and 
peripherals are best for your particular applications. 

How do our subscribers feel about two/sixteen magazine? 



two/sixteen 

/magazine 




"You certainly touched a res/xmsire note ill me, a user floundering alone in the uilderness. " 

Richard Rothenbeig, MD, Albany, NY 

"A< a professional user of the Model II and HOW the Model 16, I hare long recognized the need 
for just such a publication. " 

Mitchell H. Weiss. Seminole, FL 

"The format of the magazine and the individual articles is excellent Don't change it just to 
get fancy. " 

William Strating. CPA, Holland. Ml 

"/ would like Hi thank you and congratulate you for your courage in starting a neir magazine 
for a potentially limited market. " 

Paul Naitoh. San Diego. CA 

"My congratulations on your first issue go along with my encouragement toyotl to continue " 
Rev. W. Courville. Breaux Bridge, LA 

tuw/sixteen is much more than just a magazine. We'll consult with any 

subscriber, any time, about 11/ 16 problems. If we can't help, we can probably 

refer you to a user or vendor who can. Even if you're stuck with a programming 

problem at 2 AM Sunday morning, we'll do our best to help you solve it. If 

you want to locate other users with similar applications or similar problems, 

we'll help you find them. We know of no other magazine (or even high-cost consulting firm ) offering this service 

to Model II and 16 users. But it's just pan of our subscription service, and there's no extra charge. 

We also offer this guarantee: if you don't think two/sixteen 's articles and services are worth the price after you 
read one issue, write us for a pro-rata refund of your remaining subscription. Our cancellation rate is under 1/2% 
(and some of those were from people who said they had "dumped" their Model II — the wrong solution to 
their frustrations). 

Our U.S. rates are still only $30 for one year's service, $50 for two years (third-class mail). By first class mail, U.S. 
and Canada only. $36 for one year, $60 for two years, U.S. funds. Rates for the rest of the world (via air 
mail) are $67, U.S. funds (Note: we are honored to have subscribers in more than twenty-five 
■n^^ countries). All subscriptions must be prepaid (we want to put your money into improv- 
ing service, not running an expensive billing system). We do accept VISA and 
Mastercard. Mail orders should be sent to two/sixteen, 131 East Orange 
"s. Street, Lancaster, PA 17602. Credit card orders may be placed by 

phone: (717) 397-3364, 24 hours per day. ^522 
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UTILITY 



Compress, Mod II Style 



by Charles Wood 



B 



asic programs written with spaces between 
words, and many comments, are easy to read but 
quickly eat up memory. Here's the solution. 



Recently I entered a long Basic pro- 
gram into my Model II with spaces be- 
tween words to clearly show the syntax. 



The listing was generous with com- 
ments, even describing how each 
variable was used. 



100 'CMPRS - Compress BASIC statements by Charles Wood 

112 'output file name has suffix '/cmp' 

130 CLEAR 1000:DEPSTR B-D:DEFINT E-Z 

150 CLS:PRINT"CMPRS - Compress BASIC statements" :PRINT: PRINT 

160 PRINT"Did you load -F: 2?": PRINT 

200 INPUT "Name of File ";DI 'Input file name 

210 D0=LEFT$(DI, 8)+"/cmp" 'Output file name has suffix '/cmp' 

220 ON ERROR GOTO 2010 'file not found/wrong mode 

300 OPEN "I",1,DI 'read only input 

305 ON ERROR GuTO 2030 'no space available 

310 OPEN "0",2,DO 'write only output 

315 ON ERROR GuTO 2000 

320 IC=0:OC=0 'Input/output chrctr counters 

400 LINE INPUT#1,BI 'read a statement to BI 

405 L=LEN(BI) :IC=IC+L 'Length of input statement augments IC 

407 QF=0 'quote flag 

408 CC= n " 

410 FOR 1=1 TO L 

420 G=ASc(MIDS(BI,I,l) ) 'ASCII of a character 

430 IF QF=0 AND G=39 THEN 690 'ends in remark 

440 IF QF=0 AND G=34 THEN QF=l:GOTO 480 'start quote 

450 IF QF=1 AND G=34 THEN QF=0 'end quote 

460 IF QF=1 THEN 480 'enclosed quotes unaltered 

470 IF G=32 OR G=9 THEN NEXT I 

480 CC=CC+MID$(BI,I,1) :NEXT I 

490 GOTO 700 

690 IF I<8 THEN 400 'delete the line ;option IF I<8 THEN I=L+1 

700 L=LEN(CC) :OC=OC+L 'Length of out statement augments OC 

750 PRINT CC:PRINT #2, CC 'sequential write one statement 

800 GOTO 400 'back for another 

2000 IF ERR=60 OR ERR=62 THEN RESUME 2020 

2005 PRINT n ERR #";ERR;" at ";ERL:STOP 

2010 IF ERR=53 OR ERR=54 OR ERR=63 THEN RESUME 2011 ELSE RESUME 
2005 

2011 CLOSE:PRINT "File not found or Bad file mode" : PRINT: GOTO 20 


2020 CLOSE: PRINT: PRINT: PRINT" End of File" :PRINT: PRINT 

2021 PRINT "l";IC;"] input characters in file ";DI 

2022 PRINT "[";OC;"] output characters" 

2023 PRINT:PRINT TAB(13) "Saved"; 100* (IC-OC) /IC; "% . " :PRINT:GOTO 
200 

2030 IF ERR=59 THEN RESUME 2031 ELSE 2010 

2031 CLOSE :PKlNT"Disk is f ull":PRINT:GOTO 200 

Program Listing 1 



But the inevitable happened. I finally 
developed the perfect program, but it 
couldn't process anything because there 
was no more work space. The fix was to 
extract a run-time program that loaded 
memory without spaces and comments. 
I needed a compress utility. Although 
Model III TRSDOS supplies one, 
Model II TRSDOS does not. 

Simply eliminating spaces can be 
dangerous. For example, compare these 
two statements: 

40 IFQ = BFOR A =13 THEN... 
50 IFQ = BFORA = 1 3THEN . . . 

Line 50 is a spaceless version of line 40. 
Line 50 is syntactically wrong. Basic 
searches a statement for keywords first, 
then for variables. Without spaces, the 
command Or becomes For and the vari- 
able BF is broken up. The perfect com- 
press program analyzes syntax as com- 
pletely as the Basic interpreter itself. 

But these combinational errors rarely 
appear. If one does occur, Basic usually 
flags an error. Also, programmers are 
sensitive to the listing of the program 
and can quickly eyeball a funny-looking 
statement. Since I check out my own 
software, I decided to write a short 
compress program and save money. 

My simple approach is to work with a 
Basic file saved in the ASCII mode 
(SAVE "filename", A). Here, the rec- 
ord length (LRL) is one and the number 
of records in the file is the number of 
bytes in the source program. Files of 
this kind make disk input/output (I/O) 
very easy by using the sequential 
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32K RAM 

Disk Basic 

TRSDOS 1.2 or 2.0, 1 disk drive 
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SPECTACULAR GAMES 



For TRS 80 

COLOR COMPUTER 




If not available at your local dealer ask why not and 

Call Toll Free 800-426-1830 



/f^ 



RAINBOW 

Excapt WA.,AK., HI., (8:00-4:00 MOn.-Frl.) «*™*m 
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130 CLEAR1000:DEFSTRB-D:DEFINTE-Z 

150 CLS: PRINT" CMPRS - Compress BASIC statements" : PRINT: PRINT 

160 PRINT"Did you load -F: 2?": PRINT 

200 INPUT n Name of File ";DI 

210 DO=LEFT$(DI, 8) +"/cmp" 

220 ONERRORGOTO2010 

300 0PEN"I",1,DI 

305 ONERRORGOTO2030 

310 0PEN"0 B ,2,D0 

315 ONERRORGOTO2000 

320 IC=0:OC=0 

400 LINEINPUT#1,BI 

405 L=LEN(BI) :IC=IC+L 

407 QF=0 

408 CC="" 

410 F0RI=1T0L 

420 G=ASC(MID$(BI,I,1) ) 

430 IFQF=0ANDG=39THEN690 

440 IFQF=0ANDG=34THENQF=1:GOTO480 

450 IFQF=1ANDG=34THENQF=0 

460 IFQF=1THEN480 

470 IFG=320RG=9THENNEXTI 

480 CC=CC+MID${BI,I,1) :NEXTI 

490 GOTO700 

690 IFK8THEN400 

700 L=LEN(CC) :OC=OC+L 

750 PRINTCC:PRINT#2,CC 

800 GOTO400 

2000 IFERR=60ORERR=62THENRESUME2020 

2005 PRINT"ERR #";ERR;" at ";ERL:STOP 

2010 IFERR=53ORERR=54ORERR=63THENRESUME2011ELSERESUME2005 

2011 CLOSE:PRINT"File not found or Bad file mode" : PRINT :GOTO201 

2020 CLOSE:PRINT:PRINT:PRINT"End of File" :PRINT:PRINT 

2021 PRINT" [";IC;"] input characters in file ";DI 

2022 PRINT" [";OC;"j output characters" 

2023 PRINT: PRINTTAB ( 13 ) "Saved" ; 100* ( IC-OC) /IC; " % . " : PRINT: GOT02I 

2030 IFERR=59THENRESUME2031ELSE2010 

2031 CLOSE:PRINT"Disk is f ull" : PRINT :GOT02 00 

Program Listing 2 



BUY AND SELL 

STOCKS WITH 

YOUR PERSONAL 

COMPUTER! 

TICKERSCREEN® 

The NEW computerized stock 
market bulletin board service 
FREE for users of personal com- 
puters. 5:00 P.M. to 9:00 A.M. 
weekdays, 24 hours weekends. 
300 baud. Call (212) 986-1660 

MaxUle& 

Company Inc. *" 364 
6 East 43rd Street, N.Y., 10017 

FREE BROCHURE (800) 223-6642 

NAME 



ADDRESS 
CITY 
STATE 



ZIP_ 
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Coordinated 
Business Software 

D.B. Software Co. announces a new 
line of coordinated business software 
designed for the Model III TRS-80. 
The BASE system consists of a Gen- 
eral Ledger System with Accounts 
Receivable and Accounts Payable. 
Other modules can be purchased 
and added as needed. 



BASE System (GL-AR-AP) $200.00 


Coordinated Modules: 




Payroll 


$ 75.00 


Order Entry 


$125.00 


Inventory 


$129.95 


Purchase Order Entry 


$125.00 


Inventory (special for 




Auto Parts Suppliers) 


$129.95 


Also available: 




Job Costing with GL and AP 


(Payroll optional) 


$500.00 


Mailing Lister 


$100.00 



Coming soon: 

Apartment Management System, 
Fixed Assets System, Manufacturing 
Inventory Management System 

Send S.A.S.E. for more information 
D.B. Software Co. 

1 1840 NE Brazee, Portland, OR 97220 

Phone (503) 255-7735 

DEALER INQUIRIES INVITED 

TRS-80 is a trademark of Tandy Corp. 

^410 



read/write statements LINE INPUT #1 
and PRINT #2, where #1 and #2 are 
buffer numbers. 

The fancy approach is to work with 
the non-ASCII saves that contain the 
numeric code for the command. By 
logical matching of op-codes and 
tables, the fancy approach can prevent 
troubles by leaving some spaces in. But 
the file structure is harder to work be- 
cause statements can bridge two records 
(LRL = 256); deblocking and reblock- 
ing becomes awkward. Further, I did 
not want to invest time for logical tables 
that have a marginal advantage. 

When compressed, the long Basic 
program of some 13,000 bytes was re- 
duced by 1 ,600 bytes, a saving of 12 per- 
cent. The listing of the long program re- 
mains well documented in an auxiliary 
file. Moreover, the compressed pro- 
gram ran the first time; there were no 
combination errors. 

As shown in the Program Listings, 
one statement is read at a time. Spaces 
between quotes are retained (line 460). 
Other spaces, tabs, and remarks are de- 
leted by making them ASCII nulls 
(statement 470). The string is then re- 
assembled at which time the nulls are 
discarded. The statement is then written 
back to the output file in line 750. Lines 
2000 onward trap errors such as end of 
file and wrong file type. 

Some programmers may want to 
make a change in line 690. If your Basic 
programs use "GOTO all-remark state- 
ments," you may want to preserve the 
all-remark statements: 

690 IF I<8 THEN I = L + 1 'retain the statement 

Program Listing 1 is the CMPRS 
utility in the fully documented form. 
Listing 2 is the same program, but com- 
pressed. The saving is 32 percent. After 
compressing a program, load Basic with 
the compressed version and then save it, 
this time in the regular non-ASCII for- 
mat. Check your listing for possible er- 
rors and then test. 

To run the program from TRSDOS, 
type BASIC CMPRS - F:2. Then, you 
can compress programs of your choice. 
To compress, the input program must 
be saved in the ASCII mode. 

Follow the prompting of CMPRS. 
The output will be "filename/cmp." 
You can then load the compressed file 
by Basic, obtain a listing, and test the 
program. ■ 



Charles Wood can be reached at 327 
Seventh Ave., Pelham, NY 10803. 



RIBBONS 

Low Price • FREE Shipping 

SATISFACTION GUARANTEED 

MX-80 Cartridge 



1-2 



price each in quantity of 
3-5 6-11 12-23 



24-47 



8.95 8.41 7.90 7.43 6.99 



RIBBON LOOPS 

new ribbon for your old cartridge 

top quality nylon • standard matrix ink 

price each in quantity of 
1-2 3-5 6-11 12-23 24-47 
3.95 3.63 3.34 3.08 2.83 
7.86 7.23 6.65 6.12 5.63 
2.92 2.69 2.47 2.27 2.09 
2.26 2.08 1.91 1.76 1.62 



MX-70/MX-80/MX-100 
MX-100 double length 
Decwriter LA34 
Radio Shack 26-1418 



New cartridges are available in black ink only. 
Loops are available in blue or black ink (same price). 
You may mix any combination for quantity price breaks. 
Ribbon loops include DO-IT-YOURSELF INSTRUCTIONS. 

VISA UAIA OTwl tlVlO MasterCard ^99 

(305) 788-2145 • Box 99 • Fern Park, FL 32730 



FREE 

business software 
directory 

• Radio Shack's Model I, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 



"IDM2 is GREAT !" 



-publisher of 80-US 



" (GL) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack ... MAIL.-X has a greater capacity ... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

" imperceptively fast. . .(DBMS) is a good and reliable 
workhorse" -publisher of Interface Age 



Data base manager, integrated accounting package 
(AR. AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



w& 



Micro Architect, Inc. 

96 Dothan St., Arlington, MA 02174 




TIRED OF NO DISK SOFTWARE? 



TRS-80 




TOLL FREE 
ORDERS ONLY 

800-426-1830 



Flexplus 

Compatible 

Software 

Sleuth Disassembler • A program which 
allows user to examine, modify and dis- 
assemble object program files on disk or in 
memory on 6809 systems. Will convert an 
object file in RAM to a text file on disk. 

Tabularasa (Electronic spread sheet) ■ These 
programs enable the user to generate and 
maintain tabular computation schemes, pro- 
viding a simple user interface and sophisti- 
cated report • generation 

Cross Assembler - A set of modules tor 
6800/1. 6805. 6802. 8080/5. and Z-80 
micro processors which will enable the user 
to convert a master assemblv module to 
assemble code for any of (he above micros 



FLEXPLUS DOS 



PASCAL 



FLEXPLUS is a powerful easy-to-use disk operating system Spectral Associates has adapted 
TSC s FLEX to the best DOS completely compatible with Radio Shack software for use on the 
Color Computer Eiim.nate the need for Radio Shack s TRS DOS use FLEXPLUS with 
Editor Assembler and have the options of a full range of utilities FLEXPLUS works on the 32K 
Radio Shack disk system with 64K memory chips with a High Resolution multi screen format that 
supports a 24 line bv 51 character display' Also included are special enhancements to Radio 
Shack s Disk system when vou are running FLEX with single or double sided single or double 
density 35 40 and 80 track drives 

Advantages of FLEXPLUS arc: 

• Best price anywhere 

• Easy start-up — just type "RUN FLEX+" 

• Allows you to save RS compatible disk files from FLEXPLUS 

• All FLEX compatible software will run including INTERRUPT 
DRIVEN SOFTWARE 

• NO HARDWARE MODIFICATIONS NEEDED 

• Warranty will not be voided — no need to open computer 

• Wide range of available software 

• Requires Supercharger board 

• 5149.95 for FLEXPLCIS, Editor/ Assembler and Supercharger 



EXCEPT WA. HI. AK 



SPECTRAL 
ASSOCIATES 

145 Harvard Ave. 

Tacoma, Washington 98466 

(206) 565-8483 

WRITE FOR COMPLETE 
CATALOG 

ADD 3% FOR SHIPPING MO COD 

VISA OR MASTERCHARGE ACCEPTED 



AVAILABLE ON DISK: 

• Editor Assembler 

• Super Monitor 

• Color Text Star Word 
Processor 

• Sound Source 

• Compuvoice 



Call or write us for price information 
and for a complete list of Flexplus 
Compatible Software 



SUPERCHARGER - Allow machine language access 
to all 64K RAM in a Series E PC board. 
No hardware mods. $39.95 

DISK BASED EDITOR/ASSEMBLER • MACROS. 
CONDITIONAL ASSEMBLY • will work with Super- 
charger. $49.95 



FANTASTIC BARGAIN 

FLEXPLUS, Editor/Assembler and Supercharger 
ALL FOR ONLY $ 149.95 

k- 119 



□ 



• See List of Advertisers on Page 563 
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UTILITY 



Take a Letter. . . 



by James Barbarello 



s 



pruce up your printer output with this Basic 
program for your Model II. It lets you draw 
large block letters using standard characters. 



A common feature of reports gener- 
ated by data processing facilities is 
large lettering on title pages. This let- 
tering is usually a 9 by 7 array of 
standard-size letters forming the large 
character. The large T is made up of 
standard size Ts, the large E is made up 
of standard size Es, and so on. 

Letters provides your Model II with 
this function. 

Letters gives you a number of capa- 
bilities. You can print any message in 
large format on any printer (no max- 
imum column restriction). In addition, 
you can change the letter's shape to 
your liking. You can also change the 



standard-size letters that form the 
characters. Letters can be incorporated 
into your own programs. 

The Strategy 

Forming readable characters by ar- 
ranging printed symbols in an array is 
far from unique. This is the way char- 
acters are formed on a video monitor 
or a dot-matrix printer. The monitor 
or printer receives a message indicating 
the character you want printed and 
looks for the instructions to form that 
character in ROM. We'll follow essen- 
tially the same strategy, but the ROM 
will be a disk file, and not an integrated 



Program Listing 



PROGRAM # P4 

NAME : LETTERS 

LATEST UPDATE: #0, 26 SEPT 1981 



1 REM** 

2 REM** 

3 REM** 

4 REM** 

5 REM** THIS PROGRAM DRAWS LARGE LETTERS ON SCREEN OR PRINTER 

6 REM** 

10 CLfcJAR 3000:CLS:Dt;FSTR A,D:DIM AM( 12 ,10) ,A(10) ,NU (12) :LN=0 : P=0 

:N=0 

20 ON ERROR GuTO 5500 

30 DLN=STRING$(79,150) :DR=CHR$(26) :DN=CHR$(25) : PRINT@(11 ,30) ,DR; 

" WAIT... ";DN; 

40 0PEN"D",1, "LETTERS/ ROM", 10:FIELD 1,10 AS AROM 

50 MSG$="LETTERWRITER":GOSUB 5000 

60 FOR J=l TO 10: FOR 1=1 TO 6 

70 PRINT@(J-l,12*(I-l)+5) ,AM(I,J) ; :PRINT@( J+10 ,12* (1-1) +5) ,AM(I+ 

6, J) 

80 NEXT I, J 

90 PRINT@(22,25) ,DR; " Press ENTER to continue... ";DN; 

100 A=INPUT$(1) :IF ASC(A)<> 13 THEN 100 

110 CLS:PRINT@(4,27) ,"L ETTER WRITE R":PRINTDLN 

120 PRINT@(8,25) ,DR; " 1 ";DN;" Write to PRINTER" 



130 PRINT@(10,25) ,DR;" 2 
140 PRINT@(12,25) ,DR;" 3 
150 PRINT@(14,25) ,DR;" 4 



DN;" Write To SCREEN" 
DN;" CHANGE Letters" 
DN;" END" 



Listing continues 



circuit. Using the LETTERS/ROM 
file makes the program required to do 
the printing relatively short. It also 
makes it simple to modify any of the 
instructions for printing the allowable 
characters. 

The LETTERS/ROM file contains 
instructions for printing ASCII 
characters 32 (space) through 90 (Z). 
This includes all numbers, uppercase 
letters, and punctuation marks. The 
first instruction is for a space (ASCII 
32), the second is for an exclamation 
mark (ASCII 33), and so on. Then it's 
simple to convert the characters to 
their ASCII equivalent numbers, sub- 
tract 31, and access that instruction 
directly. In its simplest form, the Basic 
program is about 10 lines. The Letters 
program is more complex. 

The Program 

Letters begins by opening the LET- 
TERS/ROM data file and printing the 
message "Letter Writer" on the screen 
in large characters (lines 50-80). This is 
a menu-driven program with four 
tasks. Tasks 1 and 2 (write message) 
are similar, task 1 writes to the printer 
and task 2 writes to the screen. Task 2 
is useful if you want to see how a mes- 
sage looks before you print it. Task 3 
lets you change the form of the charac- 
ter as well as from which ASCII char- 
acters it is formed. Task 4 (end) closes 
open files automatically. It is good pro- 
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64K RAM 
Disk Basic 
TRSDOS 2.0A 
One Disk Drive 
Printer 
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gramming practice to include an end 
task in all programs that use disk files. 

Task 1 asks for the maximum num- 
ber of columns on your printer. It then 
calculates the maximum letters that 
can be printed on each line (MSGSIZE 
in line 1040). This information flashes 
on the screen and a Forms set is per- 
formed to reset the computer's line 
counter. Now you're asked to enter the 
message. If the message is greater than 
the allowable maximum, it is erased 
from the screen and nothing prints. 
When you enter a printable message, 
the screen shows a wait prompt while 
the subroutine at line 5000 constructs 
the instructions for the printer. 

If the printer isn't available, the 
message "Printer is not available" dis- 
plays and you are asked if you want to 
continue or return to the menu. If the 
printer is available, the message prints 
on the line printer. Upon completion, 
you are asked again if you want to con- 
tinue or return. You can continue 
printing your message one line at a 
time until finished, and then return to 
the menu. 

Task 2 is similar to task 1, except 
that the message is printed on the 
screen. Because there are only 80 
screen columns, the message length is 
fixed at six characters. If you enter a 
message greater than six characters, 
only the first six are displayed on the 
screen. As with task 1, you can con- 
tinue printing messages on the screen 
until you select R (return to menu). 

Task 3 allows you to change any 
character's form in the LETTERS/ 
ROM file. Each character is formed by 
a 10 by 10 grid of locations. Each loca- 
tion can contain a blank or any print- 
able character. Large characters are 
formed by arranging printable char- 
acters in a recognizable pattern. When 
you select task 3, the message in lines 
3010-3030 flashes on the screen. 
You're then asked to press the key of 
the character you want to change the 
form of. 

The LETTERS/ROM file is then ac- 
cessed and the selected character dis- 
plays on the screen in a 10 by 10 grid. 
All blank positions contain a dot (peri- 
od). Then the message in lines 3120 and 
3130 displays to show how to perform 
modifications. If you press the space 
bar to blank out a position, a dot ap- 
pears there. 

As indicated in the instructions, the 
arrow keys move the cursor. Cursor 
movement is transparent and doesn't 
disturb the display. When you're 
finished, press Fl to end the modifica- 
tion procedure. At this point, you have 



Listing continued 

160 PRINT@ (22,20) /'Press the ";DR;" NUMBER ";DN;" of the Task De 
sired. . . " ; 

170 A=INPUT$(1) :IF VAL(A)<1 OR VAL(A) >4 THEN 170ELSE TSK=VAL(A) 
180 ON TSK GOSUB 1000,2000 ,3000, 4000:GOTO 110 
1000 REM** PROGRAM BEGINS 

1010 CLS:PkINTTAB(30);"TASK # 1: WRITE TO PRINTER" : PRINTDLN:GOSU 
B 5120 

1020 PRINT@(22,0) ,CHR$(24) :PRINT@(3, 10) , "Enter MAXIMUM Number of 

Columns Available on Printer (EX: 80) . . . " ; 
1030 LINE INPUT A:NU=VAL(A) : IF NU<12 OR NU>132 THEN 1020 
1040 MSGSIZE=INT(NU/12) :TB= (NU-MSGSIZE*12)/2 

1050 PRINTg (5, 10) /MAXIMUM PRINTER COLUMNS: " ;DR; NU;DN;TAB( 45) ; "M 
AXlMUM LETTERS PER LINE: " ;DR;MSGSIZE:GOSUB 5120 :PRINTS( 10 ,0) , ; : S 
YSTEM"FORMS L=66 ,W=132" : PRINTS ( 10 , 0) ,CHR$ ( 24) 

1060 PRINTS(22,0) ,CHR$(24) :PRINT@(10, 20) , "Enter MESSAGE (";MSGSI 
ZE; "characters MAX) . . .";CHR$(23) ; 
1070 LINE INPUT A:IF LEN(A) >MSGSIZE THEN 1060 
1080 PRINTS(22,35) ,DR; " WAIT... " ;DN; :MSG$=A:GOSUB 5000 
1090 PRINT@(15,0) ,CHR$(24):PRINT@(22,35) ,DR; " WAIT... ";DN;:LPRI 
NT ChR${1):REM* DUMMY LPRINT TO CHECK STATUS OF PRINTER * 
1100 FOR J=l TO 10:FOR 1=1 TO LEN (MSG$) : LPRINT TAB (TB) ; AM( I , J) ; " 

";:NEXT I :LPRINT:NEXT J: LPRINT: LPRINT 
1110 PRINTS(22,0) ,CHR$(23) ;: GOSUB 5120:GOTO 1060 
2000 CLS:PRINTTAB(30) ; "TASK # 2: WRITE TO SCREEN" : PRINTDLN: GOSUB 

5120 

2010 PRINTS(2,0) ,CHR$(24):PRINTS(4, 20) /'Enter Message (6 Charact 

ers MAXIMUM) . ..";:LINE INPUT MSG$:IF LEN(MSGS)>6 THEN MSG$=LEFT$ 

(MSG$,6) 

2020 GOSUB 5000:PRINT@(6,0) ,; 

2030 FOR J=l TO 10:FOR 1=1 TO LEN(MSG$) : PRINTTAB(5) ;AM(I , J) ;" " 

;:NEXT I: PRINT: NEXT J 

2040 GOSUB 5120.-GOTO 2010 

3000 CLS:PKINTTAB(25) ; "TASK # 3: CHANGE LETTERS" : PRINTDLN 

3010 PRINTS (3 ,0) ," This task allows you to change the form o 

f the letters to be printed. The 

3020 PRINT"change is permanently stored in the LETTERS/ROM Disk 
File, which contains the" 

?2?2 P RINT " form °£ all the printable letters. " :GOSUB 5120 

3040 GOSUB 5200:PRINT@(3,0), "Press the LETTER you wish to change 

Is^^^asag^giS'pSg 2 *™ 1 " 3050else if nu>96 then 

3060 NU=NU-31:NU=NU*10-9:IF NU>LOF(l) THEN 3060 

3070 FOR J=NU TO NU+9:GET 1,J 

3080 AM(l,J-NU+l)=AROM:NEXT J 

WA 2 ^ JO 19:PRINTS(I,35),AM(1,I-9):NEXT 

RIN?S(i?9^3™^r ^ T ° 10:IF ™*^'V>J>V=" " THEN P 
3110 NEXT J, I 

r^LaT^L 2 ^l;lro r th Do W A nT^ keys t0 position the — ^ 

anges have been completed. .^IraKreuS'ssf . '* " ALL Ch 

3140 GOSUB 5300:PRINT@(21,0),CHR$(24) PRINTS^l zn "-. 
^newjorm, press ";DR;' ( ' c'-JfiS? "f^e^ise^ press' "?DR^1 $JJj 

NEw'fS!.^ SAVING 

3160 FOR J=Nu'to'nu+9:LSET AROM=AM (1 , J-NU+1) :PUT 1,J:NEXT J 

3170 PRINT@(22,20)/New Form Saved. Press ANY key to Return to M 

enu...";:A=INPUT$(l) : RETURN 

4000 CLS: PRINTS (0,33) /'TASK # 4: END" rPRINTDLN 

4010 GOSUB 5100 

4020 GOSUB 5200:PRINTS(10,35) ,DR; " WAIT... "-DN- 

4030 CLOSE:PRINTS(10,35) ,DR; " PROGRAM ENDED. ' ";DN:PRINTS ( 18, 0) • 

: CLEAR 50: END ' 

5000 REM** ACCESS LETTERS/ROM FILE SUBROUTINE 

THEN ^(IHNua)-™^ 30 ^^^ 15 ^ 80 ^ 10 ^" 305 ' 1 ' 1 ^ 2 ^ m ^> 96 

5020 NU(I)=NU(I)-31:NEXT 

5030 FOR X=l TO LEN(MSG$):NU=NU(X)*10-9:IF NU>LOF(l) THEN NU=1 

5040 FOR J=NU TO NU+9:GET 1,J 

5050 AM (X, J-NU+1 )=AROM: NEXT J 

5060 NEXT X: RETURN 

5070 FOR J=l TO 10:FOR 1=1 TO LEN(MSG$) :PRINTAM(I , J) ; " ";:NEXT 

I: PRINT: NEXT J ' 

5080 IF TTL=1 THEN PRINT: PRINT: PRINT 

5100 REM** CONTINUE/RETURN QUERY (CLEAR TO END OF SCREEN) 

5110 PRINTS(2,0),CHR$(24) 

5120 PRINTS(22,30),DR;" C " ;DN; "ontinue or ";DR;" R " ;DN; "eturn. 

5130 A=INPUT$(1) :NX=ASC(A) :IF NX>96 THEN NX=NX-32: A=CHR$(NX) 
5140 IF A="R" THEN IF ERR=0 THEN 110ELSE RESUME 110ELSE IF AO"C 

Listing continues 
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Listing continued 

" THEN 5130 

5150 PRINT A;:RETURN 

5200 REM** CLEAR SCREEN BELOW TITLE 

5210 PRINT@(2,0) ,CHR$(24) :RETURN 

5300 REM** CHANGE LETTER UTILITY 

5310 LN=10:P=35 

5320 A=INPUT$(1) :N=ASC(A) :IF N=l THEN RETURN ELSE IF N<28 THEN 5 

320 

5330 IF N<28 THEN 5320ELSE IF N<32 THEN 5370 

53 40 MID$(AM(l,LN-9) ,P-34 ,1) =CHR$ (N) : PRINT@ (LN,P) ,CHR$(N) ; : IF N= 

32 THEN PRINT@(LN,P) ,"."; 

5350 P=P+1:IF P>44 THEN P=3 5: LN=LN+1: IF LN>19 THEN LN=19 

5360 GOTO 5410 

IF N=28 THEN P=P-1:IF P<35 THEN P=35 

IF N=2y THEN P=P+1:IF P>44 THEN P=35:LN=LN+1 : IF LN>19 THEN 



537C 

538f 

LN=19 

53 90 IF N=30 THEN LN=LN-1:IF LN<10 THEN LN=10 

5400 IF N=31 THEN LN=LN+1:IF LN>19 THEN LN=19 

5410 PRINT @ (LN,P) ,;:GOTO 5320 

5500 REM** ERROR TRAPPING ROUTINE 

5510 IF ERR=56 THEN PRINTS (15 ,0) ,CHR${ 24) :PRINT@ (15 ,28) ,DR; " PRI 

NTER IS NOT AVAILABLE. .." ;DN:GOSUB 5120:RESUME 1090 

5520 RESUME 110 



the option of saving the modified 
form; C saves the modified form. If 
you press R, the LETTERS/ROM file 
stays the same. 

Task 4 ends the program by closing 
the LETTERS/ROM disk file. 

The access LETTERS/ROM file 
subroutine at line 5000 is the work- 
horse of the program. You can include 
this subroutine in any of your pro- 
grams. Lines 5010 and 5020 convert 
any lowercase characters in the 
message to uppercase. Lines 5030- 
5060 put the character information in 
an array the length of the message by 
10 deep. Line 5030 begins incrementing 
through the message. 

Records 1-10 in the LETTERS/ 
ROM file contain the instructions for a 
space (ASCII 32). Records 11-20 con- 
tain the instructions for an exclama- 
tion point (ASCII 33), and so on. Line 
5030 determines where the information 
for the nth character in the message be- 
gins, and assigns that number to NU. 
If the character in the message isn't in 
the LETTERS/ROM file, then NU 
equals one (and prints a space). Line 
5040 gets the instruction for each of the 
10 rows, and line 5050 puts that infor- 
mation in the AM array. Once the AM 
array contains the information for the 
complete message, program execution 
returns to the calling line. One pro- 
gram line (in this case, line 1 100) prints 
the complete message. 

The remaining subroutines of the, 
program (lines 5070-5520) are program 
utilities used in the different tasks. 

To create the LETTERS/ROM disk 
file, run the following short program: 

10 CLEAR 100 

20 OPENED", 1, "LETTERS/ROM", 10: 

FIELD 1,10 AS AS 

30 LSET AS = SPACES(IO) 

40 FOR I = 1 TO 590:PUT 1,I:NEXT I: 

CLOSE 



J88 i 



..8888888. 888. ..888 



Figure I 



This one-time program creates a blank 
file. Now you can use task 3 in the Let- 
ters program to form the 58 large char- 
acters (ASCII 33 through ASCII 90). 
ASCII 32 (space) was formed when the 
blank file was created. You can form 
each large character exactly as shown in 
Fig. 1, or modify the Fig. 1 ROM set to 
your own desires. As you build your 
ROM file, you can periodically check its 
contents using task 2 (write to screen). ■ 



Jim Barbarello lives at RD #1 Box 
241H, Tennent Road, Englishtown, NJ 
07726. He enjoys woodworking, music, 
and computing. 
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P A N I K 

(BY WILLIAM DEMAS) 

• MACHINE LANGUAGE • ARCADE STYLE GAME 

• JOY STICK COMPATIBLE • SOUND 

• SUPER ENHANCED DISK VERSION* 1 HIGH SCORE SAVE 

• HIGH RESOLUTION GRAPHICS 

All Sound effe cts including voice are output through cassette aux plug. 

The arcade game of the century. It has a little of all arcade games built in but it is its 
own original game. If you like arcade games with a lot of action and excitement, this 
one is a must. 

• See List ol Advertisers on Page 563 



(SEE YOUR LOCAL DEALER) ^36 

• • OR ORDER FROM • • 

FANTASTIC SOFTWARE 

P.O. Box 27734 

Las Vegas, Nevada 89126 

(702) 362-1457 

MASTER CHARGE VISA 

PRICE**** 16K TAPE ($19.95) 
32K DISK ($24.95) 

MODEL I & III 

TAPE VERSION WILL NOT TRANSFER TO DISK 
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TRUNKS FOR THE 




Introducing the most logical place to store 
Elephant Memory Systems® (or lesser brands 
of disks): The Trunk 

With its alphabetized library index, you can 
file or retrieve up to 60 disks, instantly. 

The Trunk is made of durable molded 
plastic with a hinged, one-piece lid, to keep 
disks safe from dust, dirt, and other detriments 
which disks despise. 



And, it's portable. Because the lid doubles 
as a carrying handle so your Elephant Memory 
Systems® aisks can go anywhere you do. 

There's a model for 5V4" and 8" floppies, as 
well as a cassette -and-game file and a special 
Atari® version. 

So if you're looking for the best disk storage 
system on the market . . . 

The Trunk is an open-and-shut case. 



THE TRUNK. ENDORSED DY ELEPHANTS. 

Elephant Memory Systems® Disks 

A full line of top-quality floppies, in virtually every 5'U" and 8" model, for compatibility with virtually every computer on the market. 

Guaranteed to meet or exceed every industry standard, certified 100% error-free and problem-free, and to maintain its quality for at least 

12 million passes (or over a life-time of heavy -duty use). 

Marketed exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton. Massachusetts 02021. 
Call: toll-free 1-800-343-6833; or in Massachusetts call collect (6171 828-8150. Telex 951-624. 
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READER SERVICE 

Please help us to bring you a better magazine— 
by answering these questions. 

This card valid until January 31, 1983 

A. What type olTRS-80 do you own' 

1 Mooei • Level I 4 Model ■ t ■ Level l 6 Coici 

2 Model i Level li 5 Model in U 7 Pocket 

3 Modem 

8. On a scale ol I (little interest) to 5 (great interest), ploar.e rate your interest mthetoiiow- 
' l ' 
l. Product raw ••• interviews with industry leaders 

2 Programming tutorials 5 Industry news 

.'i Construction protects 6 Graphics tutorials 

C. Do you ever do any consulting towards business purchases of computers'' 

2 No 

D. I! you tiavi- .-. .ides your TRS-80. what kind is l|? 

t PMC'LNW 4 Atari 7. Heath 

2 Apple 5 Smclair/Timex 8 Other 

6 CommodorefPET 

E Where did you buy your TRS-8C 

1 Radio Sha.' 3 Mailorder 

2 Other computer store •'■ Olhei 

F How much did you save from list price when purchasing your system'' 
t Nolhmq 3 S3O0-5600 5 Over $900 

2 Under $300 4 S6O0-S900 

G Which ol the following do you rate as most important in choosmg a vendor' 

1 Technical expertise 3. Prices 5 Othc 

2 Service capaOiiily 4 Location 

n ol the following machines do you read regularly'' 



6 80 US 

7 Byte 

8 Popular Computing 

9 Othc 



1 Microcom; 

2 Desktop Computing 

3 Creative Computing 

4 InloWorld 

5 Personal Compline 

I What is your annual household income 9 

• Under S20.000 3 S40.000-S5C.000 5 S80.000-S 100,000 

2 S20.000-S40.000 4. S60.000-S80.000 6 Over $100,000 

J What ads in 80 Mi;ro do you lind most interesting'' 

1 Almost an ads 4 Ads lor products of sped 

2 About half the ads 5. Don't look at ads 

3 Mostly lull page ads 

K. What magannes ar- :o you than 60 Micro' 

L. On a scale of i (no interest) to 5 (great interest), pioase rate your interest m tne follow- 



ing regular columns 

1 80 A 

! ■.' ney oos 

3 Soft Bits 

4 News 

5. Feedbaa 

6. Beneath the Keyboard 



_ 7 80 Applications 

8 Copornica 

9 Medical Opinion 

10 Exclusive ORacie 

11 Fun H V( . 

fable Software 



Reader Service: To receive more information from any of the advertisers in this issue ot 80 Microcomputing. 
cucle the number on the postage-paid Reader Service Card that corresponds with the Reader Service 
number on ihe ad m which you are interested You will find numbers, preceded by a *■ , near the logo ol each 
advertiser Complete the eniire card, drop into a mailbox and in 46 weeks you will hear Irom the advertiser 



directly 
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BOOKS 



80 Microcomputing 
Peterborough NH 03458 



Please send me the following 80 
Microcomputing products: 



Qty. 


Catalog » 


Title 


Unit Price 


Total 









































































Shipping and handling charges: 

S 1 .50 1 st book. S 1 .00 each additional book 

(UPS, use street address) 

S 10.00 each book overseas airmail 



Shipping/handling 
Total 



Enclosed $_ 
Bill: □ AE 
Card # 



D MC 



D Check 
DVISA 



□ !A.O. 



Exp date. 



Interbank # 



SUBSCRIPTION 



BOmicro 



subscribers save $10 

off the 

newsstand price. 



□ New subscription 
D 1 year— $24.97 

Enclosed S 

Bill: □ MC Q Visa 



D Renewal 

_ D Check Q M.O. 

D AE a me 



Signature 
Name 



Address 
City 



State 



Zip 



CO 

71 

< 



Card# 

Signature 

Name 

Address _ 
City 



Exp. date. 



Interbank # 



State 



Zip. 



Pl€as< allow 4—6 weeks lor delivery 



fio C.O.D. orders accepted. 



Canada— S27. 97. I year only, US lunds. 
Foreign Surface— S44. 97 I year only. US lunds. 
Foreign Air — Please inquire. 
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RS Number 



AM Electronics 

ABC Data Products 

ABCSales 

A Siring Systems 

Aardvark-80 

Access Unlimited 

Ace Compute Products ol FL 

Adcock S Johnson 

Adventure International 

Adventure International 

Alamo Computer Co 

Alcor Systems 

Algonx Software 

All Systems Go 

Alpha Byte Stores 

Alternate Source. The 

American Small Business Computers 
American Small Business Computers 
American Small Business Computers 
American Small Business Computers 
American Small Business Computers 

Amtlex Products 8 Services 

Anitek 

Ann Arbor Precision 

Apparat Inc 

ARCsoft Publishers 

Ashland Computer Systems 

Aspen Software/Random House .... 
Avalon Hill Game Company. The .... 

BCCOMPCO 

Baudy House Compute' Products . . . 

Better Software Associates 

Big Five Software 

Binary Devices 

Blackjack Clinic 

Bodex 

Business Division 

CLS Associates 

CMA/Mico Computer Division 

CMD Micro 

CPU Shop. The 

CSS Electronics Ltd 

Charles Mann S Associates 

Check-Male 

Cheever Microware 

Cload Magazine Inc 

Cload Magazine Inc 

Cognitec 

Communications Systems Lab 

CompuAdd Corporation 

CompuCover 

CompuServe 

CompuServe 

CompuSoft Publishing 

Compute' Applications Unlimited 

Computer Book Club. The 

Computer Case Company 

Computer Place, The 

Computer Plus 

Computer Shack 

Compute' Shack 

Computet Shack 

Computer Shopper 

Compulerware 

Computex 

ComSott 

Conex Electro System Inc 

Control Craft Inc 

Coosol Inc 

Comsoft Group. The 

Cornsoft Group. The 

Comsoft Group. The 

Cornsoft Group. The . . 
Cornucopia Software 
Cosmopolitan Electrc 

Cottage Software 

Creative Computer 

Custom Oata 

D B. Software Co 

DA SO Sales Inc 

DLP Company 

DSC Publishing 

Datacom Computer Sales S Suppl 

Datatite Systems 

Data Mail 

Data Management Systems 

Data Resources 

Data Services Inc.. . 

Data Systems 

Dayton Microsupport 

Digiforensics 

DISKovery Unlimited 

Diskcount Data 

Disk Ditectoiy Catalog Syslem .. 

Diskette Junction 

Displayed Video 

Documan Software 
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77 
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99 
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487 

127 

477 
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.36 

.133 
.319 



.402.551 

277 
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287 
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RS Number Page 

167 Downeast Digital 537,565 

216 EAPCompany 64 

271 EBG & Associates 112 

401 E & G Umlor Enterprises 344 

154 Eigon Systems 30 

' Eighty-Micro 419 

• Eighty-Micro Anniversary Issue 195 

• Eighty-Micro Books 403-405 

" Eighly-Mic'OChrislmas 419 

• Eighty-Micro Subscription 227 

318 Electronic Protection Devices 41 

159 Electronic Specialists 574 

283 Endicott Software 441 

177 Equine Management Innovations 53 

93 Exation 91 

■ Exceilonix 383 

36 Fantastic Software 561 

214 Fort Worth Computers 323 

262 Frank Hogg Laboratory Inc 409 

442 Freedom Financial Enterprises of WA Inc 127 

360 Freedom Micro-Systems Inc 248 

240 Fieedom Technology Infi 233 

9 H&EComputronics. Inc 66,67,69 

409 H.F. Signalling Inc. . . '. 432 

47 Heath/Zenith Company 89 

355 Holman D.P. Services 444 

153 Holmes Engineering Inc 273 

421 Hon F + I Computers 540 

373 Horizon Software 10. 368 

175 Howe Software 411 

185 Hurricane Laboratories 535 

66 ICR Futuresoft 39 

• IJG 84.235 

274 illustrated Memory Banks 48 

• inCider Subscription 226 

• Instant Software Inc 359. 449-468 

351 Institute fof Scientific Analysis. Inc 314 

357 Integrated Devices Inc 71 

336 Intracolor Communications 174 

273 J FConsulting 49 

126 JMG Software International 198 

101 JSM Systems 242 

42 JPC Products Company 570 

534 Jameco Electronics 142. 143 

254 Jimscot Inc 230 

256, Joe Computer 80 

485 Kalglo Electronics Company Inc 303,584 

51 Krell Software Corp 204 

358 Kwik Software 370 

30 LNW Hcsearch Corp CIV 

31 LNW Research Corp 9 

32 I.NW Research Corp 94 

33 LNW Research Corp 181 

462 LSI Systems 113 

191 Lawyer's Microcomputer. The 23 

"172 Leading Edge Products Inc 562 

402 Learning Tools Inc 138 

155 LEDS Publishing Company Inc 481 

358 Lemons Tech Services 370 

131 Libra Laboratories Inc 417 

135 Lindbergh Systems 21 

• Load-80 258,355 

115 Lynn Computing 263 

90 MWB Industries Inc 210 

457 Management Systems Software 314 

259 Manhattan Software Inc 174 

92 Maple Leaf Systems 565, 581 

241 Mark Data Products 199 

146 Master Electronics Inc 447 

469 Maximum 364 

364 Max UleS Company Inc 556 

98 Medical DataServices 239.471 

83 Med Systems Software 106, 107. 433 

250 Melbourne House Software Inc 121 

461 Memory Merchant 365 

524 Menlo Systems 197 

507 Meridian 528 

13 MetaTechnologiesCorp 11. 13 

149 Micro Architect Inc 557 

' Microcomputing Subscription 261 

459 Micro Data Supplies 75 

463 Micro Design 52. 549 

132 Mico-80 411 

161 Micio-GnpLId 31 

419 Microhalch 277 

157 Micro Images 159 

464 Micro Labs 377 

465 Micro Labs 377 

60 Micro Mainframe 445 

342 Micromatic Programming Corp 135 

117 Micro Mint 475 

270 Micro Moonlighter Newsletter 260 

312 Microsette 166 

364 Micro Systems Software Inc CM, 331, 532 

416 MicroTraOers 147 

125 MicoWorks 591 

72 Mikee Electronics Corp 412 



RS Number 



Page 



137 Miller Microcomputer Service 100 

123 Misosys 297 

505 Nat Hellman III Inc 383 

255 New Classics Software 137 

525 Ocean Computer Products 282. 548 

50 Omikron 81 

206 Options-80 77 

151 Orion Instruments 289 

242 PMC Software 167 

207 Pacific Exchanges 262,344.565.581 

• Percom Data Company 3 

1 Percom Data Company 58,59 

2 Percom Data Company 58,59 

3 Percom Data Company 58. 59 

124 Perry OilS Gas Inc 415 

290 PicklesSTrout 239.283 

160 Pioneer Software 481 

544 Platinum Software 413 

/3 Plus Computer Technology 406 

61 Powersoft 153. 331 

315 Powersoft 151 

378 Powersoft 155 

11 Practical Peripherals Clll 

532 Precision People, inc 257 

418 Programs for the 80's 551 

143 Progressive Electronics 536 

91 Prosoft 25,117,369 

34 Quality Softwares Consulting Inc 246 

41 Race! Computes Ltd 237 

468 Racet Computes Ltd 237 

140 RadioRanchlnc 48 

269 Radix Technologies 277 

264 Rainbow PS PCorp 30 

460 Rainbow Software Services Ltd 131.247 

296 Rainbow. The 430 

130 Rands 126 

345 Real Software 276 

• Realty Software Company 77 

145 REMarkable Software 536 

129 REMsoft Inc 102 

276 

589 

567 

262 

432 

443 

132 



343 Rogo Computer Products 

266 STSC Inc 

142 Sales Data Inc 

203 Scientific Engineering Lab 

510 Scott Tasso 

372 Semi Disk Systems 

4/4 Seneca Electronics 

528 Serious Personal Computer 540 

16 Shannon Magnetics 214 

446 Shale Diversified Enterprises 215.545 

301 Simsimlnc 202.282 

12 Simutek 295 

163 Simutek 383.385.387 

164 Simutek 547 

458 Single Source Solution 545 

279 Skyline Software 189,479 

379 Softcore Software Company, The 63 

399 Soft Images/Decision Systems 51 

527 Softouch 90 



84 Soft Sector Marketing 

85 Soft Sector Marketing 

86 Soft Sector Marketing 

87 Soft Sector Marketing 

88 Soft Sector Marketing 

89 Soft Sector Marketing 
43 Software Concepts .. 



201 

203 

205 

207 

209 

211 

375 

127 Software Efficiency 432 

538 SoftwareGuild 173 

53/ Software Options 215 

470 Software Options 431 

327 Software Support . . •. 115 

1 19 Spectial Associates 555, 55/ 

205 Starbuck Data Company 277 

4 Star Miconics 175 

396 Starware 262 

71 Sublogic Communications Corp 267 

285 Sun Research Inc 575 

210 Superior Software 574 

1 74 Syracuse R S D Center 77 

389 T.C.E Programs 202 

449 TSASA Inc 221 

189 Tab Sales 256 

440 Tech Data Corp 182.277,314 

504 Telexpress Inc 399 

59 Texas Computer Systems 585 

44 Transaction Storage Systems 55 

522 Two/Sixteen Magazine 553 

332 United Software Associates 566 

509 Usage Software Group 57 

169 Van Horn Office Supply 447 

• WayneGreenlnc 481,531 

• Wayne Green Books 162, 163, 259 

179 Western Operations 254 

356 Williams Enterprises 134 

192 Wilson Software Division 58 

158 XY2T Computer Dimensions Inc 132 

156 York lOComputerware 447 
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BUSINESS 



nvestment Advisor 



by Charles Perelman 



When you need to analyze or arrange 
a financial transaction, IRR (Internal 
Rate of Return) will help you compare 
alternative opportunities and financing 
terms. IRR is the net interest rate you 
will receive on your invested dollars 
during the investment period. 

Banks and other financial institutions 
have used IRR to determine yields, gen- 
erally without considering tax effects. 
IRR computes the yield to maturity on 



Determine the profit 
margin of an invest- 
ment by computing its in- 
ternal rate of return. 







SHOPPING CENTER 




Purchase 


Cash 


Net Cash 


Tax Gain Tax 


Net Cash 


Year Installments 


Flow 


Required 


Or Loss Benefit 


Flow 








50% rate 




11700 




11700 




(11700) 


1 17200 


175 


17025 


(29991) 14996 


(2029) 


2 16575 


250 


16325 


(43021) 21511 


5186 


3 15600 


250 


15350 


(41453) 20727 


5377 


4 14975 


250 


14725 


(39059) 19530 


4805 


5 13700 


375 


13325 


(37491) 18746 


5421 


6 


375 


(375) 


(34290) 17145 


17520 


Sale 


89750 


(89750) 


225305 (45061) 
20% capital gain rate 


44689 


Internal Rate of Return = 44.38% 












Figure 1 









CORPORATE JET 






Purchase 


Cash 


Net Cash 


Tax Gain 


Tax 


Net Cash 


Year Installments 


Flow 


Required 


Or Loss 


Benefit 


Flow 










55% rate 




9150 




9150 






(9150) 


1 30230 


59 


30171 


(27476) 


15112 


(15059) 


2 23500 


55 


23445 


(64833) 


35658 


12213 


3 20290 


55 


20235 


(44026) 


24214 


3979 


4 19120 


55 


19065 


(38437) 


21140 


2075 


5 


55 


(55) 


(35578) 


19568 


19623 


6 


55 


(55) 


(13346) 


7340 


7395 


Sale 


80150 


(80150) 


80150 


(44083) 


36067 








55% ordinary income rate 




Internal Rate of Return = 35.35% 














Figure 2 







bonds or mortgages purchased at either 
a premium or discount rate. Allowances 
for income taxes must be made before 
determining the net cash flow for IRR. 
Although IRR is primarily applicable 
to real -estate transactions, it can be used 
to evaluate any type of investment. 
Most tax shelters either require that you 
make a certain number of payments in- 
to them, or they pay out several years 
after the initial investment (often in in- 
stallments), or both. Syndicated real- 
estate, oil, and gas and leasing partner- 
ships emphasize tax benefits, and they 
generally furnish all the data required 
for IRR computations. 

Using the Program 

Two types of IRR computations are 
provided. After entering the cash flows, 
you can choose your required or mini- 
mum IRR, and the program will calcu- 
late the present value of the investment 
at this interest rate. If the IRR value is 
below the asking price, you can turn 
down the deal or renegotiate the price to 
obtain the desired yield. Alternatively, 
for a given price and terms, you can de- 
termine the IRR for cash flows to be 
received. 

If you are contemplating the pur- 
chase of two assets with widely varying 
terms, the program enables you to com- 
pare them on the basis of the effective 
compounded interest earned on your 
funds. You need to figure the cash re- 
quirements and positive cash flow for 
each year you will hold the investment. 

Figure 1 is a worksheet for a shop- 
ping center syndication and Fig. 2 is for 
a corporate jet-aircraft lease deal. The 
right column gives you the figures for 
the IRR program. These are actual tax 



The Key Box 

Model II or 16 

64K 

Disk Basic 

TRSDOS 1.2 or 2.0, disk drive 



564 
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shelters merchandised in 1981. 

Tax losses result from a combination 
of interest paid and depreciation. Cash 
flows from tax benefits are computed 
by multiplying gain or loss by your as- 
sumed top tax bracket. Fifty percent 
was used for the real -estate deal and 55 
percent for the airplane (based on com- 
bined federal and state rate). In the year 
of sale, tax must be paid on the gain. 
The maximum long-term capital gains 
rate of 20 percent applies to the real es- 
tate, but depreciation on the jet will be 
"recaptured," so that gain is taxable at 
ordinary rates. 

In both cases, cash paid out to you 
during the life of the investment is nom- 
inal. Sales price is assumed to be suffi- 
cient to return the principal cash 



invested. Even so, a high rate of return 
results from "tax leverage." This is an 
after -tax rate. 

The program lets you change the ini- 
tial cost, sales price, or flow for any 
year without re-entering the other data. 
This permits you to explore creative fi- 
nancing terms and assumptions about 
the state of the market when you dis- 
pose of the asset. You can study their 
effects on the yield of a down payment 
split over several years, greater purchase 
price in exchange for a longer due date 
on junior financing, lower down pay- 
ment or lower annual payments with 
greater balloon, and any other vari- 
ations. 

In Fig. 3, calculations are made for 
three possible sales prices. Amounts 







APARTMENT BUILDING 




Purchase 


Cash 


Net Cash 


Tax Gain 


Tax 


Net Cash 


Year Installments 


Flow 


Required 


Or Loss 


Benefit 


Flow 










55% rate 




350000 










(350000) 


1 


8223 


(8223) 


(84322) 


46377 


54600 


2 


9010 


(9010) 


(67180) 


36949 


45959 


3 


14505 


(14505) 


(53295) 


29312 


43817 


4 


20380 


(20380) 


(38990) 


21445 


41825 


5 


26665 


(26665) 


(24230) 


13327 


39992 


Cash to loan sale: 25% 


capital 


gains tax 








A. 7%/yr. appreciation 




(689691) 


686491 


(171623) 


518068 


B. 3%/yr. appreciation 




(470166) 


466966 


(116742) 


353424 


C. -0- appreciation 




(311200) 


368000 


(92000) 


219200 


Internal Rate of Return 












A. IRR = 19.77% 












B. IRR = 13.32% 












C. IRR = 6.48% 
















Figure 3 







Program Listing 



101 
111 
121 
131 



REM 
REM 



*********************** 

INVESTMENT ADVISOR 
REM BY CHARLES R. PERELMAN, 1982 
REM 9777 WILSHIRE, BEVERLY HILLS, CA. 



140 REM PRESENT VALUE COMPARISON OF INVESTMENTS 



151 

201 



REM 

REM 



INTERNAL RATE OF RETURN 
*********************** 



210 DIM F(20) ,PV(20) 

220 D1$="$$#,###,###.##":R$="####.##%":E$="-. 1234567 890" 

250 CLS:PKINTTAB( 20) "INVESTMENT ADVISOR" : PRINT: PRINT"DO YOU WANT 

INSTRUCTIONS? (Y OR N)"; 
260 Y$=INKEY$ 

270 Z$=INKEY$:IF Z$="" THEN 270 

280 IF Z$<>"Y" AND Z$<>"y"AND Z$<>"N" AND Z$<>"n" THEN 270 
290 IF Z$="Y" OR Z$="y" THEN GOSUB 6020 
300 REM ************************ 
310 REM MAIN MENU 

320 CLS:PRINTTAB( 20) "INVESTMENT ADVISOR" : PRINT 

330 PRINT: PRINT: PRINT"MAIN MENU: ": PRINT" 1. ENTER ITEMS" : PRINT" 
2. REVIEW OR CHANGE ENTRIES" : PRINT" 3. COMPUTE PRESENT VALUE" 
: PRINT" 4. COMPUTE INTERNAL RATE OF RETURN" : PRINT" 5. EXIT FR 
OM PROGRAM": PRINT: PRINT" PRESS NUMBER FOR CHOICE"; 

Listing continues 



wabash 

When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard. Visa Accepted. 
Call Free: (800)235-4137 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (InCal . 
(805) 543-1037 



COLOR COMPUTER 



PROGRAMMABLE 
SOUND MODULE 



AT LAST — the COLOR COMPUTER'S 
audio capabilities even SURPASS its 
great graphics! If you can program in 
BASIC — plug in the PSM cartridge 
and start to create life-like explosions, 
engines, animals, wind,water and other 
sounds limited only by your imagination. 
Complex sound effects are continuously 
maintained independently of your 
program. The PSM Is a power-packed 
hardware/software combination and 100^ 
compatible with ALL models of the 
Color Computer. 

PSM -(-complete instructions -$ 98*95 
Available from: 

MAPLE LEAF SYSTEMS 

P.O.BOX 2190, STATION C ", Downsview 
Ontario, CANADA M2N 2S9 ,-92 



CLINICAL 
LABORATORY SOFTWARE 




LabManager QUALITY CONTROL 

LabManager WORKLOAD and FINANCE 

UbManager TEST PRICING 

TRS-80 Model I or III 
Call or write for brochures. 

DOWNEAST DIGITAL 

P. O. Box 286 • Solon, Maine 04979 

(207) 643-2437 

Versions for other computers 

under development. 



TRS-80 is a registered trade 



-167 
rk <>( Tandy Corporation 
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Listing continued 



Y$=INKEY$ 

Z$=INKEY$:IF Z$="" THEN 350 

IF VAL(Z$)<1 OR VAL(Z$)>5 THEN L=910 : A=l :GOSUB 7120:GOTO 341 
GOSUB 1020,2020,3020,4020,5020 



34t 

351 

361 

370 ON VAL(Z$: 

380 GOTO 320 

1000 REM ******************** 

1010 REM ITEM ENTRY ROUTINE 

1020 CLS:T=0:C=0:SP=0:FOR X=l TO N:F (X) =0 :NEXT: PRINT"ENTER COST 

OF ASSET "; :L=21 :PF=1 : GOSUB 7520 :C=VAL( Zl$) : PF=0 

1030 IF C=0 THEN A=5:GOSUB 7120:GOTO 1020 

1040 LINEINPUT"ENTER NUMBER OF YEARS, MAXIMUM OF 20: ";N$:N=VAL 

(N$) :L=0 

1050 FOR Y=l TO LEN(N$) : Z=ASC (MID$ (NS,Y,1) ) : IF Z<48 OR Z>57 THEN 

PRINT@119,SPACE$(41) ; :A=2:L=80:GOSUB 7120 : N=0 :N$="" :GOTO 1040 E 
LSE NEXT Y 

1060 IF N<1 OR N>20 THEN PRINT@119 ,SPACE$ ( 41) ; : A=2 : L=80 :GOSUB 71 
20:N=0:GOTO1040 

107 PRINT: PRINT: FOR X=l TO N: PRINT X;" ENTER ANNUAL CASH FLOW 
"; :L=(X*80) +26 8: GOSUB 7520 : F (X) =VAL( Zl$) :NEXT 

1080 PRINT"ENTER NET SALES PROCEEDS AT END OF LAST PERIOD " ; : PF 
=1:L=(X*80) +2 88: GOSUB 7 520 : SP=VAL( Zl$) :PF=0 
1090 RETURN 

2000 REM ******************* 
2010 REM REVIEW AND CHANGE 
2020 IF C=0 THEN A=5:GOSUB 7120:RETURN 
2030 CLS:PKINT"COST OF ASSET " ; : PRINTUSING Dl$;C 
2040 FOR X=l TO N:PRINT X;" CASH FLOW FOR PERIOD 

D1$;F(X) :NEXT 
2050 PRINT"SALES PROCEEDS AT END OF LAST PERIOD 

1$;SP 

206 PRINT@1760, "ENTER NUMBER TO CHANGE, C FOR COST, S FOR SALES 
PRICE, FOR NONE. " ; CHR$ ( 8) +CHR$ ( 8) ; : LINEINPUT Z$ 

207 IF Z$="0" THEN RETURN 

2080 IF Z$="C" OR Z$="c" THEN PF=1:L=15 :PRINT@L, SPACE $ (15) ; STRIN 
G$(15,8) ;:GOSUB 7520 : C=VAL ( Zl $): PF=0 : GOTO 2060 

2090 IF Z$="S" OR Z$="s" THEN PF=1 : L= ( (N+l) *80+39) : PRINT@L, SPACE 
$(15) ;STRING$(15,8) ; :GOSUB 7520 : SP=VAL( Zl$) : PF=0:GOTO 2060 

/.tiring continues 



: PRINTUSING 



; : PRINTUSING D 



were adapted from an actual apartment 
project. Commissions and costs of sale 
are estimated at six percent of the sale 
price. Total cost is $1,000,000 with 
$350,000 down. Depreciation is com- 
puted under the new ACRS rules. Com- 
parison for a range of sales prices can be 
made rapidly with the facilities of the 
program. 

In evaluating real estate, you can 
compare the results of possible changes 
in cash flow upon your ultimate return 
within the range you would anticipate 
on a worst-case or best-case basis. This 
is called sensitivity analysis. This kind 
of calculation is often revealing and can 
either warn you that the deal is on "thin 
ice" or else spot a bonanza where you 
have figured out a way to increase in- 
come levels and cash flows. 

Perform the following steps: 

• Complete your cash-flow worksheet 
for a property using the current income 
level with future adjustments for infla- 
tion and other pertinent factors. 

• Determine the range within which 
you think income might vary, adjusting 
annual cash flow accordingly. 

• Make a separate worksheet for the 
top and bottom of the range. 

• Run the IRR program for all three 



UNITED SOFTWARE ASSOCIATES 



ULTRA TERM 

COMMUNICATIONS SYSTEM 

Ultra Term includes both a full fea- 
tured intelligent terminal program, 
and a self relocating host program, 
at prices one half to one third of 
the competitors'. 

* Exclusive direct to disk file 
transfer capability permits full 
control from the transmitting 
computer, so no one is required 
at the receiving computer. 

* Unique split screen feature allow: 
simultaneous two way communicatio 
eliminating the confusion caused 
by incoming text mixing with what 
you are typing. 

* Supports auto dial modems with an 
easy to use telephone directory. 

Requires Model 1 or 3 with 16K, one 
disk drive, RS-232 port, and modem. 

Regular price: $79.95 
USA Special price: $59.95 



734 FLAMINGO WAY 

NO. PALM BEACH, FL 33408 

(305) 845-4606 (305) 965-3496 



CO-DIR 

CURSOR ORIENTED DIRECTORY 

YOUR DOS CONTROLS YOUR FILES, 
LET CO-DIR CONTROL YOUR DOS! 

CO-DIR 2.0 is a utility that 
allows file manipulation and DOS 
command execution from a directory 
display with only one or two key 
strokes. You can scroll through 
the directory with the arrow keys 
like a word processor. CO-DIR 2.0 
is not a program you will use only 
once, since any DOS command can be 
entered faster and easier using 
CO-DIR. Dos commands available 
from CO-DIR include Execute 
program, Copy, Chain/Do, 
Directory, Free, Kill, List, Load, 
Print and Rename. 

CO-DIR requires Newdos-80 or 
DOSPLUS with Cat command. 
(Specify DOS and Model) 

Regular price: $49.95 
USA special price: $39.95 





INFOEX-80 

BULLETIN BOARD SYSTEM 

This package contains all the 
software necessary to setup and 
operate a Bulletin Board System 
(BBS). The system will auto- 
matically answer phone calls, 
print a welcome message, ask for 
the callers name and location, and 
prints bulletins or advertise- 
ments. The system then allows the 
caller to leave messages for other 
callers, and read or delete 
messages addressed to them. The 
system supports downloading of 
program and text files, and has a 
chat mode to allow the caller to 
type directly to the System 
Operator (SYSOP). 

Requires TRS-80 Model 3 (or Model 
1 with a double density adapter), 
two disk drives, 32K RAM, an 
RS-232 interface, and any auto 
answer modem. 

Regular price: $149.95 
USA special price: $99.95 



DEALER INQUIRIES INVITED - ACCEPTING SOFTWARE FOR REVIEW 
24 HOUR BBS ON LINE AT 305-965-1044 ^332 
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computations. You might be surprised 
at the difference two or three percent in 
gross income will make in your effective 
return. 

IRR is also used to determine the best 
time to sell a property. The interplay 
among annual tax benefits (which de- 
crease as depreciation is used up and the 
principal portion of loan payments 
grows larger), possible yearly increases 
in value of the asset, and the tax you will 
have to pay to realize the sales price 
(which depends upon whether the gain 
qualifies for long term capital treat- 
ment) is taken into account when you 
determine the net cash flow after taxes 
and measure the success of your invest- 
ment with IRR. 

Program Structure 

Investment Advisor can be converted 
for use on Model I or Model III with 
changes in the Print statements. 
SPACES on the Model II prints a series 
of blanks and can be replaced by 
STRINGS. By dimensioning the pro- 
gram for 20 periods, all inputs fit on the 
Model II screen and permit review of all 
data when making changes for subse- 
quent runs. 

You can use the same data to deter- 



Listing continued 

2100 IF VAL(Z$)>=1 AND VAL(Z$)<=N THEN X=VAL( Z$) : L= ( (X*80) +27) : P 

RINTOL, SPACE $(15) ; STRING? ( 15 , 8) 

060 

2110 A=7:GOSUB 7120:GOTO 2060 



:GOSUB 7520:F(X) =VAL(Z1$) :GOTO 2 



00 REM ****************** 

10 REM PRESENT VALUE PROGRAM 

20 CLS:PRINT"ENTER REQUIRED INTEREST RATE WITHOUT PERCENT SIGN 

E.G.":LINEINPUT"FOR SIX AND ONE HALF PERCENT ENTER 6.5 " ; Z $ 

30 IF VAL(Z$)< = THEN A=4:G0SUB 7120.-GOTO 3020 ELSE I1=VAL(Z$) 



30 
30 
30 

30 

/l 

3040 F(N) =F(N) +SP:FOR X=l TO N: PV(X) =F (X) / ( ( 1+11) ~X) :T=T+PV(X) : N 

EXT:F(N) =F(N)-SP 

3050 IF T=0 THEN A=5:G0SUB 7120:RETURN 

3060 CLS:PRINT"AT INTEREST RATE OF ";USING R$; 11*100 : PRINT"PRESE 

NT VAL.UE OF CASH FLOWS IS" ; : PRINTUSING Dl$;T:PRINT 

3070 T=0:LlNEINPUT" PRESS ENTER TO CONTINE" ; Z$ : RETURN 

40 00 REM ******************** 

4010 REM INTERNAL RATE OF RETURN 

4020 CLS:PRINT"COMPUTING INTERNAL RATE OF RETURN" : Il=. 4 : 12=0 : 13= 

2:F(N) =F(N)+SP 

4025 IF IK. 01 THEN PRINT: PRINT"SORRY, IRR IS LESS THAN 1%. BAD 

INVESTMENT OR ERROR?" : PRINT"PLEASE START AGAIN" : GOTO 4090 
4030 FOR X=l TO N:PV(X) =F(X)/{ (1+11) "X) :T=T+PV(X) :NEXT 
4040 IF T=0 THEN A=5:GOSUB 7120:RETURN 
4050 IF Atss(C-T) <C*.001 THEN 4080 
4060 IF OT THEN 13 = 11 ELSE 12 = 11 
4070 I1=U3 + I2)/2:T=0:GOTO 4025 

4080 PRINT: PRINT"INTERNAL RATE OF RETURN = ";: PRINTUSING R$;I1*1 
00 

4090 F(N) =F(N) -SP:T=0:PRINT:LINEINPUT"PRESS ENTER TO CONTINUE";Z 
$: RETURN 

500 REM ******************* 
5010 REM END PROGRAM 

5020 A=6:PRINT CHR$ (31) ; CHR$ ( 26) ; :GOSUB 7120:PRINT CHR$ (25) ;CHR$ 
(30) :END 

6 REM ******************* 
6010 REM INSTRUCTIONS 

Listing continue- 



COPY MODEL III, SCRIPSIT; VISICALC- 



Only $20 



Works with all model III Visicalc/Scripsit and allows unlimited backups of master disks. Works 
even if you're already backed up twice. Simple, 17 line program. 

And look at these other outstanding values! 



APPARATS 

NEWDOS/80® , 2.0 

$129.95 

Convert Model I Scripsit and Visicalc to 
Model III. plus: Renumber program lines 
-move program lines - move blocks of pro- 
gram lines - duplicate program lines - selec- 
tive variable clearing program single step 
ping - memory sort multi-dimensioned ar- 
rays swap variables - read and write to 
model I disks reference keywords - spool 
printing - change disk speeds - disable 
BREAK and CLEAR - Much, much more! 

FREE "Layman's Guide to 

Newdos 80" included with this 
purchase. 



Use VISA - Mastercard - Money Orders - 
Allow 2 weeks for personal checks. 
Kansas residents add 3.5% sales tax. 



HAYES SMARTMODEM... 
$249.95 

Talk with other computers over regular 
telephone lines. SMARTMODEM can auto 
dial - auto answer - repeat - allow for audio 
monitoring - programmable - is FCC ap- 
proved direct-connect - full or half duplex 
capability, 0-300 baud - RS-232C interface 
- seven status LED's. 

VERBATIM® 
DATALIFE DISKETTES 

5" diskettes come in a reusable plastic 
storage box. 

CALL TOLL FREE! 
1 - 800 - 835-0071 

IN KANSAS: 
316-665-3611 



ST80 III® .$ 129.95 

Smart terminal communications package. 
Allows file uploading/downloading. 
Emulates many different terminals. Total 
operator control. (Written by Lance 
Micklus.) 



FREE 
Catalog price list 

of all Sales Data Direct-Order merchan- 
dise available upon request. Super prices . 
. . Rapid delivery . . . Quality products. 



A L, 




TA.INC. •" ,42 

526 E. 4th Hutchinson, Kansas 67501 
316/665-3611 
Dealer Inquiries Invited. 

Phone or write Sales Data, Inc. 



i^See List of Advertisers on Page 563 
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Listing continued 

6020 CLS:PRINTTAB( 20) "INVESTMENT ADVISOR" : PRINT 

6030 PRINT" THE PRESENT VALUE PROGRAM WILL COMPUTE THE VALUE 
F ALL OF CASH FLOWS YOU" : PRINT"WILL RECEIVE FROM AN INVESTMENT A 
T THE INTEREST RATE OF YOUR CHOICE. THIS IS" : PRINT"THE VALUE TO 

YOU NOW OF THIS INVESTMENT." 
6040 PRINT" THE INTERNAL RATE OF RETURN PROGRAM COMPARES ALL 
F THE CASH FLOWS TO THE" : PRINT" AMOUNT OF YOUR INITIAL INVESTMENT 

AND GIVES YOU THE COMPOUND RATE YOUR" : PRINT" INVESTMENT EARNS OV 
ER ALL THE PERIODS." 

6050 PRINT" ENTER NUMBERS WITHOUT DOLLAR SIGN OR COMMAS. ENTE 
R NEGATIVE CASH FLOWS" : PRINT "OR PAYMENTS REQUIRED WITH A MINUS S 
IGN.": PRINT: LINEINPUT"PRESS ENTER TO CONTINUE" ; Z$ : RETURN 
7000 REM ********************** 
7010 REM SUBROUTINES 
7100 ************************* 

7110 REM FLASHING MESSAGES 

7120 M$(l)="FROM 1 TO 5 ONLY PLEASE" :M$ ( 2) ="MUST BE BETWEEN 1 AN 

D 20":M$(i) ="REENTER EXCEEDS LIMIT" :M$ ( 4) ="MUST BE POSITIVE NU 

MBER":M$(b)="DATA NEEDED" :M$ (6) ="BYE NOW! !" :M$ (7) =" INCORRECT ENT 

RY" 

7130 FOR W=l TO 2:PRINT@45,"*** "+M$(A)+" ***":FOR Y=l TO 500:NE 

XT:PKlNT@45,SPACE$(35) :FOR Y=l TO 300:NEXT:NEXT W: PRINT @L, " n ; : RE 

TURN 

7200 REM ********************* 

7500 REM *********************** 

7510 REM ENTRY ROUTINE 

7520 Y$=INKEY$:Z1$="" 

7530 Z$=INKEY$:IF Z$="" THEN 7530 

7540 IF ASC(Z$)=8 AND LEN(Z1$)>0 THEN PRINT CHR$ ( 8) ; : Zl$=LEFT$ ( Z 

1$,LEN(Z1$)-1) :GOTO 7530 

7550 IF ABS(VAL(Zl$) ) >9999999.99 THEN A=3:GOSUB 7120: PRINT@L, SPA 

CE$(10) ;STRING$(10,8) ; : Zl$="" : GOTO 7520 

7560 IF PF=1 AND Z$="-" THEN A=4:GOSUB 7120 : Zl$=" " :GOTO 7520 

7570 IF ASC(Z$)=13 THEN PRINT STRING$ (LEN( Zl$) ,8) ; : PRINTUSINGD1$ 

;VAL(Z1$) : RETURN 

7580 IF INSTR(E$,Z$)=0 OR LEN(Z1$)>0 AND Z$="-" THEN Z$="":GOTO 

7530 

7590 Z1$=Z1$+Z$:PRINT Z$;:GOTO 7530 



mine present value of cash flows or 
IRR. An assumed cost for the invest- 
ment must be entered. Extensive error 
trapping is provided. Only positive in- 
puts are accepted for cost and sales 
price. 

The IRR calculation beginning at line 
4010 uses a trial-and-error repetitive 
loop to zero in on the actual rate of 
return. CHR$(31) changes to 40 char- 
acters per line and CHR$(26) to reverse 
video. CHR$(25) and CHR$(30) return 
to normal video and size after the 
program -ending message. 

Variable L is used for cursor posi- 
tioning after error messages. The 
INKEYS entry module at 7510 can be 
used in any program requiring 
numerical entries. When PF=1, a 
minus sign will not be accepted. 

Financial return is only one of the 
measures for sophisticated investing, 
but it must be evaluated. Use it to help 
you make intelligent decisions for a suc- 
cessful economic future. ■ 

Charles R. Perelman is an attorney, 
CPA and certified tax specialist in 
California. He lives at 9777 Wilshire 
Blvd., Suite 700, Beverly Hills, CA 
90212. 



Extended BASIC 



TRS-80 Color Computer 



The Champagne of Software 
For a Beer Budget! 

Over 75 quality programs a year 



for under 750 each! 



Ah, CHROMASETTE Magazine, the toast of the holiday 
season . . . and any season! A subscription to CHROMASETTE 

Magazine consists of 6 to 8 premium programs ON CASSETTE, 
delivered by First Class Mail to you and your computer every month! 
Tutorials, utilities, games, and practical programs to usher in a great 
new computing year\ 

So, celebrate and get a subscription to CHROMASETTE 

Magazine! Or just take a little sip and try a back issue. 

The Bottom Line: 



1 year 1 12 issues) S45.00 

6 months (6 issues) $25.00 
Single Copies S 5.00 



Calif residents add 6% to single copies. 

North America — First Class postage included 

Overseas — add SI0 to subscriptions and SI to single copies. 

Sent AO rate. 



MasterCard/ Visa 



The Fine Print: 

All issues from July 1981 available — ask for list. Programs are for the Extended BASIC model and occasionally for disks. 



TJtiCQfTlC&ettE. Magazine PO. Box108 7 Santa Barbara, CA 93102 (805)963-1066 




568 • 80 Micro, Anniversary 1983 



TRS-80 
Model I 



And In This Corner, 
Another Champion 

CLOAD'S DISK VERSION! 



TRS-80 
Model III 




Get 12 tapes OR disks a year containing over 75 quality programs — without knocking 
out your budget! 

We finally gave in . . . After over FOUR years of publishing some of the best (aren't 
we pompous), useful and fun programs on tape, we dre now offering CLOAD 
Magazine on disk, too! 

A subscription to CLOAD Magazine (tape or disk) consists of 6 to 8 ready-to-load 
programs delivered by First Class Mail every month. What a winner! 

Fight high software prices — Get a subscription to CLOAD Magazine. Or just 
throw a single punch and try a back issue . . . 



The Bottom Line: 


Tape 


Disk 


1 year (12 issues) 


$50.00 


$95.00 


6 months (6 issues) 


$30.00 


$55.00 


Single Copies 






Back Issues 


$ 6.00 


$11.00 


Good Games # 1 


$12.00 


$23.00 


Adventures # 1 


$13.00 


$24.00 




(805) 962-6271 

P.O. Box 1448 
Santa Barbara, CA 
93102 



. 



California residents add 6% to single copies. 

North America — First Class postage included 

Overseas — add $ 1 to subscriptions and $ 1 to single cooies Sent AO rate 

The Fine Print: 

All issues from Oct 78 available on tape. Issues from Oct 82 available on disk, also. Ask for list (24 Level I issues also available) 



MasterCard/Visa 



(-"See List ol Advertisers on Page 563 



> Micro, Anniversary 1983 • 569 





JPC PRODUCTS CO. 



Poor 
Floppy 

HIGH SPEED CASSETTE SYSTEM 



Now for the TRS-80 Color Computer 



The JPC Products High Speed Cassette System, 
in operation for over 4 years, is now available 
for all versions of the Radio Shack Color Computer. 

• TC-8C 

The TC-8C plugs directly into the expansion 
port of your TRS-80 Color Computer. It is fully 
compatible with all versions of the Color Computer 
from the Standard 4K up to the Extended 
32K systems. 

• FAST 

The TC-8C saves and loads files at more than 
twice the speed of the built in Color Computer 
system. 

• RELIABLE 

All of JPC Products high speed cassette systems 
have a proven reliability of less than one 
error in a million bits. 

• TWO DRIVES 

The TC-8C fully supports two cassette 
drives. Save and load through either drive by 
simple software selection. You can use 
standard Radio Shack CTR-80A tape recorders 
or their equivalent. 

• ALL FILE TYPES 

The CCCOS operating system allows you to 
save, load, verify or run both BASIC and 
machine language files. Data files are 
also supported. 

• MOTOR CONTROL 

On board relays are provided for both cassette 
ports on the TC-8C. 

• SPARE EPROM SOCKET 

The TC-8C has a spare EPROM socket on 
the board. You can install either 2716 or 2732 
EPROM's. This memory space can be used for 
any of your application programs or you 
could install the optional JPC Products 
monitor program - JBUG. 

TC-8C 

JBUG (EPROM) 

JBUG (CASSETTE) . 



• JBUG MONITOR 

The JBUG Monitor is a 2K relocatable monitor 
program with fantastic features for the Color 
Computer user. 

• ASSEMBLER 

Line assemble any machine language program 
directly into memory using standard 6809 
assembly language mnemonics. 

• DIS-ASSEMBLER 

Dis-assemble any memory resident program 
(ROM or RAM) directly on the screen. 

• MEMORY MODIFY & LIST 

Modify memory directly or list memory in both 
HEX and ASCII. 

• BREAK POINT TRAPS 

Set, clear or continue from break points. 

• CASSETTE OR EPROM 

The TC-8C is not required in order to use the 
JBUG Monitor. It is available on cassette 
or a 2732 EPROM. 

• SUPERB DOCUMENTATION 

The TC-8C and the JBUG Monitor come with 
complete and extensive user manuals 
(JPC's documentation is praised almost as 
highly as our hardware and software). 
Complete command descriptions and 
background information are provided. 
Examples and sample programs are provided 
to help the novice and experienced 
individual take full advantage of the TC-8C 
and the JBUG Monitor. 

• READY TO GO 

The TC-8C comes completely assembled 
and tested with the CCCOS operating system. 
It is backed with a 30 day Money Back 
Guarantee and a 90 day Full Warranty. 



$129.95 
$34.95 
$29.95 



Terms: Cash, Master Card or Visa 

Shipping & Handling $ 3.50 (US) 
$5.50 (Canada) $15.00 (Foreign) 

Technical Inquiries: Phone 5:00 - 6:00 PM MST 




JPC PRODUCTS CO. 

Phone (505) 294-4623 
12021 Paisano Ct. N.E. 
Albuquerque, N.M. 87112 ^42 
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PERIPHERALS 
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TUTORIAL 



How to Buy a Printer 



by Jim Hansen 



E 



pson, IDS, Okidata, NEC — which do you choose? 
Jim Hansen is an industry insider who can 
give you good advice when printer shopping. 



You've paid your dues. With up- 
wards of $2,000 invested, your com- 
puter system has a reasonable amount 
of memory, disks, and a good monitor. 
The time has come to select a printer. 
The choice can be difficult because 
printer manufacturers do not all talk the 
same language (from both a technical 
and ethical point of view), and prices 
range from around $300 to over 
$10,000. By selecting the wrong printer 
you can make an expensive mistake. 

The two major printer technologies 
available are impact (where something 



strikes the paper to form the character 
image) and nonimpact printing where 
heat, light, electric current flow, or 
other techniques are used to make an 
image visible. 

Generally, nonimpact printing re- 
quires the use of special paper. This 
paper may be coated with aluminum 
(which is burned away to form charac- 
ters) or a chemical that is activated by 
heat or light. Another nonimpact print- 
ing technology involves squirting ink di- 
rectly onto paper. The ink is deflected 
electrostatically much like the electron 




Photo I. Several popular printers — which one is for you? Top to bottom, left to right, they are the Ep- 
son MX-80; the Okidata Microline 82; the IDS 440, the latest low-cost printer from IDS, the Micro- 
prism; and finally the full-size Prism 80. 
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beam of a tv picture tube to write the 
character, or squirted from nozzles to 
make dot-matrix-like characters. This 
technology is currently out of the price 
range of most home computerists. 

Nonimpact printing is usually in dot- 
matrix form, characters formed by a 
series of dots much like a baseball score- 
board. Paper for these printers is avail- 
able from a limited number of outlets or 
mail order, and is relatively expensive. I 
don't like the feel of any of these pa- 
pers. They tend to curl and never lie 
flat. Since they come only in rolls, you 
have to carefully trim the stuff if you 
want an 8 Vi-by-X 1 sheet. They are typi- 
cally thin, and therefore fragile. The 
images formed by this technology often 
have low contrast (they aren't very 
dark) but they usually copy well. Ther- 
mal papers (such as used by Texas In- 
struments and Computer Devices Inc. 
portable terminals) fade if left in 
the sun. 

The real advantage of nonimpact 
printing is that it is quiet. I once built an 
interface for a Casio ink-jet printer. The 
most noise I heard from the mechanism 
was the sound of the paper sliding down 
the back of it during line feeds. 

Impact Printers 

Impact printing includes all the com- 
mon dot-matrix, daisy-wheel, and line 
printers found in computer centers to- 
day. The two divisions within this tech- 
nology are dot-matrix and fully formed 
character printers. Fully formed charac- 
ter printers use a type pallet much like a 
typewriter to make the characters. The 
daisy-wheel and selectric-like (ball) 
printers fall into this category. 

Line printers found in large computer 
installations have drums, chains, or 
bands that carry the typeface pallets. 
Some popular terminals also use this 



technique. The General Electric Ter- 
minet series is one example. Line print- 
ers are usually designed for speed rather 
than quality. The daisy-wheel and ball 
printers are designed to produce quality 
print. 

Selectric-based printers use a varia- 
tion of the IBM Selectric typewriter 
mechanism (usually called a Selectric 
I/O model) and can print around 10 to 
15 characters per second. Output from 
a well adjusted Selectric printer is un- 
matched in quality. Prices for such a 
printer on the used market are also very 
attractive. These printers are old (but 
fully repairable by typewriter stores), 
slow, and above all, not reliable. (The 
type-ball positioning bands will not take 
sustained high-speed output and go out 
of adjustment or break.) Selectric-type 
printing terminals are good enough to 
make offset masters for printing, offer 
a wide range of typefaces, and provide 
you with a good typewriter when your 
computer isn't using it. 

Most daisy-wheel printers are from 
Diablo, the company that made this 
printing technique practical; Qume, a 
company formed by former employees 
of Diablo; and NEC, a Japanese com- 
pany. (The NEC printer uses a "type 
basket" instead of a daisy wheel, but 
otherwise the printer is about the same.) 
Radio Shack also sells an imported 
daisy-wheel printer similar in construc- 
tion to the Diablo-type printer. 

The printing element of daisy-wheel 
printers is a spoked wheel with a type 
pallet molded on the tip of each spoke. 
The selected character is spun into posi- 
tion where a hammer strikes it. Until 
recently (the last couple years or so) the 
daisy-wheel printer was the only printer 
offering dot-addressable graphics and 
proportional spacing. The speed of 
these printers is typically 30 to 60 char- 
acters per second. While not high-speed 
printers, they produce typewriter-quali- 
ty printing and take any kind of paper 
you can put into a typewriter. The im- 
ages printed are usually not as clean or 
dense as those of a Selectric printer, but 
the mechanism is much more reliable 
and at least twice as fast. 

The dot-matrix printer was originally 
designed to print lottery and racing 
tickets back in the early 1960s. These 
designs were meant to be used in very 
light duty, low-speed applications. 
Gradually, print-head improvements 
provided faster needle operation and 
longer lasting heads. The microproces- 
sor came along in the late 1970s, and 
soon there was a huge demand for low- 
cost printers for low-cost microcomput- 
ers. Without the microcomputer, the 



demand for printers of this type would 
not support the present market, and 
without the microprocessor, today's 
dot-matrix printers could not be made, 
an interesting case of symbiosis. 

The dot-matrix printer is the most 
widely accepted printer technology on 
the market, because it can be mass pro- 
duced cheaply for low-performance, 
basic printing applications, yet with 
more sophisticated design can print 
much faster, with high quality. Dot- 
matrix printers still cannot produce 
typewriter-quality images, but are doing 
an increasingly good job at trying. The 
dot-matrix printer can electronically 
change character fonts, automatically 
justify text, provide intercharacter pro- 
portional spacing, print in four or more 
colors (with overstrike), automatically 
feed letterhead paper, and they can do 
this fast. Even the slowest popular 
models such as the Epson MX-80 or 
MX- 100 have throughput rates over 30 
characters per second. 

What to Ask the Salesman 

Since nearly every manufacturer has 
a different way of saying the same 
thing, and there is a lot of "specsman- 
ship" involved, talking to a salesman 
can be confusing. (Specsmanship is 




Photo 2. The ubiquitous Teletype Model 33. Prob- 
ably the lowest-cost terminal/printer you can own. 
This printer is a W-character-per-second unit, up- 
percase only. Features include a paper-tape reader, 
punch, and keyboard. These printers were de- 
signed in the 1950s and over a half million of them 
were produced. They are available on the surplus 
market at around $250, and will last forever if 
properly maintained (oiled) and you keep the mice 
out of them. 



where specifications are written so the 
reader thinks things are better than they 
are.) Here are a few terms and their 
definitions that are bandied about. You 
should understand them before you 
begin to compare printers. 

Cps usually means characters per sec- 
ond. Advertising might say that a given 
printer is an 80-cps printer. What they 
actually mean is that it is possible for 
the printer to print something at a rate 
of 80 characters per second. This might 
be two adjacent periods. In any event, 
this specification is meaningless. 

The only meaningful speed rating is 
throughput. This is the number of char- 
acters or lines of text that is actually put 
down on paper in a given unit of time. 
You can measure the throughput of a 
given printer with a simple program 
that outputs a given number of charac- 
ters; simply divide the number of char- 
acters by the time it takes to print them. 
This figure varies with the length of the 
line and other printer features, but in 
most low-cost printers, it is something 
around 30 to 40 characters per second. 

Near letter quality (nlq), correspon- 
dence quality, and other such terms are 
the way manufacturers say that they 
have a print head that provides overlap- 
ping dots. This closes in the dot pattern 
and makes the characters look more ful- 
ly formed. Some printers overlap dots 
only vertically, others both vertically 
and horizontally. You will probably 
find that those printers with nlq have a 
shorter (typically .09 in.) character, 
rather than the standard .1 -inch-high 
matrix character. Unless you prefer 
larger characters for easy reading, there 
is no reason to choose a printer on this 
issue alone. 

Lowercase descenders: Are they 
above or below the base line? It is 
cheaper to build a printer with a seven- 
needle head than a nine-needle version. 
If the print head has only seven needles, 
then lowercase characters must be print- 
ed entirely above the base line. One of 
the most popular terminals I've used is 
the Decwriter II from Digital Equip- 
ment Corporation. It has only seven 
needles. The lowercase g, j, p, q, and y 
characters are scrunched above the base 
line. No legibility problem, but I recom- 
mend a printer with nine needles if 
everything else is equal, or if print quali- 
ty is important. 

Printer buffer: This is the internal 
memory capacity of a printer. Cheaper 
printers buffer only one line. What this 
means is that the printer can gobble up 
only one line of text at a time from your 
computer, print that line, then gobble 
another. In the meantime, you and your 
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computer must sit around and wait for 
the printer. Larger printer buffers, 
some as big as 3,600 bytes (or 
characters), allow the printer to con- 
sume that much text, then free your 
computer to do other things while it 
prints the buffered information. Special 
programs called spoolers do much the 
same thing. 

Character sets and fonts: A character 
set is the list of all printable characters. 
Typically, this is all the ASCII charac- 
ters from CHR$(32)— a space— to 
CHR$(127). A printer that prints all 
these characters is called a 128-charac- 
ter printer. A 64-character printer is one 
that only prints the capital letters A 
through Z. If you are interested in a 
printer like this, be sure that it can be 
set to print the uppercase equivalents of 
the lowercase characters. (Sooner or 
later you will send lowercase text to it.) 
A font is the design of the characters 
in a character set. For example, the 
two most common typewriter fonts are 
pica and elite. Spec sheets that do not 
mention fonts mean the printer has only 
one font. 

A printer that can be loaded with a 
font from your computer is said to have 
"downloadable" fonts. This may seem 



like a powerful feature, but a complete 
character set is difficult to design. (I 
have done it, and it takes several weeks 
of fulltime work to just set up the char- 
acter-set dots on paper.) Download- 
able-type printers sometimes don't 
allow you to replace just a single charac- 
ter. Further, many printers of this vari- 
ety don't have the high density, overlap- 
ping dot fonts of the near letter-quality 
printers. 

Multispeed printing: Manufacturers 
have discovered that by printing fewer 
dots and spreading them apart, they can 
make a printer with higher throughput. 
Since the character-set font has fewer 
dots, the quality of it is not as good, and 
so these high-speed fonts have a variety 
of names. So-called "draft" fonts can 
nearly double the throughput of a given 
printer. 

Proportional spacing is the ability of 
a printer to vary the amount of spacing 
between characters. Intercharacter pro- 
portional spacing allows a printer to 
print text so that it can be justified; the 
right margin of the text can be made 
square like the left, without simply dou- 
bling up on the spaces between words. 
Most daisy-wheel printers have this 
capability as does the Centronics 739 



printer. In these cases, your computer 
must maintain a table of character 
widths and tell the printer how much to 
space each character. Integral Data Sys- 
tems IDS 460, 560 and the entire Prism 
and Microprism line feature automatic 
proportional spacing. 

Text justification, as mentioned ear- 
lier, is the squaring off the right margin 
of print. If the printer can proportion- 
ally space characters, then by keeping 
track of the amount of print space left 
on a line and the length of the following 
word to be printed, you can add or 
delete space between characters so the 
line is completely filled each time. You 
naturally do not want to break a word 
in the middle, so each line must be ex- 
amined and the spacing computed be- 
fore it is sent to the printer. A very few 
printers provide automatic text justi- 
fication. When enabled, text is justified 
within the bounds set by the margins. 
Margins can be set to any width so that 
newspaper-like columns or full-page 
lines alike can be automatically filled 
with text, without any assistance or text 
processing from your computer. 

Most dot-matrix printers in the low 
price range have a number of miscella- 
neous print features that add to their 





DISK DRIVE WOES? ^^Pat. #4,259,705 

PRINTER INTERACTION? 

MEMORY LOSS? 

ERRATIC OPERATION? ^ ^P'^Y^M ° 

Don't 

Blame The 
Software! S02 

Power Line Spikes, Surges & 

Hash could be the culprit! Floppies, printers, 

memory & processor often interact! Our patented ISOLATORS 

eliminate equipment interaction AND curb damaging Power Line 

Spikes, Surges and Hash. MONEY BACK GUARANTEE! 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; integral 
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• ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; (6 
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• SUPER ISOLATOR (ISO-3) similar to ISO-1 except double 
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• CIRCUIT BREAKER, any model (Add-CB) Add $9.00 
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AT YOUR MasterCard, Visa, American Express 
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GOBBLER 



SKYSCRAPER 



Two exciting ARCADE style, fast action, machine language VIDEO 
GAMES for the TRS-80' owner who enjoys the best in arcade games. 

Both games have several levels of play to Challenge both the novice, and 
the most advanced video game wizard Both games, also, have SOUND to add 
to the enjoyment. ALPHA JOYSTICK" compatibility has been added for the 
players that want to add new dimensions to their enjoyment 

SKYSCRAPER, also, provides THREE mazes for added difficulty and 
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MODELS I and 



GOBBLER 
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Tape 16K Disk 32K 
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24 HOUR ANSWERING SERVICE 
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versatility. Bolding, available on some, 
is simply an automatic overstrike. (The 
printer prints a bolded line twice.) Dou- 
ble-width characters are printed by dou- 
bling up on the horizontal dots, making 
characters twice as wide. 

Many printers have selectable pitch. 
Names for pitch vary. Epson talks 
about enlarged or condensed charac- 
ters, while most American companies 
use a character-per-inch (cpi) term. 
Standard pitches are 10, 12, and about 
16 characters per inch. (The 16-charac- 
ter-per-inch pitch is important since it 
allows a 1 32-character line to be printed 
in eight inches, and therefore on 
8 Vi -by- 11 pages.) 

Underscore capability is difficult for 
low-cost printers because a line through 
any dot-matrix character just about de- 
stroys legibility. Dot-matrix printers 
have met the challenge three ways. The 
first is to ignore the issue and let the user 
manually underscore text using a period 
or graphics. Second, some printers have 
a special font that leaves the bottom 
(ninth) dot free. Automatic underscore 
simply fires the bottom needle for every 
character. The third variation is to pro- 
vide underscore on the ninth dot and 
wipe out the lowercase descenders. 



(This makes it difficult to read words 
with descenders in them, but does give 
something to print on the spec sheet.) 

At this writing Centronics and Inte- 
gral Data Systems are the only com- 
panies selling a low-cost color printer. 
The Centronics 739 printer can be fitted 
with an option for a red-black ribbon. 
The IDS Prism printers use a four-color 
ribbon. Colors can be mixed by over- 
strike. 

Graphics capability is a natural for 
dot-matrix printers. Instead of internal- 
ly looking up a list of dots to be printed 
from the ASCII character code, the on- 
ly difference in printing graphics is that 
the ASCII character code itself is print- 
ed. Printers differ in the way the charac- 
ter codes are handled. For instance, 
Centronics uses graphics characters on- 
ly above 32; this allows control codes 
such as carriage returns and line feeds to 
work normally. IDS uses all ASCII 
values from -127, using a control 
code as an escape from graphics. Epson 
requires that the computer tell the 
printer how many graphics characters 
are coming, then prints all the following 
characters as graphics. The character 
codes themselves are printed in two 
ways. Bit zero of the ASCII code can be 



used to print either the top or bottom 
needle of the head. Each following bit 
of the ASCII code is used to control the 
following needle. 

The printer's resolution is about the 
only feature mentioned in the graphics 
part of a specification sheet. Horizontal 
resolution is determined by how fast the 
head moves across the paper and how 
fast the needles fire. This is typically 
over 72 dots per inch, but can vary. Ver- 
tical resolution is controlled mechani- 
cally by needle spacing in the head. The 
only way this can be changed is to 
change the head. Generally, the more 
dots per inch, the finer the printed im- 
age. Most graphics output comes from 
screen dumps, and the resolution of 
these graphics is limited to that of the 
screen, regardless of your printer. 

Mathematically, if the vertical and 
horizontal resolutions are the same, im- 
ages printed will not be distorted. If a 
circle is plotted, then sent to a printer 
with 100-by- 100-dot-per-inch resolu- 
tion, the circle prints round. If the 
printer had a resolution of 100 by 80, 
the circle becomes egg shaped by about 
20 percent. If your printer has a resolu- 
tion near 80 dots per inch, it is state of 
the art. If the image distortion due to 




Hello thayuh. This is Eben Flow, proprietor 
of the Fish or Cut Bait Company, buyer and 
seller of lobstah bait for 49 years. My hobbies 
are collecting linoleum samples, squashing flies 
and playing pac-person on my home computer. 

But here on Martinicus Rock, off the coast of 
Maine, the power can be a tad erratic. So, to 
cure the brownout and blackout problems, 
and to keep them spikes and surges off my 
picture tube, I got me a MAYDAY 
Uninterruptible Power Supply from SUN 
RESEARCH. Them fellas fixed me up real good 
and real light on my pocketbook, too. Got me 
a MAYDAY for my mini-calcaputer with a 
voltage regulator and everything for only 325 
clams. They even included the battery in a nice 
waterproof box. Handy out here, you know. 
Now, if MAYDAY would only keep them sea 
dogs out of my barrel. . . 

MAYDAY - Protection even you can afford! 



SUN RESEARCH, INC. 

Box 210 

New Durham, NH 03855 

603/859-7110 

TWX 5102974444 .285 




.See List of Advertisers on Page 563 



80 Micro, Anniversary 1983 • 575 



nonsymmetrical resolution is impor- 
tant, it can be corrected by software. 

Your printer's interface is important. 
There are two kinds: parallel and serial. 
A parallel interface is common among 
the cheaper printers because it requires 
less electronics and is simpler to control. 
Basically, a parallel interface requires a 
common ground, a signal for each bit in 
the characters to be sent (normally 7), a 
strobe (the signal from your computer 
that says a character is ready for the 
printer to pick up), and a busy or ac- 
knowledge from the printer that says it 
is ready for the next character. 

If the printer doesn't want another 
character, it signals "busy" or doesn't 
acknowledge the last character sent. 
Your computer waits to send the fol- 
lowing character until the busy or 
acknowledge is returned, and that is 
why it hangs up if your printer if off- 
line when you try to print to it. The so- 
called "Centronics" parallel interface 
(which, incidentally, has no formal 
standard) is the most common parallel 
interface, and usually printers and com- 
puters with this interface work together 
without any problems. 

Serial interfaces are required if you 
want to use your printer with a terminal 
connected with timesharing computers. 
Many low-cost printers do not offer a 
serial interface, or offer it as an extra- 
cost option. Serial data requires a 
ground, a data line from your com- 
puter, and a signal to tell your computer 
when to stop. This may be the Data Ter- 
minal Ready (DTR) signal that is either 
on or off, or an actual ASCII code for 
control S (XOFF) or control Q 
(XON). The XON-XOFF code is used 
when you are connected through tele- 
phone lines. Data Terminal Ready 
can only be used if your printer is 
"hardwired" to your computer. 

The problem that printers have with 
serial data is that the data can come in 
just about anytime. Also, it has to be 
serviced within one character time, or the 
next character can arrive and be lost. If 
you are running serial data at 9,600 
baud, for example, the characters have 
to be handled in 1 /960th of a second. 

Another problem is that when the 
printer wants data to be stopped, there 
may be another character already on the 
way, or when XON-XOFF is used, 10 
or 20 more characters may arrive before 
the computer gets around to stopping 
them. The management of serial data re- 
quires processing time from your print- 
er, plus a buffer area in memory to han- 
dle the data. Many low-cost printers do 
not have the software sophistication or 
memory to handle serial data, and so 
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the serial option becomes a little box 
that lives outside the printer. 

I can't think of any reason why one 
interface should be preferred over an- 
other, if you can run serial at 9,600 
baud. Serial interfaces might be consid- 
ered more flexible since you can use 
them with a terminal and a computer. 
One thing that is not important is the 
parallel data-transfer rate. I once found 
a Japanese firm extolling the parallel 
data rate — how fast characters could be 
accepted by the printer. This specifica- 
tion has no meaning as long as it is 
faster than the throughput of the 
printer. 

Paper-handling ability is an impor- 
tant aspect of the printer. Until recently 
(the last year or so), most printers re- 
quired perforated continuous stock, 
because it is difficult to design a printer 
that will take a single sheet of paper or 
continuous stock equally well, and 
because the print quality of earlier dot- 
matrix printers was so poor that nobody 
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wanted to send a letter printed by them. 

With the advent of the improved 
character sets, all this has changed. 
Low-cost printers can now take single- 
sheet paper, but for the most part, 
paper insertion is difficult and you must 
carefully align each sheet for left and 
right margins as well as for the top edge. 
I am not aware of any low-cost printer 
than can take an envelope, but this 
problem will probably be solved within 
the next two or three years. 

The operating costs of a printer are 
primarily a function of ribbon cost in 
terms of dollars per characters print- 
able, and the cost of a replacement 
head. Ribbon lifetimes can vary, de- 
pending on how fast they are used (the 
ink can dry up over a period of time) 
and how fussy you are. Ribbon useful- 
ness is subjective; a dead ribbon for one 
person is only half gone for someone 
else. You had better believe that the rib- 
bon lifetime on a specification sheet 
means the end of lifetime to everyone. 

Quoted print-head lifetime is a statis- 
tical matter. Print heads can die in sev- 
eral ways. The jewel in the nose of 
heads (it is a bearing that aligns and 
guides the print wires to the paper) can 



crack or wear out so the wires are not 
held evenly. This results in "wavy" 
characters. It can also gum up with ink 
and paper lint. This results in a sticky 
needle that won't work well when it is 
cold. Other electrical or mechanical 
faults usually stop operation of a nee- 
dle. The lifetime of a head is usually 
specified in millions of characters. 
Cheap, disposable heads last 30 or 40 
million characters. Nondisposable 
heads can last 200 or 300 million charac- 
ters. Compare the cost on a character- 
to-dollar basis to find which is the best 
bargain. (The more expensive heads 
usually win.) 

Off to the Market 

Now, how does one go about shop- 
ping for a printer? Unless you live near 
a good-sized town that has several com- 
puter stores, you are going to have to 
trust in the reviews that you have read in 
magazines or pick a printer that a friend 
has, simply because it is the only one 
you have seen work. 

First, educate yourself to be coldly 
objective about what you see, hear, and 
read. Second, slow down and take the 
necessary time to find your printer. This 
can not only save you money, but also 
get the printer that fits all your needs. 

Let's practice by picking a printer for 
someone that would have a typical 
variety of printing needs. Assume that 
you are a college student in the junior or 
senior year. By this time, a student 
would have a variety of text that could 
be edited and printed by a small com- 
puter system. 

If this student were involved with 
mathematics or statistics, then the com- 
puter would certainly be an asset to him 
in other areas, especially if the printer 
could handle graphic output. An eco- 
nomics major might find one of the 
popular spread-sheet programs of use. 
These requirements are not too far re- 
moved from those of a small business 
user, except that small businesses would 
generally run the same programs every 
month, and usage might require a heav- 
ier-duty printer. Since small businesses 
might use the system to run billing or 
other higher-volume data through the 
printer, throughput is a greater concern. 

So let's pick a general-purpose print- 
er in the low price range. This printer 
must print near-letter-quality text, be- 
cause you will want to print term papers 
and the like on it. Since term papers typ- 
ically use single-sheet paper, it must be 
able to print on typewriter paper as 
well. The printer should be able to super 
and subscript text, as well as underline 
and overstrike text for holding. 



Already, the list of specifications has 
gotten us into trouble. There are only 
one or two printers on the market that 
can automatically fill all the above 
needs, unless you go shopping for a 
word processor that supports your 
printer. You might not only have to 
look for a printer in your price range, 
but will have to select and pay for a 
word-processor package as well. 

The next step is to get a collection of 
magazines together and systematically 
compile a list of available printers, 
phone numbers, and addresses of each 
manufacturer. Call those with 800 num- 
bers and write (or circle bingo numbers) 
all the others that interest you. You may 
find that literature reaches you faster if 
you write directly rather than using 
bingo numbers (reader service cards) of- 
fered by some magazines. 

Check the literature off the list as you 
receive it. Don't start your decision- 
making process until you have all your 
data, unless a given printer sells for 
more than your budget. Simply mark 
your list as "price out of bounds," but 
keep track of all printers until you have 
made your final decision. 

Make a chart with columns for brand 
name, model, and each feature that you 
want. A student will want proportional 
spacing, a near-letter-quality font, sup- 
er/subscripting, single-sheet paper han- 
dling, probably graphics, and price. 
You might also want some idea of the 
throughput of a given printer, but you 
will probably have to find this in a re- 
view since advertising literature normal- 
ly mentions only the character-per-sec- 
ond print rate. The last column should 
be the retail price. Use this instead of 
any mail-order prices you might have 
found. (Comparing mail-order prices 
may be misleading.) 

Ignoring any gloss that you might 
find on the brochures, examine the 
claimed performance of every printer 
and check off the columns for each fea- 
ture that is important to you found on 
the printer. Ignore any features (for 
now) that you didn't put on the chart. 

After you've entered the entire stack 
of printer literature onto your chart, set 
aside the literature for the printers that 
do not meet your needs, and don't let 
them influence any further product 
selection. 

Your next step is to read product 
reviews for the printers that made the 
first cut. Hopefully your library has a 
couple computer magazines. If not, 
order back issues of 80 Micro and other 
magazines that have a cumulative in- 
dex. From that you can find the issue 
that has the review you are looking for. 



A book that you may find useful is 
called The Index by W. H. Wallace. 
(Missouri Indexing Inc., P.O. Box 301, 
St. Ann, MO 63074, 314-997-6470). 
This book is an index of over 40 maga- 
zines printed to about mid-summer, 
1981, most from the first issue. 

The important thing about reading 
reviews is to try to get a feel for the au- 
thor. I don't know how many times I've 
read something like, "This is the first 
widget I've ever used, and it is the best 
one in the world." The best thing you 
can do with a review of this caliber is to 
trash it. Look for an objective review, 
keeping in mind that there is something 
wrong with every product, and if the 
reviewer doesn't mention something 
bad, he hasn't done a good job. 

At this time you should also visit 
computer stores in your area, and 
friends (and strangers) that have print- 
ers of the type you are considering. 
After researching reviews, your list of 
possibilities should narrow. Now you 
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must assess the product support for the 
remaining printers. Where do you get 
the printer fixed and how long will it 
take? If you call the factory (or import- 
er), can they give a competent answer to 
your questions? Is there any "canned" 
software that is necessary for your ap- 
plication? 

Typically, there are three possible 
places to get your printer fixed. The 
most obvious is to take it to the place 
you bought it. Results of this type of 
service vary, but if you have purchased 
products from a computer store and are 
known there, your service is likely to be 
much better than if you buy your print- 
er by mail order. Part of the higher price 
of retail sales is for customer support, to 
be rendered before and after the sale. 
This hand holding, as it is sometimes 
called, doesn't come free. Mail-order 
houses can laugh at you if you have a 
problem. 

In any event, check into factory-au- 
thorized service facilities; how many are 
there, where are they located, and so 
on. You can find this information in the 
literature you already have. If not, call 
the printer company and ask. Don't let 
yourself be talked into the idea that the 



printer is so reliable it doesn't break. 
That is pure balderdash. Ask about 
company factory repair, and the usual 
turnaround. If you do a thorough job, 
you will also call the factory service 
center and ask, "My model XYZ just 
broke (nothing happens when I turn it 
on, and there is a strange smell inside). 
Any guess how long and how much it 
will take to get it back?" 

Many import products have little or 
no service program and rely on random 
dealers to fix broken printers. Since the 
dealers are very often undersold by 
mail-order houses, they are not terribly 
interested in fixing the mail-order spe- 
cials, and so you suffer the results. The 
other side of this is that dealers very 
often have not been trained by the im- 
porters and have to rely on manuals not 
much different from user manuals sent 
with the product. In the search for your 
printer, place a heavy value on the 
quality of service you can expect when it 
breaks. 

Not many importers offer help over 
the phone; American companies do bet- 
ter in this respect. 

The final consideration in product 
support is perennial for both computers 
and peripherals. What software is avail- 
able for the product? Word processors 
are important, but many applications 
do not need them. Many newer features 
such as proportional spacing built into 
the printer cannot be used on popular 
word processors. Graphics is another 
area where existing software is vital. 
Most people either could not or will not 
develop a graphics handler for their 
printer. If graphics is important, and 
you want to do more than a simple 
screen dump, look for a graphics pack- 
age to drive the printer before you buy it. 

If you have conscientiously followed 
the guidelines I have given you, the 
printer you buy will suddenly pop out of 
the list. I can't tell you which one is best. 
This decision is one that you must 
make. But you can make a wise decision 
if you take the time to learn the jargon 
around printers and examine everything 
you can from advertising, product re- 
views, trade journals, retail stores, and 
friends. 

The important thing is not to hurry. 
Don't spend your money until you un- 
derstand what you are buying. And 
above all, don't give up and just buy the 
printer that is most widely advertised. 
When you do that, the advertisers win, 
and you might come in second place. ■ 



Jim Hansen's address is P.O. Box 
234, New Boston, NH 03070. 
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TUTORIAL 



Suppress Those Demon 

Transients 

by G. Michael Vose 



Y 



our micro needs good, clean electrical power 
to run at its best. Here's what you can do 
to minimize noise and voltage disturbances. 



Like a dark and slimy creature living 
in the bowels of a nightmarish fantasy, 
there is a demon hiding in the nooks 
and crannies of your computer room. 
These demons force themselves into 
the lifeblood of your computer sys- 
tem — its electrical power lines — to zap 
your data or crash your programs. 

These creatures have supercharged 
names — spikes, surges, transients, 
sags, pulses— and can infect any elec- 
trical power-transmission grid. They 
are impossible to see, difficult to 
measure, but fortunately, are easy to 
eradicate. 

Understanding the dynamics of 
power-line disruptions will help you to 
cope with these demons in your com- 
puter room. 

Dirty Power 

Electrical power can be suspect for a 
variety of reasons. Power fluctuations 
can be transmitted along utility power 
lines, or they can be generated within a 
building or room by a number of 
sources. The kinds of electrical inter- 
ference that can affect computer de- 
vices include: 

• Transient voltage above or below 
the normal voltage for the system 
(called spikes, surges, dips, sags, or 
brownouts). 

• Noise interference (often called hash 
by electrical engineers). 

According to studies by the Institute 
of Electrical and Electronic Engineers 
(IEEE), harmful power line distur- 
bances occur as frequently as four 
times a day on average. Of these distur- 
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bances, 88 percent are power spikes 
(transients and surges), 11 percent are 
brownouts (low voltages), and .5 per- 
cent are power outages. 

The difference between transients 
and surges is strictly one of duration 
and degree. A transient is a voltage in- 
crease to 6,000 volts or higher lasting 
100 microseconds or less. A surge usu- 
ally lasts slightly longer but is charac- 
terized by voltages of 3,000 volts or 
less. Voltage surges of 1,000 volts are 
common, everyday occurrences in 
most industrial and commercial electri- 
cal environments. 



The most common causes of electri- 
cal interference are voltage imbalances 
generated by the operation of electrical 
machinery. A refrigerator motor or a 
furnace blower motor can cause 
voltage spikes and voltage reductions 
during operation. Other causes of in- 
terference include the obvious, like 
lightning, and the not so obvious such 
as sunspots. 

Spikes and Sags 

What kind of damage is caused by 
increased or decreased voltage? Com- 
monly, little permanent damage occurs 
to a computer as a result of most vol- 
tage fluctuation. It is possible in the 
case of an extraordinary event such as 
a lightning strike for sensitive semicon- 
ductor devices, such as memory chips 
and microprocessors, to experience cir- 
cuit melting, corrosion, arcing (which 
will break down insulation), and 




Photo I. The Gould Standby Power System 



reduced component life. Disk drives 
and other mechanical components can 
suffer pitting and metal transfer 
amongst switch contacts. 

The most common effect of voltage 
transients on computing devices, how- 
ever, is alteration of memory. Small 
voltage fluctuations can be interpreted 
by low-power computer circuitry as 
legitimate input signals. Therefore, 
random memory errors are often a 
direct result of electrical interference. 

Semiconductor memory chips con- 
tain circuitry that comprises hundreds 
of individual memory cells. These cells 
are composed of field-effect transistors 
that act as gates that can either be open 
or closed, coupled with capacitors that 
store an electrical charge. 

During a read/ write operation, the 
transistor that acts as a gate is opened 
and a small electrical charge (for a bi- 
nary 1) or no charge (for a binary 0) is 
stored in the accompanying memory 
cell capacitor. If the data being written 
is subject to a spike or surge during the 
read/write operation, a memory ca- 
pacitor could be set high instead of 
low. Since memory pulses are stored si- 
multaneously one bit per chip over 
eight chips in each 16K of memory, an 
entire byte of memory could be written 
incorrectly. If this happened to be a vi- 
tal byte, an entire data block would be 
rendered unusable. 

Equally critical is the effect of over- 
voltages on disk-drive units. Since the 
read/write head in a floppy disk drive 
is designed to alter magnetic fields, volt- 
age spikes often cause the head to alter 
the data on a disk even when the head 
is engaged in a read operation. These 
alterations will occur randomly. How- 
ever, since the disk reads the directory 
tracks more than any other track on a 
disk, the probability that a random 
glitch will alter the directory is high. 
When this occurs, the entire disk can 
be rendered unusable. 

Voltage spikes are most likely to oc- 
cur as the result of the switching on or 
off of an electric motor. Copy ma- 
chines, elevators, air conditioners, 
printing presses, furnaces, and so on 
all generate voltage spikes. These 
spikes occur within the building where 
the equipment is located and are trans- 
mitted to all parts of the building along 
its electrical wiring. 

Low voltage, commonly called a dip 
or sag and resulting in a 5-20 percent 
voltage reduction of approximately a 
second in duration, often occurs when 
there is a sudden call for power by an 
electrical device. Low voltages can 
cause the picture of a television or vid- 
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Photo 2. J. W. Miller Line Filters 



eo monitor to shrink visibly for a brief 
moment. Commonly, low-voltage pe- 
riods are followed immediately by a 
high-voltage surge as the system draws 
power from the outside to satisfy the 
needs of its consuming devices. 

Brownouts are long-term voltage re- 
ductions, typically of 5-8 percent. 
They usually are gradual in nature 
and may last from several minutes 
to several hours. Brownouts are ini- 
tiated by the utility supplying the 
power, usually due to equipment fail- 
ure or excessive demand on the power 
grid. Because they occur gradually, 
brownouts seldom cause difficulty 
in computers since the power trans- 
former in the computer adjusts the 
incoming power to suit the needs 
of the system. These transformers are 
ideally suited to accommodating 
gradual power fluctuations. 

Noise Interference 

Voltage fluctuations are the more se- 
rious of the two kinds of electrical in- 
terference, but noise interference 
comes in a greater variety of forms. 
Noise is simply an unwanted electrical 
signal and can be as unobtrusive as a 
jolt of static electricity. Anyone who 
has ever worked in a computer room 
without antistatic carpet knows that 
static electricity can cause data loss in 
computers. 

The common forms of noise are: 

• Radio frequency interference (RFI) 
caused by the reception of electromag- 
netic signals (radio/tv transmission) by 
power lines acting like antennas. 

• Electromagnetic interference (EMI) 
caused by a fluctuating magnetic field 
such as that produced by an operating 
electric motor. 

• Electromagnetic pulse (EMP) caused 



by a collapsing magnetic field such as 
lightning. Static electricity is an EMP. 

Noise occurs at lower magnitudes 
than voltage spikes and is less danger- 
ous to equipment. However, it can de- 
grade performance and cause data loss 
in computers, because noise occurs at 
extremely high frequencies and high 
speeds. The response time for most 
power transformers is not sufficient to 
trap these high-speed signals. 

Noise can be generated by many 
common devices: fluorescent lights, 
radio and television transmitters, elec- 
tric typewriters, hand tools, automo- 
bile ignition systems, and sunspots. 
Computers themselves generate some 
RFI and their disk-drive motors and 
power supplies generate EMI. Loose 
electrical connections and damaged 
power cords are other sources of noise. 

What Can You Do 
About Spikes and Noise? 

The obvious solution to the problem 
of "dirty" power lines is to incorpo- 
rate into the distribution system some 
sort of filter. In much the same way 
that an oil filter extracts impurities 
from your car engine's motor oil, a 
power-line filter can knock down volt- 
age transients and eliminate noise. This 
is done using circuitry specially de- 
signed to handle the offending voltage 
fluctuations. 

Power-line filters come in a variety 
of types, sizes, and voltage configura- 
tions. The cost spectrum for these de- 
vices ranges from $20 to $2,000. Some 
power -line filters merely dissipate vol- 
tage spikes; others offer battery back- 
up to guard against power sags, 
brownouts, and outages, and one sys- 
tem even prints out a record of every 
occurrence of a power-line fluctuation. 
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Table 1 shows a representative cross 
section of the devices for power-line 
filtering currently on the market. 

Typically, power-line filters work by 
rerouting unwanted voltage through 
circuitry equipped with electrical com- 
ponents called varisters that cause the 
excess electrical energy to be given off 
as heat. In some cases, part of this ex- 
cess energy may be diverted to the main 
electrical system's grounding loop. 

Power-line filters should be installed 
between the main source of power and 
the device to be protected. Normally 
the power-line filter plugs into a wall 
receptacle and then your computer 
plugs into the filter. Many filters have 
an on/off switch so that the entire cir- 
cuit can be turned off when your ma- 
chinery is not in use. 

The principle qualities to look for in 
a power-line filter are the overvoltage- 
handling capacity, the response time, 
and the frequency range for noise sup- 
pression. Usually, a low-cost filter of- 
fers only minimal protection. In fact, 
the lower-priced filters may offer over- 
voltage protection only with no noise- 
suppression capability. Furthermore, 
only the most expensive filters offer 
battery back-up for protection in the 
event of brownouts or power outages. 

The overvoltage-handling capacity 
of power-line filters ranges from 1 ,000 
volts to 12,000 volts. A capacity of 
5,000 volts will protect the line from 
any spike other than a lightning strike. 
Many manufacturers call this capabil- 
ity the "clamping voltage." This refers 
to the maximum voltage that will be 
"clamped," or suppressed by the 
device. 




Photo 3. The Power Master Line Monitor from SGL Waber Electric 



The response time of power -line fil- 
ters typically ranges from 5 to 15 nano- 
seconds (1 nanosecond is one billionth 
of a second). Noise-reduction fre- 
quency response is usually in the range 
150 KHz to 30 MHz. Some devices are 
rated as high as 200 MHz. Unless your 
building is near a microwave transmis- 
sion site such as a tv station or a radar 
installation, an upper level of 20 to 30 
MHz of protection should be suffi- 
cient. 

Picking the Right Filter 

The line filter that you choose for 
your particular application will depend 
on several factors. Principle among 
these is the investment you've made in 
hardware and software. Second, you 
must consider the cost of having your 
system crash. In a business setting, a 




Photo 4. Power Integrity Corporation's Transient /Surge Suppressor Line 
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lost inventory file could require dozens 
of man hours of labor to rebuild, 
which could mean several hundred dol- 
lars in direct expenditure plus lost sales 
or decreased efficiency. 

You must also consider the frequen- 
cy and severity of electrical in- 
terference in your operating environ- 
ment. The condition of the electrical 
wiring in your building and the number 
of electrical devices drawing power 
from the system are important factors. 
Your power company might be able to 
produce statistics on the frequency of 
voltage irregularities in their service 
area. The electrical specifications of 
the power supply in your computer will 
reveal the degree of its susceptibility to 
electrical interference — the manufac- 
turer can usually provide this infor- 
mation. 

Finally, you will want to consider 
the aesthetics of the variety of units on 
the market. Some devices plug directly 
into a wall socket and are unobtrusive, 
while others feature multiple-socket 
design arranged in a so-called "power 
strip." Yet others are housed in boxes 
of varying size and color that become 
part of your computer installation. 

Ultimately, you may decide that 
your computer functions well enough 
in its present environment. The extra 
expense of another piece of hardware 
may be unnecessary. On the other 
hand, if your machine seems possessed 
by demons that randomly chew up 
data or spit out garbage, you may want 
to consider cleaning up your electricity 
supply. Sending nasty notes to the 
power company is optional. ■ 



G. Michael Vose is a technical edi- 
tor for 80 Micro. 



1 . Voltector and Volleclor Multibus Strip 
S79.50 

Pilgrim Electric Co. 
29 Cain Drive 
Plain view, NY 11803 

2. Super Isolator 
$95 

Electronic Specialists, Inc. 
171 Main St. 
Natick, MA 01760 

3. Genisco C Filter 
Genisco Technology Corp. 
18435 Susana Road 

Rancho Dominquez, CA 90221 

4. Multi-Outlet Power Strips 
$43.97-$73.95 

MFJ Enterprises 

PO Box 494 

Mississippi State, MS 39762 

5. Spikc-Spiker Mini-I and Mini-II 
Kalglo Electronics Co. 

6584 Ruch Road 
East Allen Township 
Bethlehem, PA 18027 

6. Isolator (Iso-1, 2, 3, 4, and Iso II) 
$62.95-$ 106.95 

Electronic Specialists, Inc. 
171 Main St. 
Natick, MA 01760 

7. May Day 
$240 and up 

Sun Research, Inc. 

Box 210 

New Durham, NH 03855 

8. Lemon, Lime, Orange, Plum 
$49.50-$ 139.95 
Electronic Protection Devices 
41 Sun St. 

Wallham, MA 02154 

9. Power Master Line Filters 
SGL Waber Electric 
Dept. W 

300 Harvard Ave. 
Weslville, NJ 08093 

10. HDA Power Master 
Automated Systems, Inc. 
5265 Port Royal Road 
Springfield, V A 22151 

1 1 . EFI Filter/Suppressor 
$400-$800 

Electrical Filters, Inc. 
PO Box 9087 

2147 East 3300 South 
Salt Lake City, UT 84109 



12. Clipstrip and Clipper 

Line Voltage Transient Suppressors 
DyMarc Industries, Inc. 
7133 Rutherford Road 
Baltimore, MD 21207 

13. The Voltage Surge and 
Transient Suppressor 
Cuesta Systems, Inc. 
3440 Roberto Court 

San Luis Obispo, CA 93401 

14. LF2 and LF6 
R.L. Drake Co. 
540 Richard Street 
Mimisburg, OH 45342 

15. Power Line Filter (26-1451) 
$49 

Radio Shack 

(All Radio Shack stores) 

Ft. Worth, TX 76102 

16. RAMLOK 

Ladco Development Co. 
PO Box 464 
Olean, NY 14760 

17. ZTA and ZTD Filters 
Power Integrity Corporation 
300 East Wendover Ave. 
Suite 102 

PO Box 9682 Plaza Station 
Greensboro, NC 27401 

18. Quiet Line 6 
$39.95 

BWJ Technology 
Box 6214 Dept. 8 
Arlington, TX 7601 1 

19. Glitch Guard POP 

Til Electronics Division 
1375 Akron St. 
Copiague, NY 11726 

20. Glitch Sentinel (GS-1, GS-2, GS-3) 
$3O0-$900 

Billings McEachern, Inc. 
333 Cobalt Way, Suite 106 
Sunnyvale, CA 94086 

21. Standby Power System (SPS) 



22. 



Gould, Inc. 

PO Box 43140 

St. Paul, MN 55164 

Power Line Filter 
J.W. Miller Division 
Bell Industries 
19070 Reyes Ave. 
Compton, CA 90221 



23. Model CN-1 110 
DoAll Company 
Des Plaines, II. 60016 



W..I..D..E REFCBT SUPPORT 

WD 11/16 and DAISY WHEEL II 

Print 13 and 20 Characters /irch 



D L P Company 
6798 Wetheridge Dr. 
Cincinnati, Ohio 45230 

513 232-7791 - 413 

VISA OR MASTERCARD ACCEPTED 

$75.00 

260 characters in just 13" at 20 
CPI; 170 in 7". Excellent qua- 
lity 15 CPI printing; 195 Char. 
in 13"; 120 in 8". SCRIPSIT™ 2.0 
TRSDOS 1 " 2.0/4.1, VISICAIC®, PRO- 
FILE", BASIC, COBOL, etc. 



COLOR COMPUTER 



PROGRAMMABLE 
SOUND MODULE 



AT LAST — the COLOR COMPUTER'S 
audio capabilities even SURPASS its 
great graphics! If you can program in 
BASIC — plug in the PSM cartridge 
and start to create life-like explosions, 
engines, animals, wind, water and other 
sounds limited only by your imagination. 
Complex sound effects are continuously 
maintained independently of your 
program. The PSM is a power-packed 
hardware/software combination and 100.X 
compatible with ALL models of the 
Color Computer. 

PSM + complete instructions $ 98-95 
Available from: 

MAPLE LEAF SYSTEMS 

P.O.BOX 2190, STATION C , Downswiew 
Ontario, CANADA M2N 2S9 .-92 



Table 1. Power line filtering equipment 



Maxell Floppy Disks 

The Mini-Disks 
with maximum quality. 





Dealer inquiries 
invited. CO.D's 
accepted. Call 
FREE (800) 235-4137. 



PACIFIC EXCHANGES 

100 Foothill Blvd.. San Luis 
San Luis Obispo. CA 93401. 
n Cal. call (800) 592-5935 or 
(805)543-1037. 



>s 207 



^See List of Advertisers on 
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TUTORIAL 



nto the 232 



by Howard Miller 



E 



ver wonder about the RS-232 port on the back 
of your micro? Just how does it receive and 
send data? Stay tuned. Howard's got the scoop. 



The TRS-80's serial interface re- 
ceives parallel bytes of information 
and sends them out one bit at a time. 
This makes data transmission between 
machines simpler; only a single pair of 
lines is needed to transmit signals from 
one point to another. 

The factors involved in sending in- 
formation this way, such as which bit 
(most significant or least significant) is 
sent first, how the start and end of a 
character are defined, and the current 



flow in the line, are all decided in ad- 
vance. The hardware details, determined 
a number of years ago, are collectively 
referred to as the RS-232C standard. 

The RS-232C standard allows infor- 
mation to be sent from one machine to 
another even though the machines 
were made at different times and by 
different manufacturers. There are ac- 
tually 25 lines in the standard and 25 
pins in an RS-232C connector, but it is 
not necessary to use all of them. 



Pin Number 


Abbreviation 


Description 


1* 





Ground 


2* 


TXD 


Transmitted data 


3* 


RXD 


Received data 


4* 


RTS 


Request to send 


5* 


CTS 


Clear to send 


6* 


DSR 


Data set ready 


7* 


— 


Signal ground 


8* 


CD 


Carrier detect 


9 


— 


Used for data-set testing 


10 


— 


Used for data-set testing 


11 


— 


Unassigned 


12 


SCF 


Secondary carrier detect 


13 


SCB 


Secondary CTS 


14 


SBA 


Secondary TXD 


15 


— 


Synchronous transmit clock 


16 


SBB 


Secondary RXD 


17 


— 


Synchronous receive clock 


18 


— 


Unassigned 


19 


— 


Secondary RTS 


20* 


DTR 


Data terminal ready 


21 


— 


Signal quality detector 


22* 


RI 


Ring indicator 


23 


— 


Synchronous clock rate 


24 


— 


Transmit signal timing 


25 


— 


Unassigned 


♦Lines used by TRS-80 


Table 1. RS-232CPin Designations 





Current, rather than voltage, levels 
arc used to transmit information. In 
this way, the resistance of the lines is 
extremely low and interference from 
outside sources such as lightning, 
fluorescent lights or radio is reduced. 
There are actually two data communi- 
cation channels in the standard, but the 
serial interface of the TRS-80 only im- 
plements one of them. 

RS-232C Lines 

The transmit data line (TD) connects 
the serial output of the interface to 
whatever is on the other end. I will call 
the TRS-80 and its serial interface the 
data terminal and whatever is on the 
other end the data set. Receive data 
(RD) transfers information from the 
data set to the data terminal. 

DTR tells the data set that the data 
terminal is ready and DSR tells the 
data terminal that the data set is ready. 
Request to send (RTS) lets the data set 
know that the data terminal has infor- 
mation it wishes to pass to the data set. 
Clear to send (CTS) lets the data ter- 
minal know that the data set is ready to 
accept information. 

Two more lines are used by modems 
to give additional status information to 
the data terminal. These lines are car- 
rier detect (CD) and ring indicator 
(RI). Carrier detect signals the data ter- 
minal that the modem has detected the 
mark frequency on the telephone line 
or other communication channel it is 
attached to. This lets the data terminal 
know it is in touch with another data 
set. Ring indicator lets the data ter- 
minal know that the telephone is ring- 
ing; on more sophisticated systems, the 
data terminal can answer the phone. 

Table 1 shows the pin assignments of 
the RS-232C standard. 

UART and ASCII 

The heart of the TRS-80 serial inter- 
face is the large-scale integration (LSI) 
chip known as the universal asynchro- 
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nous receiver transmitter (UART). 

The particular UART used in the 
TRS-80 is a TR1602B, but several 
other chips are pin-for-pin compatible 
with it. 

The TR1602B has two tri-state data 
buses and some tri-state status lines. 
Input lines get data into and out of the 
UART, enable the status lines, and 
make it possible to modify the way the 
UART operates. Tri-state lines sim- 
plify the design of the serial interface 
by electrically isolating various outputs 
from a common line until they are 
called upon. That way, several outputs 
can be tied to the same line without 
shorting anything out. 

". . .for exchanges between 

computer bulletin boards 

or remote data bases, 

seven bits are usually used. " 

The serial output line (SO) of the 
UART maintains a logic one, or mark 
condition, whenever it is not actively 
engaged in sending out information. 
When data is ready for transmission, 
the SO goes to logic-zero condition 
(space) for a predetermined period of 
time. This mark condition is referred 
to as a start bit, and is immediately 
followed by the bits that make up the 
data sent to the UART by the com- 
puter. Now, the computer normally 
uses data made up of eight bits (a byte), 
but the number of data bits that the 
UART sends out isn't necessarily 
eight. In the TRS-80 serial interface, 
the number can be five, six, seven or 
eight— more about that later. 

Immediately after the data bits, an 
optional parity bit can be sent. Its pur- 
pose is to indicate the number of ones 
and zeros (marks and spaces) in the 
character just sent. This allows the 
data terminal at the other end to de- 
termine if the information has been 
garbled in transmission. Many ser- 
vices, such as computer bulletin 
boards, omit the parity bit. 

After all this information has been 
sent, the UART returns to the mark 
condition for a specific period of time 
to let the data terminal at the other end 
know it has finished sending that par- 
ticular bit of data. 

Data can be sent in the 8-bit format, 
but for exchanges between computer 
bulletin boards or remote data bases, 
seven bits are usually used. In this for- 
mat letters and numbers are trans- 
mitted; special codes allow control of 



the data terminal from the other end. 
The letters, numbers and codes are 
usually in the format known as the 
American Standard Code for Informa- 
tion Interchange (ASCII). In this for- 
mat the number of stop bits can be 
either one or two. Another code for- 
mat known as Baudot uses only five 
bits in sending letters, numbers and 
control codes. Baudot code requires 
1 Vi stop bits, which the UART auto- 
matically provides whenever it is set up 
to send 5-bit code. 



Input Port 

D7— Receive data available 
D6 — Transmit buffer empty 
D5 — Receiver over run 
D4 — Receiver framing error 
D3 — Receiver parity error 
D2— Not used 
Dl— Not used 
DO— Not used 



Output Port 

D7 — Parity odd/even 

D6— Word select bit 1 

D5— Word select bit 2 

D4 — Number of stop bits 

D3 — Parity enable 

D2 — Serial data out direct from computer 

Dl — Request to send 

DO — Data terminal ready 

Table 2. I/O Port 234 Configuration 



Input Port 

(DIP switch configuration) 

D7 — Parity odd/even 
D6— Word length bit 1 
D5— Word length bit 2 
D4 — Number of stop bits 
D3 — Parity enable 
D2— Baud rate bit 2 
Dl— Baud rate bit 1 
DO— Baud rate bit 



Output Port 

(Baud Rate Generator) 

D7— Transmit clock bit 3 



D6— " 

D5— " 

D4— " 

D3 — Receive clock 

D2— " 

Dl — " 

DO— " 



bit 2 
bit 1 
bitO 
bit 3 
bit 2 
bit 1 
bitO 



Table 3. I/O Port 233 Configuration 



Even though the UART is said to 
send and receive information asyn- 
chronously, this is only true to the ex- 
tent that no synchronizing clock is 
shared by the data sets on each end. 
But if the data sets are to talk to each 
other, their respective clocks must be 
very close to each other in frequency. 
With the TR1602B and similar 
UARTs, the clock rate is 16 times the 
rate at which data is sent (the baud 
rate). A very common rate is 300 baud, 
and so the clock frequency for 300 
baud is 300 times 16 or 4,800 hertz 
(cycles per second). The baud rate is 
determined in advance, along with the 
number of data bits, parity bit, and 
number of stop bits. 

While the UART waits for informa- 
tion, it checks the incoming line at a 
rate 16 times its baud rate. In other 
words, when the baud rate is 300 the 
UART checks its line 4,800 times a sec- 
ond. When the incoming line goes to a 
space condition, the UART waits 16 
clock cycles, then samples the incom- 
ing line again. If the line is still low, the 
first bit is a logic zero. Since the 
number of bits in the character has 
been decided in advance, the UART 
repeats the above action for the num- 
ber of bits in the character. If there is to 
be a parity bit, the UART checks for 
that, and then checks to make sure the 
line stays at mark for the preset num- 
ber of stop bits. 

If the parity is wrong, the tri-state 
status line that indicates a parity error 
is set. If the line did not stay at mark 
for the duration of the stop bit time, 
another tri-state status line is set. In the 
meantime, the data bits have been as- 
sembled in a register inside the UART 
and can be read out in the parallel for- 
mat by the computer. The receive data 
bus has eight lines, so if the serial data 
format is less than eight bits, the un- 
used parallel data bits are always set to 
logic low (zero). Serial data always 
goes out and comes in feet first — the 
first bit to be sent or received is always 
the least significant bit, and the last bit 
to be sent or received is always the most 
significant bit. 

The UART itself is actually two 
units that can run entirely independent 
of each other. They can even run at dif- 
ferent baud rates, though this is not 
often done. The transmit section can 
receive parallel data and send it out 
serially while the receive section takes 
in serial information and formats it for 
parallel output. 

In fact, the clock generator in the 
TRS-80 serial interface has two out- 
puts: one for the transmit clock and 
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one for the receive clock. The clock 
generator can be set to output two dif- 
ferent frequencies. This IC is referred 
to as the baud rate generator (BRG). 

I/O Ports 

The serial interface board is con- 
trolled by the computer through the 
use of four input/output (I/O) ports. 
The TRS-80 has 256 I/O ports; the 
four used by the serial interface are 
232, 233, 234 and 235 (ports E8, E9, 
EA and EB in hexadecimal). 

Port 235 is used to transfer data 
bytes to and from the UART. Even 
though the data from the computer al- 
ways has eight bits, the UART ignores 
all bits except those it is set to use. 

The rest of the I/O ports pack a lot 
of status information into 8-bit bytes 
by using the individual bits as flags. A 
given flag will be set (a logic one) if 
something is going on, or not set (a 
logic zero) if not. 

Port 234 is used to set up the oper- 
ating conditions of the UART, and to 
send RTS and DTR flags to the data 
set. One of the operating conditions of 
the UART is parity enable. This bit is 
set if you want a parity bit sent with 
your data. The parity bit can be set to 
be a mark for an odd number of ones 



SPIKE-SPIKERS™ 

Protect-Controi-Organize 

Computers & sensitive electronic equipment. 

Helps prevent software "glitches", unexplnined 

memory loss, and equipment damage 

PROTECTS with transient 

absorber & dual five-stage 

filter. Absorbs power line 

transients & filters out RF1 

"hash." 




CONTROLS with 8 individ- 
ually switched 1 20 vac 
grounded outlets. Main on- 
off switch, fuse & indicator 
light. 

Delude Power Console ORGANIZE your computer 
$79.95 * "(her equip, power cords. 

No more overloaded octopus 
cube taps. 
2-Socket Plug-In Models 

MINI-I 

Transient absorber only 

$34.95 
MINI-II 

Transient absorber plus 
3-stageRFI"Hash" filter 

$44.95 

4-Socket Plug-In Model v 

QUAD-I 

Transient absorber only 

$49.95 
QUAD-II 

Transient absorber plus 
dual 3-stageRFI "Hash" filter 

$59.95 

Electronics Co. Inc. " 

Colony Drive Ind. Park ■ 

6584 Ruch Rd., Dept.mc COD Add 3.00 + Shipping 

Bethlehem, PA 18017 Dealers Invited 




ith Light 




Order Factory Direct 
215-865-0006 
Out of State Order Toll Free 
^H 800-523-9685 
VISA 

PA Res. add 6% 



in the serial data or for an even number 
of ones. Parity odd/even is set by the 
computer to choose this condition. If 
the parity enable is not chosen, though, 
the parity odd/even flag has no effect. 

Two bits of the byte output through 
port 234 select the number of data bits 
in the serial output. As I mentioned 
before, five, six, seven or eight bits can 
be selected. These two bits are known 
as word select bit 1 and word select bit 
2. The number of stop bits is low for 
one stop bit and high for two stop bits. 
However, if you have selected a 5-bit 
word, the number of stop bits will be 
1 Vi, no matter how the number of stop 
bits is set. 

The byte the computer receives from 
the input port 234 contains status in- 
formation from the UART. The re- 
ceive-data-available flag tells the com- 
puter that the UART has received a 
character of serial information and is 
ready to output it on the receive data 
bus. Transmit buffer empty tells the 
computer that the UART is ready to 
receive a parallel byte for serial trans- 
mission. The receiver -overrun flag in- 
dicates character was received before 
the UART could transfer a previous 
character to the receiver parallel buffer 
and set the receive-data-available flag. 
The receiver-framing-error flag is set if 
the UART detects a space condition on 
its serial input line when expecting the 
line to stay at mark for stop bits. If the 
parity option is in effect and the parity 
bit that the UART receives is not the 
parity it has calculated for the char- 
acter preceding the parity bit, the 
receiver-parity-error flag will be set. 
See Table 2 for these flags and the data 
bit they are assigned to. 

A set of switches on the serial inter- 
face board allows you to preset the 
operating parameters of the UART. 



Input Port 

D7 — Clear to send 

D6 — Data set ready 

D5— Carrier detect 

D4 — Ring indicator 

D3— Not used 

D2— Not used 

Dl— Not used 

DO— Serial data from RS-232C 



Output Port 

Master Reset for UART 
Table 4. I/O Port 232 Configuration 



The position of the switches can be 
sensed by reading information from 
port 233. The switches allow presetting 
parity odd/even, word length bit 1, 
word length bit 2, number of stop bits, 
and parity enable. In addition, three of 
the switches allow you to set the baud 
rate for 50-1200 for the transmit and 
receive clocks simultaneously. The 
baud-rate generator itself is capable of 
generating rates from 50-19,200 baud 
and accepts a separate 4-bit code for 
receive clock rate and transmit clock 
rate. The baud-rate generator is pro- 
grammed by sending the appropriate 
byte out through output port 233. Data 
bits 4-7 contain the binary code for the 
transmit clock rate and data bits 0-3 
contain the binary code for the receive 
clock rate. 

The last port used by the serial inter- 
face board is I/O port 232. In the out- 
put mode, port 232 strobes the master 
reset pin of the UART. 

Input 232 contains information con- 
cerning the status of the data set. CTS, 
DSR, CD and RI are sensed through 
this port. In addition, serial data bits 
from the data set will appear on data 
bitO. 

All the signals that go out to or come 
in from the RS-232C connector go 
through special ICs that either have 
TTL (5 -volt logic) inputs and 20 mA 
current outputs or have 20 mA current 
inputs and TTL-level outputs (20 mA 
is the current specified by the RS-232C 
standard). ■ 



Howard Miller works at Siemens 
Corporation 's Nuclear Medicine Divi- 
sion. He can be reached at 360 E. Wind- 
ing River Drive, Dunwood, GA 30338. 



Binary Code 


Baud Rate 


0000 


50 


0001 


75 


0010 


110 


0011 


134.5 


0100 


150 


0101 


300 


0110 


600 


0111 


1200 


1000 


1800 


1001 


2000 


1010 


2400 


1011 


3600 


1100 


4800 


1101 


7200 


1110 


9600 


mi 


19,200 


Table 5. Codes for Setting the Baud-rate 


Generator 
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"•sTEXAS 


SR?ADE^i^?AI^RDE^ISCOuffT?M| 


>j>luljiliiji 


! 1 800 433-5184 1 
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W& Texas 817/274-5625 ffl 



TANDON DRIVES 



BARE DRIVES ONLY 

40 track single sided $199 

80 track (dual sided 40) . . $269 
160 track (dual sided 80) . $389 

5 V* inch THINLINE $Call 

8 inch THINLINE $Call 

Winchester Hard Drive . . .$Call 

WE WILL NOT 
BE UNDERSOLD! 



1 DRIVE / Single Cabinet 

40 track single sided $249 

80 track (dual sided 40 track) $329 

160 track (dual aided 80 track) $449 

1 DRIVE / Double Cabinet 

40 track single sided $289 

80 track (dual sided 40 track) $369 

160 track (dual sided 80 track) $499 

2 DRIVES / Double Cabinet 

40 track single sided $489 

80 track (dual sided 40 track) $639 

160 track (dual sided 80 track) $849 

Drives in cabinets come assembled/tested 
with power supply. Order cable separately. 



CORVUS HARD DISK 



CORVUS HARD DISKS complete from $2695 

Add 5, 10 or 20 megabytes of storage to your TRW80. Apple, Atari, Heath, Zenith, 
IBM, Intertec, S-100 and many others. One or several computers can share a hard disk. 
Get simultaneous access to data for multiple users. Available now at SUPER SAVINGS. 



PRINTERS 



TCS has the LOWEST PRICES on IN STOCK PRINTERS! 
MATRIX PRINTERS 

STAR MICRONICS $399 

NEC 8023A $495 

C. ITOH 8510 / TEC $479 

ANADEX 9601 w/2k buffer $1295 

LINE PRINTER (RS) $Call 

LINE PRINTER VI (RS) $988 

LINE PRINTER VII (RS) $649 

CENTRONICS 352 (200 cps) $1795 

CENTRONICS 353 (dual mode) . . . $2495 

OKIDATA 82A $429 

OKIDATA 82A w/tractor $479 

OKIDATA 83A $685 

OKIDATA 84A (serial) $1 169 

OKIDATA 84A (parallel) $1069 

HI SPEED BAND PRINTERS 

CENTRONICS 6080 (standard) . . . $CALL 
CENTRONICS (quletlzed) $CALL 

LETTER QUALITY PRINTERS 

C.ITOH F-10 (40 cps) $1595 

DAISY WHEEL II (RS) $1695 

SMITH CORONA TP-1 $699 

BROTHER / COMREX $829 

NEC 7730 $2375 

NEC 3530 $1795 



EPSON PRINTERS 

EPSON MX80 $449 

EPSON MX80 FT $524 

EPSON MX100 FT $685 

GRAPHTRAX PLUS comes free In Epsonsl! 

EPSON ACCESSORIES 

GRAPHTRAX PLUS (bit image) $79 

MODEL I interface $29 

MODEL I interface/cable to keyboard $85 

MODEL III cable $29 

COLOR Computer Interface/cable . . $155 

APPLE Interface/cable $89 

ATARI cable (must have 850 int) .... $36 

IBM Personal Computer cable $45 

OSBORNE cable $36 

Serial RS232 2k buffered int. card . . . $109 

EPSON PACK II 

Screen oriented bit image graphics gener- 
ator for the Model III. Create your own 
characters, symbols, etc. Documentation. 
EPSON PACK II bought w/printer $24.95 
EPSON PACK II bought separately $34.95 
Update for EPSON PACK I $7.50 



B-TREE 



CUSTOM SOFTWARE FROM TCS 



SCRATCHPAD 

The BTREE Executive 
Reference Scratchpad al- 
lows the user to store all 
your phone numbers, 
bosJnees cards and what 
ever In a muitt-key data 
base for immediate 
access by as many keys 
as you assign. Extremely 
easy to use Allows 3 
'ields of Mist data. 

$39.95 



LIBRARY 

The BTREE Library pro- 
gram allows over 2000 
books to be stored on s 
single double density 
data diskette In a efficient 
BTREE structured file for 
immediate access to your 
data by Author. Includes 
4 build in reports. No 
sorting necessary for 
reports 

$39.95 



MAIL LIST 

The BTREE Mall List 
program allows over 2000 
names to be stored on s 
single double density 
data diskette. Labels can 
be generated in- zlpcode 
order or by range of zip- 
codes snd also by s code 
restriction If you wish. 



$49.95 



TEXAS COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 ^ 

TECHNICAL ASSISTANCE 817/274-9221 

ORDER STATUS 817/277-1913 

TELEX/TWX/Easylink ELN 62100790 



800 433-5184 



No tax out of state. Texans add 5%. Prices subject to change at any time. 



DEALER INQUIRIES INVITED 



TRS-80 



TCS MODEL III 48k 2 DISK 



Systems come wMi 1M day TCS ■mated warranty. 



$1695 

With standard 40 track 

double density drives. 

Over 340,000 bytes. 

Includes TDOS. 

$1995 

With 2 dual headed 40 

track dbl. density drives. 

Over 730,000 bytes. 

Includes TDOS. 



Fully assembled and tested systems that are software compatible and functionally 
Identical to Radio Shack units sold at computer stores for $hundreds more. 

■ CONTROLLER BOARDS are high quality double sided epoxy boards with gold 
plated contacts. 

■ POWER SUPPLY is the finest switching type available. 

■ MOUNTING HARDWARE includes power and data cables. 

■ DISK DRIVES are Tandon, the same ones used by Radio Shack ... 40 track, double 
density, with a 5 millisecond stepping rate. 




TCS MODEL III DISK EXPANSION KITS 

1 Controller. Power Supply, Mounting Hardware & Instructions ., $279 

2 Controller, Power Supply, Hardware 4 one 40 track Tandon drive $478 

3 Controller, Power Supply, Hardware & two 40 track Tandon drives $677 

3A Kit 3 but with two 80 track Tandon drives (dual sided 40s) $879 

3B Kit 3 but with two 160 track Tandon drives (dual sided 80s) $1099 

16k of high quality memory chips ... $16 32k of high quality memory chips ... $32 



I 



MODEL III SYSTEMS 

Original 90 day manufacturer's warranty. 
MODEL III 4k Level 1 $599 

MODEL III 16k $818 

MODEL III 32k $898 

MODEL III 48k $968 

MODEL III 48k 2Dr/RS232 $1944 

TCS MODEL III Systems use original RS 
hardware and quality TCS memory. 
180 day limited warranty. 

TCS MODEL III 16k $799 

TCS MODEL III 32k $818 

TCS MODEL III 48k $848 



COLOR COMPUTER 

Original 90 day manufacturer's warranty. 
16k level 1 $308 

16k Extended Basic $396 

32k Extended Basic $CALL 

Color Disk $479 Disk 1 $349 

TCS COLOR COMPUTERS use original 
RS hardware & TCS memory. 
180 day warranty. 

TCS 32k Extended Basic . $499 

TCS 32k Memory Upgrade $79 

TCS Coior Disk Drive $449 

TCS Color Disk Drive 1/2/3 $249 



Model II . . Model 16 . . Accessories . . $CALL 

TCS is an authorized TRS-80 dealer F701 in Brady. Texas 



Regularly $199 . Introductory Price 12/31/82 



WIZARD'S TOUCH 

Program Development System $99 

BELIEVE IT OR NOT, YOU CAN DEVELOP YOUR OWN PROGRAM IN 15 MINUTESIII 
The WIZARD'S TOUCH Program Development System is a superior program 
generator that can provide you with the program you3ve been looking for. It comes with 
It's own Disk Operating System, providing unlimited backups. 

With WIZARD'S TOUCH, here's what you can do: 

■ Custom design your own special form for maximum ease of entering your data. You 
have total control over defining the number of characters assigned to each field and 
any other entry restrictions. 

■ Fully view and edit all fields at all times. No need to retype an entire field when editing. 
Just type over the mistakes, or Insert or delete them. 

■ Create a BTREE structured file, allowing you to access your stored data rapidly and 
without sorting. Duplicate keys are allowed, as well as sub-keys. 

■ Enter data at full typing speed. 

■ Define your own special self-help or prompt Information that will be displayed for any 
given field, by just touching one key. 

■ Expand your program to support up to 8 calculations for each data field. Results can 
be displayed In any field or in any defined display area. Results can also be saved to disk 
along with regular data fields. Data such as dates or prices can be formatted as desired. 

■ Generate your own reports with the built-in pre-defined or custom defined report 
generator. Just a few keystrokes can get you a report that can be alphabetized or 
ordered by any field. And It's all automatic. 

The WIZARD'S TOUCH is so fast and eaay to use. It makes other development 
systems of the market look like amateurs. No royalty necessary for resale of 
programs you develop on WIZARD'S TOUCH. It creates a stand-alone, fully 
commented, BASIC program, which you can easily modify. 

Your purchase includes a free subscription to our WIZARD'S TOUCH newsletter, a 
quarterly publication with free programs, Ideas for applications, updates and more. 
Now available for MODEL l/lll Coming soon for MODEL II. IBM and APPLE. 



TUTORIAL 



Ribbon Rewind 



by Dan Keen and Dave Dischert 



L 



earn how to rewind multistrike carbon ribbons 
for your Daisy Wheel II printer, and you can 
get seven extra printings from a cartridge. 



Everybody wants to get the most 
they can out of the things for which 
they lay out their hard-earned cash. 

Here is a trick for Daisy Wheel II 
owners that can save them hundreds of 

Photos by George M. Keen 



dollars a year in ribbon expenses. 

The multistrike carbon ribbons 
(Radio Shack number 26-1419) for 
the Daisy Wheel printer are one-shot 
deals; they are designed to be used once 




and then thrown away. We have found 
that it is a very simple matter to rewind 
the ribbon and reuse it not once, not 
twice, but up to seven or eight times! 

These ribbons cost $24.95 for a box 
of three at your local Radio Shack 
store. That figures out to about $8.32 
each. Add sales tax, let's say five per- 
cent, and that brings the price up to 
$8.72 for one cartridge. 

Now if you can get seven extra print- 
ings from a cartridge, that's a savings 
of $61.04 per cartridge or $183.12 per 
box! 

The best news is that the quality of 
the second printing is almost identical 
to the first. Naturally, with each re- 
wind of the ribbon the print will 
become slightly more faded. After 
about the fourth pass the print density 
reaches a point where you would not 
want to use it for formal letters. But it 
still remains fine for general computer 
use as well as line listings. 

The Rewinding Procedure 

First, remove the small belt for the 
top of the cartridge as seen in Photo 
1. The cartridge itself pries apart very 



Photo I 



The Key Box 

Any TRS-80 
Daisy Wheel II 
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Photo 2 



Photo 3 



easily. Insert a small screwdriver into 
one of the large holes where the rib- 
bon enters and exits the cartridge, as 
shown in Photo 2. 

Once you have raised the corner, slip 
the screwdriver along the crack in the 
side (Photo 3). Continue to pry until 
you have gone completely around the 
circumference of the cartridge. The top 
will then pop off. 

With the inside exposed, remove the 
clear thin circular sheet of plastic that 
sits on top of the supply reel. Carefully 
unlace the ribbon from around the 
gear and other guides. Position the rib- 
bon so it goes directly from the take-up 
reel to the supply reel, bypassing any 
guides or wheels. 

The supply reel has little hollow in- 
dentations, or bins, around its hub. 
This makes it easy to insert a screw- 
driver or ball point pen into any one 
of these bins and use it as a lever with 
which to rewind the ribbon. This is 
seen in Photo 4. 

After a half dozen turns or so it is 
important to stop and push down on 
the ribbon as it goes onto the reel. It 
has a tendency to ride up as you wind. 
The ribbon cannot stick up or else it 
will be squeezed when the cover is put 



back on, preventing the ribbon from 
moving. Photo 5 demonstrates the best 
way to apply pressure, which is by 
pushing down on opposite sides of the 
reel using two or three fingers. 

When the rewind is complete, the 
ribbon must be threaded again. In case 
you forget how you took the ribbon 
off, Fig. 1 shows the path of travel. 

Upon completion of the rewind, re- 
place the clear plastic disk on the sup- 
ply reel. The top cover simply snaps 
back on. Place the belt back on top of 
the cartridge. 

Using your fingers, turn the green 
manual knob that is used to take up 
slack. Look at the exposed ribbon as it 
passes through the open area and be 
sure it is moving along. If it isn't, pry 
the top off again and press hard on the 
ribbon several times. As we mentioned 
before, there is no extra room in that 
slim cartridge to accommodate any 
part of the ribbon that rises higher than 
the top of the reels. 

You will become very proficient at 
this procedure after rewinding a few 
cartridges, and the whole operation 
will take only 10 or 15 minutes. 

We have been using this technique 
for over a year and a half. We do heavy 



printing and, needless to say, have 
saved a small fortune in ribbons. 

Occasionally you can only get a few 
passes from a cartridge. The ribbon 
itself is super thin and not very 
durable, since it is only designed for a 
single pass. Careless handling of the 
ribbon may cause it to break. It is 
usually impossible to recover a broken 
ribbon. 

So start saving those used cartridges 
and cash in on the recycled market. ■ 

Dan Keen and Dave Dischert can be 
reached al RD1 Box 432, Slate High- 
way S3, Cape May Court House, NJ 
08210. 
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HARDWARE 



Homebrew Green Screen 



by James Conroy 



s 



o you want to add a filter to your video 
screen, but you think they are too expensive? 
Follow these directions and build your own. 



If you are tired of the harsh black- 
and-white video screen Radio Shack 
provides with the Models I, II and III, 
there is something you can do about it. 
Your options are to buy a $300 green 
phosphor monitor, buy a plastic video- 
screen filter for about $10, or build 
your own for less than $5! 

Here's How 

Most commercial video-filter pro- 



ducts are made of acrylic resin-based 
plastics. This inexpensive plastic sheet- 
ing is available at your local hardware 
store or window-glazing supply house. 
Lucite, Plexiglass, Acrylite, and Poly- 
cast are pseudonyms for the same basic 
product and will do fine for a home- 
brew screen filter. You should choose a 
transparent green plastic sheet 1/8 inch 
thick (see Fig. 1). 
Ask for a pre-cut piece of acrylic 




-VELCRO TABS 



-OPTIONAL 1/4 



Figure I 



ACRYLITE 

GREEN 545-2 
GREEN 546-7 
GREEN 539-6 



POLYCAST 



#2092 
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#2414 



A SAMPLE LISTING OF BRAND NAME 
PLASTICS AND PRODUCT NUMBER COLOR CODES 



Figure 2 



plastic 8V2 by 11 inches. I purchased a 
sheet for $2.66. 



Mounting the Screen 

Your plastic sheet is covered on both 
sides with protective adhesive paper; 
peel this off carefully. (This paper 
removes more easily in a warm en- 
vironment than a chilly one.) 

To copy the method used by video 
filter suppliers, find two narrow strips 
of pressure-sensitive adhesive tape 
(double-back carpet tape will do) and 
apply them to the vertical sides of your 
screen. (See Fig. 2.) It's a good idea to 
wipe the monitor and plastic sheet with 
alcohol to remove any grease before 
affixing the tape to the plastic. Press 
the screen to the monitor — that's all 
there is to it! 



A Few Refinements 

If you own a light pen, you will want 
to remove your filter from time to 
time. (The space between the plastic 
sheet and the video screen is too great 
for reliable light pen use.) A simple 
way to accommodate this is to use 
Velcro tabs instead of adhesive strips. 
Velcro holds firmly and yet allows you 
to place and remove your video screen 
at will. Velcro, used to secure carpet 
or electrical cords and garments, is 
available at hardware and sewing 
stores. Simply glue one tab at each cor- 
ner of your plastic sheet and a corre- 
sponding tab on the monitor. 

As a final refinement you may want 
to use silver or black paint for 1 /4-inch 
margins on the plastic sheet. ■ 



James Conroy can be reached at 1227 
Walnut St., Allentown, PA 18102. 
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ft Practical and Educational Gift 
The RPL*PLUS 80 System. 




All you get when you buy some software systems is 
a thin manual and a handshake for good luck. 
STSC's APL* PLUS/80 System is different. We give 
you a set of documentation that's so complete you 
won't need to read another thing to develop and 
run solutions on your TRS-80" Model HI. 

We know that our APL* PLUS/ 80 System can improve 
your productivity- if you know how to use its power. We start 
you off with a beginner's operation guide, if you're new to APL 
and to the TRS-80, and a beginner's tutorial, if you're familiar 
with the TRS-80 but not with the language. Then we include 
the most widely used APL textbook, so that once you get a 
taste for APL, you can study it in detail. 

Challenge to BASIC 

Build a data file with 15 records of 21 random numbers between 1 and 
100 chosen without duplicates (in a record) and arranged in tables 
with 3 rows and 7 columns. Write a subroutine that reads a specified 
record and prints the table with row and column totals in fields 6 
columns wide. Here is an APL solution: 

V HA.IDOMTABLES-,1 
[1] 'RTABLES' HFCREATE 10 1*4. 
[2] i:(3 7o21?100)nF/IPP£WD 10 +(15>I<-I+l)p£ 

v SH0WTABLE N;M 

[i] "tv vmr «.[iwrnw«-.«?,+/M» j '!FffiM0 io,w 



useful applications in APL, because APL is easy. APL is also 
fun and we're sure that when you know a little APL, you'll 
want to know a whole lot more— and that's why we're giving 
you the most complete set of documentation on the market. 

If you'd like to use APL on your TRS-80 Model HI to develop 
and deliver solutions faster and better for yourself or for your 
clients, send for the APL* PLUS/80 Application Development 
System. Mail in the coupon with your payment and we'll send 
you everything you need to run APL on your TRS-80 right 
away. If you'd like more details, check the box on the coupon 
and we'll send you our free information package which in- 
cludes a detailed explanation of the Challenge to BASIC. 

We're STSC, Inc., the leading supplier of APL software and 
services in the United States. Our APL* PLUS systems have 
been serving the business and professional world for more 
than 12 years. 

APL* PLUS/80 runs under TRSDOS" 1.3 or LDOS" 5.1 on a 48K 
RAM TRS-80 Model III with two disk drives. The APL* PLUS/80 System 
comes with a custom APL-character ROM and a self-adhesive key- 
board label set to convert your TRS-80 to the APL character set. 



RANDOMTABLES SROWTABLE 12 



399 

382 

323 

1104 



Attn: APL* PLUS/80 Distribution 
STSC, Inc., 2115 East Jefferson Street 
Rockville, Maryland 20852 



(301) 984-5000 (orders only) 



Here's your complete documentation package: 

• Introduction to the APL* PLUS/80 System. 

• Product Overview: APL* PLUS Systems. 

• APL* PLUS/80 Computer Operation Users Guide. 

• APL is Easy! 

■ APL: An Interactive Approach, Leonard Oilman and Allen J. 
Rose (Wiley, 1974). 

• APL* PLUS/80 Formatting User's Guide. 

• APL* PLUS/80 Shared Files User's Guide. 

• APL* PLUS/80 Programmer's Reference Manual. 

• Two APL* PLUS/80 Reference Cards. 

We don't want to scare you away with our extensive docu- 
mentation. You don't need to read all the manuals to write 



Yes, send me the APL* PLUS/80 System, postpaid. 

D My check for $295 is enclosed. "Add sales tax where applicable. 

□ Charge my MasterCard Account * 

Bank # 

□ Charge my VISA Account * 

Expiration date: 

'State sales tax applicable in MD (5%), FL (4%), and CT (7J$%). 

I'd like to know more about the APL* PLUS/80 System. 

□ Send me your free information package. 

Name 



Address 



City 

Phone ( 



. State . 



.Zip. 



_L 



API.* PLUS is a service mark and trademark of STSC. Inc.. registered in the United States Patent and Trademark Office. 
TRS-80 and TRSDOS are registered trademarks of Tandy Corporation. LDOS is a registered trademark of Logical Systems Corporation. 



80-AN82 
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TUTORIAL 



Coping with Cassettes 



by Richard Whitney 



Y 



ou will have a peaceful co-existence with 

your cassette recorder if you follow these 

tips and perform these maintenance procedures. 



My problems with the cassette 
recorder began nearly five years ago. I 
figured I could save money if I used my 
existing audio cassette recorder instead 
of purchasing the cassette unit recom- 
mended for the TRS-80. Unfortunate- 
ly, my cassette recorder drew more 
power than the control relay in the 
TRS-80 could handle. The relay con- 
tacts fused together causing the motor 
to run continuously. Radio Shack re- 
placed the relay and I had learned my 
lesson. 

Even after purchasing a new cas- 
sette recorder, using cassettes didn't 
become painless. However, I have fi- 
nally learned to live with the cassette 
recorder and my cassette-based system 
is virtually trouble free. 

Here are some tips that I have devel- 
oped over the years that should help 
new and experienced TRS-80 users. 



General Tape Tips 

Use standard audio cassettes for file 
storage. Expensive certified computer 
cassettes are not worth the extra 
money. Most low-noise cassette tapes 
work just as well. 

Use the short tapes: sizes C-10, C-20 
or C-30. Longer tapes require extensive 
amounts of file searching and it's 
usually faster to change the tape than 
search for a file at the end of the tape. 

Always stop the recorder when the 
tape motion stops for any significant 
length of time. When the tape is not 
moving, the capstan presses on one spot 
of the tape and will, after just a short 
time, cause a crease in the tape. This is 
probably the most common cause of 
data recovery errors. For example, 
always stop the recorder after loading a 
program from the tape and before ex- 
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Debugger 


System 


DBUG 
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Basic 
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Table 1 







ecuting it. It is easy to forget this after 
you have started the program. 

Group program categories together 
on the same tape, i.e., games, utilities 
and so on. It organizes your tapes and 
makes retrieving files easier when you 
need them. 

Use both sides of the tape instead of 
squeezing too many files on one side. 

Reset the tape counter to zero when 
the tape is in the fully rewound position. 

Label tapes with file grouping, group 
number (if more than one), baud rate (if 
your computer uses more than one 
rate), side of tape, and a description of 
each file. The description should in- 
clude: tape counter starting number — 
first file copy, second copy; file name or 
description; file type — Basic or System; 
file identification used for access. 

There is little room on the cassette to 
write all this information. The tape 
label should contain just the group 
name and number which matches the 
name on the tape box and the tape side 
information. Place a piece of paper in 
the tape box with the rest of the infor- 
mation. (See Table 1.) 

Tape Recording Techniques 

Never start recording a file at the very 
beginning of the tape even if the tape is 
leaderless. This portion of the tape is 
often stretched when the tape is re- 
wound causing file recover errors. 
Allow the tape counter to advance to at 
least five. 

Start files at tape counter multiples 
of five (or ten). This aids in keeping 
track of file positions and provides 
some spacing between files. 

Make two copies of each file, one 
after the other placing the usual space 
between them. This helps ensure a 
good copy in case of a file read error. If 
the file is very important, you might 
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consider placing another copy on a 
separate tape. 

Verify all copies of the file after 
recording them. Basic programs can be 
verified using the CLOAD? command. 
Most system program copiers usually 
provide the ability to verify files. 

When recording over existing files, 
the new files are often of a different 
length than the file being overwritten. 
Pieces of the old file are thus left be- 
tween the newly written files. To clean 
up any remains of the old files and 
make a cleaner, easier-to-read tape, 
first disconnect the motor control cable 
from the cassette recorder to control the 
tape motion manually. You can recon- 
nect it after the file(s) is written. 

Second, type in the command to 
write the file, but don't press enter yet. 
Third, press record and play together 
on the recorder, starting the recorder at 
a tape counter multiple of five or ten. 
If re-recording the first file on the 
tape, start the recorder on the clear 
plastic leader and advance it to five or 
ten to ensure that the beginning of the 
tape is clean. 

Fourth, wait for the tape counter to 
advance beyond the selected count by 
approximately one count. Then start 



writing by pressing enter on the key- 
board. The extra space after the in- 
dicated file starting count helps correct 
inaccuracies in the tape counter me- 
chanism after fast forwarding or re- 
versing the tape. 

Fifth, when the file has been written 
on the tape and a prompt appears on 
the monitor, allow the recorder to con- 
tinue to advance until the next multiple 
of five or ten. If the end of the file is 
near the next multiple, allow the count 
to proceed until the second count 
multiple. This provides an inter-file 
spacing that aids locating the begin- 
ning of files. 

Sixth, stop the recorder and write 
down the counter value. That value is 
the start of the next file on the tape. 

Finally, reconnect the motor control 
cable if this is the last file to be written, 
otherwise repeat the steps above for 
each file. 

Tape Storage 

Rewind the tape before storing it. 
Then only the tape leader is exposed 
and the tape stays clean. 

When storing tapes, place them in 
the cassette tape boxes. It helps keep 
them cleaner and prevents the tape 



from becoming snagged. 

Store tapes away from any magnetic 
devices, such as the power supply, tv 
monitor, and line printer. Such devices 
can affect data on the tapes. 

Tape Recorder Maintenance 

Clean the tape recorder heads 
regularly. Depending on use, this 
should vary from weekly to monthly. 
Use either a commercial tape recorder 
head cleaner, or 190-proof isopropyl 
(not rubbing) alcohol and a Q-tip. 

Degausse tape heads after every 
three or four tape head cleanings. De- 
gaussing removes magnetic buildup 
that interferes with recording and 
playback. You can purchase an inex- 
pensive tape head degausser at most 
Radio Shack and many audio equip- 
ment stores. 

I have presented some techniques 
for using the cassette tape recorder to 
store data for your home computer. 
These guidelines make the cassette re- 
corder more reliable and even en- 
joyable to use. ■ 

Richard Whitney (105 O' Kelly Lane, 
Cary, NC 2751 1) is employed by Data 
General Corp. 



PRODUCTS FOR YOUR RADIO SHACK 








MACRO-BOC 



The Micro Works is pleased to announce the release of its disk-based editor, 
macro assembler and monitor, written for Color Computer by Andy Phelps. THIS 
IS IT — The ultimate programming tool! 

The powerful 2-pass macro assembler features conditional assembly, local labels, 
include files and cross referenced symbol tables. MACRO-80C supports the 
complete Motorola 6809 instruction set in standard source format. There are no 
changes, constraints or shortcuts in the source language definition. Incorporating 
all of the features of our Rompack-based assembler (SDS80C), MACRO-80C con- 
tains many more useful instructions and pseudo-ops which aid the programmer 
and add power and flexibility. 

The screen-oriented text editor is designed for efficient and easy editing of 
assembly language programs. The "Help Key" feature makes it simple and fun to 
learn to use the editor. As the editor requires no line numbers, you can use the 
arrow keys to position the cursor anywhere in the file. MACRO-80C allows global 
changes and moving/copying blocks of text. You can edit lines of assembly 
source which are longer than 32 characters. 

DCBUG is a machine language monitor which allows examining and altering of 
memory, setting break points, etc. 

The editor, assembler and monitor — as well as sample programs — come on one 
Radio Shack compatible disk. Extensive documentation included. Macro-80c 
Price: $99.95 



SDS80C — Our famous editor, assembler and monitor in Rompack. Complete 
manual included. Price: $89.95 



PARALLEL PRINTER INTERFACE — Serial to parallel converter allows use of all 
standard parallel printers. You supply printer cable. PI80C Price: $69.95 



MICROTEXT — Get printouts while using your modem! Also download to cassette 
General purpose terminal Rompack. Price: $59.95 



YOU NEED COLOR FORTH!! 

Why? -Forth is faster to program in than Basic 

•Forth is easier to learn than Assembly Language 
•Forth executes in less time than Basic 

Forth is a highly interactive language like Basic, with structure like Pascal and 
execution speed close to that of Assembly Language. The Micro Works Color Forth 
is a Rompack containing everything you need to run Forth on your Color Computer. 
Color Forth consists of the standard FORTH Interest Group (FIG) implementation of 
the language plus most of FORTH-79. It has a super screen editor with split 
screen display. Mass storage is on cassette. Color Forth also contains a 
decompiler and other aids for learning the inner workings of this fascinating lan- 
guage. It will run on 4K. 16K. and 32K computers. Color Forth contains 10K of 
ROM, leaving your RAM for your programs! there are simple words to effectively 
use the Hi-Res Color Computer graphics, joysticks, and sound. The 112-page 
manual includes a glossary of the system-specific words, a full standard FIG 
glossary and complete source listing. COLOR FORTH ... THE BEST! From the 
leader in Forth, Talbot Microsystems. Price: $109.95 



THE 



GAMES 

Star Blaster — Blast your way through an asteroid field in this action-packed Hi- 
Res graphics game. Available in ROMPACK: requires 16K. Price: $39.95 
Pac Attack — Try your hand at this challenging game by Computerware, with 
fantastic graphics, sound and action! Cassette requires 16K. Price: $24.95 
Berserk — Have fun zapping robots with this Hi-Res game by Mark Data 
Products. Cassette requires 16K. Price: $24.95 

Adventure — Black Sanctum and Calixto Island by Mark Data Products. Each 
cassette requires 16K. Price: $19.95 each. 

Cave Hunter — Experience vivid colors, bizarre sounds and errie creatures in hot 
pursuit as you wind your way through a cave maze in search of gold treasures. 
This exciting Hi-Res game by Mark Data Products requires 16K for cassette 
version. Price: $24,95 

,, . ± _ _. ., _ , California Residents add 6% Tax 

Also available: Machine language Monitor • 2-pass Disassembler • Books • 
Memory Upgrade Kits • Parts and Services • Call or write for information 



^©\^j^ P.O. BOX 1110 DEL MAR, CA 9201 4 
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61 9-942-2400 
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HARDWARE 



Ultimate Joystick Interface 



by Donald E. Michel and Art May 



Wouldn't you rather use a joystick when you 
play games on your Mod I? This joystick 
interface is cheap, and easy to build and use. 



position. There had to be a way to 
make this stick fit my requirements (in- 
expensive, no complicated hardware 
modifications), and indeed there is. 

The Circuitry 

The schematic in Fig. 1 shows one 



The first item needed to build a 
joystick addition to your computer is 
the stick. Most sticks use potentio- 
meters to read the paddle's position — 
voltage values vary as the stick is 
moved around. This arrangement 



works well, but is needlessly complex. 
The computer only wants ones and 
zeros anyway. 

Atari manufactures a joystick that 
simply depresses a switch anytime the 
stick is fully thrown into a particular 
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Fig. I. Joystick Interface 
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improvement over some other designs: 
our port (OFDH) is properly decoded 
by the 74LS30 IC. This technique 
makes the interface essentially trans- 
parent to the rest of system, avoiding 
hang-ups if an inadvertent call to a 
port is made. 

The address line Al is inverted by 
pins 1 and 2 of the 74LS00 (IC 1), while 
the balance of the address lines feed di- 
rectly to the 74LS30. The resulting sig- 
nal is inverted once again and, when 
coupled with the In line going to pin 
13, creates all the logic necessary to se- 
lectively fire the buffers of IC3. This in 
turn gates the existing bit pattern of the 
joystick to the TRS-80's bus. Simple? 

It is, if you've ever done this sort of 
thing before. Still, one or two incon- 
sistencies rear their ugly heads. No big 
deal, but you have to be careful. 

One notable oddity is the fact that no 
40-pin card edge connector in the world 
has pin designations corresponding to 
the TRS-80's pin numbers. The TRS-80 
numbering is always one digit different 
than the connector mating with it, thus 
the discrepancy (see Fig. 2 for proper 
orientation of TRS-80 and connector 
pin designations). 

Another minor hassle concerns the 
power needed to run the thing. If you 
do not have an expansion interface, 
power your unit from the +5 and 
ground pins available from the bus ex- 
tension at the keyboard. The ex- 
pansion interface does not provide +5 
volts, but improvising is easy. Cut the 
trace between pins 37 and 39 (pin 39 is 
an unnecessary ground, see Fig. 3). 
Then jumper + 5 volts from the reverse 
side of the PC board (Fig. 4). The LS 
chips consume very little power, so 
don't worry about burdening your 
power supply. 

Construction 

The easiest approach is to wire-wrap 
the interconnections after mounting 
the parts on a suitable PC board. I 
chose the parts listing in Fig. 1 for ease 
of assembly and to keep the unit's size 
to a minimum. There are not many 
connections to be made and construc- 
tion goes quickly. 

Software 

How easy it is to develop routines to 
interface your joystick with your pro- 
grams depends on your skill as a pro- 
grammer and what it is you want to do. 

As a simple example, and to test 
your newly completed interface, type 
in the Basic program in Listing 1. An 
asterisk should appear and move in 
directions determined by the paddle. 



Pressing the fire button causes the 
word Fire to blink on the screen for as 
long as it is depressed. 

An INP command examines the bit 
pattern on the data lines. The A 
variable takes on the complement of 
the input port ANDed with 31 to mask 
the lower five bits. A is checked for set 
bit positions. Depending on the out- 
come of the check, it either processes 
Fire or moves the asterisk. Lines 
120-140 keep you from cruising off the 
screen, while line 150 keeps the screen 
from scrolling. Line 190 does the ac- 
tual printing, then sends execution 
back to the polling routine at line 60. 

The program is given as an example; 
the interface is certainly not limited to 
such trivia. The Atari paddle can oper- 
ate with two of its internal switches de- 



pressed at the same time by moving the 
stick diagonally. Diagonal movement 
is provided by sequentially checking 
each bit position. 

Once you get the hang of using 
Basic's INP command and can suc- 
cessfully read your joystick's port, you 
are free to do whatever you want. And 
you are not stuck with Basic, either. 

The joystick subroutine can be 
POKEd into memory. For the ultimate 
in realism, patch machine-language 
routines into existing arcade-style 
games. The results are amazing. See 
Program Listing 2 for a general Z80 
routine. 

Listing 2 is a typical machine-lan- 
guage module for computer control via 
the joystick. Line 10 copies the input 
port to the A register. Line 20 looks for 
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REAR OF KEYBOARD 
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Figure 2 



10 


CLS 






20 


5EFINT A-Z 






30 


Xl = 90 






40 


Y=7 






50 


X=30 






60 


k=NOT(INP(253)AND 31) 






70 


IF A AND 1 THEN PRINT00, 


"FIRE" 


:FOR I=1TO100:NEXT:PRINT@0," 


80 


IF A AND 2 THEN X=X-1 






90 


[F A AND 4 THEN X=X+1 






100 


IF A AND 8 THEN Y=Y+1 






110 


IF A AND 16 THEN Y=Y-1 






120 


IF X<0 THEN X=0 






130 


IF X>63 THEN X=63 






140 


IF Y<0 THEN Y=0 






150 


IF Y>15 THEN Y=15 






160 


IF Y=15 AND X=63 THEN X 


= 62 




170 


X2=64*Y+X 






180 


PRINT@Xl," "; 






190 


PRINT@X2,"*"; 






200 


X1=X2 






210 


GOTO60 








Program Listing 1 
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joystick activity (OFFH indicates no 
joystick activity). Line 30 continues the 
program if all bits are set. Line 40 
rotates the lowest bit into the condition 
code register. Line 50 calls the button 
response routine in the main program. 
The remainder of the module success- 
fully checks for zero bits and calls the 
proper response routine in the main 
program. Line 140 continues the user's 
program. 

Commercially available joysticks 
will do everything this one does. But 
you have to shell out considerably 
more money for a store-bought unit 
than parts for this one. This interface is 
easily adapted to any program and is 



10 


START 


IN 


A, (0FDH) 


20 




CP 


0FFH 


30 




JP 


Z,CONT 


40 




RRA 




50 




CALL 


NC, BUTTON 


60 




RRA 




70 




CALL 


NC,LEFT 


80 




RRA 




90 




CALL 


NC, RIGHT 


100 




RRA 




110 




CALL 


NC,UP 


120 




RRA 




130 




CALL 


NC,DOWN 


140 




JP 


CONT 




Program Listing 2 





easy to tack onto your own graphics arrow. Good luck!B 

creations. Donald E. Michel is Chief Engineer 

Hopefully, you will never again be at T. J. Electronics. Art May is Senior 

obliterated by unscrupulous Klingons Electronics Specialist at C. R. C. 

while frantically fumbling for the up Wireline. 



J 



EXPANSION INTERFACE 

BOARD 

TRACE SIDE 



L 



1 I I I 1 1 I I n_LLL 



m 



BUS EXTENSION / \ \*5V FROM 
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Figure 3 




WIRE TO PIN 39 
ON OPPOSITE 
SIDE 



TO KEYBOARD 
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BOARD 



Figure 4 
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fin oPEn nno shut case \ 

FOR COmPUTERS 




Your sizable investment in your computer should be protected. If you have 
to load and unload your computer every time you want to move it. you 
must consider the possible damage. Computer Case Company has solved 
your computer protection problem. Once your equipment is safely inside 
the attache-style carrying case, it never has to be taken out again. Simply 
remove the lid, connect the power, and operate. For storage, disconnect 
the power, enclose your disks, working papers, and manuals in the 
compartments provided, and attach the lid. Case closed. Judge for yourself. 

CALL TOLL FREE: (800) 848-7548 



RS201 

RS202 

RS204 

RS205 

P401 

P402 

P403 



CC80 
CC90 
CC91 



TRS-80 Model !, Expansion Unit & Drives 

TRS-80 Monitor or TV set 

TRS-80 Model III 

Radio Shack Color Computer 

Paper Tiger 440/445/460 

Line Printer ll/IV 

Epson MX70, MX80 or IBM Matrix 

Epson MX100... 

Matching Attache Case (5") 

Matching Attache Case (3") 

Matching Accessory Case 



S109 



129 



99 



85 
75 

95 
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HOW TO USE YOUR EPSON 

WITHOUT WASTING 

COMPUTER 





Your computer is capable of sending data 
at thousands of characters per second but 
the Epson can only print 80 characters per 
second. 

This means your computer is forced to 
wait for the printer to finish one line before it 
can send the next. A waste of valuable time. 

THE NEW MICROBUFFER™ 
ACCEPTS DATA AS FAST AS 
YOUR COMPUTER CAN SEND IT. 

Microbuffer stores the data in its own 
memory buffer and then takes control of 
the printer. This frees your computer for 
more productive functions. 

PARALLEL OR SERIAL. 

Microbuffer model MBP-16K is a 
Centronics-compatible parallel interface 
with 16,384 bytes of on-board RAM for 
data buffering. 

The MBS-8K is a full-featured RS-232C 
serial interface with both hardware and 
software (X-On/X-Off) handshaking, baud 
rates from 300 to 19,000 and an 8,192 byte 
RAM buffer. 

SIMPLY PLUG IT IN. 

Either model fits the existing auxiliary 
interface connector inside the Epson MX-80, 
MX-80 FfT or MX-100 without modification, 
and is compatible with standard Epson 
cables and printer control software, 
including GRAFTRAX-80. 

JUST $159.00* 

When you think how much time Microbuffer 
will save, can you afford not to have one? 
Call us for your nearest dealer. 




PRACTICAL PERIPHERALS, INC. 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CA 91362 • (213) 991-8200 
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A GALAXY of features .makes th'e LNy/gfc a 
remarkable computer. As you explQre the 
LNW80, you will find the most complete, 
powerful, ready to run, feature-packed per- 



ronal and business computer ever made into 
)ne compact solid unit. 




a, QUALITY CONSTRUCTION - Instrumenta 
e lion quality construction sets LNW80 com- 
3, puters apart from all the rest. Integrated into 
r- , the sleek solid steel case of the LNW80 is a 
o professional 74-key expanded keyboard that 
includes a twelve key numeric keypad. 

HIG^ RESOLUTION GRAPHICS& COLOR- 

Thef sttmning 480 X 1 92 resolution gives you 

V total display control - in color or black and 

white. The choice of display formats is yours; 

80^64, 40 and 32 columns by 24 or 16 linesin- 
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.PERFORMANCE- I ift-off with, a 4 MHz ZQOA 
CPU for twice the performance. The LNW80 
^"♦oerforms all computers in .its class. 



H 






MODEL I COMPATIBILITY - The LNW&O is 

fully hardware and software compatible with 
trie Model I. Select from a uniyersaof hardware 
accessories and software -.{from VisiCalc" to 
space games, your LNW8GT will launch you 
Into a new world of computing. 

»■■''. *V. >". • 

Fli.LLY LOAQED - A full payload 

onboard single and double density disk 







.sided d'fsk drives. RS2«32C communications 
;.portj 

are ^standard features and ready to go. 
memory is \illy installed - 48K RAM,' 16K 

~)M complete with 
Microsbft BASIC. 



i^price won't send you into 



*. _ • .i 



Researc 



• \ 



■Mini ..(..i 






